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