Listing of file='609Escm1' on disk='vmedia/731-0067G.wvd.zip'
# Sector 858, program filename = '609Escm1'
0010 REM 609Escm1 --- Load information from origional document -------------
-
0020 COM J6(4),D9$(123)2,D8$(246)1,J3$(J8)1,J8$5
: DATA LOAD DC OPEN T#0,"609EDATA"
: MAT REDIM J3$(J8/82)82
: DATA LOAD DC #0,D8$(),D9$(),J3$(),J6(),J8$,B9$
: MAT REDIM J3$(J8)1
0100 IF J6(2)<8AND D1$<>HEX(50)AND D1$<>HEX(F0)AND D3$<>HEX(50)AND D3$<>HEX(F0
)THEN IF J0(2)<>J0(5)OR V0$(MAX(J0(4),D9))=HEX(8F)THEN 210
0120 DBACKSPACE #0,BEG
: DATA SAVE DC #0,END
: DATA SAVE DC CLOSE#0
: IF J7(2)=13THEN LOAD T"609Escm4"
: V1$()="609Escm3REC.page"
: LOAD T<2>V1$()
0210 GOSUB 2538
: J7(3)=1
: J7(2)=1
: DATA SAVE DC CLOSE#0
: C4,J0(5)=J0(2)
: J1=J8-2
: COM CLEAR J6()
: V1$()="609FpageREC.page"
: LOAD T<2>V1$()BEG 100
0380 D1$=HEX(50)
: J7(2)=13
: GOTO 120
2538 B2$="Cannot put page break into special page."
: IF Y5$=" "THEN B2$=B2$&" Execute or Cancel"
: IF Y5$<>" "THEN GOSUB '31
2560 PRINT AT(23,0,80);HEX(0607);B5$(2);B2$;B5$(1);
: KEYIN S2$,,2570
: IF S2$=HEX(82)OR S2$=HEX(A1)THEN RETURN
: GOTO 2560
2570 IF POS(HEX(F050)=S2$)>0THEN 380
: GOTO 2560
3000 DEFFN'31
: A5=0
: A5$()="609CloseJCATSMAL"
: A5$=R3$()
: R3$()=STR(R3$(),10)
: LOAD T<2>A5$()