(George Source)
Macros used: ACROSS, CLOSETOP, DOWN, FSHACTPR, FSHCODE, FSHKILL, FSHSKIP, GEOERR, GETDIR, HUNT, MENDAREA, MFREE, NOTALIEN, OPEN, OPENSYS, SEG, SEGENTRY, SETNCORE, SSEARCH, SUICIDE, TESTREP, TESTUNPR, TRANSACT
22FL SEG RETURNA,1,N.R.BOULT,LIBRARY 22KH ...[ 22PD ...[ (C) COPYRIGHT INTERNATIONAL COMPUTERS LTD 1982 22T* ...[ 22^= SEGENTRY K1RETURNA,QK1RETURNA 23DW SEGENTRY K2RETURNA,QK2RETURNA 23YG QK2RETURNA 24D6 FSHCODE A,SONLYA3 24XQ ( 25CB NOTALIEN SONLYA3 25X2 FSHACTPR SONLYA3 26BL SONLYA3 26W= ) 27*W OK2 27TG SETNCORE 3,3,FLIB,FTJOB 28*6 HUNT 3,FILE,ENT 28SQ LDX 6 ESER(3) [TSN 29#B SSEARCH ,6,1 29S2 LDX 5 5(3) 2=?L ANDN 5 #7777 [NO. OF REQUESTERS 2=R= TAC1 2?=W HUNT 1,FLIB,FTJOB 2?QG LDN 0 2(3) 2#=6 LDN 1 A1(1) 2#PQ MOVE 0 3 2*9B TAC 2*P2 ACROSS RETURNIT,1 [CONTINUE 2B8L QK1RETURNA 2BN= NGN 7 1 [ENTRY MARKER 2C7W FSHCODE B,NOTINA1 2CMG ( 2D76 TRANSACT RETURNA,1,, 2DLQ NOTINA1 2F6B ) 2FL2 FSHSKIP B,XINB 2G5L ( 2GK= SETNCORE 8,3,FILE,FLOCNB 2H4W STOZ A1(3) 2HJG LDN 0 A1(3) 2J46 LDN 1 A1+1(3) 2JHQ MOVE 0 6 [ZEROIZE LOCAL NAME 2K3B NGN 0 1 2KH2 STO 0 A1+6(3) [RETENTION PERIOD 2L2L LDN 0 #2001 2LG= DSA 0 ATYPE(3) [INDICATE MT AND TSN 2L^W OPENSYS XBRKERR,SERIAL,GENERAL 2MFG OPEN XBRKERR,GENERAL,ERASING,QUERY 2M^6 TESTREP NOFILE,VK7,NAME,VK7,NOUSER,VK7 2NDQ TESTREPN OK,WRONGREP 2NYB VK1 2PD2 HUNT 3,AONBS,GLIST 2PXL LDX 1 A1(3) 2QC= BZE 1 VK2 [J IF ALL TSNS DEALT WITH 2QWW VK4 2RBG ADN 3 1 2RW6 LDX 6 A1(3) 2S*Q BZE 6 VK4 [J IF NO TSN 2STB HUNT 3,FILE,FLOCNB 2T*2 STOZ A1(3) 2TSL LDN 0 A1(3) 2W#= LDN 1 A1+1(3) 2WRW MOVE 0 6 2X?G STO 6 A1+7(3) [TSN INTO FLOCNB 2XR6 GETDIR [FIND DIRECTORY ENTRY 2Y=Q TESTREPN OK,VK3 [FORGET ABOUT TAPE IF DIR ENTRY NO 2YQB [LONGER EXIST 2^=2 SSEARCH ,6,1 2^PL LDX 5 5(3) 329= ANDN 5 #7777 [X5 = NO.OF REQUESTERS 32NW DOWN RETURNIT,1 [RETURN THE TAPE 338G HUNT 3,FILE,ENT 33N6 BNG 3 VK3 347Q MFREE FILE,ENT 34MB VK3 3572 HUNT 3,AONBS,GLIST 35LL LDN 0 1 366= SBS 0 A1(3) [SUBTRACT 1 FROM COUNT OF TSNS 36KW VK6 375G ADN 3 1 37K6 LDX 0 A1(3) 384Q BZE 0 VK6 38JB STOZ A1(3) [ZEROISE TSN ENTRY 3942 BRN VK1 39HL VK2 3=3= CLOSETOP [DIRECTORY 3=GW VK7 3?2G CLOSETOP [SYS.SER 3?G6 FSHCODE AORB 3?^Q ( 3#FB TESTUNPR NOTINA2 3#^2 FSHKILL 3*DL NOTINA2 3*Y= ) 3BCW SUICIDE 3BXG XINB 3CC6 ) 3CJ# ...WRONGREP 3CPG ... GEOERR 1,WRONGREP 3CWQ XBRKERR 3DBB GEOERR 1,BREAKIN 3DW2 MENDAREA 50,K99RETURNA 3F*L #END ^^^^ ...473206140001