(George Source)
Macros used: BXL, CLOSETOP, COMBRKIN, ENDCOM, ERRORX, FREECORE, FSHENTRY, MENDAREA, MFREE, MHUNT, OPENSYS, SEG, SEGENTRY, SPARANOX, SSCOR, SSEARCH, STEPWRITE, UNLOAD
22FL #LIS K0NEW>K0ALLGEO>K0GREATGEO>K0LIBRARY 22^= SEG NEWA,65,N.R.BOULT,LIBRARY 23DW SEGENTRY K1NEWA,QK1NEWA 23JR ...[ 23NN ...[ (C) COPYRIGHT INTERNATIONAL COMPUTERS LTD 1982 23SK ...[ 23YG SEGENTRY K2NEWA,QK2NEWA 243L ... FSHENTRY K3NEWA,,ZBRKINB,ZBRKINB 246Q ... FSHENTRY K4NEWA,,ODRAWN,ODRAWN 249W ... FSHENTRY K5NEWA,QK5NEWA,,QK5NEWA 24*2 ... FSHENTRY K7NEWA,,QK7NEWA,QK7NEWA 24D6 ZODRAWN +BUDGODR 24XQ ZINC +BUDGINC 25CB ZSPA +BUDGSPA 25X2 QK1NEWA 26BL # SPACEMT BUDGET OVERDRAWN OR ZERO 26C* ... LDX 0 AWORK4(2) 26D4 ... BZE 0 ODR6 26DR ... SSEARCH ODR6,7 26FG ... STEPWRITE 26G9 ... SSCOR 0(3),DEC 26GY ... STOZ AWORK4(2) 26HM ...ODR6 CALL 5 SYSCLOSE 26W= ODRAWN 27*W SMO FX2 27TG LDX 2 CPPTR 28*6 BZE 2 ODR5 28F3 ...XINA 28NT ...UNLD 28SQ UNLOAD ,,,UNL,AUT 29#B ODR5 29S2 BNG 3 ODR3 2=?L LDX 4 ZODRAWN(1) 2=R= BRN ODR4 2?=W ODR3 2?QG LDX 4 ZINC(1) 2#=6 ODR4 2#PQ LDN 3 0 2*9B MHUNT 1,AONBS,GLIST 2*P2 LDX 7 ALOGLEN(1) 2B8L SBN 7 1 2BN= ODR1 2C7W ADN 3 1 2CMG SMO 3 2D76 LDX 0 A1(1) 2DLQ BZE 0 ODR2 2F6B SPARANOX 3 2FL2 LDX 5 ZSPA(1) 2G5L ERRORX 4,5 2GK= MFREE CPB,CUNI 2H4W MHUNT 1,AONBS,GLIST 2HJG ODR2 2J46 BXL 3 7,ODR1 2JHQ FREECORE 1 2K3B # END OF COMMAND 2KH2 TEND 2LG= MHUNT 1,FLIB,FMES 2L^W LDX 0 A1(1) 2MFG SMO FX2 2M^6 STO 0 CPPTR 2NDQ FREECORE 1 2NYB ENDCOM 2PD2 # BREAKIN 2PXL QK2NEWA 2QC= ZBRKIN 2QWW CALL 5 SYSCLOSE [CLOSE ANY OPEN FILES 2RBG LDX 0 AWORK4(2) 2RW6 BPZ 0 ZBRKINB [J UNLESS COUNT OF REQUESTERS UPDATED 2S*Q OPENSYS ZBRKIN,SERIAL,GENERAL 2STB SSEARCH ZBRKINA,7 [LOOK FOR ENTRY IN :SYSTEM.SERIAL 2T*2 STEPWRITE 2TSL SSCOR 0(3),DEC [DECREASE COUNT OF REQUESTERS 2W#= ZBRKINA 2WRW CLOSETOP 2X?G ZBRKINB 2XR6 LDX 0 CPPTR(2) 2Y=Q BZE 0 YBRKIN [J UNLESS TAPE ALLOCATED 2YCY ...X2INA 2YQB UNLOAD ,,,UNL,AUT [UNLOAD TAPE 2^=2 YBRKIN 2^PL MHUNT 1,FLIB,FMES 329= LDX 0 A1(1) 32NW SMO FX2 338G STO 0 CPPTR 33N6 FREECORE 1 347Q COMBRKIN 34MB # 3572 # SUBROUTINES 35LL # 366= # SUBROUTINE TO CLOSE ANY OPEN FILES 36KW # X5 HOLDS THE LINK. ON EXIT X1=FX1 , X2=FX2 375G SYSCLOSE 37K6 SBX 5 FX1 384Q SCL1 38JB SMO FX2 3942 LDX 0 AWORK3 39HL BZE 0 SCL2 3=3= CLOSETOP 3=GW LDN 0 1 3?2G SBS 0 AWORK3(2) 3?G6 BRN SCL1 3?^Q SCL2 3#FB ADX 5 FX1 3#^2 EXIT 5 0 3*DL MENDAREA 50,K99NEWA 3*Y= #END ^^^^ ...74554307000100000000