(George Source)
22FL ...[??? DFDEF SECT FILE FGN 3 DOC 23DW # 23YG #MAC DFDEF 24D6 #DEF APLMT%A=%B*#400+%C*#400+%D 24XQ #NOR 257J ...[??? DFLOCDEF SECT FILE FGN 3 DOC 25CB # 25X2 #MAC DFLOCDEF 26BL #DEF MDF1%A=APLMT%A�/#200000 26W= #DEF MDF2%A=APLMT%A𫓸/#400 27*W #DEF MDF3%A=APLMT%AŹ 27TG #NOR 285# ...[??? DFLOCFRE SECT FILE FGN 3 DOC 28*6 # 28SQ #MAC DFLOCFRE 29#B #FREE MDF1%A,MDF2%A,MDF3%A 29S2 #NOR 2=3S ...[??? DFLOAD SECT FILE FGN 3 DOC 2=?L # 2=R= #MAC DFLOAD 2?=W #STR %C 2?QG ( 2#=6 DFLOCDEF %B 2#PQ LADDP %A,%C 2*9B #SKI %C-1>2-2 2*P2 ( 2B8L SMO %C 2BN= LDX %C MDF1%B 2C7W ) 2CMG #SKI %C-1<3$3 2D76 LDX %C MDF1%B(%C) 2DLQ #SKI 23-MDF3%B 2F6B SRL %C 23-MDF3%B 2FL2 #SKI 23-MDF3%B^MDF2%B 2G5L ( 2GK= #SKI MDF3%B-MDF2%B<12$12 2H4W ( 2HJG ANDN %C 0 2J46 #FID MDF2%B+23-MDF3%B 23 #7777 2JHQ ) 2K3B #SKI MDF3%B-MDF2%B>11-11 2KH2 ( 2L2L BRN M1 2LG= M0 +0 2L^W #FID MDF2%B+23-MDF3%B 23 #77777777 2MFG M1 SMO FX1 2M^6 ANDX %C M0 2NDQ ) 2NYB ) 2PD2 DFLOCFRE %B 2PXL ) 2QC= #STR %C 2QWW #SKI 2RBG DFLOAD %A,%B,0 2RW6 #NOR 2S5Y ...[??? DFSET SECT FILE FGN 3 DOC 2S*Q # 2STB #MAC DFSET 2T*2 DFLOCDEF %B 2TSL #STR %C 2W#= #SKI 2WRW ( 2X?G #SKI 23-MDF3%B^MDF2%B<1$1 2XR6 NGN 0 1 2Y=Q #SKI 23-MDF3%B^MDF2%B 2YQB ( 2^=2 #SKI MDF2%B>11-11 2^PL ( 329= LDN 0 0 32NW #FID MDF2%B MDF3%B #7777 338G ) 33N6 #SKI MDF2%B<12$12 347Q ( 34MB BRN M1 3572 M0 +0 35LL #FID MDF2%B MDF3%B #77777777 366= M1 SMO FX1 36KW LDX 0 M0 375G ) 37K6 STO 1 GEN0 384Q LADDP %A,1 38JB ORS 0 MDF1%B(1) 3942 LDX 1 GEN0 39HL ) 3=3= ) 3=GW #STR %C 3?2G ( 3?G6 #SKI MDF3%B-23^MDF2%B<1$1 3?^Q ( 3#FB #SKI %C 3#^2 ( 3*DL LADDP %A,0 3*Y= SMO 0 3BCW STO %C MDF1%B 3BXG ) 3CC6 #SKI %C<1$1 3CWQ ( 3DBB STO 1 GEN0 3DW2 LADDP %A,1 3F*L STO 0 MDF1%B(1) 3FT= LDX 1 GEN0 3G#W ) 3GSG ) 3H#6 #SKI MDF3%B-23^MDF2%B 3HRQ ( 3J?B #SKI %C<1$1 3JR2 STO 0 GEN1 3K=L DFLOCFRE %B 3KQ= DFCLEAR %A,%B 3L9W DFLOCDEF %B 3LPG #SKI %C<1$1 3M96 LDX 0 GEN1 3MNQ #SKI MDF3%B-MDF2%B<12$12 3N8B ( 3NN2 ANDN %C 0 3P7L #FID MDF2%B+23-MDF3%B 23 #7777 3PM= ) 3Q6W #SKI MDF3%B-MDF2%B>11-11 3QLG ( 3R66 BRN M1 3RKQ M0 +0 3S5B #FID MDF2%B+23-MDF3%B 23 #77777777 3SK2 M1 SMO FX1 3T4L ANDX %C M0 3TJ= ) 3W3W #SKI 23-MDF3%B 3WHG SLL %C 23-MDF3%B 3X36 #SKI %C 3XGQ ( 3Y2B LADDP %A,0 3YG2 SMO 0 3Y^L ORS %C MDF1%B 3^F= ) 3^YW #SKI %C<1$1 42DG ( 42Y6 LADDP %A,1 43CQ ORS %C MDF1%B(1) 43XB LDX 1 GEN0 44C2 ) 44WL ) 45B= ) 45TW DFLOCFRE %B 46*G #NOR 46K# ...[??? DFJUMPS SECT FILE FGN 3 DOC 46T6 # 47#Q #MAC DFJUMPS 47SB DFLOAD %A,%B,0 48#2 BNZ 0 %C 48RL #NOR 493D ...[??? DFJUMPN SECT FILE FGN 3 DOC 49?= # 49QW #MAC DFJUMPN 4==G DFLOAD %A,%B,0 4=Q6 BZE 0 %C 4?9Q #NOR 4?FJ ...[??? DFCLEAR SECT FILE FGN 3 DOC 4?PB # 4#92 #MAC DFCLEAR 4#NL DFLOCDEF %B 4*8= STO 1 GEN0 4*MW LADDP %A,1 4B7G #SKI MDF3%B<12$12^MDF2%B 4BM6 ( 4C6Q BRN M1 4CLB M0 +0 4D62 #SKI MDF2%B 4DKL #FID 0 MDF2%B-1 #77777777 4F5= #SKI MDF3%B-23 4FJW #FID MDF3%B+1 23 #77777777 4G4G M1 SMO FX1 4GJ6 LDX 0 M0 4H3Q ANDS 0 MDF1%B(1) 4HHB ) 4J32 #SKI MDF3%B<12$12^MDF2%B 4JGL #SKI 4K2= ( 4KFW #SKI MDF3%B-23 4K^G ( 4LF6 LDN 0 0 4LYQ #FID MDF3%B+1 23 #7777 4MDB ANDS 0 MDF1%B(1) 4MY2 ) 4NCL #SKI MDF3%B>22-22 4NX= STOZ MDF1%B(1) 4PBW ) 4PWG LDX 1 GEN0 4QB6 DFLOCFRE %B 4QTQ #NOR 4QW9 ...[??? QUERYPOOL SECT FILE FGN 4 DOC 4QWN ...#MAC QUERYPOOL 4QX7 ...#STR %A 4QXL ...( 4QY5 ...#STR %A,OFF 4QYJ ...#STR 4Q^3 ...( 4Q^G ...#MEND LIBQUERY 4Q^^ ...#TRA K40LIBQUERY 4R2D ... BCC K41LIBQUERY 4R2X ...#END 4R3B ...#MEND RENAMDIR 4R3T ...#TRA K40RENAMDIR 4R4# ... BRN K41RENAMDIR 4R4R ...#END 4R5= ...) 4R5P ...#STR %A,ON 4R68 ...#STR 4R6M ...( 4R76 ...#MEND LIBQUERY 4R7K ...#TRA K40LIBQUERY 4R84 ... NULL 4R8H ...#END 4R92 ...#MEND RENAMDIR 4R9F ...#TRA K40RENAMDIR 4R9Y ... BRN K42RENAMDIR 4R=C ...#END 4R=W ...) 4R?* ...) 4R?S ...#NOR 4R#? ...[ 4R*B # ^^^^ ...22710712000400000000