Listing of file='609Eoldw' on disk='vmedia/731-0067G.wvd.zip'
# Sector 1395, program filename = '609Eoldw'
0010 REM 609Eoldw
0020 COM V4$1,I2$2,S2$1,I2$(123)2,T5$(6)75
: DIM V0$(1)1
: DIM S5(1),S0(1),T5(1),S3(1),T1$(2)8,S5,S6(2),S1(2),T1(2),T2$(2)25,S6,S7(1
),S2(1),T2(1),S4(1),S1$1,S1$(2)2,S2$(5)2,T2$2,T1$80
: J0=0
: GOSUB '220(A1,1,1,1,1)
: IF R1$<>HEX(00)THEN 1010
: J1$()=V1$()
: GOSUB '220(A1,1,2,1,1)
: IF R1$<>HEX(00)THEN 1020
0100 $UNPACK(F=HEX(A019A0066006A002A001))STR(V1$(),,242)TO A6$(),A7$(),A0(),A8
$(),A9$()
: A7$(1)=C0$
: IF C5>0THEN A0(3)=C5
: IF D7$="h"THEN 600
: I2=0
: V4$="T"
: FOR I=1TO A0(3)
: IF J1$(I)=HEX(0000)THEN 450
: I1=0
: I0=V0+1
0250 I1=I1+1
: IF I+I1<123AND J1$(I+I1)=HEX(0000)THEN 250
: IF I<123THEN 340
: I0=V0+1
: GOTO 360
0340 IF J1$(I+I1)<>HEX(FFFF)THEN I0=VAL(J1$(I+I1),2)
0360 IF I0-VAL(J1$(I),2)>17THEN I2=1
: IF I0-VAL(J1$(I),2)<>17THEN 440
: GOSUB '220(A1,1,I0-1,1,1)
: IF R1$<>HEX(00)AND R1$<>HEX(28)THEN 1050
: IF STR(V1$(),246,1)<>" "THEN I2=1
0440 IF I2=1THEN I=999
0450 NEXT I
: IF D7$=" "THEN ON I2+1GOTO 630,1030
: ON I2+1GOTO 630
: IF D7$="H"THEN J0=9E99
0600 GOSUB 1140
: J8=2*J8
: IF SPACEK<56THEN D7$="h"
: ELSE D7$="H"
0630 V1$()=ALL(85)
: IF J1$(7)<>HEX(0000)THEN GOSUB '220(A1,1,VAL(J1$(7),2),1,1)
: IF J1$(7)<>HEX(0000)AND R1$<>HEX(00)THEN 1025
: A5$()="609Eolds609Esum'Prime 62"
: LOAD T<3>A5$()
1000 % This is line 1000 - do not renumber lines 1000-1100
1010 B2$="Error in page table read"
: GOTO 1060
1020 B2$="Error in admin block read"
: GOTO 1060
1025 B2$="Error in key word read"
: GOTO 1060
1030 B2$="Page too large for standard page size option"
: GOTO 1061
1040 B2$="Invalid Key - ignored"
: RETURN
1050 B2$="Error in text read"
: GOTO 1061
1060 IF R1$>HEX(29)THEN CONVERT VAL(R1$)TO I2$,(##)
: ELSE HEXUNPACKR1$TO I2$
: B2$=B2$&" = "&I2$
1061 IF Y5$=" "THEN B2$=B2$&" - please Cancel"
: IF Y5$<>" "THEN GOSUB '32
1070 PRINT AT(23,0,80);HEX(07);B5$(2);B2$;B5$(1);
: KEYIN S2$,,1080
: GOTO 1070
1080 IF POS(HEX(F050)=S2$)>0THEN GOSUB '32
: GOTO 1070
1100 DATA 1,21,20,1,"Standard","Extended","\DE",0
: B2$="Select page type:"
: PRINT AT(21,0,80);B2$;
: RETURN
1140 PRINT AT(23,0,78);B5$(3);"Loading next module";B5$(1);
: RETURN
9030 DEFFN'31
: A5=0
9032 DEFFN'32
: A5$()="609CloseJCATSMAL"
: A5$=R3$()
: R3$()=STR(R3$(),10)
: IF A1>-1OR A2>-1THEN LOAD T<2>A5$()
: COM CLEAR C
: LOAD TA5$