{{htmlmetatags>metatag-description:(ICL George 3 and George 4 source: INPUTMOP82)}}
====== INPUTMOP82 ======
(George Source)

**Macros used:** [[george:macro:ABANDCOM|ABANDCOM]], [[george:macro:ACROSS|ACROSS]], [[george:macro:BXE|BXE]], [[george:macro:CLOSE|CLOSE]], [[george:macro:CLOSEABANDON|CLOSEABANDON]], [[george:macro:CLOSEMULT|CLOSEMULT]], [[george:macro:COMERR|COMERR]], [[george:macro:ENDCOM|ENDCOM]], [[george:macro:FREECORE|FREECORE]], [[george:macro:GEOERR|GEOERR]], [[george:macro:INFINB|INFINB]], [[george:macro:INPUTFULL|INPUTFULL]], [[george:macro:ISITJOB|ISITJOB]], [[george:macro:LONGSET|LONGSET]], [[george:macro:LONGSTOP|LONGSTOP]], [[george:macro:MENDAREA|MENDAREA]], [[george:macro:MHUNTW|MHUNTW]], [[george:macro:NAMETOP|NAMETOP]], [[george:macro:OUTNULL|OUTNULL]], [[george:macro:P|P]], [[george:macro:READY|READY]], [[george:macro:SEG|SEG]], [[george:macro:SEGENTRY|SEGENTRY]], [[george:macro:SNUIB|SNUIB]], [[george:macro:STEP|STEP]], [[george:macro:TESTMULT|TESTMULT]], [[george:macro:TESTREP2|TESTREP2]]

<code - INPUTMOP82.txt>22FL          SEG   INPUTMOP,74, P STANSFIELD, USERCOMS 
22^=    [   
23DW    [   
23YG          SEGENTRY K1INPUTMOP,Z1INPUTMOP
24D6    [   
24XQ    [   
25CB    Z1INPUTMOP  
25X2          LDX   6  AWORK2(2)           [TERMINATOR  
26BL          CALL  7  SR4  
26W=    NXTC
27*W          OUTNULL   
27TG          READY    XBREAK   
28*6    XHUNT MHUNTW   3,FILE,FRB   
28F3 ...      LDX   0  A1(3)
28JY ...      SBN   0  2    [ 2 WORDS OF RED TAPE.  
28NT ...      BZE   0  XNOTERM   [ SKIP OVER TERMINATION CHECK. 
28SQ          BXE   6  A1+2(3),TERM        [J IF TERMINATOR 
294J ...XNOTERM 
29#B          LDX   3  A1(3)
29S2          STEP     ,0(3),XBREAK 
2=?L          TESTREP2 FILEFULL,XFULL,REFUSED,REFUS,APPWAIT,WAIT
2=R=          MHUNTW   1,FILE,FRB   
2?=W          LDN   2  A1(1)
2?QG          SMO      A1(1)
2#=6          MOVE  2  0
2#PQ          FREECORE 1
2*9B          BRN      NXTC 
2*F8    WAIT
2*P2          LONGSET  IWTDEST,XGEOERR  
2*YS          LONGSTOP XBREAK   
2B8L          BRN      XHUNT
2BN=    #   
2C7W    #   
2CMG    TERM  NAMETOP  3,ADATA,ALINE       [RENAME FOR TIDYREAD 
2D76          CALL  7  SR4  
2DLQ          ACROSS   TIDYREAD,1   
2F6B    #   
2FL2    XBRK  CALL  7  SINFIN              [UNSET BIT FOR FINISH
2G5L          CALL  7  SR4  
2GK=          ABANDCOM  
2H4W    #   
2HJG    XFULL   
2J46          INPUTFULL XBRK,XHUNT,JOVER1   
2JHQ          CALL  7  SR4  
2K3B          CALL  7  SINFIN   
2KH2          ENDCOM
2L2L    XBREAK  
2LG=          CALL  5  SBREAK              [CLOSE THE FILE  
2L^W          ABANDCOM  
2MFG    #   
2M^6    REFUS CALL  5  SBREAK   
2NDQ          COMERR   EREXQUOTA
2NYB    #   
2PD2    [ THIS SUBROUTINE CLOSES THE FILE & ERASES IT IF JOB
2PXL    SBREAK  
2QC=          SBX   5  FX1  
2QWW          ISITJOB  NOTJOB   
2RBG          CLOSEABANDON  
2RW6          BRN      SET  
2S*Q    NOTJOB  
2STB          TESTMULT STRM 
2T*2          CLOSE 
2TSL          BRN      SET  
2W#=    STRM  CLOSE 
2WRW          CLOSEMULT 
2X?G    SET 
2XR6          CALL  7  SR4  
2Y=Q          CALL  7  SINFIN              [UNSET BIT FOR FINISH
2YQB          ADX   5  FX1  
2^=2          EXIT  5  0
2^PL    [   
329=    [THIS SUBROUTINE SETS A BIT TO SAY 'NO USER' INPUT IN PROGRESS, OR  
32NW    [UNSETS IT IF IT IS ALREADY SET.
338G    SR4 
33N6          SNUIB 
347Q          EXIT  7  0
34MB    [   
3572    [ SUBROUTINE TO UNSET BIT FOR FINISH COMMAND
35LL    [   
366=    SINFIN  
36KW          INFINB
375G          EXIT  7  0
37K6    [   
37Q#    XGEOERR 
37XG          GEOERR 1,LONGSET? 
384Q          SEGENTRY K99INPUTMOP  
38JB          MENDAREA  50,K99INPUTMOP  
3942    #END
^^^^ ...51524436000400000000
</code>