Compucolor.org – Virtual Media

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