Listing of file='COPY.BAS;01' on disk='vmedia/word_king_v1.6-sector.ccvf'
100 PLOT 6,2,15,27,24,12:CLEAR 500:MM$= " 6300-6FFF":DIM B$(9) 110 RESTORE :FOR I= 1TO 9:READ B$(I):NEXT 120 PRINT TAB( 16)"T E X T P A G E C O P I E R" 130 INPUT "PLACE SOURCE DISK IN DRIVE AND PRESS ENTER ";Z$ 140 PLOT 3,0,3:INPUT "PAGE FROM? (1-9) ";N 150 PLOT 27,4:PRINT "REA "+ B$(N)+ MM$:PLOT 27,27 160 PLOT 3,31,3:INPUT "IS THAT THE PAGE? Y/N ";YN$ 170 IF LEFT$ (YN$,1)< > "Y"THEN PLOT 28,11:GOTO 140 180 PLOT 3,0,2,11:INPUT "PLACE DESTINATION DISK IN DRIVE AND PRESS ENTER ";Z$ 190 PLOT 3,0,3,11:INPUT "PAGE TO? (1-9) ";N 200 PLOT 27,4:PRINT "WRI "+ B$(N)+ MM$:PLOT 27,27 210 FOR Y= 31TO 2STEP - 1:PLOT 3,0,Y,11:NEXT 220 INPUT "ARE THERE ANY MORE PAGES TO BE COPIED? Y/N ";YN$ 230 IF LEFT$ (YN$,1)= "Y"THEN PLOT 3,0,2,11:GOTO 130 240 PLOT 27,11,12:END 250 DATA 60,7A,94,AE,C8,E2,FC,116,130