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