image of READY prompt

Wang2200.org

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$()