image of READY prompt

Wang2200.org

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