Listing of file='MENU.BAS;01' on disk='vmedia/wordy_disk_3-sector.ccvf'
0 CLEAR 500:REM MAKE STRING ROOM 5 POKE 33289,80:PRINT "SIZING AND READING THE MANUAL, THIS WILL TAKE A FEW MOMENTS" 10 PLOT 27,18,7:REM ST 9600 BAUD (REMOVE THIS IF NOT NEEDED) 20 PLOT 27,13:REM SEND OUTPUT TO SERIAL PORT (CHANGE OR REMOVE AS NEEDED) 40 FILE "T",100:REM TRAP FOR FILE TO LARGE 50 FOR I= 200TO 390STEP 10:REM SIZE THE FILE BY STEPS OF TEN 60 FILE "R",1,"MANUAL.SRC",1;I,128,1 70 NR= I:FILE "C",1 80 NEXT 100 FILE "E",LF,ER,LN 110 IF ER= 8THEN 130:REM 8 = FILE TOO LARGE 120 GOTO 1000 130 FILE "T",200 140 FOR I= NRTO NR+ 10:REM SIZE FILE BY STEPS OF ONE 150 FILE "R",1,"MANUAL.SRC",1;I,128,1 160 NR= I:FILE "C",1 170 NEXT 200 FILE "E",LF,ER,LN 210 IF ER= 8THEN 230 220 GOTO 1000 230 FILE "T",1000:REM TRAP END OF FILE 240 FILE "R",1,"MANUAL.SRC",1;NR,128,1:REM OPEN THE FILE TO RECORD LENGTH OF 128 250 GET 1;A$[128]:REM BRING A BLOCK 260 PRINT A$;:REM PRINT THE TEXT GATHERED TO THIS POINT 270 GOTO 250 999 END 1000 FILE "E",FL,ER,LN 1010 IF ER= 12THEN PRINT :GOTO 1030:REM TRAP END OF FILE AND SEND A C/R 1020 PRINT "FILE ERROR NO. "ER:REM STOP AND LIST ANY OTHER ERRORS 1030 END