Listing of file='609Gdel2' on disk='vmedia/731-0071G.wvd.zip'
# Sector 513, 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