image of READY prompt

Wang2200.org

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

# Sector 1055, program filename = '609Gatt'
0010 REM %609Gatt  - Attach glossary (01/27/81)
0020 COM C0$5
   : DIM S4,S5(1),S0(1),S3(1),T5(1),T1$(2)80
   : DIM S5,T1(3),S6(3),S1(3),T2$(3)80
   : DIM S6,T2(1),S7(1),S2(1),S4(1),T5$(1)5
   : DIM S1$2,S1$(2)2,S2$(5)2
   : DIM S2$1,T1$80,T2$2
   : GOSUB '61
   : PRINT HEX(03)
   : T5$(1)=" "
   : IF R5$>" "THEN T5$(1)=R5$
   : ELSE STR(T5$(1),5,1)=B5$
   : GOSUB '62
   : IF T5=0THEN GOSUB '31
   : C0$=T5$(1)
0400 A5$()="JCATSMALREC-GEN REC-RD  609Open 609Gatt2"
   : LOAD T<5>A5$()
1210 DEFFN'31
   : COM CLEAR C
   : LOAD TA5$
2010 DATA 3,0,0,"A T T A C H   G L O S S A R Y"
   : DATA 4,4,0,"Please enter glossary ID"
   : DATA 2,4,27,5," "
   : DATA 0