str rec.80 int a,b,c,d,e,f,g,h,i,j,k,n,m,z int el(114) * el(32) = 20 el(33) = 24 el(34) = 28 el(35) = 32 el(36) = 36 el(37) = 40 el(38) = 44 el(39) = 48 el(40) = 52 el(41) = 56 el(42) = 60 el(43) = 64 el(44) = 68 el(45) = 72 el(46) = 44 el(47) = 48 el(48) = 52 el(49) = 56 el(50) = 60 el(51) = 64 el(52) = 68 el(53) = 72 el(54) = 76 el(55) = 80 el(56) = 64 el(57) = 68 el(58) = 72 el(59) = 76 el(60) = 80 el(61) = 84 el(62) = 88 el(63) = 92 el(64) = 96 el(65) = 100 el(66) = 104 el(67) = 108 el(68) = 112 el(69) = 116 el(70) = 120 el(71) = 124 el(72) = 128 el(73) = 132 el(74) = 136 el(75) = 140 el(76) = 144 el(77) = 148 el(78) = 152 el(79) = 156 el(80) = 160 el(81) = 168 el(82) = 176 el(83) = 184 el(84) = 192 el(85) = 200 el(86) = 208 el(87) = 216 el(88) = 224 el(89) = 232 el(90) = 240 el(91) = 248 el(92) = 124 el(93) = 256 el(94) = 128 el(95) = 264 el(96) = 132 el(97) = 272 el(98) = 136 el(99) = 280 el(100) = 140 el(101) = 288 el(102) = 144 el(103) = 296 el(104) = 148 el(105) = 304 el(106) = 152 el(107) = 312 el(108) = 156 el(109) = 320 el(110) = 160 el(111) = 240 el(112) = 8 el(113) = 120 el(114) = 8 * loop for z = 1 to 4 getf rec rec = trm(rec) putf ~rec repeat getf putf loop for z = 6 to 166 getf a b c d e f g h i j k m n c = a - el(b) + 19 - c f = a - el(e) + 19 - f i = a - el(h) + 19 - i m = a - el(k) + 19 - m * d = d + 1 g = g + 1 j = j + 1 n = n + 1 * b = b + 128 e = e + 128 h = h + 128 k = k + 128 * putf .w3 ~a ~b ~c ~d ~e ~f ~g ~h ~i ~j ~k ~m ~n repeat loop getf rec rec = trm(rec) putf ~rec repeat * run