Listing of file='609Open' on disk='vmedia/701-2739G.wvd.zip'
# Sector 95, program filename = '609Open'
3500 REM 609Open , RELEASE 0-0, (00/00/00) - COPYRIGHT WANG LABS. INC.
3501 DIM D8$1,T$2,D9$5,D6$6,B9$,B0$
3520 DEFFN'110(D9$,D8$)
: IF VER(D9$,"####A")<>5THEN 3610
: D0=POS(" ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz"=STR(D9$,5)
)-1
: DATA LOAD DA T(B3+D0)A0$()
: B9$=STR(A0$(),2,8)
: C0=1
: IF B9$=" "THEN 3620
3525 GOSUB '236(8,C0)
: IF R1$<>HEX(00)THEN 3630
: IF V1=0THEN 3640
: MAT SEARCHSTR(U1$(),,V1*16),=STR(B9$,,8)TO T$STEP 16
: IF T$>HEX(0000)THEN 3530
: IF V1<8THEN 3640
: C0=C0+8
: GOTO 3525
3530 B9$=STR(U1$(),VAL(T$,2))
: IF D8$="G"THEN B0$="GLOSSARY."
: ELSE B0$="DOCUMENT."
: B0$=B0$&STR(D9$,5,1)&"."&STR(D9$,,4)
: B2$=" "
: RETURN
3535 DEFFN'111(B0$,B9$,D6$,D8$)
: GOSUB '211(B0$,B9$,D6$,D8$)
: ON VAL(R1$)+1GOTO 3540,,,3650,,3660,3670
: GOTO 3680
3540 B2$=" "
: RETURN
3600 %This is line 3600 - do not renumber lines 3600-3699
3610 IF D8$="G"THEN B0$="Glossary"
: ELSE B0$="Document"
: B2$="Invalid "&STR(B0$,,8)&" Id"
: RETURN
3620 B2$="Library '"&STR(D9$,5,1)&"' has not been established"
: RETURN
3630 GOSUB 3690
: B2$="Error in Query Volume = "&T$
: RETURN
3640 B2$="Volume not recorded in master file"
: RETURN
3650 B2$="Unknown "&STR(B0$,,8)
: RETURN
3660 B2$="Incorrect Password"
: RETURN
3670 B2$="Cannot Access "&STR(B0$,,8)&" "&STR(B0$,12,4)&STR(B0$,10,1)
: RETURN
3680 GOSUB 3690
: B2$="Error in Open File = "&T$
: RETURN
3690 IF R1$>HEX(29)THEN CONVERT VAL(R1$)TO T$,(##)
: ELSE HEXUNPACKR1$TO T$
: RETURN