Compucolor.org – Virtual Media

Listing of file='INFILE.BAS;01' on disk='vmedia/chip_63-sector.ccvf'

5 PLOT 12
10 PRINT "  INDEX     FILE    PARAMETER     READING    PROGRAM"
12 PLOT 15,10,10,10
15 INPUT "ENTER DISK NUMBER: ";Z$
20 ZZ$= ".RND"
22 IN$= Z$+ ZZ$
30 FILE "R",1,IN$,32
40 FOR Q= 1TO 32
50 GET 1,Q;A$[16]
60 PRINT Q,A$
70 NEXT Q
80 INPUT "PRESS RETURN TO CONTINUE ,OR 1 TO END: ";N
90 IF N= 1THEN 120
110 GOTO 40
120 PLOT 1
130 INPUT "PRESS RETURN TO GO BACK TO MENU: ";W
140 GOTO 120
150 END