9RGB ...[??? NOTALLOC SECT FILE FGN 14 DOC  
 9S22 ...#MAC NOTALLOC   
 9SFL ...#UNS FSHB   
 9S^= ...(   
 9TDW ...#UNS FSHTEST
 9TYG ...#SKI
 9WD6 ...(   
 9WXQ ...!! NOTALLOC ILLEGAL IN MACHINE B !! 
 9XCB ...#EXIT   
 9XX2 ...)   
 9YBL ...)   
 9YW= ...#STR %A 
 9^*W ...(   
 9^TG ...#SKI (%A<4$4)^(%A>63$63)
 =2*6 ...(   
 =2SQ ...!! RESIDENCE NO. OUT OF RANGE: %A !!
 =3#B ...#EXIT   
 =3S2 ...)   
 =4?L ...#MEND GETBAX
 =4R= ...#TRA  K100GETBAX
 =5=W ...      NULL  
 =5QG ...#END
 =6=6 ...#MEND SETLIST   
 =6PQ ...#TRA  K100SETLIST   
 =79B ...      NULL  
 =7P2 ...#SKI %A<24$24   
 =88L ...(   
 =8N= ...#TRA ANOTALRES  
 =97W ...#DEF 21?=#40000000@C-%A 
 =9MG ...         +34?+0?]^21?   
 ==76 ...#END
 ==LQ ...#EXIT   
 =?6B ...)   
 =?L2 ...#SKI %A<48$48   
 =#5L ...(   
 =#K= ...#TRA ANOTALRES+1
 =*4W ...#DEF 21?=#40000000@C-(%A-24)
 =*JG ...         +34?+0?]^21?   
 =B46 ...#END
 =BHQ ...#EXIT   
 =C3B ...)   
 =CH2 ...#TRA ANOTALRES+2
 =D2L ...#DEF 21?=#40000000@C-(%A-48)
 =DG= ...         +34?+0?]^21?   
 =D^W ...#END
 =FFG ...#EXIT   
 =F^6 ...)   
 =GDQ ...#MEND GETBAX                       [%A MISSING SWITCH OFF   
 =GYB ...#TRA K100GETBAX 
 =HD2 ...     BRN  K101GETBAX
 =HXL ...#END
 =JC= ...#MEND SETLIST   
 =JWW ...#TRA K100SETLIST
 =KBG ...     BRN  K101SETLIST   
 =KW6 ...#TRA ANOTALRES  
 =L*Q ...         +0 
 =LTB ...         +0 
 =M*2 ...         +0 
 =MSL ...#END
 =N#= ...#NOR