Listing of file='609AG060' on disk='vmedia/731-0071G.wvd.zip'
# Sector 116, program filename = '609AG060' 0010 REM '609AG060' - INPUT THE DOCUMENT ID FOR ADVANCED FILING 0020 B2$=" " : J$=HEX(0D) : RESTORE LINE2505 : GOSUB '61 : T5$(1)=R5$ : PRINT AT(21,0,159); 0070 GOSUB '62 : ON T5+1GOTO 130,110 : GOSUB 2525 : PRINT AT(23,0,);T1$;HEX(07); : GOTO 70 0110 R5$=T5$(1) : IF VER(R5$,"####A")=5THEN 120 : GOSUB 2526 : PRINT AT(23,0,);T1$;HEX(07); : GOSUB '34(1) : GOTO 70 0120 LOAD TA5$ 0130 LOAD T"609adfil" 2500 % DO NOT RENUMBER THE FOLLOWING 2505 DATA 3,0,0,"ADVANCED FILING" : DATA 4,12,8,"Please enter Document ID: " : DATA 2,12,35,5," " : DATA 0 2525 T1$="Invalid Key" : RETURN 2526 T1$="Invalid ID" : RETURN