Listing of file='609Gdel' on disk='vmedia/701-2738G.wvd.zip'
# Sector 1068, program filename = '609Gdel' 0010 REM %609Gdel - Glossary delete (02/04/81) 0011 COM C6$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 : C6$=T5$(1) 0400 A5$()="609Gdel2609Open JCATSMALRECMGR" : LOAD T<4>A5$() 1210 DEFFN'31 : COM CLEAR C : LOAD TA5$ 2010 DATA 3,0,0,"D E L E T E G L O S S A R Y" : DATA 4,4,0,"Please enter glossary ID" : DATA 2,4,28,5," " : DATA 0