image of READY prompt

Wang2200.org

Listing of file='609Mpage' on disk='vmedia/731-0067F-disk1.wvd.zip'

# Sector 1117, program filename = '609Mpage'
0010 REM 609Mpage, RELEASE 1-0, (08/26/81) - COPYRIGHT WANG LABS. INC.
0090 DIM V4$1,I2$(123)2,I2$2
   : IF J0(2)=J0(5)AND V0$(J0(4))<>HEX(8F)THEN 150
   : I0=C6
   : IF C3<122AND V0$(J0(4))=HEX(8F)THEN I0=MIN(VAL(J1$(J0(5)+2),2)-VAL(J1$(J0
     (5)+1),2),V0-VAL(J1$(J0(5)+1),2))
   : IF C3=122AND V0$(J0(4))=HEX(8F)THEN I0=V0-VAL(J1$(J0(5)+1),2)
0135 IF V0$(J0(4))<>HEX(8F)THEN IF J0(1)-J0(4)+246*I0>J8THEN 350
   : ELSE IF J0(1)+246*I0>J8THEN 350
0150 J0(6)=V0+1
   : V4$="T"
   : IF C3>7THEN 185
   : CONVERT C3TO V4$,(#)
   : $TRAN(V4$,B8$())R
0185 FOR I1=J0(2)TO J0(5)
   : GOSUB '100(I1)
   : V0$()=" "
   : GOSUB '220(A1,1,C5,C6,2)
   : IF R1$<>HEX(00)AND R1$<>HEX(28)THEN 2080
   : IF I1=J0(2)AND J0(1)>1THEN V0$()=STR(V0$(),J0(1))&ALL(" ")
   : IF I1=J0(5)AND J0(4)<J8AND J0(2)<>J0(5)THEN STR(V0$(),J0(4)+1)=ALL(" ")
   : IF J0(2)=J0(5)AND J0(4)<J8THEN STR(V0$(),J0(4)+2-J0(1))=ALL(" ")
0240 IF I1=J0(2)THEN J0(6)=J0(6)+LEN(V0$())/10000
   : IF I1=J0(5)AND J0(2)<>J0(5)THEN J0(6)=J0(6)+LEN(V0$())/100000000
   : IF I1=J0(5)AND V0$(LEN(V0$()))=HEX(8F)THEN J0(6)=INT(J0(6)*10000)/10000+0
     .00009999
   : GOSUB '225(A1,1,INT((LEN(V0$())-1)/246)+1,2)
   : IF R1$<>HEX(00)AND R1$<>HEX(28)THEN 2070
   : NEXT I1
   : V0$()=" "
   : GOSUB '100(J0(5))
0295 GOSUB '220(A1,1,C5,C6,2)
   : IF R1$<>HEX(00)AND R1$<>HEX(28)THEN 2080
   : IF J7(1)=4OR J7(1)=7OR J7(1)=8THEN D7=1
   : ELSE D7=0
   : C=LEN(STR(J2$()))
   : IF J7(1)<>4AND J7(1)<>7AND J7(1)<>8THEN 335
   : V1$()="609DpageREC.page"
   : LOAD T<2>V1$()
0335 V1$()="609Elolt609Eline609Espln609Eprnt"
   : IF D7$="H"THEN V1$()="609ELOLT609Eline609ESPLN609EPRNT609EPOS 609EFRMT"
   : LOAD T<INT((LEN(V1$())+7)/8)>V1$()
0350 GOSUB '100(C3)
   : C5$="F"
   : IF J7(1)=7OR J7(1)=8THEN COM CLEAR J2$()
   : J7(1)=0
   : J7(3)=2
   : MAT J0=ZER
   : D7=0
   : LOAD DA T(D7$(1))
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
2070 B2$="Error saving page at end of document"
   : GOTO 2195
2080 B2$="Error reading page "
   : GOTO 2195
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
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$