SET  
      SAVE 
      =     L      0.1
      L     #Master_NUM
      L     0
      >=I  
      L     #Master_NUM
      L     50
      =     L      0.2
      <=I  
      A     L      0.2
      JCN   A7d0
      L     #D00
      T     #IN[0]
      L     #D01
      T     #IN[1]
      L     #D02
      T     #IN[2]
      L     #D03
      T     #IN[3]
      L     #D04
      T     #IN[4]
      L     #D05
      T     #IN[5]
      L     #D06
      T     #IN[6]
      L     #D07
      T     #IN[7]
      L     #D08
      T     #IN[8]
      L     #D09
      T     #IN[9]
      L     #D10
      T     #IN[10]
      L     #D11
      T     #IN[11]
      L     #D12
      T     #IN[12]
      L     #D13
      T     #IN[13]
      L     #D14
      T     #IN[14]
      L     #D15
      T     #IN[15]
      L     #D16
      T     #IN[16]
      L     #D17
      T     #IN[17]
      L     #D18
      T     #IN[18]
      L     #D19
      T     #IN[19]
      L     #D20
      T     #IN[20]
      L     #D21
      T     #IN[21]
      L     #D22
      T     #IN[22]
      L     #D23
      T     #IN[23]
      L     #D24
      T     #IN[24]
      L     #D25
      T     #IN[25]
      L     #D26
      T     #IN[26]
      L     #D27
      T     #IN[27]
      L     #D28
      T     #IN[28]
      L     #D29
      T     #IN[29]
      L     #D30
      T     #IN[30]
      L     #D31
      T     #IN[31]
      L     #D32
      T     #IN[32]
      L     #D33
      T     #IN[33]
      L     #D34
      T     #IN[34]
      L     #D35
      T     #IN[35]
      L     #D36
      T     #IN[36]
      L     #D37
      T     #IN[37]
      L     #D38
      T     #IN[38]
      L     #D39
      T     #IN[39]
      L     #D40
      T     #IN[40]
      L     #D41
      T     #IN[41]
      L     #D42
      T     #IN[42]
      L     #D43
      T     #IN[43]
      L     #D44
      T     #IN[44]
      L     #D45
      T     #IN[45]
      L     #D46
      T     #IN[46]
      L     #D47
      T     #IN[47]
      L     #D48
      T     #IN[48]
      L     #D49
      T     #IN[49]
      L     #D50
      T     #IN[50]
      L     #Master_NUM
      ITD  
      L     L#16
      *D   
      TAR2 
      +D   
      LAR1 
      L     DIW [AR1,P#106.0]
      T     #OUT
      JU    A7d1
A7d0: L     #IN[0]
      T     #OUT
A7d1: CLR  
      A     L      0.1
      SAVE 
      BE