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

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

**Used in:** [[george:source:ABANDON867|ABANDON867]], [[george:source:ADDICT865|ADDICT865]], [[george:source:BACKMAP864|BACKMAP864]], [[george:source:BACKROOM865|BACKROOM865]], [[george:source:BMAPDIR865|BMAPDIR865]], [[george:source:BMAPONE867|BMAPONE867]], [[george:source:BMCNTRL866|BMCNTRL866]], [[george:source:BMFIXIT864|BMFIXIT864]], [[george:source:BMJLIST864|BMJLIST864]], [[george:source:BMJLSLAV864|BMJLSLAV864]], [[george:source:BMQUEST866|BMQUEST866]], [[george:source:BMQUESTB866|BMQUESTB866]], [[george:source:BMSAVJOB864|BMSAVJOB864]], [[george:source:CLOSEDIR867|CLOSEDIR867]], [[george:source:DICTWELL867|DICTWELL867]], [[george:source:DSCNCT867|DSCNCT867]], [[george:source:ENWELL867|ENWELL867]], [[george:source:ENWELLB867|ENWELLB867]], [[george:source:ERASE867|ERASE867]], [[george:source:FREEZE864|FREEZE864]], [[george:source:INCEND865|INCEND865]], [[george:source:INCEOT865|INCEOT865]], [[george:source:IPCGEO8|IPCGEO8]], [[george:source:JOBLIST867|JOBLIST867]], [[george:source:JSASCAN867|JSASCAN867]], [[george:source:OFFREL867|OFFREL867]], [[george:source:PROPERTY867|PROPERTY867]], [[george:source:REGEN865|REGEN865]], [[george:source:SCHDJOBA867|SCHDJOBA867]], [[george:source:SCHEDULE867|SCHEDULE867]], [[george:source:WSJOBS867|WSJOBS867]]

<code - POP.mac.txt>
 *9FX ...[   
 *9KS ...[   
 *9PP ...[??? POP SECT FILE FGN 25 DOC   
 *9TL    #MAC           POP                 [L,P,S,L2,SUB
 *=83 ...M1POP   
 *=GD ...      JBC   M2POP,%B,%C            [J IF LOCKOUT NOT SET
 *=KX ...#STR NOWAIT,%G  
 *=PB ...(   
 *=SW          BS    %B,%C1                 [SET 'WAITERS' BIT   
 *?#G    #STR           %D   
 *?S6    #SKI
 *#?Q    (                                  [COOR3 CASE  
 *#RB    #SKI           %C2&(#400:0) 
 **?2    ! POP ERROR    [SEMAPHORE SAYS IT IS LONG EVENT CASE
 **QL          COOR3    %C2  
 *B==    )   
 *BPW    #STR           %D   
 *C9G    (   
 *CP6    #SKI           %C2&(#400:0)$(#400:0)
 *D8Q    !     POP ERROR [COOR3 SAYS THE SEMAPHORE   
 *DNB          LONGSET  %C2&#7777,(GEOERR),%E
 *F82 ...      LONGSTOP %D,,%F              [BREAK-IN
 *FML    )   
 *FP8 ...)   
 *FQQ ...#STR %A 
 *FTW ...#SKI
 *F^2 ...      BRN      M1POP
 *G46 ...#STR %A 
 *G7=          BRN      %A   
 *GLW ...M2POP   
 *H6G          BS    %B,%C                  [SET LOCKOUT BIT 
 *HL6    #NOR
</code>