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

**Defined in:** [[george:source:MACROS_GEM|MACROS GEM]]

**Used in:** 

<code - PRESETRP.mac.txt>
 5XFL ...[   
 5X^= ...[   
 5YDW ...#MAC PRESETRP   
 5YYG ...#STR %A 
 5^D6 ...#SKI
 5^XQ ...#EXI                    [IF NO PARAMS, DO NOTHING   
 62CB ...#DEF 20?=0  
 62X2 ...#DEF 21?=#00075777      [ALL PERMITTED CATEGORIES   
 63BL ...#DEF 22?=#21200000      [READY,BREAKIN,FORCETYP 
 63W= ...#STR %A,NONE
 64*W ...#SKI
 64TG ...(   
 65*6 ...[%A = NONE  
 65SQ ...#STR %B 
 66#B ...(   
 66S2 ...    SETRPERR            [ERROR IF ANY OTHER PARAMS  
 67?L ...#EXI
 67R= ...)   
 68=W ...#ALT AMXMSKPR=22?       [MIN ALLOWED
 68QG ...    SETRPMEN
 69=6 ...#EXI
 69PQ ...)   
 6=9B ...#STR %A,ALL 
 6=P2 ...#SKI
 6?8L ...(   
 6?N= ...[%A = ALL   
 6#7W ...#STR %B 
 6#MG ...(   
 6*76 ...    SETRPERR            [ERROR IF ANY OTHER PARAMS  
 6*LQ ...#EXI
 6B6B ...)   
 6BL2 ...#ALT AMXMSKPR=21?^22?   [MAX ALLOWED
 6C5L ...    SETRPMEN
 6CK= ...#EXI
 6D4W ...)   
 6DJG ...#STR %A,FULL
 6F46 ...#SKI
 6FHQ ...(   
 6G3B ...[%A = FULL  
 6GH2 ...#STR %B 
 6H2L ...(   
 6HG= ...    SETRPERR            [ERROR IF ANY OTHER PARAMS  
 6H^W ...#EXI
 6JFG ...)   
 6J^6 ...#ALT AMXMSKPR=+FULLBITS&21?^22? 
 6KDQ ...    SETRPMEN
 6KYB ...#EXI
 6LD2 ...)   
 6LXL ...#STR AB,%A  
 6MC= ...#SKI
 6MWW ...(   
 6NBG ...[%A = AB
 6NW6 ...#STR %B 
 6P*Q ...#SKI
 6PTB ...(   
 6Q*2 ...    SETRPERR            [ERROR IF NO OTHER PARAMS   
 6QSL ...#EXI
 6R#= ...)   
 6RRW ...[SET 20?=MASK OF EXCEPTED CATEGORIES
 6S?G ...    SETRPMSK %B,%C,%D,%E,%F,%G,%H,%I,%J,%K,%L,%M,%N,%O,%P,%Q
 6SR6 ...#ALT AMXMSKPR=+ALLBITS$20?&21?^22?  
 6T=Q ...    SETRPMEN
 6TQB ...#EXI
 6W=2 ...)   
 6WPL ...#STR ALLBUT,%A  
 6X9= ...#SKI
 6XNW ...(   
 6Y8G ...[%A = ALLBUT
 6YN6 ...#STR %B 
 6^7Q ...#SKI
 6^MB ...(   
 7272 ...    SETRPERR            [ERROR IF NO OTHER PARAMS   
 72LL ...#EXI
 736= ...)   
 73KW ...[SET 20?=MASK OF EXCEPTED CATEGORIES
 745G ...    SETRPMSK %B,%C,%D,%E,%F,%G,%H,%I,%J,%K,%L,%M,%N,%O,%P,%Q
 74K6 ...#ALT AMXMSKPR=+ALLBITS$20?&21?^22?  
 754Q ...    SETRPMEN
 75JB ...#EXI
 7642 ...)   
 76HL ...#STR FB,%A  
 773= ...#SKI
 77GW ...(   
 782G ...[%A = FB
 78G6 ...#STR %B 
 78^Q ...#SKI
 79FB ...(   
 79^2 ...    SETRPERR            [ERROR IF NO OTHER PARAMS   
 7=DL ...#EXI
 7=Y= ...)   
 7?CW ...[SET MASK OF EXCEPTED CATEGORIES
 7?XG ...    SETRPMSK %B,%C,%D,%E,%F,%G,%H,%I,%J,%K,%L,%M,%N,%O,%P,%Q
 7#C6 ...#ALT AMXMSKPR=+FULLBITS$20?&21?^22? 
 7#WQ ...    SETRPMEN
 7*BB ...#EXI
 7*W2 ...)   
 7B*L ...#STR FULLBUT,%A 
 7BT= ...#SKI
 7C#W ...(   
 7CSG ...[%A = FULLBUT   
 7D#6 ...#STR %B 
 7DRQ ...#SKI
 7F?B ...(   
 7FR2 ...    SETRPERR            [ERROR IF NO OTHER PARAMS   
 7G=L ...#EXI
 7GQ= ...)   
 7H9W ...[SET MASK OF EXCEPTED CATEGORIES
 7HPG ...    SETRPMSK %B,%C,%D,%E,%F,%G,%H,%I,%J,%K,%L,%M,%N,%O,%P,%Q
 7J96 ...#ALT AMXMSKPR=+FULLBITS$20?&21?^22? 
 7JNQ ...    SETRPMEN
 7K8B ...#EXI
 7KN2 ...)   
 7L7L ...[REMAINING CASE IS ONE OR MORE MON FILE CATEGORIES  
 7LM= ...    SETRPMSK %A,%B,%C,%D,%E,%F,%G,%H,%I,%J,%K,%L,%M,%N,%O,%P,   
 7M6W ...#ALT AMXMSKPR=20?&21?^22?   
 7MLG ...    SETRPMEN
 7N66 ...#EXI
 7NKQ ...#NOR
</code>