Compucolor.org – Virtual Media

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

10 FILE "R",1,"INDEX",13
15 PRINT
20 INPUT "ENTER MODIFYING DATA (I,B,N):";I,B,N
30 PUT 1,I,B;CHR$ (N)[1]
40 PRINT
50 INPUT "ENTER C FOR ANOTHER OR E TO END:";XX$
60 IF XX$= "C"THEN 15
70 FILE "C",1
80 END