Listing of file='609Estrt' on disk='vmedia/731-0067F-disk1.wvd.zip'
# Sector 1380, 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$