Listing of file='609AV010' on disk='vmedia/701-2738G.wvd.zip'
# Sector 684, program filename = '609AV010'
0010 REM '609AV010' - Verify document new ID for retrieving
0020 B2$=" "
: GOSUB 2507
: IF VER(C4$,"####A")<>5AND STR(C4$,1,4)<>T1$OR VER(STR(C4$,5,1),"A")<>1THE
N GOSUB 2512
: IF B2$<>" "THEN 140
: D(19)=POS(" ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz"=STR(C4$
,5))-1
: DATA LOAD DA T(B3+D(19))A0$()
: B9$=STR(A0$(),2,8)
: T6=1
: IF B9$=" "THEN GOSUB 2520
: IF B2$<>" "THEN 140
0070 GOSUB '236(8,T6)
: IF R1$<>HEX(00)THEN 2515
: IF V1=0THEN 2520
: MAT SEARCHSTR(U1$(),,V1*16),=STR(B9$,,8)TO T2$STEP 16
: IF T2$>HEX(0000)THEN 80
: IF V1<8THEN 2525
: T6=T6+8
: GOTO 70
0080 B9$=STR(U1$(),VAL(T2$,2))
: IF VER(C4$,"####A")<>5THEN 100
: B0$="DOCUMENT."&STR(C4$,5)&"."&STR(C4$,,4)
: GOTO 140
0100 $OPEN #0
: DATA LOAD DA T(B3+D(19))A0$()
: CONVERT STR(A0$(),10,4)TO D(10)
0110 CONVERT D(10)TO STR(C4$,,4),(####)
: B0$="DOCUMENT."&STR(C4$,5)&"."&STR(C4$,,4)
: GOSUB '217(1,1,B0$,B9$)
: IF R1$=HEX(00)THEN D(10)=MAX(1,MOD(D(10)+1,10000))
: ON POS(HEX(0003)=R1$)GOTO 110,130
: $CLOSE#0
: GOSUB 2516
: GOTO 140
0130 CONVERT MAX(1,MOD(D(10)+1,10000))TO STR(A0$(),10,4),(####)
: DATA SAVE DA T(B3+D(19))A0$()
: $CLOSE
0140 LOAD TA5$
2500 %This is line 2500 - do not renumber lines 2500-2550
2505 IF R1$>HEX(29)THEN CONVERT VAL(R1$)TO T2$,(##)
: ELSE HEXUNPACKR1$TO T2$
: RETURN
2507 T1$="NEXT"
: RETURN
2512 B2$="Invalid document Id"
: RETURN
2515 GOSUB 2505
: B2$="Error in Query Volume = "&T2$
: RETURN
2516 GOSUB 2505
: B2$="Error in Query Name = "&T2$
: RETURN
2520 B2$="Library '"&STR(C4$,5,1)&"' has not been established"
: RETURN
2525 B2$="Volume not recorded in master file"
: RETURN