WSNARROW [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: WSNARROW)}}
====== WSNARROW ======
(GIN Macro)

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

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

<code - WSNARROW.mac.txt>
 49?=    #   
 49QW ...[??? WSNARROW SECT CENT FGN 2 DOC   
 4==G ...[ WSNARROW MACRO TO SHORTEN WS OUTPUT   
 4=Q6 ...#MAC  WSNARROW  
 4?9Q ...[ MACRO TO SWITCH ON OR OFF RESTRICTION OF WS OUTPUT
 4?PB ...#STR  %A,ALL
 4#92 ...#SKI                               [INC IF ALL  
 4#NL ...(   
 4*8= ...     WSNARROW  OFF  
 4*MW ...#MEN WSPARAM
 4B7G ...#TRA K50WSPARAM+1   
 4BM6 ...#FID  2 2 1 
 4C6Q ...#END
 4CLB ...#MEN  QPRINT
 4D62 ...#TRA K50QPRINT+1
 4DKL ...#FID  2 2 1 
 4F5= ...#END
 4FJW ...#EXI
 4G4G ...)   
 4GJ6 ...#STR  %A,OPERATOR   
 4H3Q ...#SKI                               [INC IF OPERATOR 
 4HHB ...(   
 4J32 ...     WSNARROW  OFF  
 4JGL ...#MEN WSPARAM
 4K2= ...#TRA K50WSPARAM+1   
 4KFW ...#FID  1 1 1 
 4K^G ...#END
 4LF6 ...#MEN  QPRINT
 4LYQ ...#TRA K50QPRINT+1
 4MDB ...#FID  1 1 1 
 4MY2 ...#END
 4NCL ...#EXI
 4NX= ...)   
 4PBW ...#STR  %A,OFF
 4PWG ...#SKI                               [INC IF OFF  
 4QB6 ...(   
 4QTQ ...#MEN  QPRINT
 4R*B ...#TRA  K50QPRINT 
 4RT2 ...#DEF M1=34?+0?]&#47777777   
 4S#L ...     +M1
 4SS= ...#END
 4T?W ...#MEN WSPARAM
 4TRG ...#TRA K50WSPARAM 
 4W?6 ...#DEF  M2=34?+0?]&#47777777  
 4WQQ ...     +M2
 4X=B ...#FRE M1 
 4XQ2 ...#FRE M2 
 4Y9L ...#END
 4YP= ...#EXI
 4^8W ...)   
 4^NG ...! PARAMETER MUST BE OFF,OPERATOR OR ALL 
 5286 ...#NOR
</code>