Listing of file='EDITOR.BAS;01' on disk='vmedia/chip_106-sector.ccvf'
10 PLOT 27,24,6,2,14,12 20 PRINT ,,"GUESS WHAT FILE EDITOR" 30 FOR A= 1TO 63:PRINT "-";:NEXT :PLOT 15:PRINT 40 GOSUB 1000 50 PLOT 20:FOR A= 1TO 63:PRINT "g";:NEXT :PRINT 60 PRINT ,,"1 - PERSON","2 - PLACE","3 - THING" 65 PRINT "DESCRIPTION:" 70 PRINT ,,,"4 - PHRASE","5 - TITLE" 80 PLOT 20:FOR A= 1TO 63:PRINT "g";:NEXT :PRINT 85 S(1)= 2:S(2)= 13:S(3)= 25 100 FILE "R",1,"PUZZL1",1 105 FOR A= 1TO 100:NEXT 110 FILE "R",2,"PUZZL2",1 115 FOR A= 1TO 100:NEXT 120 FILE "R",3,"PUZZL3",1 125 FOR A= 1TO 100:NEXT 130 FOR A= 1TO 3 140 GET A,1;F(A):NEXT :GOSUB 1000 150 PLOT 3,0,11:FOR A= 11TO 30:PLOT 11,10:NEXT :PRINT 160 PLOT 3,0,10:PRINT :INPUT "WHAT FILE # ....(-1 TO END)...... ";A 165 IF A= - 1THEN 600 170 PRINT :INPUT "WHAT DESCRIPTION # .............. ";V$ 180 PUT A,F(A)+ 1,1;V$[1] 190 FOR B= 1TO A 200 X= 12:IF B= 1THEN X= 11 210 PRINT "LINE#";B,,,:PLOT 6,3:PRINT "SPACE -";X 220 PRINT :INPUT A$ 230 PUT A,F(A)+ 1,S(B);A$[X] 240 NEXT B 245 F(A)= F(A)+ 1:GOSUB 1000 250 FOR A= 1TO 1000:NEXT :GOTO 150 600 FOR A= 1TO 3:PUT A,1,1;F(A):NEXT 999 FILE "C",1,2,3:PLOT 27,11:END 1000 PLOT 3,0,4:PRINT "TOTAL IN FILE:","1 LINE";F(1),"2 LINES";F(2),"3 LINES";F(3):RETURN