image of READY prompt

Wang2200.org

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