Listing of file='609ERPG' on disk='vmedia/731-0067G.wvd.zip'
# Sector 1001, program filename = '609ERPG'
0010 REM 609ERPG - Repagination
0030 DIM I0$(158)1,V4$1
: GOTO 1004
0050 DEFFNJ(J)=POS(V0$()=20)-1
0060 DEFFNP(J)=1+D5*(D8-80)
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$(158)1
: J1,J2=0
: D5=0
: C7=0
: J0=1
: 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
: GOSUB '47
: 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),0,0)
: 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)
: IF A1>-1OR A2>-1THEN LOAD T<2>A5$()
: COM CLEAR C
: LOAD TA5$