(George Source)
Macros used: EDSMASH
22FL #OPT K0GEND=0 22^= #INT 23DW #DEF MODE=3? 23YG #ORD 24D6 #DEF PROFILE=2? 24XQ SPLAY 27H00000000 PROGRAM FILE USED 25CB SPCLA 27:SPLAY 25X2 SPROG +PROFILE 26BL SPENT LDX 6 SPROG 26W= LDN 5 #32 27*W SLL 6 3 27TG LDN 4 7 28*6 LDN 3 0 28SQ DCH 5 SPLAY(3) 29#B BCHX 3 £ 29S2 SPLOP LDN 5 0 2=?L SLL 56 3 2=R= DCH 5 SPLAY(3) 2?=W BCHX 3 £ 2?QG '066 4 SPLOP [BCT 2#=6 DIST SPCLA 2#PQ EXIT 0 0 2*9B #DEF 3?=MODE 2*P2 #SKI MODE-2 2B8L ( 2BN= #SKI MODE-1 2C7W #EXT 2CMG #SKI MODE 2D76 #COM 2DLQ ) 2F6B #JUM SPENT 2FL2 #LIS K0GEND>K0ALLGEO 2G5L #DEF GSBSMIN=-GSBS 2GK= #DEF 2?=2?+GSBS-1&GSBSMIN 2H4W #INC GEND 2HJG #SEG GEND [R TERRY 2J46 #END 2JHQ #DEF ALENFIXCHAP=6? 2K3B #OPT ADMASTDIR=0 2KH2 #OPT INCFSDESC=1 2L2L #SKI INCFSDESC 2LG= EDSMASH ^^^^ ...30211113000100000000