SETMODE

(GIN Macro)

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

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