{{htmlmetatags>metatag-description:(ICL George 3 and George 4 source: DFMACROS)}}
====== DFMACROS ======
(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