Listing of file='609FG020' on disk='vmedia/731-0067F-disk2.wvd.zip'
# Sector 277, program filename = '609FG020' 0010 REM '609FG020' - VERIFY SYSTEM DOCUMENT NAME 0030 B2$=" " : J$=HEX(0D) : GOSUB '217(1,1,B0$,B9$) : IF R1$<>HEX(00)THEN GOSUB 2520 : IF B2$<>" "THEN 270 : IF STR(U1$(),107,1)<>HEX(00)THEN GOSUB 2512 : IF B2$<>" "THEN 270 : IF STR(U1$(),109,1)=HEX(FF)AND A5$<>"609FD100"AND A5$<>"609FD200"THEN GOS UB 2525 : IF B2$<>" "THEN 270 : GOSUB '220(A1,1,1,1,1) : IF R1$=HEX(00)THEN 130 : IF R1$>HEX(29)THEN CONVERT (VAL(R1$))TO T2$,(##) : ELSE HEXUNPACKR1$TO T2$ 0100 GOSUB 2505 : GOTO 270 0130 S7=VAL(STR(V1$(),3),2) : GOSUB '220(A1,1,S7,1,1) : IF R1$=HEX(00)THEN 210 : IF R1$>HEX(29)THEN CONVERT (VAL(R1$))TO T2$,(##) : ELSE HEXUNPACKR1$TO T2$ : GOSUB 2510 : GOTO 270 0210 $TRAN(V1$(),HEX(8020))R : GOSUB 2515 : PRINT AT(21,0,40);T1$;" ";STR(V1$(),1,25); : IF D(14)>1THEN 270 : GOSUB '34(0) 0270 LOAD TA5$ 2500 % DO NOT RENUMBER THE FOLLOWING 2505 B2$="Error occurred reading "&R5$&" page table = "&T2$ : RETURN 2510 B2$="Error occurred reading "&R5$&" admin block = "&T2$ : RETURN 2512 B2$="Document In Use" : RETURN 2515 T1$="Document Name:" : RETURN 2520 B2$="Error reading file control block" : RETURN 2525 B2$="Cannot do filing on a Summary Document" : RETURN