SWITCHES [ICL George 3]

This page is read only. You can view the source, but not change it. Ask your administrator if you think this is wrong.
{{htmlmetatags>metatag-description:(ICL George 3 and George 4 GIN macro: SWITCHES)}}
====== SWITCHES ======
(GIN Macro)

**Defined in:** [[george:source:MACROS_SJ|MACROS SJ]]

**Used in:** [[george:source:SJOPEN863|SJOPEN863]]

<code - SWITCHES.mac.txt>
 2TG8 ...[   
 2TMB ...[   
 2TSL ...[??? SWITCHES SECT FILE FGN 24 DOC  
 2^PL    #MAC           SWITCHES 
 2^RT ...[             SWITCHES  
 2^W4 ...[THIS MACRO GENERATES A SWITCH LIST :-  BRN LABEL   
 2^Y? ...[%A  SWITCH BASE
 322G ...[%B,%C ETC ARE THE IDENTIFIERS USED TO GENERATE A LABEL OF FORM %BL 
 324P ...[THE SWITCH IS OBEYED BY SMO ING ITS BASE   
 326Y ...[NB MACRO CORRUPTS 19?+0
 329=    #OPT           MSWITCHES=0  
 32NW    #SKI           MSWITCHES$1  
 338G    (   
 33N6    #FRE           MSWITCHES
 347Q    #DEF           MSWITCHES=1  
 34MB    #DEF           19?+0=0  
 3572    )   
 35LL    #STR           %B   
 366=    (   
 36KW    #DEF           0?=%A+%B 
 375G    #DEF           19?+0=19?+0]>%B  
 37K6          BRN      %BL  
 384Q     SWITCHES %A,%C,%D,%E,%F,%G,%H,%I,%J,%K,%L,%M,%N,%O,%P,%Q,%R,%S,%T,%U,%V
 38JB    )   
 3942    #STR           %B   
 39HL    #SKI
 3=3=    (   
 3=GW    #FRE           MSWITCHES
 3?2G    #DEF           0?=19?+0]+%A+1   
 3?G6    )   
 3?^Q    #NOR
</code>