Listing of file='609GVer' on disk='vmedia/731-0067F-disk2.wvd.zip'
# Sector 577, program filename = '609GVer' 0010 REM %609GVer (12/31/80) Verify Glossary 0015 COM J2$1 : DIM T1$80,T2$2,U1$(8),U2$(16) : R5$=C0$ : GOSUB 2000 0320 J2$=" " : KEYIN J2$ : IF J2$=HEX(F0)OR J2$=HEX(50)THEN GOSUB '31 : IF J2$<>HEX(82)THEN 320 : GOSUB 2010 : B0$="GLOSSARY."&STR(C0$,5,1)&"."&STR(C0$,,4) : IF B3$<>C0$THEN 370 : GOSUB '212(A4) : IF R1$=HEX(00)THEN 367 : GOSUB 2020 : GOTO 600 0367 A4=-1 : GOTO 380 0370 GOSUB '210(B0$,B9$," ") : J2$=R1$ : IF R1$=HEX(00)OR R1$=HEX(02)THEN 380 : GOSUB 2030 : GOTO 600 0380 IF A3>-1THEN 390 : GOSUB '111(B0$,B9$," ",HEX(FF)) : IF R1$=HEX(00)THEN A3=V3 : IF R1$=HEX(00)THEN 390 : GOSUB 2040 : GOTO 590 0390 IF B3$=C0$THEN B3$=" " : A5$()="609GVer2RECMGR" : LOAD T<2>A5$() 0590 PRINT HEX(0706);B5$(2); : PRINT AT(23,0,80);B2$; : GOSUB 2070 : KEYIN J2$ : GOSUB '31 0600 GOSUB 610 : GOSUB 2080 : GOTO 590 0610 T2$=" " : IF R1$>HEX(29)THEN CONVERT VAL(R1$)TO T2$,(##) : ELSE HEXUNPACKR1$TO T2$ : RETURN 0620 DEFFN'31 : R3$()=STR(R3$(),10) : A5$()="609CloseJCAT" : LOAD T<2>A5$() 2000 B2$="Verify it ?" : GOTO 2015 2010 B2$="(Verifying)" : GOTO 2015 2015 PRINT AT(0,63,17);HEX(06);B5$(2);B2$ : RETURN 2020 B2$="closing vefified glossary file in shared mode" : RETURN 2030 B2$="in creating verified glossary file" : RETURN 2040 B2$=B2$&" - verified glossary file" : RETURN 2050 B2$="in reading verified glossary VAU" : RETURN 2060 B2$="in deleting VAU's from old verified glossary" : RETURN 2070 PRINT " Key EXEC to resume"; : RETURN 2080 B2$="Error "&T2$&" "&B2$ : RETURN