Listing of file='609FG020' on disk='vmedia/701-2738G.wvd.zip'
# Sector 811, 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