Listing of file='609AG061' on disk='vmedia/731-0067F-disk2.wvd.zip'
# Sector 146, program filename = '609AG061' 0010 REM '609AG061' - INPUT A RENAMED DOCUMENT ID 0030 RESTORE LINE2505 : GOSUB '61 : IF C4$=" "THEN T5$(1)=R5$ : T5$(1)=C4$ 0070 GOSUB '62 : ON T5+1GOTO 130,110 0090 GOSUB 2525 : PRINT AT(23,0,);T1$;HEX(07); : GOTO 70 0110 IF T5$(1)=" "THEN 90 : IF A5$="609AC100"OR A5$="609AF100"AND VER(T5$(1),"####A")<>5THEN 90 : ELSE C4$=T5$(1) : LOAD TA5$ 0130 J$=HEX(F0) : LOAD TA5$ 2500 % DO NOT RENUMBER THE FOLLOWING 2505 DATA 3,0,0,"ADVANCED FILING" : DATA 4,13,3," Enter new document ID:" : DATA 2,13,35,5," " : DATA 0 2525 T1$="Invalid Id " : RETURN