Listing of file='609Ipage' on disk='vmedia/701-2736G.wvd.zip'
# Sector 1056, 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$