(George Source)
22FL #MAC STDP 22^= #STR %A 23DW ( 23YG #STR %A,ON 24D6 ( 24XQ #STR %A,OFF 25CB ( 25X2 ! PARAMETER MUST BE ON OR OFF 26BL #EXI 26W= ) 27*W #MEN COOR 27TG #TRA INOSTDPCOOR 28*6 ... BRN INOSTDP1 28SQ #END 29#B #EXI 29S2 ) 2=?L ) 2=R= #MEN COOR 2?=W #TRA INOSTDPCOOR 2?QG ... MBI 2,JBBEING,JBSI 2#=6 #END 2#PQ #NOR 2*9B #MAC CASFID 2*P2 #SKI 22? 2B8L ( 2BN= #ALT 22?=22?-1 2C7W #TRA 21?/4+CASTAB+1 2CMG #FID 21?&3*6,21?&3*6+5,20? 2D76 #ALT 21?=21?+1 2DLQ #TRA CASMID+20? 2F6B +23? 2FL2 CASFID 2G5L ) 2GK= #NOR 2H4W #MAC SFC 2HJG #STR %A,ON 2J46 #SKI 2JHQ ( 2JW7 ... CASRDSPLIT 64,64 2K8J ... SFC 128,256,512,576,768,960,1024 2KH2 #EXI 2L2L ) 2LG= #STR %A,OFF 2L^W #SKI 2MFG ( 2M^6 [MENDS TO SWITCH OFF 2NDQ PMMEND FREE,0 2NFP ... PMMEND FTEM,0 2NGN ...#SKI ISFCON [ONLY DO THIS IF CODE INCLUDED 2NJL ...( 2NJS ...#MEN COREALLF 2NK2 ...#TRA K50COREALLF 2NK8 ... BRN K51COREALLF 2NK= ...#TRA K52COREALLF 2NK# ... LDN 0 1 2NKB ...#END 2NLJ ...#MEN CASCODE 2NNG ...#TRA CASTAB+15 2NQD ... +0 2NQS ...#TRA ISFCM0 2NR8 ... EXIT 0 0 2NRJ ...#TRA ISFCMLL 2NRY ... EXIT 0 0 2NSB ...#END 2NSQ ...#MEN FIXED 2NT6 ...#TRA CASTATPTR 2NTG ... +0 2NTW ...#END 2NT^ ...#MEN COREALL 2NW4 ...#TRA ISFCM1 2NW7 ... BRN ISFCM11 2NW= ...#TRA ISFCM100 2NW* ... BRN ISFCM100+2 2NWB ...#TRA ISFCM1100 2NWC ... LDX 0 2 2NWD ...#TRA ISFCM1000 2NWF ... BRN ISFCM110-1 2NWG ...#TRA ISFCM110 2NWH ... BRN ISFCM110+3 2NWJ ...#TRA ISFCM2 2NWK ... EXIT 0 0 2NWL ...#TRA ISFCM3 2NWP ... EXIT 0 0 2NWQ ...#TRA ISFCM30 2NWR ... ACROSS COREALLF,1 2NWS ...#TRA ISFCM4 2NWX ... BRN ISFCM41 2NX2 ...#TRA ISFCUNIT 2NX5 ... LDX 1 BPTR(2) 2NX8 ...#END 2NX? ...) 2NXB ...#MEN PMCRABS 2NXF ...#TRA K90PMCRABS 2NXJ ... +0,+0 2NXM ...#END 2NXQ ...#MEN PMCHAINS 2NXT ...#TRA K90PMCHAINS 2NXY ... BRN K91PMCHAINS 2NY3 ...#END 2NYB #EXI 2PD2 ) 2PXL #STR %A,@ 2QC= ( 2QWW #MEN FIXED 2RBG #TRA CASTATPTR 2RL# ...#UNS ICASSTATS 2RW6 +CASFOUND 2S23 ...#UNS ICASSTATS 2S5Y ...#SKI 2S9T ... +0 2S*Q #END 2STB #DEF 20?=0 2T*2 #MEN CASCODE 2TSL #TRA CASTAB 2W#= #REP 16 2WRW +0 2X?G #TRA CASMID 2XR6 #REP 16 2Y=Q +0 2YQB SFC @,%A,%B,%C,%D,%E,%F,%G,%H,%I,%J,%K,%L,%M,%N,%O,%P 2^=2 [MENDS TO SWITCH ON CODE 2^PL #SKI IROUND>16-16 329= #SKI 32NW CASRDSPLIT 16 338G PMMEND FREE,3 338L ... PMMEND FTEM,3 338Q ...#UNS ISFCON 3392 ...( 339= ...#MEN COREALLF 339G ...#TRA K50COREALLF 339Q ... NULL 33=2 ... LDX 0 BFTEMP 33== ... TXU 0 CXFT 33=G ...#TRA K50COREALLF+4 33=Q ... LDX 1 BFTEMP 33?2 ... TXU 1 CXFT 33?4 ...#TRA K52COREALLF 33?6 ... LDX 0 ASFCFPTR+BPTR(2) 33?= ...#END 33*2 ...#MEN PMCRABS 33*= ...#TRA K90PMCRABS 33*G ...#HAL 25,BFTEMP 33*Q ...#HAL 26,BF64 33B2 ...#END 33B= ...#MEN PMCHAINS 33BG ...#TRA K90PMCHAINS 33BQ ... NULL 33C2 ...#TRA K90PMCHAINS+4 33C= ... 0?+34?]�^BFTEMP 33CG ...#TRA K90PMCHAINS+13 33CQ ... 0?+34?]�^BF64 33D2 ...#END 33D= ...#MEN CASCODE 33DG ...#TRA CASQUICK 33DQ ... 2*IROUND 33F2 ...#TRA ISFCM0 33F= ... STO 0 CASLNK 33FG ...#TRA ISFCMLL 33FQ ... STO 0 CASLNK 33G2 ...#END 33G= ...#MEN COREALL 33GG ...#TRA ISFCM1 33GQ ... TXL 1 CTOP 33H2 ...#TRA ISFCM100 33H= ... LDN 2 BFTEMP 33H? ...#TRA ISFCM1100 33H# ... BRN ISFCM110 33H* ...#TRA ISFCM1000 33HB ... LDX 1 2 33HC ...#TRA ISFCM110 33HD ... STO 2 BSOURCE 33HG ...#TRA ISFCM2 33HQ ... STO 0 CASLNK 33J2 ...#TRA ISFCM3 33J= ... STO 0 CASLNK 33J# ...#TRA ISFCM30 33JB ... ACROSS COREALLG,2 33JG ...#TRA ISFCM4 33JQ ... TXU 4 CIROUND 33K2 ...#TRA ISFCUNIT 33K= ... LDN 1 0 33KG ...#END 33KQ ...#MEN PMDR 33L2 ...#TRA JPMLEV 33L= ... +CASCODEND 33LG ...#END 33MQ ...) 33N6 #EXI 347Q ) 34MB #SKI %B>1024-1024 3572 ( 35LL #END 366= ! WRONG PARAMETER 36KW SFC OFF 375G #EXI 37K6 ) 384Q #STR %C 38JB ( 3942 #SKI %C-%B� 39HL ( 3=3= #END 3=GW !WRONG ORDER 3?2G SFC OFF 3?G6 #EXI 3?^Q ) 3#FB #ALT 20?=20?+1 3#^2 ...#DEF 23?=1024<%C-%B/2+%B>(%B+IROUND) 3*DL #DEF 22?=1024<%C-%B/16 [CT OF CHAR POSITIONS 3*Y= #DEF 21?=%B/16 [CHAR POSITION NO 3BCW CASFID 3BXG SFC @,%C,%D,%E,%F,%G,%H,%I,%J,%K,%L,%M,%N,%O,%P 3CC6 #EXI 3CWQ ) 3DBB #STR %C 3DW2 #SKI 3F*L ( 3FT= #SKI %B-1024 3G#W #SKI 3GSG ( 3H#6 #END 3HRQ #EXI 3J?B ) 3JR2 #DEF 23?=1024-%B/2+%B 3K=L #DEF 22?=1024-%B/16 3KQ= #DEF 21?=%B/16 3L9W #ALT 20?=20?+1 3LPG CASFID 3M96 #END 3MNQ #EXI 3N8B ) 3NN2 #NOR 3P7L #MAC CASRDSPLIT 3PM= #STR %A 3Q6W ( 3QLG #DEF 20?=IROUND 3R66 #ALT IROUND=%A 3RKQ #ALT INROUND=-%A 3S5B ) 3SK2 #ALT 21?=CSPLITLN 3T4L #STR %B 3TJ= #ALT CSPLITLN=%B 3W3W #SKI IROUND&7 3WHG ( 3X36 #ALT IROUND=20? 3XGQ #ALT INROUND=-IROUND 3Y2B !I NOT AMULTIPLE OF 8 3YG2 #EXI 3Y^L ) 3^F= #ALT 23?=CSPLITLN/IROUND 3^YW #SKI 23?*IROUND-CSPLITLN 42DG ( 42Y6 #ALT CSPLITLN=21? 43CQ !S NOT A MULTIPLE OF I 43XB #EXI 44C2 ) 44WL #MEN CONSTANT 45B= #TRA IROUNDNG 45TW -IROUND 46*G #TRA CSPLIT 46T6 +CSPLITLN 47#Q #ALT A1D=JOBNOWAS+IROUND&INROUND 47SB #END 48#2 #MEN CONSTANT 48RL #TRA CIROUND 49?= +IROUND 49QW #TRA CA1D 4==G +A1D 4=Q6 #TRA CIRNDA 4?9Q +IROUND-1 4?PB #TRA CIRNDB 4#92 +A1+IROUND-1 4#NL #END 4*8= #MEN PMTABLEE 4*MW #TRA 16-A1*2+JE12 4B7G #SKI A1D-16 4BM6 +0,+0 4C6Q #SKI A1D-16<1$1 4CLB ( 4D62 4HA1D 4DKL #20202000 4F5= ) 4FJW #END 4FLS ...#UNS ISFCON 4FNQ ...( 4FQN ...#MEN CASCODE 4FSL ...#TRA CASQUICK 4FWJ ... 2*IROUND 4FYG ...#END 4G2D ...) 4G4G #SKI A1D-16<1$1 4GJ6 PMMEND FPBC,16 4H3Q #SKI A1D-32<1$1 4HHB PMMEND FPBC,32 4J32 #SKI A1D-48<1$1 4JGL PMMEND FPBC,48 4K2= #SKI A1D<64-64<1$1 4KFW PMMEND FPBC,64 4K^G #NOR ^^^^ ...625251330021