image of READY prompt

Wang2200.org

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$