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