Listing of file='609ESIZE' on disk='vmedia/731-0067F-disk1.wvd.zip'
# Sector 1443, program filename = '609ESIZE'
0010 REM ********************* Check Page Size *****************************
0100 REM Verify page size is within the 4k limit
: I2=0
: IF J7(2)=1THEN FOR L=MIN(C3,C4)TO MAX(C3,C4)
: ELSE FOR L=C4TO C4
: I=V0
: IF C4<A0(3)THEN I=VAL(J1$(C4+1),2)
: IF C4<8THEN I=VAL(J1$(C4+(POS(STR(J1$(),2*C4+1)<>00)+1)/2),2)
: I=I-VAL(J1$(C4),2)
: IF I>17THEN I2=2
: IF I<>17THEN 300
: GOSUB '220(A1,1,I+VAL(J1$(C4),2)-1,1,1)
0250 IF R1$<>HEX(00)AND R1$<>HEX(28)THEN 2200
: IF STR(V1$(),246,1)<>" "THEN I2=2
: IF I2=2THEN L=999
0300 NEXT L
: IF I2=0THEN 1370
: IF I2=2THEN 360
0360 GOSUB 2020
: PRINT AT(23,0,);AT(0,63,17);HEX(05);
: J7(3)=6
: PRINT HEX(06);
: ON J7(2)GOTO 1340,1352
: LOAD DA T(D7$(1))
1340 V1$()="609Ehilt609Eline609Eplin609Eprnt"
: IF D7$="H"THEN V1$()="609EHILT609Eline609EPLIN609EPRIN609EPOS 609EFRMT"
: LOAD T<INT((LEN(V1$())+7)/8)>V1$()
1352 V1$()="609Elolt609Eline609Espln609Eprnt"
: IF D7$="H"THEN V1$()="609ELOLT609Eline609ESPLN609EPRNT609EPOS 609EFRMT"
: LOAD T<INT((LEN(V1$())+7)/8)>V1$()
1370 GOSUB 2055
: V1$()="609FpageREC.page"
: LOAD T<2>V1$()BEG 100
2020 PRINT HEX(06);AT(23,23,);B5$(2);"Extended page cannot be processed. Plea
se Cancel.";HEX(020400000E);
2030 PRINT HEX(07);
: KEYIN C3$
: IF C3$<>HEX(50)AND C3$<>HEX(F0)THEN 2030
: RETURN
2055 C3$="Going to Page "
: GOTO 2435
2200 B2$="Error in text read"
: IF R1$>HEX(29)THEN CONVERT VAL(R1$)TO I2$,(##)
: ELSE HEXUNPACKR1$TO I2$
: B2$=B2$&" = "&I2$
: IF Y5$=" "THEN B2$=B2$&" - please Cancel"
: IF Y5$<>" "THEN GOSUB '32
2240 PRINT AT(23,0,80);HEX(07);B5$(2);B2$;B5$(1);
: KEYIN S2$,,2250
: GOTO 2240
2250 IF POS(HEX(F050)=S2$)>0THEN GOSUB '32
: GOTO 2240
2410 IF I6$=" "AND C3$=" "THEN 2425
: IF C3$<>" "THEN PRINT HEX(07);
: IF I6$<>" "OR C3$<>" "THEN PRINT HEX(06);AT(23,48,32);B5$(2);C3$;HEX(0204
00000E);
: I6$=C3$
2425 PRINT HEX(06);AT(0,42,3);INT(J4(C1));AT(0,57,3);J0;HEX(020400000E);AT(C1,
C7);HEX(02050F);
: C3$=" "
: RETURN
2435 PRINT HEX(0306);AT(7,30);B5$(3);C3$;" ";C6$;B5$(1)
: RETURN
2445 PRINT HEX(06);AT(0,63,17);B5$(2);C3$;B5$(1);
: RETURN
3000 DEFFN'31
: A5=0
3010 DEFFN'32
: A5$()="609CloseJCATSMAL"
: A5$=R3$()
: R3$()=STR(R3$(),10)
: LOAD T<2>A5$()