image of READY prompt

Wang2200.org

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

# Sector sector 1079, program filename = '609RCVRZ'
0010 REM '609RCVRZ' - SETUP TO JUMP INTO RETRIEVAL MODULE
0030 COM C1$(4)64,C0$(123)2,C2$(16),C3$(16),C3$2,T2$2
   : COM D(25),D8
   : COM D$50,D0$5,D1$3,D2$1,D3$1,D4$5,D5$1,D7$32,J8$32,J9$29
   : COM J1$(256)1,D3$(256)1,J$1,J0$2,T1$80,J3$2
0070 COM C$(256)1,D$(3)1,D0$(84)6,D1$(1)2,D2$(256)1
   : COM D4$(100)2,D5$(100)2,D6$(8)1,D7$(8)1,J$(84)6
   : COM D8$(256)1,D9$(256)1
   : DATA LOAD BA T#6,(D1+D7)D2$()
   : CONVERT STR(R5$,1,4)TO J
   : PACK(####)D1$FROMJ
   : STR(D1$,3)=STR(R5$,5)
   : D(9)=6
   : A5$()="609FR030609FG070609FG080REC-GEN REC-RD"
   : LOAD T<5>A5$()