(George Source)
Macros used: ENDCOM, FINDFEXTRA, FINDWFL, FINDWFN, FREECORE, FSHCODE, HUNTW, MENDAREA, MHUNTW, NAME, SEGENTRY, TRACE, TRANSFIN, UP
22FL #OPT K0TRAPWORK=K0TRAPGO>K0FILESTORE>K0COMMAND>K0ALLGEO 22^= #LIS K0TRAPWORK 23DW #SEG TRAPWORK [ TONY HAMILTON 23YG 8HTRAPWORK 24D6 [ 24XQ SEGENTRY K1TRAPWORK,XCOMMANDENT 25CB SEGENTRY K2TRAPWORK,XADJUNCTENT 25X2 [ 26BL XCOMMANDENT [ENTRY FROM TG/TS COMMAND 26W= [ 27*W FINDWFL 3 [X3 -> FCB 27TG FINDFEXTRA 3 [X3 -> FEXTRA 28*6 LDX 4 FWORKTRAP(3) [TRAPBITS 28SQ BPZ 7 NOTS [J IF NOT T.S. 29#B ERN 6 CALL 29S2 ANDX 4 6 2=?L BRN YTS 2=R= NOTS ORX 4 6 2?=W YTS 2?QG STO 4 FWORKTRAP(3) 2#=6 #SKI K6TRAPGO>99-99 2#PQ TRACE 4,WORKTRAP 2#S* ... FSHCODE A,SKIPINB 2#WY ...( 2#^H ... TRANSFIN ,,ALIEN 2*46 ...SKIPINB 2*6P ...) 2*9B ENDCOM 2*P2 [ 2B8L XADJUNCTENT [ENTRY FROM TG/TS ADJUNCT 2BN= [ 2C7W MHUNTW 2,FILE,FAPB [1ST FTRAP 2CMG BRN QUEUE 2D76 SLOOP HUNTW 2,FILE,FTRAP [-> FTRAP 2DLQ BNG 2 NOMORE [J IF NO MORE 2F6B NAME 2,FILE,FAPB [RENAME. 2FL2 QUEUE 2G5L LDX 5 2 2GK= FINDWFN ,3 [X3->FCB 2H4W FINDFEXTRA 3 [-> FEXTRA 2HJG LDX 2 5 [-> FAPB 2J46 LDX 4 ETRAPMODES(2) [NEW TRAPS 2JHQ LDCT 0 #200 2K3B ANDX 0 ETRAPMODES(2) 2KH2 BZE 0 XINTRAP [JIF TG 2L2L ERN 4 CALL 2LG= ANDX 4 FWORKTRAP(3) 2L^W STO 4 FWORKTRAP(3) [NEW TRAPS. 2MFG BRN XOUTRAP 2M^6 XINTRAP 2NDQ ORS 4 FWORKTRAP(3) 2NYB XOUTRAP 2PD2 #SKI K6TRAPGO>99-99 2PXL TRACE FWORKTRAP(3),TRAPADJ 2QC= FREECORE 2 2QWW BRN SLOOP 2RBG NOMORE 2RW6 UP 2S*Q [ 2STB MENDAREA 20,K99TRAPWORK 2T*2 #END ^^^^ ...37620776000100000000