[comp.binaries.apple2] Mad Apple Forth v1.1 - Source - File 1 of 2, Part 3 of 3

rat@madnix.UUCP (David Douthitt) (04/27/89)

=== Mad Apple Forth: Source 1: 3/3 ===

FiLeStArTfIlEsTaRt
ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789()
HMAF.SRC1       AkXiAAGACA(4(IAgyqJAa(QHPshsAkRiAgZ5
NvrGYB9wXyimldp5mI5GFIoGfbyCPrlRihaxJGFso6odYYSyiDvjgNLNmpF8YhVl
C1Tqhg0(eLuxGI6mWqGej4ZKBqZZtBrJgFhYPk89BiUDPQ5U4Orr70ZIugW9lMNl
TuV0LZR5mf5w)jfvZqsTLdHhhia)19IukO145MnL8yt2)GBqKGF971ecUz2H3r7k
(5KpfJMM3TvVV4PDI(HyA8piATUymkWIQtLOYYIo4T6x(RY6So5zUQG4Q76vDjhr
FnJUxWoBolecFQwAABSAkqGqIuhakWMBmsXSDCazBVQg4iBdHWdTA1oRmvUMokBb
lmgYVKa7wgZkwRKU5oS1omBLZEyUUomnoqxUo6sY2zQlwmd8ww8ZJRufOTeLKi9m
WtaD0iO9S2sYYNcTELW8NQQiVhvJDA20xaAi6WhVNNes3xQh4xfrtUqMP5ilrUUc
0aWbzdjmmXiHQh6EnyjYGsQXyMWLAZ8YGrS6flO7zUjnGtnHilZ7whsaczlYQjNu
LswjFK9NnfeGnG1p7phNIwSF(9bBmPoNYVb15Q2iLxrebd9dVhitZ0nwsl9(hK7u
5Xd5P)emp6Eo6vWBxgV2QOsaWVdH1qFLz0IYWvqOsWGD5dEWmT5LUpKFbhrqN33Z
wmeNvNv2Yx8XydndqpUtPi7SuKiWsvPGpClOqbf5Tr7COMKpsCFM740wrYMUYR5j
vkEZcPts124UbxFsodB4GlkgMkmm2AsWjDniQdzTPIr7cDOQu4kGcWFFe4ixwS2V
fcQOqWyACba8zzDkQGvZSZvrq88gzcuEphZchPAagx)qj(E3BMaGfrhcOygAjLAJ
L1giUAL5nLkcKIH)zqgmKr(O7qqwP7srmwqjNzQyCN3OCiR9V3r8yMq4Y2qoYYSe
6gjYXUspyWfEvrxPMnKHRDHlGdZ8U34HhAlLYYedCm3NJE88mFWhoPamCBHvDwr7
l887tx)Nn8A0Q3ORyVSEpZbDmtBpYMYGsSHobqvRLhcR1Eyo60l0XERxUuQXgh9i
rVLjRN2W5ke7FDQourhZFomFmPdvWNF1hpqnphppwzpkKeWG9IXcVMWOzl0bmr2N
njHq8WbvtQ)WoQMFgHwtfY4nijhduWSiAcAGGVvTSKN2AAAQAEAABAAAA8CAAAw4
AQAAAAAAAAAAAAgAZFxLAEADDAAAZkVDAAwAP0BADkRWAAAAAAAAHAAAB1EA04iR
CMlLAIAAAAAA4AJAnDAAAAQFA0MeL492ApaAGCKgIyhrOHeexMQh70p7cnue3sS1
rs5bU1YAhNQb4oFAARfeWPLJIOCKSL)ZYsYn72hjCDCfVQShwg1KBVCWGvSSoEBr
oGsYmQa(xeSLAtca2rbvyqNTSy8V2sVOzWV7cZMYprS0vQFDbQDUWUaA1qBbJ9Fp
FoZwyeyCMu9WKAfCc7qFyhsRmoQ2p4yiLxXvGMpD2ghqIWdoWNaPjAH(mWNassWI
0kKlbQpYWsRR0qNDnGFzMIqzIchaKLPe3vU284triwOEUsmrhFbl7ZqxbSVCwa1a
qNsR968kua1Gag7WWMZCwmNzLdbyNA9gxejg02IX()WL0jPfMmr4soXzzmRzg(8Z
ueaesglNdS(WfuTQx3nfgTLYvuyQ15H25KIWGhZxvGvkGyVvZuSExK5YpDT7QOA2
agFmZaaKpYY7YBkxFEIhaGmvaYcejMaDh9r7lGJbIjckEzqIc407GZp5sPsmJiQx
7WQqkYjpVYh5wE7pu9cmY6ILrg26RgpJGwyNo2qlIHb4Jq4)pBUZmHJjaaWmCVIn
huILpsrpGqS1yqllaayKhJoaHgshzxSTUzJGNPNZR2YDmZUZGnpiaSGLWO7wZ743
ihaKTQIXMWrRx8eCDLiZGl80qEpmhJjUYacMZmIBFJ17lvY2IyeSYaac14wYbRNU
LFBiIX)SYWDFEVEBMVNVmOyxBhlGW0S3MGdUedlR0tVcEg1ma4ISVZopZZRNmzpB
c6smnUQvs0RLYRtNkzmM9MVGbNVfRW2Xl5bBUN40JjAXCXYp0V4bxNt52u3qRrgF
eTVr8NedEYp1y14wlV1J5YSGqo5sbthRrV2Y2GGwVrEvRYWWIijB4G5mapV4MbSN
tuXMcZxdG7BLhGzYmm5CCFniGCOe1l2hJdJGWmDVBzYWBHbSmSKlppnZNHh0h9Zn
aVtRVnGhgPG1WWdVcJhWnuEWqmdbthV65cV(GH7oo2cBW2sKtpX3(YQERK5Ynyix
RE1hEHWGWct7TIpYF9thGMz3SqWTVbUEpK2Wfy6upb6x9iplITT1GHPuiZZBLHjG
j5CUmWaxqOZrxbJXKRpoKwVVswpjn(zn5feROdsSDZMSBpT9BKra(Bvh6mccWOWE
baSKZ(2zhpR8mHjqrs8c2bEx3jVYcdRFGUkWbkd0Gx45L5sZm7lvqNyfDSUSXWDV
7gmtY1Od3kycSYm86bwOhOHUoxbZyUNEjBaU((QCkYbzaCvtMXNRMIGs8V1QmFdm
)GqpnFuf4IMQyAzzZJzpYIK4JJPakqPZ8sMFPrRZ0YIqVQmMijLr5NoKKRjxV1gs
jACfAm(GIQlKgRggJrBDGNN4CBNGACYj40Yh9pQYQRhAZYGhFGw4BA78MzlCDfC6
pANKDjjYCwpY7lPOcGmYfSZInMOBYB4zYy3T1wfRepxAWmE1GTjtR0YYKFeXGP1Y
nLLejFBjjlxVVpCki2hw6UI0DECxNErtkzGAcdTA5tQYgMJmJKsgFpNfYuoEBqAS
BwiofUIFKASAjhh2zm7OPXRjiWMuLWSGUkjZmWQHRTEM3hUUOQCNDj19yRgbskDk
95BZmhkg5IJZFw9mJ1BJOhEvdL5Y0QKuJHKqxXFMk8jiBdhWu8SIOJWklQSpBFkF
aT1s5RY0sUKbED1FAhTj0ojll2CpiRpkaMpHJSPvId4LCWCjFRh4RIGjMN53xI3T
smIl9)Qjx4p9wNmCYwUpkeoNyRRzMU40AYAIAI9NyKdc0A0hNExJd558dGLDnToP
6gRK6hCjV7J9OZGZKmgnzUl)aEEoK4E6tpsuFKtEFDkCGDiLsRF0QEAZENaxRleE
TLLjMdEMZuj4bOFSVMiFPydU5L4MKaIDfmJdPYOblSasRyoZTJeGVbhZx4KqNuiw
RmBzXBi2tiXTXrZsqsKVHp6DgqSWt8kp3NkhJ6sSUUgTqUHTZkxQOMCVK10AcJKZ
FpRGoKpvdOykL4jqqZMKsKtKrw9PaOrUsB2yo7ok6b4IWrOXRKPhIKNGf3VRDNty
xShUsCxubcgRGH9TjSqAWoWjDpeSBsgz9AUwsZ2MqFjWRAUjNizCpNj2VQbxwZ5k
DiSINJZzoR9aPo6mtRVjBF9ARicVBBqCSbDtRmUg61EJQmJBnJTWKRxyrV7ikJkV
BCbxrWkwkBr4p6EotbGLlOKVVAk1QZ4ciBUYBZ4ztaEDreEGFgEoMb1KdhKGFaMI
uezYwtrHRqM9sE2AGSbmQDkuuGiAzljnNTe5zjz4DzEZZoqCgnPHSic5(9THTkYt
dRNFBEURLrYFjK8pXURSapycKWtKuN7VVrf7yiloLhgxZkghsKgp5baxAntGCHe8
m)WNz3NFQB1ZZo2wKoXRn62tX1kz1hYtmND2GNQrNYzGQkl2hC2qs6vRkRbG9pIz
rVyXmRL)dgY1294ULaWVj2s1e)wpVin1GnJn4LmOXWwWpy5rwmpplFIZEjVvYu2A
JoJ)Y5LqqkvYIKGGhaUk7K6Z8PD0wvqycXeQjayK84RasGBsqtpoqAquhGjoZgZY
XbipmkAjH2QoUUWApBmUqJy7qIurWaImbWQYJj6rQdkxLzAgSEGGJhiaclJJnYRJ
IJzvYu8RaIXmcIYYMYpEIywj)6BlMbqgUENLIgskSQbtUC1SD9eMLC76aTCDAvFf
oqmuBkoGDAy3KThDuJnc0U(FX4wOBkoSDRZ7KKXqkq2U6(6GTJ76opBqGvnxkLWm
9yMVBJ4ajJUVGohDXRRmQ3GlTx3xoUJAmkSoZUUFymUl7rC4jLFdvPPO(Z(MYbSz
CwJV1jFE1QBZHL1KYa4iKNxUNDihTHkYeCbRiaWsxh5)pxaFVXJYxCgIZig4JVoc
kRpEGuhxspmVF)UHipKZnlp5XtLv)yHmZYuOFh8hGd80G4BF6A7FejNRRfocNOyF
sWDdSEptaUIaBJYajZ67WpCUEmM0aw0stQqqndhZqsxNSW(lllhM50ZlTqrBmY2U
3yIVjRRDSGMcnpJS5up)LroXBZcL5i6imSkB3125XR3IBjSz7H)rwC2NOEMhdHLL
scdFx3Yh0z7b3ElghcYIFtthB0GuxC(eGbRqNsImihjRFE3qCVW(gsUDHCGqWaeo
aZEXHVGwIWVI2RPaSlb285gzHnqN8l4iIdqcX2zNLl6o0RtuOo)JAnmd2F2AFoOE
yW1q9o5AmemaYenvBYGWlh5ymnsizS(OU1fwZSIEhRoBhGAg5G1F6jiD(2sfixaF
mkqo2YGGdVlS6G9DjZR)deLrSAlIUCJXOUQ9ez3foIaBFGH3IVynriItznBVG5iz
BAoQ0BigKvR83586ePgFWnhL)(wG)cmvQ0j8oRABAtSRy5AEeMEkHDDIh48WlNFw
PDI8vY4kLCCQi5qDwINPaOtxs6ZMmcelaqu7472q6TBktangb)AG3aovrA5ZhGbO
8Dj2CQztYAqgKMP5EQB)lKuCQvF8xHAAAdh2Pq4C7tPfSyyW5O54uNaFJkB9miuA
9wtLptYbEG0AHPBqtRa8D6EPOiiGaRMm4hEoeiStTYbRVYxK)OIU0gB69cEpxyHE
yXLbAttnpsQoESuGgSDByOhFEOFwtSx4FNJYaGrjSWC2YvNAABgBjSKscADSgxOX
gB0Ng66kgkBjDUE8BnQUgF4881alkITZ9pAeLKInBBwqpxzNeOWxgskwtUOS(IzJ
CDPEDCclAzGZp5pkZQANGDXwJZMeaFDjeNpE8bacWGGiA6BRU7OFBnj5O6kYKKHX
hy0T32pOAoWRgkRxUhOAIhAmQQFs51wPtUBCeDtk3pWrIEn72yJR(VSMFMyLCj1O
8gkyx7dArMQXYE2XTuxZaUYBcnLvV4RsJR9s7ehLO3FCzUsLFYXUYQ9GZpkWVBxF
jcIsBAgqhDFCKDRQpZxI9cUePGE3QZ4ooDiFDnAIQ4QcoKEpHXHRRT(OwWrjs(xI
TpGWOq5nVDZeUOSqavzx5JYAeME0HDX60ITOwBBVyTQF4cEKOEv5gA4dV8UHoT)p
(6Q8sOGlHjH6hpcP4C8jgsqQ5YEkWHtxDTpdpOXHmzzx7VtedYBCr24bqU5Z2h7S
05SV9oS6ZvGRWoqslKnrIi0aN7gG2anjqD55LlUaW17VO2hN50aVWpO21YBm196r
3ZlalUKtJNaULHkQYN0BgmnjsRRd5MhydU0HpXXJq90S8y)EvnJN6micSHH7LZ5d
hwyjtzbqV5acMsr0XC7(9ikuNanbV1NxZYIeuXI6BsWf6IvJT6zwfHWQPKA0DA8d
IMLBazFb9hZM8OWOGTPH3UZeoHvCeDnoABXEMGOUCBLVRiWe5eWr)MCeAjRmxZFK
stlbsGGJOLpy6gNQjxUMDQ5dF9(HUSjDbA(lUNwMoaeIhfKZ2q726m8z39anhL)A
DBEhpnAnge3kkhRoecAftWBnzJgPJIOWA1aAXtIl7yxLU1oRxAQg86ZjO7OdhLQx
DF6ikdOilTdI0mB7ECqYGsUNxctSCWcamsSUuQdDkLOE3MXhI2hDAZOd4MHzOdZk
BpxhWMSMoSNDA1IWWMUQQnOLgNqoWXVJSrJDQOtaoRVIEHW8x0lnkxmaKVqEJKkl
V0mGIUyyaXeeXVRxu4pTEjLEbCWgTlGdtSFUKOsQ82CzsNveHvqmI2hj0bLW02m8
HWdTAtNhFCFdCSYGYVNacvsZqOLgpsJzoY0WzmJNICaZGRcrteVbKiMpFOQYsb36
PRSY9ZRgwFtqAldaGNXFalaLG(sYGPWP12iWcKMZWVzFwoNjLGbrWOmDomDrrtL3
v2QSHvNHtaeYtO3P0QdHQ9saZNmaxq1fBZakLLLqMPtTUwMtxcIczJjdDAE4MvbV
gddKb4yOTD32hRZDPpDkky1QaYqcRhpZ6nrjOOJoEqvuZaWYzjr(1yjDGFBtcCmm
(4a(ZIGZgepJGpI1GK2tHRYahV2HjpxTmmHpbSRG)aKhJI5)OLMMwtiUSOWA0GZI
bM1ByXDkFNgX3JBR9AR6xhm3QhjDSGuTkLOx5GHLKpI(qrbcmrpikCmm)8AZ7pea
(rhxmvB2KyvvaGbQ6VNQilpxGEGoWq)qJJPblSi9AQsUG32EZbE0A9w8rcVAMvMM
pAmFy8PGMBwYcSsz6wMsTn2d619w4Mzcr0)VQilDxQk7r3ju8(6GDeHD12TZyzp6
VtC1BCVfcFnFYppZS37ZGitVXBXxxzm3s5UFmu5X1SHOPHRNd5I2W0bkSyeYpKlu
MLFtTtjagpJAsnMir5WgM1abZfqdxxdpFnZc(PF34aaJ10Ni(UkVpQUPbGRKUUYA
VRnWLJ9q21Z8sS9XY2SzE)7QVbtkKUlvc0F43gtZ84tYDVeRZu9iZPB2eN10yGVk
ubsB6zAdwqf0tWlI2UTROq5sllbSEM2GP9O6csPS(kO1VW087TJQYaSFksRJDaGG
ZNfYxVD3nlTCcd5sjx2964gKJzoXdl(G5WqLo5zrGEHp4RoOWaCJLhtWiCvZ6N)(
OQ5xYEV3ea08nlphvoDPvVsFkvtBukMVpFIMRHsha91Fgdr5jGmMch523XSmVRdY
4U69x1J332lxFAEQKLHBdeSYYDkdBUhpHiAQkLHHcGWAxp(dQ4xhYErUpKV2jvaM
z7(lgRgHFiPQBdEmXUKgxIJEZgm5mv46B5Kf0(Q2BgJY82Xtl(6E5aBXZWCyLCUG
(GjlP2s8j5efSy4T5TqF)VWJGMinEoYLAjOwZehZLCUOUiJMDwzYUNxPBBwjiBIM
R9K5cpvRFWQBaIRnvjBAJ40(NC0BDgD3MkABaq0XQJYAz5OIOzHJnjr0xgcvEjoK
g(J87Ou5QD6lsMzPNZAjXvA6VAHHakNDnKjxVDUN28z5wYsCFLFQjZzEkWGjXZBC
6TcA1cM4hnrbwCkcZF8ifpmCY)0s6WFqAQCzIfdFSFzDyqT0C5Yvdlk9WRx7sw1O
BfGDhQSExGzUS1gwITsG2P32G9h1hEpPdzFjR5N8Amnjv7B46cMkfgJ4QWDTJoji
K3zh01TI6NChes60zpePUFWDqF4YXTZUPOFDEE06owOBgtzh69gkcID2lt)1J0HM
WEGTeNVpTKBVoSFnz1WS6IKmmuFl894BrQM)BAw5B4dPipmAwTxEcxANCEA4Sy6c
AmfnR0yh3F5gaNlXbKRVzqzy4SFAGShQpFEBIrpCOHhMkkZGZMihJdrJSStJogYj
TAUMm7kQcPZyMqNRMOPxNCgaTTPih5hZ8kSq(wkkUJBhi4jNR2HUFIkDCBkYQZ(0
AQRVBcAdlR12IQNakNLFBapzNbigoFbGR5Z1rW02iJLINAE2QW1kkBL256EoqWnE
JGTECWCEMauKgdsWO4EoMa8enhCIBqZ1LWiIYy0YJ551SY)IqRD1Vgawsq2KhVLG
moAyMY2MYJLFWsiH0bdHfSda54JoNawKpVbW185WMa5gwKV2m2BD2kAdmNDGesgE
Mj)khZtKehAu2pQzWWrZllaR0Z7gwCGM1o402a4SPAcUtRVjBF9ANbeV6YmCMZ1s
NXrGrxzC5zu5D2ssiOWCRjDjMW8515GuShB)TnGNX2XJyarpdhaJgCEIuEkAwhoF
1erzcBsErPn1KrYqYkCpbFzKSWMYWsYNqFLLLIB0Vod3i1kqFUIMUz8itvXql4Yy
1uzoiVt6oGuYumGq9YSCjSOs2z6DqriokSKLa6U0E6wZJQ5DwIb6scbw9APZM4Bm
zLkJLpjyqL7uDr(8qYMs(zbsGoC)WFmlE)OFiAumhqxjkrmlBnxvYaskRvZC)(yi
umPilBwOIJXCUaQtCKDjtuFXA98sVAASRoJnURrptNFUdtys2SwapgWZz4qjrLRN
0l4tjowsJAHUebCLyktTl(yJkWaSsYPuj3cTOuHlkLHHVGaADgpVzvTIpmpn0Kqp
Z0eKt0iStPkCKtC0ZfBPB)6saL3miaRSGoCwKvrI8C)saHmCiKcMrVAQG3LrWInW
FxFmZJTEJRYO4MNOjUVhts4DJhpSV21UhZVm3YueF2JTRwqNQTSL4uJQWWCBSpYW
WpRtWUcPrqkpqqYlksOGwxJVhFAyCTHHRRXS5xNEm7xhnEmyKbXnccao8ZVeVQVN
0uez55GooaqEpQ6YSnqJ21JPJJV4WWQmaytokhi5mGngRBJqAbbzW7C9gNeK30kw
BNHPcfXQdGzZohKsQspStpk5vWmBcPWH2lcdQ3ZXJGCW)eNVJrIWzDURY3pbda6R
Kzkhigl8WNr64iCPaB)0g)OJVh0(WSd(Wb7ZkBLYWFbX1(2CipecRUidBy2x0uWT
tIZ4EmND21VjJHXRa9WDuQGs1LM3ZuDI)K12xvVRmcHaQZGnvyPYeTeXefXjlVhe
99NN3neyHA43Ypt9NRkrTVmNLYQHVmoYallgP)liwOGe44vOdEJ5xDtGuVI3y1uN
e0TqBzU8aklw(uWnjcO16Nx)5JqbTrVNEv4J)3Nf44CnmXqabrjrD0yqt9J4)dG1
hbf)9))fvDwNAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AgoV
-- 
!======= David Douthitt :::: Madison, WI =======!== The Stainless Steel Rat ==!
!  ArpaNet: madnix!rat@cs.wisc.edu              !                             !
!  UseNet: ...uwvax!astroatc!nicmad!madnix!rat  !  Mad Apple Forth:           !
!               {decvax!att}!                   !  The Madness starts here.   !