Listing of file='PPAGES.BAS;01' on disk='vmedia/compuwriter_1-sector.ccvf'
10 REM VERS.810909 PROGRAM BY *EIKE MUELLER* 15 CLEAR 20 PLOT 6,38,12,3,15,3,14:PRINT "P A G E N U M B E R S" 21 POKE 33298,120:PLOT 27,18,7 22 IF PR> 0THEN 30 25 GOTO 400 30 PLOT 15,3,10,6:PRINT "1 - NUMBERS LIKE: PAGE X OF Y " 40 PLOT 3,10,8:PRINT "2 - NUMBERS LIKE: - X - " 50 PLOT 3,10,10:INPUT "ENTER YOUR SELECTION & HIT RETURN ";S 60 IF S< 1OR S> 2THEN PLOT 7,28,11:GOTO 50 61 PLOT 6,38:PRINT :PRINT 62 PRINT TAB( 10):INPUT "ENTER FIRST PAGE NUMBER -->";N 63 PRINT TAB( 10):INPUT "ENTER LAST PAGE NUMBER -->";M 64 IF M< NTHEN 62 65 IF M= 0THEN M= N 66 PRINT :INPUT ".....OH BY THE WAY EPSON (9600 BAUD) OR PAPERTIGER (1200)? ";EP$ 70 PLOT 6,25,3,10,20:INPUT "HIT ENTER WHEN PRINTER ON ";EN 75 PLOT 6,2,12,3,20,15:PRINT " T H A N K Y O U " 76 IF LEFT$ (EP$,1)= "P"THEN PLOT 27,18,4,27,13,29,2:EP= 0:POKE 33289,120:GOTO 88 80 IF LEFT$ (EP$,1)= "E"THEN PLOT 27,13,27,69:EP= 6:POKE 33289,120:GOTO 88 82 PLOT 7:INPUT "YOU FORGOT TO SPECIFY THE PRINTER! E OR P? ";EP$ 84 GOTO 70 88 IF INT (PR)> 0THEN S= S+ 2 90 ON SGOTO 100,200,1100,1200 100 FOR X= NTO M:PRINT TAB( 60+ EP)"PAGE";X;" OF";M:PLOT 12:NEXT X 110 GOTO 300 200 FOR X= NTO M:PRINT TAB( 35)"-";X;" -":PLOT 12:NEXT X 300 POKE 33265,0 310 PLOT 3,0,15,11:INPUT " MORE? ";MO$ 320 IF LEFT$ (MO$,1)= "Y"THEN RUN 325 PLOT 14 330 PLOT 12,3,15,15:PRINT "A U F W I E D E R S E H E N " 340 PLOT 3,0,0:INPUT "";EN 350 PLOT 15:RUN 400 PLOT 15:PRINT TAB( 10):INPUT "PREFIX PRIOR TO PAGE NUMBER? (Y/N) ";PF$ 410 IF LEFT$ (PF$,1)= "N"THEN PLOT 28,11:GOTO 30 420 IF LEFT$ (PF$,1)= "Y"THEN 440 430 PLOT 7,28,11:GOTO 400 440 PRINT :PRINT TAB( 10):INPUT "ENTER PREFIX -->";PR$ 450 PR= LEN (PR$):PR= INT (PR/ 2):GOTO 20 1100 FOR X= NTO M:PRINT TAB( 50- PR- EP);PR$;" - PAGE";X;" OF";M:PLOT 12:NEXT X 1110 GOTO 300 1200 FOR X= NTO M:PRINT TAB( 35- PR- (EP- 4));PR$;" -";X:PLOT 12:NEXT X 1210 GOTO 300