{{htmlmetatags>metatag-description:(ICL George 3 and George 4 GIN macro: BSUJ)}}
====== BSUJ ======
(GIN Macro)

**Defined in:** [[george:source:DUMP-MACROS|DUMP-MACROS]]

**Used in:** [[george:source:BSPRUNE867|BSPRUNE867]], [[george:source:BSUNJAM867|BSUNJAM867]]

<code - BSUJ.mac.txt>
 F2T6 ...[???  BSUJ  
 F3#Q ...#   
 F3SB ...#     THIS MACRO IS USED BY BSUJFORM MACRO. 
 F4#2 ...#     %A = PARAMETER TO BSUJFORM
 F4RL ...#     %B = NUMBER OF PARAMETER %A   
 F5?= ...#     %C = MAXIMUM VALUE ALLOWED FOR %A 
 F5QW ...#     %D = DEFAULT VALUE FOR %A 
 F6=G ...#   
 F6Q6 ...#MAC  BSUJ  
 F79Q ...#STR  %A
 F7PB ...(   
 F892 ...#ALT  BSUSKIP = 1   
 F8NL ...#SKI  %A&#40000000  
 F98= ...#SKI                               [COMPILE IF %A NEGATIVE  
 F9MW ...(   
 F=7G ...#SKI  %A>%C-%C  
 F=M6 ...#SKI
 F?6Q ...(                                  [COMPILE IF NOT TOO LARGE
 F?LB ...#MEN  CHTABLE   
 F#62 ...#TRA  BSUJFORM%B
 F#KL ...      +%A   
 F*5= ...#SKI  %A
 F*JW ...#ALT  BSUVAL = 1
 FB4G ...#END
 FBJ6 ...#EXI
 FC3Q ...)   
 FCHB ...)   
 FD32 ...#ALT  BSUVAL = 1
 FDGL ...!X%B OUT OF RANGE   
 FF2= ...#EXI
 FFFW ...)   
 FF^G ...#STR  %A
 FGF6 ...#STR
 FGYQ ...#MEN  CHTABLE   
 FHDB ...#TRA  BSUJFORM%B
 FHY2 ...      +%D   
 FJCL ...#SKI  %D
 FJX= ...#ALT  BSUVAL = 1
 FKBW ...#END
 FKWG ...#NOR
</code>