Listing of file='609Fpage' on disk='vmedia/731-0067F-disk1.wvd.zip'
# Sector 1067, program filename = '609Fpage'
0010 REM 609Fpage, RELEASE 1-0, (06/19/81) - COPYRIGHT WANG LABS. INC.
0011 DIM I3$5,V4$1,I2$(123)2,I2$2
: IF D7=1THEN 130
: C4=8
0020 IF C4>A0(3)THEN J1=9E99
: GOSUB '100(C4)
: IF C5$="S"THEN 35
: V0$()=" "
: GOSUB '220(A1,1,C5,C6,2)
: IF POS(HEX(0028)=R1$)=0THEN 2010
: GOTO 60
0035 C5$=" "
: GOSUB '220(A1,1,VAL(J1$(8),2),1,2)
: IF POS(HEX(0028)=R1$)=0THEN 2020
: I0=POS(STR(V0$(),2)=HEX(83))+1
: IF I0=1OR I0>160THEN 2030
: V0$()=STR(V0$(),,I0)&HEX(8F)
: GOSUB 1090
: J1$(C3)=J1$(C)
: C5=VAL(J1$(C),2)
: C6,V4=1
: I3$="GFHWE"
: V4$=STR(I3$,C3-2)
: GOSUB '222(A1,1,C5,C6,2)
: IF R1$<>HEX(00)THEN 2040
: V4=1
: GOSUB 1000
: GOSUB 1030
0060 C4=C3
0070 ON J7(2)GOTO 75,76,,,,85,86,,88,90,91,,,98
: LOAD DA T(D7$(1))
0075 V1$()="609Ehilt609Eline609Eplin609Eprnt"
: IF D7$="H"THEN V1$()="609EHILT609Eline609EPLIN609EPRIN609EPOS 609EFRMT"
: LOAD T<INT((LEN(V1$())-1)/8)+1>V1$()
0076 V1$()="609Elolt609Eline609Espln609Eprnt"
: IF D7$="H"THEN V1$()="609ELOLT609Eline609ESPLN609EPRNT609EPOS 609EFRMT"
: LOAD T<INT((LEN(V1$())-1)/8)+1>V1$()
0085 LOAD T"609Ecm3"
0086 LOAD T"609Erep1"
0088 V1$()="609Erep3609Eline609Eplin609Eprnt"
: IF D7$="H"THEN V1$()="609EREP3609Eline609EPLIN609EPRNT609EPOS 609EFRMT"
: LOAD T<INT((LEN(V1$())+7)/8)>V1$()
0090 V1$()="609Esrch609Eline609Eplin609Eprnt"
: IF D7$="H"THEN V1$()="609ESRCH609Eline609EPLIN609EPRNT609EPOS 609EFRMT"
: LOAD T<INT((LEN(V1$())+7)/8)>V1$()
0091 LOAD T"609Escm0"
0098 V1$()="609Ehyp 609Eline609Eplin609Eprnt609Eloct"
: IF D7$="H"THEN V1$()="609EHYP 609Eline609EPLIN609EPRNT609Eloct609EPOS 609
EFRMT"
: LOAD T<INT((LEN(V1$())+7)/8)>V1$()
0100 %Line 100
0130 I3$="GFHWE"
: IF C3>7THEN V4$="T"
: ELSE V4$=STR(I3$,C3-2)
: GOSUB '226(A1,J9,C6,C5)
: IF POS(HEX(0028)=R1$)=0THEN 2050
: V4=V4-C6
: IF V4=0OR C3=A0(3)THEN 250
: GOSUB 1000
: GOSUB 1030
0250 C6=INT((J9-1)/246)+1
: GOSUB '220(A1,1,2,1,1)
: IF R1$<>HEX(00)THEN 2060
: A0(A5)=A0(A5)+D4
: A0(5)=A0(5)+D4
: A0(4)=V0*5-10
: IF J1$(7)<>HEX(0000)THEN A0(4)=A0(4)-5
: D4=0
: $PACK(F=HEX(6006))STR(V1$(),179,30)FROMA0()
: V4$="A"
: GOSUB '221(A1,1,2,1,1)
: IF R1$<>HEX(00)THEN 2060
: IF D1$=HEX(A1)OR D1$=HEX(82)AND J7(1)=0OR C4=0THEN GOSUB '32
0400 IF C3<>C4THEN 20
: C=1
: IF D7<>1THEN 70
: V1$()="609DpageREC.page"
: LOAD T<2>V1$()
1000 IF V4=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(ABS(V4),2)
: GOTO 1010
1020 IF C<=A0(3)THEN I2$(C)=BIN(ABS(V4),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 V4>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
: ELSE 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
2010 B2$="Error reading page"
: CONVERT C3TO STR(B2$,LEN(B2$)+2),(###)
: GOTO 2195
2020 B2$="Error loading 1st page of text"
: GOTO 2195
2030 B2$="Improper format line on 1st page of text"
: GOTO 2205
2040 B2$="Error saving special page."
: GOTO 2195
2050 B2$="Error replacing page"
: GOTO 2195
2060 B2$="Error rewriting admin block"
: GOTO 2195
2110 B2$="Error rewriting page table"
: GOTO 2195
2195 IF R1$<>HEX(01)THEN 2200
: B2$=B3$&" - Volume Full"
: GOTO 2201
2200 IF R1$>HEX(29)THEN CONVERT VAL(R1$)TO I2$,(##)
: ELSE HEXUNPACKR1$TO I2$
: B2$=B2$&" - error = "&I2$
: IF Y5$=" "THEN B2$=B2$
2201 B2$=B2$&" - please Cancel"
2205 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
3000 DEFFN'31
: A5=0
3001 DEFFN'32
: C3$=$PSTAT(#PART)
: A5$()="609GVer 609Open JCATSMALREC.PRIMREC.INS REC.FREE"
: IF STR(C3$,,8)="609Glos"AND A5>0THEN LOAD T<6>A5$()
: A5$=R3$()
: R3$()=STR(R3$(),10)
: A5$()="609CloseJCATSMAL"
: IF A1>-1THEN LOAD T<2>A5$()
: COM CLEAR C
: LOAD TA5$