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