Listing of file='NGEDIT.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 EDITING PROGRAM" 3 FILE "R",1,"NGLIST",8:PLOT 6,2 4 PRINT :INPUT "ENTER RECORD WHICH YOU WISH TO EDIT:";R 5 PRINT :PRINT "INCORRECT DATA IS:" 6 GET 1,R;A$[1],B$[1],C$[23]:PRINT :PRINT C$" ISSUE:"ASC (A$)" ,"ASC (B$) 7 PRINT :INPUT "DO YOU WISH TO EDIT DATE OF ISSUE?:";AS$:IF LEFT$ (AS$,1)= "Y"THEN 12 8 PRINT :PRINT "ENTER CORRECT DATA OR XX TO ABORT;":INPUT C$:IF C$= "XX"THEN 4 9 IF LEN (C$)> 23THEN PRINT :PRINT "TOO LONG!":GOTO 8 10 PRINT :INPUT "IF YOU HAVE MADE A MISTAKE ENTER Q TO ABORT:";MM$:IF MM$= "Q"THEN 4 11 PUT 1,R;A$[1],B$[1],C$[23]:FILE "C",1:GOTO 3 12 PRINT :INPUT "ENTER CORRECT DATE OF ISSUE (MTH,YR)";A,B:A$= CHR$ (A):B$= CHR$ (B):GOTO 8