Listing of file='609Ipage' on disk='vmedia/731-0067G.wvd.zip'
# Sector 1072, program filename = '609Ipage'
0010 REM 609Ipage, RELEASE 1-0, (08/27/81) - COPYRIGHT WANG LABS. INC.
: DIM V4$1,I2$(123)2, I2$2, J2$(C)1
0100 REM 'Move Pages into position within document'
0110 IF D1$=HEX(50)OR D1$=HEX(F0)THEN ON J7(1)-2GOTO 530,735
: IF D1$=HEX(82)OR D1$=HEX(A1)THEN ON J7(1)-2GOTO ,,,,530,530
: IF J1+INT(10000*MOD(J0(6),1))+LEN(J2$())>=J8-1THEN 625
: IF MOD(100000000*J0(6),10000)<>9999THEN IF MOD(100000000*J0(6),10000)+LEN
(V0$())-J1>=J8-1THEN 625
0130 IF MOD(100000000*J0(6),10000)=0THEN IF INT(10000*MOD(J0(6),1))+LEN(V0$())
+LEN(J2$())>=J8-1THEN 625
: IF C3<8AND MOD(J0(6),0.0001)=0.00009999THEN 505
0155 J0(6)=INT(J0(6))+V0/10000
: D7=0
: C=LEN(STR(J2$()))
: MAT COPY -V0$()<J1,J8-J1>TO -V0$()<J1+1,J8-J1>
: V0$(J1)=HEX(8F)
: V1$()="609HpageRECMGR"
: LOAD T<2>V1$()
0210 %
0215 IF C3<8THEN CONVERT C3TO V4$,(#)
: $TRAN(V4$,B8$())R
: IF C3>7THEN V4$="T"
: J0(6)=INT(J0(6))+V0-10000*MOD(J0(6),1)
: GOSUB '224(A1,J0(6),V0-J0(6)+1,C5)
: IF R1$<>HEX(00)THEN 2100
: C6=0
: J0(2)=C3-1
: FOR I1=C5TO C5+V0-J0(6)
: V1$()=" "
: GOSUB '220(A1,1,I1,1,1)
: IF R1$<>HEX(00)THEN 2080
: C6=C6+1
: IF I1=C5+V0-J0(6)THEN 340
0330 IF POS(STR(V1$(),2)=8F)=0AND V1$()<>HEX(8F)THEN 365
0340 IF C3<123THEN MAT COPY -J1$()<2*C3-1,LEN(J1$())-2*C3>TO -J1$()<2*C3+1,LEN
(J1$())-2*C3>
: GOSUB 1000
: C3=C3+1
: C6=0
0365 NEXT I1
: J0(6)=C3-2
0390 GOSUB '100(J0(2))
: V0$()=" "
: C6=MIN(C6,V0-C5+1)
: GOSUB '220(A1,1,C5,C6,2)
: IF R1$<>HEX(00)AND R1$<>HEX(28)THEN 2090
: IF V0$()=HEX(8F)AND C5=V0THEN 525
: IF V0$(LEN(V0$()))=HEX(8F)AND J0(6)=9E99THEN 550
: IF V0$(LEN(V0$()))<>HEX(8F)THEN V0$()=V0$()&HEX(8F)
: J0(5)=J0(2)
: J0(1),J0(3),J0(4)=LEN(V0$())
: C=LEN(STR(J2$()))
0460 V1$()="609DpageREC.page"
: LOAD T<2>V1$()
0475 %
0480 IF J0(6)=9E99THEN 550
: J0(2)=J0(6)
: J0(6)=9E99
: GOTO 390
0505 GOSUB 2060
: D1$=HEX(50)
: GOTO 110
0525 J0(6)=V0
0530 J0(6)=INT(J0(6))
: GOSUB '223(A1,J0(6),V0-J0(6)+1)
: IF R1$<>HEX(00)AND R1$<>HEX(28)THEN 2070
0550 J1=J0(1)
: C4=C3
: COM CLEAR J2$()
: IF J0(2)<>C3THEN 580
: MAT J7=ZER
: GOTO 662
0580 C4=J0(2)
: MAT J0=ZER
: V1$()="609FpageREC.page"
: IF J7(1)<>7AND J7(1)<>8THEN 618
: MAT J7=ZER
: D1$="!"
: J9=LEN(V0$())
: LOAD T<2>V1$()BEG 100
0618 MAT J7=ZER
: LOAD T<2>V1$()BEG 20
0625 GOSUB 2185
: C5$="F"
: IF D1$<>HEX(50)THEN ON J7(1)-2GOTO 530,680
: GOSUB '100(C3)
: COM CLEAR J2$()
: MAT J0=ZER
: MAT J7=ZER
: D7=0
0662 LOAD DA T(D7$(1))
0680 D1$=HEX(50)
: C5$="F"
: J1=J0(1)
: IF C3=J0(2)THEN 155
: C3=J0(2)
: GOSUB '100(C3)
: V0$()=" "
: GOSUB '220(A1,1,C5,C6,2)
: IF R1$<>HEX(00)AND R1$<>HEX(28)THEN 2080
: GOTO 155
0735 V0$()=" "
: GOSUB '220(A1,1,C5,C6,2)
: IF R1$<>HEX(00)AND R1$<>HEX(28)THEN 2080
: J1=J0(1)
: GOTO 155
1000 A0(3)=INT((POS(-J1$()<FF)+1)/2)
: IF C6=0OR C3=A0(3)THEN RETURN
: I2$()=ALL(00)
: C=C3
1010 C=C+1
: IF C>7THEN 1020
: IF J1$(C)>HEX(0000)THEN I2$(C)=BIN(C6,2)
: GOTO 1010
1020 IF C<=A0(3)THEN I2$(C)=BIN(ABS(C6),2)
: IF C<A0(3)THEN STR(I2$(),C*2+1,(A0(3)-C)*2)=STR(I2$(),C*2-1,(A0(3)-C)*2)
: IF C6>0THEN J1$()=ADDCI2$()
: ELSE J1$()=SUBCI2$()
: RETURN
1030 V1$()=J1$()
: V4$="P"
: GOSUB '221(A1,1,1,1,1)
: IF R1$<>HEX(00)THEN 2110
1050 DEFFN'100(C3)
: C4$=" "
: IF C3<1THEN C3=8
: IF C3>123OR J1$(C3)=HEX(FFFF)THEN C3=INT((POS(-STR(J1$(),15)<HEX(FF))-1)/
2)+8
: IF J1$(C3)=HEX(0000)THEN 1080
: C5=VAL(J1$(C3),2)
: IF C3=123OR J1$(C3+1)=HEX(FFFF)THEN 1070
: GOSUB 1090
: C6=VAL(J1$(C),2)-VAL(J1$(C3),2)
: RETURN
1070 IF MOD(J0(6),1)=0THEN C6=V0-C5+1
: C6=INT(J0(6))-C5
: C4$="E"
: RETURN
1080 C5$="S"
: RETURN
1090 C=C3
1100 C=C+1
: IF J1$(C)=HEX(0000)THEN 1100
: RETURN
2000 % This is line 2000 - do not renumber lines 2000-2299
2060 B2$="Cannot have multiple pages on this page"
: GOTO 2190
2070 B2$="Error deleting VAU'S at end of document"
: GOTO 2195
2080 B2$="Error reading page "
: GOTO 2195
2090 B2$="Error loading page"
: GOTO 2195
2100 B2$="Error moving text"
: GOTO 2195
2110 B2$="Error rewriting page table"
: GOTO 2195
2185 B2$="Aborting"
: GOTO 2445
2190 IF C3<8THEN CONVERT C3TO I0$,(#)
: $TRAN(I0$,B8$())R
: IF C3>7THEN CONVERT C3-7TO I0$,(###)
: B2$=B2$&" - PAGE "&I0$&" - please Cancel"
2191 PRINT AT(23,0,80);HEX(0607);B5$(2);B2$;B5$(1);
: KEYIN S2$,,2192
: GOTO 2191
2192 IF POS(HEX(F050)=S2$)>0THEN RETURN
: GOTO 2191
2195 IF R1$<>HEX(01)THEN 2196
: B2$=B2$&" - Volume Full"
: GOTO 2201
2196 IF R1$<>HEX(29)THEN 2200
: B2$=B2$&" - Too Much Text"
: GOTO 2201
2200 IF R1$>HEX(29)THEN CONVERT VAL(R1$)TO I2$,(##)
: ELSE HEXUNPACKR1$TO I2$
: B2$=B2$&" - error = "&I2$
2201 IF Y5$=" "THEN B2$=B2$&" - please Cancel"
: IF Y5$<>" "THEN GOSUB '31
2210 PRINT AT(23,0,80);HEX(0607);B5$(2);B2$;B5$(1);
: KEYIN S2$,,2220
: GOTO 2210
2220 IF POS(HEX(F050)=S2$)>0THEN GOSUB '31
: GOTO 2210
2445 PRINT HEX(06);AT(0,63,17);B5$(3);B2$;B5$(1);
: RETURN
3000 DEFFN'31
: A5=0
: A5$()="609CloseJCAT"
: A5$=R3$()
: R3$()=STR(R3$(),10)
: IF A1>-1THEN LOAD T<2>A5$()
: COM CLEAR C
: LOAD TA5$