Listing of file='609Gatt2' on disk='vmedia/731-0067F-disk2.wvd.zip'
# Sector 526, program filename = '609Gatt2' 0010 REM %609Gatt2 - Attach glossary, part 2 (01/26/81) Chuck Baker 0020 COM C7,V0$(64)60 : 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 : DIM U2$(64)16,V1$(3)82,U1$(8) : DIM V2$(256)1,R1$1 : GOSUB '110(C0$,"G") : IF B2$=" "THEN 210 : GOSUB 2050 0190 PRINT AT(23,0,80);HEX(07);B5$(2);B2$;HEX(0106);B5$(1); : GOTO 360 0210 GOSUB '111(B0$,B9$,B4$,HEX(01)) : A1=V3 : IF B2$=" "THEN 250 : IF R1$=HEX(03)THEN GOSUB 2020 : GOSUB 2050 : PRINT AT(23,0,80);HEX(07);B5$(2);B2$;HEX(0106);B5$(1); : GOTO 360 0250 GOSUB '220(A1,1,1,1,2) : IF R1$=HEX(00)THEN 290 : GOSUB 2010 : PRINT AT(23,0,80);HEX(07);B5$(2);B2$;HEX(0106);B5$(1); : KEYIN D2$ : GOTO 340 0290 IF STR(V0$(),210,1)="Y"THEN 330 : GOSUB 2020 : PRINT AT(23,0,80);HEX(07);B5$(2);B2$;HEX(0106);B5$(1); : KEYIN D2$ : GOTO 340 0330 B3$=C0$ : GOSUB 2040 : IF B3$=R5$THEN R5$=" " 0340 GOSUB '212(A1) : IF R1$=HEX(00)THEN 370 : GOSUB 2030 : PRINT AT(23,0,80);HEX(07);B5$(2);B2$;HEX(0106);B5$(1); 0360 KEYIN D2$ 0370 DEFFN'31 : COM CLEAR C : LOAD TA5$ 2010 B2$="Error reading first VAU in glossary - Press CANCEL" : RETURN 2020 B2$="Needs to be verified" : RETURN 2030 B2$="Error closing glossary - Press CANCEL" : RETURN 2040 PRINT AT(10,0);B5$(2);"Glossary ";B3$;" attached";B5$(1) : RETURN 2050 B2$=B2$&" - Press CANCEL" : RETURN