Listing of file='609FG060' on disk='vmedia/701-2738G.wvd.zip'
# Sector 831, program filename = '609FG060' 0010 REM '609FG060' - INPUT A SINGLE DOCUMENT ID 0012 DIM S5(2),S0(2),S3(2) : DIM T1$(10)80,S1$(10)2 : DIM T1(5),S6(5),S1(5),T2$(5)80 : DIM T2(2),S7(2),S2(2),S4(2) : DIM S2$(10)2 : DIM S1$5 : DIM S2$1,T1$80,T2$2,S0,S4,S5,S6,S7,S9,T0,T2,T3,T5,C0,T7 : 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) : LOAD TA5$ 0130 LOAD T"609Fmenu" 2500 % DO NOT RENUMBER THE FOLLOWING 2505 DATA 3,0,0,"DOCUMENT FILING" : DATA 4,12,0,"Please enter Document ID: " : DATA 2,12,27,5," " : DATA 0 2525 T1$="Invalid Key" : RETURN