image of READY prompt

Wang2200.org

Listing of file='609Fpage' on disk='vmedia/701-2736G.wvd.zip'

# Sector 1025, 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$