Listing of file='609Gdel2' on disk='vmedia/731-0067F-disk2.wvd.zip'
# Sector 539, 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