image of READY prompt

Wang2200.org

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