Path: wuarchive!sdd.hp.com!usc!samsung!uunet!zephyr.ens.tek.com!tektronix!reed!reeder
From: reeder@reed.UUCP (Doug Reeder)
Newsgroups: comp.binaries.apple2
Subject: Three Name Generation programs
Message-ID: <15686@reed.UUCP>
Date: 13 Nov 90 10:35:18 GMT
Reply-To: reeder@reed.UUCP (Doug Reeder)
Organization: Tether Propulsion Division, Institute of Knowledge, Jinx
Lines: 162

Traveller name generation programs

Here are three programs to generate personal names.  The algorithm is from an article on generating names for the Zhodani and Vilani, two groups of humans in the role-playing game "Traveller" from Game Designer's Workshop.  Also included is a program to generate "American" names.  The phoneme frequency counts for American names were generated by a personal survey of several dozen names of people I knew.  If you input more accurate tables for American or other names, please send me the results.

Doug Reeder
...!tektronix!reed!reeder
reeder@reed.bitnet

FiLeStArTfIlEsTaRt
ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789()
INAMES.SHK      AoRpAAAACA(4PIAg12GAtBADAwQtAoRpA4vQ
GVvTlzW6FsjDAAAAAwAAKwgWAAAAaBADAoADAIAAAAAAAAAAlCAAAAgGAAAAAAAA
GVvTiUM2BAAQAMAABAAAA8CAAAw4AQAAAAAAAAAAAAgAaBADAoADMAAAMoFAAAgC
AwAAKwgWAAAAAAAAAAAAAMAAAAAAAAAAAAQCAACAAAAAAAAAAAQAAAAAIDAAAAAA
CAgAAAAARBAAAAgAAEAxB5EATVUTPRkLAAwQAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAABAAAbDA8BIweESOVGOVsysZD4CkcmOdCzgIDgwdZnMED3sRzIDOIGNXe
5sJYgoRDwgeQHyBjcCNdRiKd5c8o8iOIxhReW2hIcdOCGNMDyMcIAy1cFEEA2kUT
I79ZyOZS0gYDs1MMGoBdKm8oC6wYThEuKCso47sbVhBbjyUagSLImOUeQohaAmcV
GKJsWsVjM)eMmiP7YyhDAy8bnOFQYWVTmCTaxjLd4sAYkMvdmvnFRgwJWcQAHhCP
piABew5bEwUszoJaA)kX0JKv1yZzCSIcGJMC3M15QueWXMSKMytKyszG3mLjHel5
0IoImqDXFeuqXUGZWlbZPPsYUP(JmgTixg4DQ3dfQtZK0IcOCFTzirwBumsDDmnN
9MOEcaMTOv3OHOSqAfPojiJQEIIDMmo6IS)N2zCajSIAgcDjJgycQaNEZ7A6sAhk
u57jOM6goBkOSm6QDihxQp4PMOkCbi8g0nTbqotqWcTo9i2SKCfOBwAMIx4AWsur
kG(AYgd)QW4zLhOiKnCLh2A4IylBbSoMjBq1SfzIEOCwYjcldnssAiG5AS4SFIN4
SiZMG4IigHgtfbznOPBdsWeO748MTQc6AcFA17U4sjtRAAk(DAQAAAAAvAQAAMOA
8DAAAAAAAgQAAIAAAAAAGMBWAAAAAAAAAAAAMAAAMoFAAAgCAAAAAAAADAAAAAAA
AAAAAwAAgAAAAAAAAAAAAEAAAAAAAAAAAAAyAIAAAAgAAAAAAUQnDcPAWBAABxUS
ukkTNFkTAMVRAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAc)DFs52QwQAwCAK
2YsKAMAGABEusAoBQPGEzkHvIywpMBSETCKgF74BAZ2NDnMzYwoJmXmNCiAAA0Aw
gO1JxOUTAsRbSFDFBOKKLdOLAgHBSqJBMqVBBADYgEElUAMCIiiK2AopNpQB1hzm
RCoxmAoAAcIBKoItRpaVj(0Z6kpZzU0ITqmsbyT5cjqlSJTqxsIEAYwAYgQXVBaA
s2ydgBTrRCJsfHHWoxCxgYANvEIDIKIAHClAflNAySioxAt7MgKt0NFpRLB6OQsQ
TpG0c6Mj8AQB(LNBQilAQ9JQRZkotY4qmbbdIkACFANBCIE4AEgFRCWAA0NA(udW
CALNCgEgIOQemV4rNTXJVmzmRDbyCkUViRQITCQABoNAHqN7UeDcBsNQKZa8zjgY
PoEsQSRsq8eKaRH9GtyrBAlEElfAXCQSbDfBAggbAlkjAUAmA9IJjVtBjkxDwwlB
mV2KrGKoQKhZ5HAgAkEyycAlD)G1QRxCQEY5xxRBTMQx9IDFM90BVwb8qy(W0XwA
(CUeAShG8TA4IiKGgrjjBkEWw4UD2bDBChGAO9TAFoAqCworF4AITnEEklrqNHE0
pCKv228UTTr8zfhKRAKBRSSBaU4ETIP2gafBRHUmCg9GFQBIUEDOol6hHQDUwFAT
nFQRSwgw2wRhBAV5I4EbolAJmgAY0thBJWDEYRUqdQwQHpgmSFXAGWTXZK4GZFVw
j3Ta2bq1dCYUluhXagRIx1khEhmVYNOaYpCAm5Bw2CXaDhmhEY1m95qMbGYYmWIV
tdmBFcBA4mdcFkoVhAEFcuRXdFcvAdecyo94ADqFvVl3HaBcVKGG1YtlVUM)W8Dg
gBG84AHaYdQDWXaizsWjFCQWAEXiEegNhZxMrtmjGCUWMP1dR8UAVhL44zB1EkFh
ZJKAWeAgBs8QEHBUllLkNkKR2BoGCCjFZE15PEUFGuXonqNlAiUAmtaAaRpveAaO
tOddA66bQBVABREMdCRGVFgj17mJU0hBMeDFgd4aQaBgBk8gpBn7aNeLIjhLtKeZ
1UIXTrlbOYLuZwnBZgFHc6DEuqj2BQYL4AFZwU((gbg5kawEGiVmRKYGJPVIjgUR
fdYcbCYYDNEz6Y9mAeAKIYwFQEMSTMEFqtqtgAHGbRXhhFQjl(t3HuWlAE239F(g
G2SPARnGNytXg6UHgGRAGq8NX9o0rpFmhaSH6aRA0E(lXsKtGS(3hK)mSbfA0)aX
v06tsol9iAgGUyRf5)mTJb9oHaCHhiiBJ03eChvVaRwQhtckAgmgAKVF8mBvAYGL
DQEkBDGvOmPFCYrWaYCwnIAAxQCFhiFAyz2PCfxDvAAEMEGlDj2ZBoIG17EApgtR
AAUTCAQAAAAAvAQAAMOA8DAAAAAAAgQAAIAAAAAAAAAAAAAAAAAAAAAAMAAAMoFA
AAgCAAAAAAAADAAAAAAAAAAAA0AAgAAAAAAACAgAAAAAmBAAAAACAUwgIpFABR0T
ukkTNFkTAMVRAAAAAAAAAAAAAAAAAAAAAAAAAsh(Is12QwQAwCAK2YsKAMAGABEu
sAoBQPGEzkHvIywpMBSETCKgF74BAZ2NDnMzYwoJmXmNCiAAA0AwgO1JxOUTAsRb
SFDFBOKKLdOLAgHBSqJBMqVBBADYgEElUAMCIiiK2AopNpQB1hzmRCoxmAoAAcIB
KoItRpaVj(0Z6kpZzU0ITqmsbyT5cjqlSJTqxsIEAYwAYgQXVBaAs2ydgBTrRCJs
fHHWoxCxgYANvEIDIKIAHClAflNAySioxAt7MgKt0NFpRLB6OQsQTpG0c6Mj8AQB
(LNBQilAQ9JQRZkotY4qmbbdIkAC1BNBGGwMC6LARDNk0ojSEBSElONEiB2oYlQh
EAABCgEYkNAdSvfbAqAwknQL(CSDVqpFvVD02Ql5Ye2wgQIBAYBIAgk7UPgmI82Y
Jpz9DsJQqsJ6wHSi)q2wATGGkVQIKtr7635PUq26ARFBcBMYlBsEbTQgAIwGQIxb
IEoZwva7y5)QIYsQM3jCa8jinIiuYkQAfCHG5BEBFUMgBRXXeUVACFHoE33GOMEU
vwdq51BRH)MzEAYGFYAgglH9UYCQECOgomBB64IiAAA40UwCQEMOozG2FwgihiD)
4ShKAogMARBOr(ExBIp5UIEAQROkCKPFdYgZLxm)wBgUTCYUEG4RKZghhpar))kq
TNNz4GFUURVY1zTNGxxzYAcBxyZBcq0c1DFZwWQRQGSOBCKJZgRI1gLdElaiEMEE
6qZHxFwR2VAf(AmhZbRNtZ5kFIoCWkI2CqhmYFau9(oH5wgTAVgssXQhHaR8oKGY
kxllXr0IuVAioUt(APGcQzdYhUhySrjIBMWBQDVBcY4NXUphJTGYPeHSIhSBZgFG
hUJwR93hMgJC1KtNPEAZUZJLImB26YftlBtMYBgFhCkFmmB5GEan2Mgjl19IhBpF
CuhZcFUmwUUlXS2AAmVzfn5hjFWno1soAkSuhCPGomMZoRZndLdNgEAgBaqrwthW
NalRu2FihEQgB6rrnfq2N4WvgkxeeMmoUhwaAVDhKAuB4yoBaQ7Obot5iDQXJCAY
4smktaQrhbx4CYK6JAUYoGVwRMVoBAh2Y0EgxJIYAuGcrH((3iE3cagFGkNKA2WY
RQH)XgE4sagGGct0Y0Ws4InOgdgJkaQHd1Pcvz0G4kFGgZApgawHGUvuwPev2HIn
h(LM6jD8BAq7PKLL4QIVh(rDK1SAaHmvm42GokvuiAuGvBafg7DSlJdOvEwoBZsS
IzBWXnnTaMQmIWo0hCoBDL2fm9egCC0RUwUuDBRDV69)UixAQoT7voEbGCkGgXuk
wlDKFBAmNcIMbAiADATDVmPCKyAmB7AgDc0syCF0lxRrLmyKw3BHJIz5NAEOBT4N
SbLtZjsvk0VIbAAcVcLMAn4Uz2nDcPQgYQE46oOqcgjdAwRF2uyh5RgStaNWrKgt
xx46Q6AU32wwM8iAPAVwEqW6Qj(A2Lixo54Kqo4aHCGHMIjNcuzQK4RnkJD6PAAO
BR5NVMXEsTzRUDQEoAAcICGUlWvDwt(KKpCgdsjBghCdXjUYA5BABT)ihO16ZYFR
BWs0iT(BazvhvqC20Z4kBAe2Zgiv1Y4YKqVqj2AIUkBdMAoHNroXMBckdtyQHYol
XOISYI973fGKhTnhcHQ4mEAQ4aX9AyjQwkCAC5IxuO7QBIOeBikDVQovojxglwJo
u4BbBAoHLIgd6C)QDwTmXqjlBMeSnCsImAYU2j3Adm1E7k1cCAsHgrsgLiBNIQ(Z
D4KmPBCQBKp(VWcQcuO0h0VIQAAgNrDIU3XjanOhUSQA(CNQh2ABCICP1KNxQhAB
yXQIynNRFcLPBhHC6wzp8w9pIYwRJAMgLEv3gDAA8v5DSp6AUBUBVrTqCYmq17EA
jjtRAA0vCAQAAAAAvAQAAMOA8DAAAAAAAgQAAIAAWYBAG4BWAAAAAAAAAAAAMAAA
MoFAAAgCAAAAAAAADAAAAAAAAAAAA4AAgAAAAAAACAgAAAAAPDAAAAgBAQwgNFEA
JJVROF0QB5kLTVUTAAAAAAAAAAAAAAAAAAAAAAAAA0QrGo82QwQAwCAK2YsKAMAG
ABEusAoBQPGEzkHvIywpMBSETCKgF74BAZ2NDnMzYwoJmXmNCiAAA0AwgO1JxOUT
AsRbSFDFBuJKLdOLAgHBSqJBMqVBBADYgEElUAMCIiiK2AopNpQB1hzmRCqxhAkA
AwIBaoH0KsUNgFDWhUGqM0yQcPjFhDqsjAkFA4LBKICCCeB4aBQYLtSjUvuIISMG
J4sFKwR7QjycK7cEKemIkNDZxCNpNYkSqDAGmDUIivMNh4YqMZ1SmJT2SjczJ7cT
rBjYh4z1nANJRhKl0NFptIG6OeYdAkVvAhEWuAIIS8BAQhAsA0CUQngG1CZDDsU7
aCwK3AJJZhLgKYFaZy71mf2cSMlrQECCaC0COANB(cPckyDB5QLBpyLwChhkazaP
GE(kAJFGr2rJpNN2AcvhBQCsoCRFEU5jglFcG((vaCGAZRIB0DEYQzoDMidPCDBM
JSJrGYQwmgcAYkQAe(Aq5BEB(PM4BxiQeUVAAHLOUFGFHEEkvxWkdZhQG9AXclWG
9FQQvhqHgUAC)EGOiqiB44woChLAO1QA1QIMTZzGYo60qhuZ8XADqEKO0gBF8AgC
kDEFSCEhG0K(M5eHZoiYAOgjkUQEqMdsZGqNrCVgqhpbEBgBTCYUFPwP4gRIBX0J
ohGUWQBSJxZBUg08hALZS66hbAQUBGqTZgRIhBtcFFV1EOEYRdMRaxBQGrw40hhh
XFZdt5XOF8hqVHK2CmhBHGQujvAZm5YdghbAotXAHGSvwCHYRtVABJxpj5GDmAOW
BHKQgZY4hjrcp7FXJaL4ARRBc4dAr0EPT311NMQpYNtb)JAgh04An9UrgdJMgQEa
Ct9gACvFmNaYreHmWcyauxQYAk1Q32YhGejGWRyG10lNl1OuQlRAjHsvNAJHu1Q2
Am1szR5BtYLoN5OGuxw9An16b3IiGqkOmqItu5AGKQbcdeq3qpi3O9QkGUA16AGt
uphhrzW9VhbNyEgg17GmGohVinpd9grN3Ewgs7PmKph1OkZDdMhZ8EAh7ai8DRUV
bNotQgBUbkGhVjrZF3a1pyLAAghVDVQBQzpHYM2JjVGUu0xWeFU92A(woZAHsnXQ
At2T0Rv9WC(88ZwHGkbQYEWoKaHd2D(0QaggGoRYO79GRcX9WBu3kaghWvdyehIu
uxgvAiWnj34mGomOPdJqEp)4Ag20)inMs7994ue54FAubfHuW2xc9P6DpdCRUAIg
xlGD8qRssCgCDAIavAgUAk8WD5fUsU8FjBwBDAANUygBHJCDts2g(eFk4QlSCCiG
KJZCwCTZTbwVENbtBMa9hBAL2IgWU2hNc7GcDAo0vQA2vEyhEmgBExdoTYI4GUuN
CAgD4vyCxbVqpvFMGMsYFIzmhiyBb6BiWkaQCSISNsecCAqDAd2CljjNproyiils
AEuFQC7Li(pLdVRQKWEdR1SHAA3p4LtGMoRxUwoSia12AEOiwCbOEkjBRJBYRYE8
bxIGAAXzQxJCAAdH(DAA)kMsJlGKSQFAMf5ktdCJAMgAGVvTvAP2BAAQAMAABAAA
A8CAAAw4AwPABAAAAAACAAgAAAAAAAAAAAAAAAAAAAAAAwAAKwgWAAAAAAAAAAAA
AMAAAAAAAAAAAAgDAACAAAAAAAAAAAQAAAAAIDAAAAAACAgAAAAAqBAAAAACAUAr
PNEAU5UVIBlLF50TTVUTAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAVBAAbDQmBgAc
EAxCqALADyoBgQGAAOAIRgIkkbOIGNRYysJDkC0cCMQc5khT469cGMcC2gMxASXZ
jFLEeAoCAwNCEQJCgxoWgkrLQNNw0YMxQKNdGFDBRiMZoiublkAZAkgB0DBbqCdA
olQKQQkIDE3i6AgBBQACNLACEUy6ChKjCIUSUAZRSwK0Ws(W32tLoLGyVgNKEADQ
SiqljJRZ6utLq3ZcNyAId4FcqH(dVse5QJgGFE6YQyVe3dlh1TFCiZA330Zgwq8d
DobW(Ntyp6FCVqZvZwAmksgXZXJoEk46aRtv2sfa5moLDBhV35YSv2m8gIBUYx9E
iLnBskkd9HllELX8DEnzAJJ(NbuWkP2knoO8eebAYCEI0iT2juJqyKZYjLjhEMaq
rGFz0y6PvEqkAKxSAczpgmkcMWrHu6CwyYu)LkjQLv9mG)KQfAUSYip6JIUouMd(
mZMxD5A8sTTyE45SAiAC0QPLGEKpQpBAAEIwKKnqKZGwYCJJQLGI8aILBhEA4lQg
aqCtCI7ZaDscuCugLSiSDCAUM2nJnQssBxZqjRxsMAEAgrTBwQgkyBZR1iSTGIoC
AhWzF0gMAhARAQCkBQEgQLgFHeQRIKJIwsoIjgo0oJ8M20wIpCj8WRZ0AmgawSRT
aCQIJIMbUMGAAIC8K43hj6jqPpMRtqUqHFq0yTr2ntCzDBEFAIrxBcEi0gXOiDr4
VIP5zEWMWVEXY5AAe8AgSi3gGqRCzyI1yofGDFQYVCvAeWMROxabViYvnAIDkBoF
IFBV10wMTbf1YpirRHbiWsyqWRO0YJ)rmQJgiJzrIqLuYdX8gLl5A4FTAnlHdaWF
aFSrV0oGFU5r2nMcNB2XxGKrT4hGygLuAlVsjPHmk(2mDzukW9zT1M3(qpNyciAQ
5iZBBA4FmCLGNGQygDBiddonYObkAqcvYAXAJYof24xGc8CunAFGB(5WpnXbozmx
bWEeCiJAUrXAlFP)oQYrkwmsAD23ZXzHINFdDibIFl8GABEGFfFgN9o7QQoYk82s
AFWUdurgNPNhYWYvkE3MAG2X2HwAaAABQwkBdBFQvjMRQrTDShE(o6HlfdAVOBtg
BI9lBcIW25OG8Y7iBjERxedG2LiyiDRriEwhH8DLSpRBEEE2YQKKRYQIhCDAswSA
zFw1KB0jTSatUAlyQFKKpUhRAZuOGgovgABxgJLEwaICSTPZs3SZMhIWCG0BMCGA
ohtBPmv)(tJ8OBhUN24SAFg7w2AEIj)gZ4zZ59MofH2yy79dpivvAGgoI8Js)eJo
PX1z6eKZSq6TkBsARAENLySBQaW(RVPQtXQLDE9WPCSACClByxogwQKFT1DaD(YZ
eg9cgPCAM(EAPzHs2GqOCKs6wWLcA5QBbwQhIha9)9YUfo)6gjp8EkFA1wX0FLOI
xiOVQRLFg7gDpNRR9XMCHCTaeMuKhLi8kNGAElWcREOT)gQWCjNAYASAqUOwp)Di
EAVYBDBLY8JD8AASqEwwIMK4fCBrpFhSM6IkKv0D0BgBGAIOCzBjSlFJyFUp7Ipk
AsBgAAvASDzHQMkCmBRZVlMIvpqVADNAwC5ACVVSgagklUGxACQaAyTF0zHEECfH
Rw7R5BAwAiXMAYwN8cJiD0BAEVEkHCkyBAsO41EAGwDgoRA0gAOzmBqOAL8G80zE
D8Bg6TMMEANUCrMMkCogKtgHi2ThV9EaEjLAAJwAmYHAw3ZwQhEhRKJUhx4NQWHD
Ob0wHAKwfCOGoTxC5VOOyygM(rIQxAwAAArHnbSi4BQngMwxfGFIiObvow7fIOdP
u5wT6DwDFAEeQriTAFE5s8)AlpkYagcUGOv0Zx09Ak(BAhBg7MA4IhaDBAwe0zuE
FJyXSRgAbWNECEgUpgtLwMlSMjgH3sKgEMQRAGHoEAigICAAAYDw2(I8tWtvr2Jc
atOXAAQCAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AQPi


-- 
Doug Reeder                                   USENET: ...!tektronix!reed!reeder
from ARPA: tektronix!reed!reeder@berkeley.EDU BITNET: reeder@reed.BITNET
7th: Each swallow works hard to be perfect pilot-provider-builder-trainer-
teacher-lover-mate,no half-true hate!   - Dr.Brommer's 18-in-1 Pure Castile Soap