INPUTMOP82
(George Source)
Macros used: ABANDCOM, ACROSS, BXE, CLOSE, CLOSEABANDON, CLOSEMULT, COMERR, ENDCOM, FREECORE, GEOERR, INFINB, INPUTFULL, ISITJOB, LONGSET, LONGSTOP, MENDAREA, MHUNTW, NAMETOP, OUTNULL, P, READY, SEG, SEGENTRY, SNUIB, STEP, TESTMULT, TESTREP2
- 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