Listing of file='609AG141' on disk='vmedia/701-2738G.wvd.zip'
# Sector 669, program filename = '609AG141' 0010 REM '609AG141' - VERIFY DOCUMENT IN ARCHIVE VTOC (modified from FG140) 0030 B2$=" " : J$=HEX(0D) : GOSUB '40 : GOSUB '45(R5$) : IF D(12)>0THEN 130 : GOSUB 2505 : GOTO 320 0130 IF STR(D$,6,1)<=HEX(20)THEN 170 : GOSUB 2510 : GOTO 320 0170 IF POS(STR(D$,34,6)>20)=0THEN 260 0180 $TRAN(B4$,HEX(0020))R : IF STR(D$,34,6)=B4$THEN 260 : $TRAN(B4$,HEX(2000))R : GOSUB '90 : IF J$<>HEX(F0)THEN 180 : GOSUB 2515 : GOTO 320 0260 $TRAN(B4$,HEX(2000))R : GOSUB 2520 : PRINT AT(21,0,40);I1$;" ";STR(D$,7,25); : IF D(14)>1THEN 320 : GOSUB '34(0) 0320 LOAD TA5$ 0340 DEFFN'90 : GOSUB 2530 : PRINT AT(23,0,);I1$;HEX(20858585858585); : GOSUB 2535 : PRINT AT(23,40);I1$;HEX(07);AT(23,29);HEX(0509); 0370 KEYIN J$,370,370 : D(6)=0 : B4$=" " 0400 KEYIN J$,410,410 : GOTO 400 0410 PRINT HEX(06);AT(23,40,); : ON POS(HEX(0D82F0)=J$)GOTO 490,490,510 : IF VER(J$,"N")=1THEN 460 : GOSUB 2540 : PRINT AT(23,40);I1$;HEX(07); : GOTO 400 0460 D(6)=D(6)+1 : STR(B4$,D(6),1)=J$ : IF D(6)<6THEN 400 0490 PRINT AT(23,0,); : RETURN 0510 PRINT AT(23,0,); : B4$=" " : RETURN 2500 % DO NTO RENUMBER THE FOLLOWING 2505 B2$="Document Does Not Exist" : RETURN 2510 B2$="Document In Use" : RETURN 2515 B2$="Incorrect Password" : RETURN 2520 I1$="Document Name :" : RETURN 2530 I1$="Enter Document "&R5$&" Password " : RETURN 2535 I1$="Password Protected" : RETURN 2540 I1$="Invalid Character" : RETURN