5  HIMEM: 35070:KN = 3:LS = 12:FS = 5: POKE 232,255: POKE 233,126: DEF  FN RN(X) =  INT ( RND (1) * X) + 1:F9 = 1: DIM GX(63),GY(63),GZ(63),C(3,3),K2(3),D2(3),SD(3),HS(4),EV(3),WH(3),WL(3),TA(3),MT(3): DIM CE(4,3),CM(4,3),CO(4,3),DT(4),CT(4,3),LS(4),LP(9),KX(3),KY(3),K(3)
 70  DIM K$(4),KW(3),KH(3),DK(3): DIM PC(4,3),OX(3),OY(3): GOSUB 50000: FOR I = 1 TO 6: READ OF(I): NEXT I: DATA   1  ,.8 ,.6 ,.5 ,.4 ,.3:Z =  RND ( PEEK (78) +  PEEK (79) / 100):DR = .0174533: FOR I = 1 TO 6:LP(I) = 1:F(I) = 1: NEXT I
 400  FOR I = 1 TO 15: READ MP(I): NEXT I: DATA  1200,1000,1000, 800,0   ,200,160,160,60,100,1000,175,300,80 ,9999:CA = 15:CT = 50
 410  FOR Z = 1 TO 10:RT(Z) = 4: NEXT Z
    :RT(5) = 0:RT(11) = 5:RT(12) = 5:MP = 9999:MS = 8:MN = 0:MS(0) = 8:MN(0) = 8
    : FOR I = 1 TO 15: IF EN(I) > MP(I) THEN EN(I) = MP(I)
 740  IF AL(I) > MP(I) THEN AL(I) = MP(I)
 750  NEXT I
    : GOSUB 55000
    : FOR Z = 1 TO 3:MS(Z) = 14 - KT(Z):DK(Z) = 3500: NEXT Z
    : FOR Z = 1 TO 4:LS(Z) = .25: FOR Z1 = 1 TO 3:CT(Z,Z1) = Z1:CM(Z,Z1) = 10: NEXT Z1:DT(Z) = 1: NEXT Z
 760  FOR Z = 1 TO 4: FOR Z1 = 1 TO 3: READ CO(Z,Z1): NEXT Z1: NEXT Z: FOR Z = 1 TO 3:KW(Z) = 0: NEXT Z: FOR Z = 1 TO 3:KH(Z) =  RND (1) * 360: NEXT Z: FOR Z = 1 TO 4: FOR I = 1 TO 3:CE(Z,I) = .94: NEXT I: NEXT Z
 9000 EW = 4:FS = 4
 9999  GOTO 61000

 50000  DIM VH(3),VR(3),CX(7)
 50001  DIM AL(15),AS(4),RP(15),RT(15),MP(15),DC(4),KT(3),KC(3),X(5,7),Y(5,7),MX(2),MY(2),Z(31),W$(31): DIM FE(15),E(15),EN(15),D(15): DIM OF(6),MH(3,9),F(9),PW(3,9),LW(9): DIM AX(3),AY(3),RS(3),YA(3),YS(3),XS(3)
 50005  DIM Z1(32),Z$(32),MS(3),KP(3,7),MK(3,7):EN(12) = 150:EN(15) = 3500:EN(11) = 1000:EN(13) = 100:EN(10) = 80:SH = 3:KT(1) = 1:KT(2) = 2:KT(3) = 3:EN(14) = 80
 50007 F1 = 0:CM(0,0) = 120
 50024 EX = 10000:EY = 10000:AX(0) = EX:AY(0) = EY:KN = 3:KX(1) = 9500:KY(1) = 10400 +  FN RN(1900):K(1) = 1
 50110 KX(2) = 11500:KY(2) = 11500 +  FN RN(1900):K(2) = 1:KX(3) = 11500 +  FN RN(1500):KY(3) = 9500 -  FN RN(2000):K(3) = 1:EW = 5:SH = 3:EV = .1:AD = 243.3322:AS = 4.35331
 50260 CR = 300:EC = 492: FOR I = 1 TO 15:FE(I) = 1: NEXT I: FOR I = 1 TO 4:LP(I) = 1: NEXT I
 50310  FOR I = 6 TO 9:EN(I) = 200: NEXT I:EN(1) = 900:EN(2) = 700:EN(3) = 700:EN(4) = 600:AL(1) = 900:AL(2) = 700:AL(3) = 700:AL(4) = 600:AS(1) = 35:AS(2) = 30:AS(3) = 25:AS(4) = 10: FOR Z = 1 TO 15:E(Z) = .88 +  RND (Z) / 10: NEXT Z
 50400 BS = 2: FOR I = 0 TO 4:DC(I) = 1: NEXT I: FOR I = 5 TO 15:AL(I) = EN(I): NEXT I
 50730  RETURN
 
# configure 7788=$1E6C (unused space)
 55000  FOR Z = 0 TO 5: FOR Z1 = 0 TO 7: READ X(Z,Z1),Y(Z,Z1): NEXT Z1: NEXT Z: FOR Z = 0 TO 2: READ MX(Z),MY(Z): NEXT Z
# X1 = random(181..200).  Set 7790($1e6e) - 8029($1f5d), even values = X1, odd values = Z
# crew assignments: X1 is efficiency + 100 (so 80-99)
   : FOR Z = 1 TO 120:X1 =  FN RN(20) + 180: POKE 7788 + Z * 2,X1: POKE 7789 + Z * 2,Z: NEXT Z: RETURN 
 56000  DATA
   Z=0: 10,4, -8,12, -10,9, -16,-6, -4,-6, 4,-12, 4,-4, 14,4,
   Z=1: 6,8,  -4,12, -8,6,  -12,-2, -6,-6, 0,-10, 8,-6, 10,0,
   Z=2: 4,6,  -2,10, -4,4,  -8,-2,  -4,-4, 0,-10, 8,-4, 10,0,
   Z=3: 8,8,  -3,17, -8,6,  -16,-4, -6,-8, 0,-16, 8,-6, 20,0
 56010  DATA
   Z=4: 6,8,  -4,16, -8,10, -12,-4, -6,-8, 8,-16, 8,-6, 10,0,
   Z=5: 6,6,   0,12, -4,6,  -12,0,  -6,-4, 0,-12, 8,-6, 12,-2,
   
   Z=0: 35,28,
   Z=1: 53,28,
   Z=2: 53,36
# read by line 760 into CO (life support modifier)
   : DATA
   Z=1: 37,36,35,
   Z=2: 38,37,36,
   Z=3: 36,36,35,
   Z=4: 37,38,37: RETURN 

# ...next...
 61000  PRINT  CHR$ (4);"BLOAD CHAIN,A520": CALL 520"ENTER"