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