image of READY prompt

Wang2200.org

Listing of file='609FG060' on disk='vmedia/701-2738G.wvd.zip'

# Sector 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