Listing of file='609Erpg' on disk='vmedia/731-0067F-disk1.wvd.zip'
# Sector 1007, program filename = '609Erpg' 0010 REM 609ERPG - Repagination 0030 DIM I0$(80)1,V4$1 : GOTO 1004 0050 DEFFNJ(J)=POS(V0$()=20)-1 0402 DEFFN'195 : FOR C=1TO C2 : IF J4(C)<I8-I5THEN 448 : IF J4(C)>I8THEN 438 : IF V0$(J2(C)+J1(C)-1)=HEX(83)THEN 428 : IF I4>0AND V0$(I4)=HEX(83)THEN 448 : IF V0$(J2(C))=HEX(8F)THEN 448 0428 F=J5(C+1) : I4=J2(C)+J1(C)-1 : GOTO 448 0438 IF I4>0THEN 448 : F=J5(C) : I4=J2(C)-1 0448 NEXT C : RETURN 1004 DIM I1$(256)1,I2$(80)1 : J1,J2=0 : N=VAL(J1$(C3),2) : P=N-1 : STR(J1$(),2*C3-1)=ALL(FF) : CONVERT STR(D6$(),,4)TO I8 : I5=5 : I1$="F" : V4$="T" : GOSUB '226(A1,LEN(V0$()),C6,N) : V0$()=ALL(" ") : GOSUB '191 1054 IF FNJ(1)=POS(V0$()=83)AND I1$="E"THEN 1230 : GOSUB '94(0) : F,I4=0 : GOTO 1098 1074 GOSUB '93 1098 IF I4>0THEN GOSUB '194(1) : ELSE A5$()=STR(V0$(),1,POS(V0$()=83)) : J9=LEN(V0$()) : GOSUB '193 : KEYIN D1$,1114,1574 1114 IF A0(3)<=120THEN 1122 : IF I1$="P"THEN 1210 : ELSE GOTO 1224 1122 IF J4(C2)<=I8AND J2(C2)+J1(C2)-1<LEN(V0$())THEN 1074 : IF J4(C2)>I8THEN 1134 : GOTO 1140 1134 GOSUB '196(I4) : GOTO 1054 1140 IF I1$="E"THEN 1230 : IF STR(V0$(),LEN(V0$())-1,2)<>HEX(818F)THEN 1164 : GOSUB '192(POS(STR(V0$(),2)=8F)+1) : V0$()=ALL(" ") : A5$()=ALL(FF) : GOSUB '191 : GOTO 1054 1164 IF V0$(LEN(V0$()))<>HEX(8F)THEN 1194 : IF J1(C2-1)<D9AND J3(C2-1)>0THEN V0$(LEN(V0$()))=HEX(83) : ELSE V0$(LEN(V0$()))=" " 1172 I9=LEN(V0$())+1 : GOSUB '194(0) : GOSUB '191 : IF STR(A5$(),2,LEN(A5$())-1)=STR(V0$(),I9+1,LEN(A5$())-1)THEN STR(V0$(),I 9)=STR(V0$(),I9+LEN(A5$())) : IF V0$(I9)=HEX(8F)AND I9<>LEN(V0$())THEN V0$(I9)=HEX(86) : GOTO 1098 1194 IF I1$<>"E"THEN 1200 : IF LEN(V0$())=POS(V0$()=83)OR V0$(POS(V0$()=83)+1)=HEX(8F)THEN 1232 : ELSE GOTO 1230 1200 I4=J2(C2)-1 : IF J8-LEN(V0$())-LEN(I2$())<246THEN 1134 : ELSE GOTO 1172 1210 IF J2(C2)+J1(C2)-1<LEN(V0$())THEN GOSUB '193 : ELSE GOTO 1216 : GOTO 1210 1216 GOSUB '196(LEN(V0$())) 1220 IF I1$="E"THEN 1232 : V0$()=" " : GOSUB '191 1224 GOSUB '192(LEN(V0$())) : IF I1$<>"E"THEN 1220 : ELSE GOTO 1232 1230 GOSUB '192(LEN(V0$())) 1232 V1$()=J1$() : V4$="P" : GOSUB '221(A1,1,1,1,1) : IF R1$<>HEX(00)THEN 2210 : $PACK(F=HEX(A019A0066006A002A001))V1$()FROMA6$(),A7$(),A0(),A8$(),A9$() : V4$="A" : GOSUB '221(A1,1,2,1,1) : IF R1$<>HEX(00)THEN 2270 : V0$()=ALL(" ") : C3,C4=INT((POS(-STR(J1$(),15)<>FF)+1)/2+7) 1256 GOSUB '220(A1,1,VAL(J1$(C3),2),V0-VAL(J1$(C3),2)+1,2) : IF R1$<>HEX(28)THEN 2240 : C4$="E" : J1=9E99 : C6=V0-VAL(J1$(C3),2)+1 : C5=VAL(J1$(C3),2) : GOSUB 2280 : J7(1)=0 : J7(3)=4 : LOAD DA T(D7$(1)) 1280 DEFFN'191 : V0$()=V0$()&I2$() : I2$()=" " : GOSUB 2290 1292 IF J8-LEN(V0$())<=246THEN 1355 : P=P+1 : GOSUB '220(A1,POS(V0$()=" "),P,1,2) : IF R1$<>HEX(00)AND R1$<>HEX(28)THEN 2240 : IF I1$<>"F"THEN 1320 : L=P : M=0 : I1$="P" 1320 M=M+1 : IF R1$=HEX(28)THEN I1$="E" : IF V0$(LEN(V0$()))<>HEX(8F)AND I1$<>"E"THEN 1292 : IF I1$<>"E"THEN I1$="F" : GOSUB '223(A1,L,M) : IF R1$<>HEX(00)THEN 2250 : P=P-M : M=0 : A0(3)=A0(3)-1 : GOTO 1358 1355 I1$="P" : I7=POS(-V0$()=86) : IF I7=0THEN 1358 : IF POS(STR(V0$(),I7)=83)>0THEN 1358 : I2$()=STR(V0$(),I7) : STR(V0$(),I7)=" " 1358 RETURN 1362 DEFFN'192(Q) : GOSUB 2300 : IF Q<J8THEN I1$()=STR(V0$(),Q+1) : IF Q<J8THEN STR(V0$(),Q+1,LEN(I1$()))=ALL(" ") : GOSUB '222(A1,1,N,INT((Q-1)/246)+1,2) : IF R1$<>HEX(00)THEN 2260 : IF Q<J8THEN STR(V0$(),Q+1,LEN(I1$()))=I1$() : J1$((POS(-STR(J1$(),15)<>FF)+3)/2+7)=BIN(N,2) : N=N+INT((Q-1)/246)+1 : P=P+INT((Q-1)/246)+1 : L=L+INT((Q-1)/246)+1 1400 A0(3)=A0(3)+1 : C3=C3+1 : RETURN 1408 DEFFN'193 : GOSUB 2320 : GOSUB '33(J2(1)) : GOSUB '91(1,J2(C1)) : GOSUB '195 : PRINT AT(0,42,3);INT(J4(1));AT(0,58,3);1 : RETURN 1430 DEFFN'194(D1) : IF D1=1THEN 1444 : D1=POS(-STR(V0$(),,I4+LEN(V0$())*(1-SGN(I4)))=86) : IF D1=0THEN D1=1 1444 A5$()=STR(V0$(),D1,POS(STR(V0$(),D1)=83)) : D9=LEN(A5$()) : RETURN 1512 DEFFN'196(I4) : GOSUB 2310 : MAT COPY -V0$()<I4+1,J8-I4-1>TO -V0$()<I4+2,J8-I4-1> : V0$(I4+1)=HEX(8F) : I4=I4+1 : GOSUB '192(I4) : GOSUB '194(0) : STR(V0$(),,D9)=A5$() : V0$(1)=HEX(8F) : STR(V0$(),D9+1)=STR(V0$(),I4+1)&ALL(" ") 1556 IF F<=0THEN 1566 : MAT COPY -V0$()<D9+1,J8-D9-1>TO -V0$()<D9+2,J8-D9-1> : V0$(D9+1)=HEX(84) : F=POS(-STR(A5$(),,F)=82)-1 : GOTO 1556 1566 RETURN 1574 IF D1$<>HEX(50)AND D1$<>HEX(F0)THEN 1114 : IF I1$="P"THEN 1210 : GOTO 1224 2005 RETURN 2025 C3$="(Document End)" : GOTO 2450 2135 C3$="(Page End)" : GOTO 2450 2210 C3$="Error replacing page table" 2220 C3$=C3$&" - Please Cancel" : GOSUB 2410 2230 KEYIN D1$ : IF D1$<>HEX(50)AND D1$<>HEX(F0)THEN 2230 : GOSUB '31 2240 C3$="Error reading VAU" : GOTO 2220 2250 C3$="Error deleting page" : GOTO 2220 2260 C3$="Error saving page" : GOTO 2220 2270 C3$="Error saving admin page" : GOTO 2220 2280 C3$="Loading Edit" : GOTO 2445 2290 C3$="(Loading)" : GOTO 2445 2300 C3$="(Saving)" : GOTO 2445 2310 C3$="(Inserting)" : GOTO 2445 2320 C3$="(Searching)" : GOTO 2445 2410 IF I0$=" "AND C3$=" "THEN 2425 : IF C3$<>" "THEN PRINT HEX(07); : IF I0$<>" "OR C3$<>" "THEN PRINT HEX(06);AT(23,48,32);B5$(2);C3$;HEX(0204 00000E); : I0$=C3$ 2425 PRINT HEX(06);AT(0,42);INT(J4(C1));AT(0,57);J0;HEX(020400000E);AT(C1,C7); HEX(02050F); : C3$=" " : RETURN 2445 PRINT HEX(06);AT(0,63,17);B5$(2);C3$;B5$(1); : RETURN 2450 PRINT HEX(06);AT(23,0,39);B5$(2);C3$;B5$(1); : RETURN 2455 %Document ##### Now on Page ###- Line ### Position ### 3000 DEFFN'31 : A5=0 : A5$()="609CloseJCATSMAL" : A5$=R3$() : R3$()=STR(R3$(),10) : LOAD T<2>A5$()