Compucolor.org – Virtual Media

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

1 PLOT 12,27,11,15,6,1,3,10,0
2 PRINT "NATIONAL GEOGRAPHIC INDEX DATA INSERTION PROGRAM"
3 FILE "R",1,"NGLIST",8:GET 1,1;LR:R= LR+ 1:PLOT 6,2
4 PRINT :INPUT "ENTER MONTH AND YEAR OF ISSUE,(E.G. 9,82):";A,B:IF A> 12OR B> 99THEN PLOT 28,11,28:GOTO 4
5 PRINT :PRINT "ENTER A 23-LETTER OR LESS DESCRIPTION OF ARTICLE,STARTING WITH"
6 PRINT :PRINT "THE MOST IMPORTANT WORD (OR XX TO ABORT):":PRINT :INPUT C$
7 IF LEN (C$)> 23THEN PRINT :PRINT "TOO LONG!":GOTO 5
8 IF C$= "XX"THEN 10
9 A$= CHR$ (A):B$= CHR$ (B):PUT 1,R;A$[1],B$[1],C$[23]:R= R+ 1
10 PRINT :INPUT "PRESS RETURN TO CONTINUE,1 TO CHANGE MONTH OR 2 TO END:";AD:IF AD= 2THEN PUT 1,1;R- 1:FILE "C",1:END
11 IF AD= 1THEN 4
12 GOTO 5