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

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

**Used in:** [[george:source:ADJCHECK85|ADJCHECK85]], [[george:source:ASSIGN860|ASSIGN860]], [[george:source:BACKMASS860|BACKMASS860]], [[george:source:CLOSEONE867|CLOSEONE867]], [[george:source:COMPOST867|COMPOST867]], [[george:source:COPYA867|COPYA867]], [[george:source:COPYB867|COPYB867]], [[george:source:COPYFILE867|COPYFILE867]], [[george:source:CREATE867|CREATE867]], [[george:source:DEWELL867|DEWELL867]], [[george:source:DICTWELL867|DICTWELL867]], [[george:source:DROBJ864|DROBJ864]], [[george:source:EDIT867|EDIT867]], [[george:source:EDSTART860|EDSTART860]], [[george:source:ERASEA867|ERASEA867]], [[george:source:IDFPROP867|IDFPROP867]], [[george:source:INSTPARA867|INSTPARA867]], [[george:source:LIBREQ866|LIBREQ866]], [[george:source:LISTDIR867|LISTDIR867]], [[george:source:LISTPARS867|LISTPARS867]], [[george:source:LISTPROC867|LISTPROC867]], [[george:source:OPENFILE867|OPENFILE867]], [[george:source:OPENTWO867|OPENTWO867]], [[george:source:OPENWORK866|OPENWORK866]], [[george:source:ORELEND860|ORELEND860]], [[george:source:PERFPASS864|PERFPASS864]], [[george:source:REGEN865|REGEN865]], [[george:source:REPERR867|REPERR867]], [[george:source:SAVE864|SAVE864]], [[george:source:SETJD867|SETJD867]], [[george:source:SYSPROP867|SYSPROP867]], [[george:source:TRAPPARA3|TRAPPARA3]], [[george:source:USERDIR842|USERDIR842]], [[george:source:USERONE867|USERONE867]], [[george:source:USEROPEN867|USEROPEN867]], [[george:source:USERSTRM867|USERSTRM867]], [[george:source:USERTYPE83|USERTYPE83]]

<code - SETMODE.mac.txt>
 6W^D ...[??? SETMODE SECT FILE FGN 20 DOC   
 6X9=    #   
 6XNW    #MAC  SETMODE   
 6Y8G    #DEF M1SETMODE=A%B^A%C^A%D^A%E^A%F^A%G^A%H^A%I  
 6YN6    #DEF M2SETMODE=E%B^E%C^E%D^E%E^E%F^E%G^E%H^E%I  
 6^7Q    #SKI  M2SETMODE 
 6^MB    !     "E" MODE GIVEN IN SETMODE : USE SETUPMODE     !   
 7272    #FREE M2SETMODE 
 72LL    #ACC  %A
 736=    (   
 73KW          SMODE    0
 745G          STO   0  %A   
 74K6    )   
 754Q    #ACC  %A
 75JB    #SKI
 7642          SMODE    %A   
 76HL    #NOR
</code>