Listing of file='609Escm1' on disk='vmedia/701-2736G.wvd.zip'
# Sector 842, 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$()