Listing of file='609Estrt' on disk='vmedia/731-0067G.wvd.zip'
# Sector 1354, program filename = '609Estrt'
0010 REM 609Estrt, RELEASE 1-0, (03/01/81) - COPYRIGHT WANG LABS. INC.
0015 COM V0$(J8)1
: J9$()=ALL(FF)
: J9$(VAL(HEX(81))+1)=HEX(01)
: J9$(VAL(HEX(82))+1)=HEX(02)
: J9$(VAL(HEX(83))+1)=HEX(03)
: J9$(VAL(HEX(84))+1)=HEX(04)
: J9$(VAL(HEX(85))+1)=HEX(05)
: J9$(VAL(HEX(86))+1)=HEX(06)
: J9$(VAL(HEX(8F))+1)=HEX(07)
: J8$()=ALL(FF)
: J8$(1)=HEX(000102030405060708090A0B0C0D0E0F1518191A1B1D46454C4D4A49424348
4F507E7C)
0116 J8$(2)=HEX(1011121314FF1617FFFFFFFF1CFF1E1FFFFFFFFFFFFF56555C5D5A595253E5
5FF07F7D)
: C7$=HEX(00)
: PRINT HEX(0202040E);
: DIM U1$(8),U2$(8)4
: $PACK(F=HEX(A019A005A007A002))U1$()FROMA6$(),A7$(12),HEX(0000FF00000000),
"10"
: GOSUB '235(A1,U1$())
: IF R1$<>HEX(00)THEN 1020
0330 IF A2=-1THEN 340
: GOSUB '212(A2)
: IF R1$<>HEX(00)THEN 1030
: A2=-1
0340 D4,A0(2)=0
: GOSUB '100(999)
: A0(3)=C3
: C4=8
: GOSUB '100(8)
: IF D7$=" "THEN LIMITS T"609Edtr ",C,I,I,I
: IF D7$="H"THEN LIMITS T"609EDTRG",C,I,I,I
: IF D7$="h"THEN LIMITS T"609EDTR ",C,I,I,I
: IF D7$="h"THEN D7$="H"
: D7$(1)=BIN(C,2)
: LOAD DA T(D7$(1))
0510 DEFFN'100(C3)
: C4$=" "
: IF C3<1THEN 540
: IF C3>123OR J1$(C3)=HEX(FFFF)THEN C3=INT((POS(-STR(J1$(),15)<HEX(FF))-1)/
2)+8
: C5=VAL(J1$(C3),2)
: IF C3=123OR J1$(C3+1)=HEX(FFFF)THEN 530
: C6=VAL(J1$(C3+1),2)-VAL(J1$(C3),2)
: RETURN
0530 C6=V0-C5+1
: C4$="E"
: RETURN
0540 C4$="P"
: RETURN
1000 % This is line 1000 - do not renumber lines 1000-1100
1020 B2$="Error in FCB write"
: GOTO 1040
1030 B2$="Error closing prototype document"
1040 IF R1$>HEX(29)THEN CONVERT VAL(R1$)TO I$,(##)
: ELSE HEXUNPACKR1$TO I$
: B2$=B2$&" - error = "&I$&" - please Cancel"
1050 PRINT AT(23,0,80);HEX(07);B5$(2);B2$;B5$(1);
: KEYIN S2$,,1060
: GOTO 1050
1060 IF POS(HEX(F050)=S2$)=0THEN 1050
: GOSUB '31
3000 DEFFN'31
: A5=0
: A5$()="609CloseJCATSMAL"
: A5$=R3$()
: R3$()=STR(R3$(),10)
: IF A1>-1OR A2>-1THEN LOAD T<2>A5$()
: COM CLEAR C
: LOAD TA5$