Listing of file='609AS010' on disk='vmedia/731-0067F-disk2.wvd.zip'
# Sector 178, program filename = '609AS010'
0010 REM '609AS010' - Make Summary for #A1
0015 DIM U1$(2)64,J2$(3)20
: B2$=" "
: J$=HEX(0D)
: GOSUB '217(1,1,B0$,B9$)
: IF R1$<>HEX(00)THEN GOSUB 2505
: IF B2$<>" "THEN 230
: STR(U1$(),109,1)=HEX(FF)
: GOSUB '235(A1,U1$())
: IF R1$<>HEX(00)THEN GOSUB 2510
: IF B2$<>" "THEN 230
: V4$="P"
: GOSUB '220(A1,1,1,1,1)
: IF R1$<>HEX(00)THEN GOSUB 2515
: IF B2$<>" "THEN 230
: T6=VAL(STR(V1$(),13),2)
0093 IF T6>3THEN GOSUB '223(A1,3,T6-3)
: IF R1$<>HEX(00)THEN GOSUB 2525
: IF B2$<>" "THEN 230
: GOSUB 2530
: L=LEN(T2$())
: $TRAN(T2$(),HEX(8020))R
: V1$()=ALL(80)
: STR(V1$(),,2)=HEX(8F31)
: STR(V1$(),80)=HEX(838F)
: FOR C=5TO 45STEP 5
: STR(V1$(),C,1)=HEX(82)
: NEXT C
: STR(V1$(),POS(STR(V1$(),2)=83)+2)=T2$()
: STR(V1$(),80+L,1)=" "
0115 V4$="T"
: IF T6>0THEN GOSUB '221(A1,1,4,1,1)
: ELSE GOSUB '221(A1,1,3,1,1)
: IF R1$<>HEX(00)AND R1$<>HEX(28)THEN GOSUB 2525
: IF B2$<>" "THEN 230
: V1$()=HEX(00010002000000000000000000000003)&ALL(FF)
: IF T6>0THEN STR(V1$(),13,4)=HEX(00030004)
: V4$="P"
: GOSUB '221(A1,1,1,1,1)
: IF R1$<>HEX(00)THEN GOSUB 2535
: IF B2$<>" "THEN 230
: C8=V0
0150 IF T6>0AND C8>4THEN GOSUB '223(A1,5,C8-4)
: IF T6=0AND C8>3THEN GOSUB '223(A1,4,C8-3)
: IF R1$<>HEX(00)AND R1$<>HEX(28)THEN GOSUB 2525
0230 LOAD TA5$
2500 % DO NOT RENUMBER THE FOLLOWING
2505 B2$="Error reading file control block"
: RETURN
2510 B2$="Error writing file control block"
: RETURN
2515 B2$="Error reading page table"
: RETURN
2520 B2$="Error reading document "
: RETURN
2525 B2$="Error making document summary"
: RETURN
2530 T2$()="** CAUTION! This is only a summary document, which should not be
edited or filed. **"
: RETURN
2535 B2$="Error writing page table"
: RETURN