image of READY prompt

Wang2200.org

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