image of READY prompt

Wang2200.org

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

# Sector 1073, program filename = '609Gdel2'
0010 REM %609Gdel2 - Glossary delete part 2 (02/04/81) Chuck Baker
0011 COM C7
   : DIM V0$(1)1
   : 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,T1$80,T2$2,D3$1
   : DIM V1$(3)82
   : DIM U1$(2)64,U2$(8)4
   : DIM V2$(256)1,R1$1
   : GOSUB '110(C6$,"G")
   : A1=V3
   : IF B2$>" "THEN 2000
0180 GOSUB '111(B0$,B9$,B4$,HEX(FF))
   : IF B2$>" "THEN 2000
   : GOSUB '214(A1)
   : IF R1$=HEX(00)THEN 280
   : GOSUB 1220
   : GOSUB 2020
   : IF R1$=HEX(03)THEN GOSUB 2030
   : GOTO 2000
0280 GOSUB 2040
   : IF C6$=B3$THEN B3$=" "
0282 D1$=" "
   : KEYIN D1$
   : IF D1$=HEX(F0)OR D1$=HEX(50)THEN GOSUB '31
   : IF D1$<>HEX(82)THEN 282
   : A5$()="Prime 62609Gdel"
   : LOAD T<2>A5$()
1210 DEFFN'31
   : COM CLEAR C
   : LOAD TA5$
1220 T2$=" "
   : IF R1$>HEX(29)THEN CONVERT VAL(R1$)TO T2$,(##)
   : ELSE HEXUNPACKR1$TO T2$
   : RETURN
2000 PRINT HEX(07);B5$(2);
   : PRINT AT(23,0,80);B2$;"    Key EXEC for menu";
   : PRINT HEX(0106);B5$(1);
   : KEYIN D1$
   : GOSUB '31
   : GOSUB 1220
   : B2$="Error "&T2$&" "&D3$
   : GOTO 2000
2020 B2$="Error "&T2$&" in delete"
   : RETURN
2030 B2$="File does not exist"
   : RETURN
2040 PRINT AT(10,0);"GLOSSARY DELETED   -  Key EXEC to clear another glossary
     or CANCEL for menu"
   : RETURN