home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 206.lha / C-Functions / MakeName.c < prev    next >
C/C++ Source or Header  |  1996-02-14  |  16KB  |  1,175 lines
  1.  
  2. /* Program for random Names */
  3. /* (C)Copyright 1988 by Lars Thuring */
  4.  
  5. /* May be freely distributed and used for any purpose as long as
  6.    the Copyright notice is left unchanged. */
  7.  
  8. /* 880620 V1.0  First; names ported from Metric 8's (CP/M).
  9.                 About 10 % of the names are from Travesty. */
  10. /* 880911 V1.1  bugs removed. */
  11.  
  12. /* To do: replace the RANDOM function */
  13.  
  14.  
  15. #include <exec/types.h>
  16. #include "MakeName.h"
  17.  
  18. #define GIRLS (sizeof(Girls)/sizeof(UBYTE *))
  19. #define BOYS  (sizeof(Boys)/sizeof(UBYTE *))
  20. #define LASTS (sizeof(Last)/sizeof(UBYTE *))
  21.  
  22. #define RANDOM (USHORT) (emaNdesUtoN += 121 )&511
  23. int emaNdesUtoN = 17;                          /* A not so random number */
  24.  
  25. extern UBYTE *stpcpy();
  26.  
  27. int MakeName(result, func, sex)     /* What this is */
  28. UBYTE *result;                      /* Where to put result */
  29. USHORT func,                        /* What is wanted by caller */
  30.        sex;                         /* */
  31.    {
  32. static UBYTE *Girls[] =
  33.    {
  34.    "Acie",
  35.    "Adele",
  36.    "Adeleide",
  37.    "Adelila",
  38.    "Adina",
  39.    "Afton",
  40.    "Aftonia",
  41.    "Agnes",
  42.    "Aina",
  43.    "Alexandra",
  44.    "Alice",
  45.    "Alireza",
  46.    "Amanda",
  47.    "Amii",
  48.    "Amy",
  49.    "Andromeda",
  50.    "Angela",
  51.    "Angelica",
  52.    "Anirul",
  53.    "Ann",
  54.    "Annabel",
  55.    "Anne",
  56.    "Anneka",
  57.    "Annie",
  58.    "Antonia",
  59.    "Arlen",
  60.    "Arlene",
  61.    "Asa",
  62.    "Astra",
  63.    "Athana",
  64.    "Babis",
  65.    "Barbara",
  66.    "Barbi",
  67.    "Beatrice",
  68.    "Beatricia",
  69.    "Belinda",
  70.    "Bertha",
  71.    "Beth",
  72.    "Betty",
  73.    "Billie",
  74.    "Bim",
  75.    "Bitte",
  76.    "Bodica",
  77.    "Bodil",
  78.    "Boel",
  79.    "Brenda",
  80.    "Briella",
  81.    "Brigitte",
  82.    "Bunnie",
  83.    "Caiza",
  84.    "Cajsa",
  85.    "Caria",
  86.    "Carisa",
  87.    "Carla",
  88.    "Carmen",
  89.    "Cathea",
  90.    "Carole",
  91.    "Caroline",
  92.    "Carolita",
  93.    "Cat",
  94.    "Catha",
  95.    "Cathea",
  96.    "Catherine",
  97.    "Cathy",
  98.    "Cecilia",
  99.    "Chao",
  100.    "Charlotte",
  101.    "Charyn",
  102.    "Cherie",
  103.    "Cherry",
  104.    "Cheryl",
  105.    "Chrebelia",
  106.    "Christine",
  107.    "Chryssie",
  108.    "Chrystle",
  109.    "Cina",
  110.    "Cinderella",
  111.    "Cindy",
  112.    "Connie",
  113.    "Constanzia",
  114.    "Cvilin",
  115.    "Daisie",
  116.    "Dana",
  117.    "Danuta",
  118.    "Dar",
  119.    "Dawn",
  120.    "Deborah",
  121.    "Debra",
  122.    "Dee",
  123.    "Delicath",
  124.    "Delila",
  125.    "Denise",
  126.    "Desire",
  127.    "Diana",
  128.    "Dionne",
  129.    "Dionneka",
  130.    "Disa",
  131.    "Dobora",
  132.    "Dollie",
  133.    "Donna",
  134.    "Dora",
  135.    "Dorace",
  136.    "Doreen",
  137.    "Doreena",
  138.    "Doris",
  139.    "Dorothea",
  140.    "Dorothy",
  141.    "Eilen",
  142.    "Elica",
  143.    "Elin",
  144.    "Elisabeth",
  145.    "Elisha",
  146.    "Elissa",
  147.    "Eliza",
  148.    "Ellen",
  149.    "Ellie",
  150.    "Elsie",
  151.    "Emanuelle",
  152.    "Emanuta",
  153.    "Emy",
  154.    "Erika",
  155.    "Erina",
  156.    "Eve",
  157.    "Ewe",
  158.    "Fay",
  159.    "Felicy",
  160.    "Florah",
  161.    "Floreen",
  162.    "Florens",
  163.    "Franciska",
  164.    "Friday",
  165.    "Gabriella",
  166.    "Gelina",
  167.    "Georgia",
  168.    "Gigi",
  169.    "Gilda",
  170.    "Gina",
  171.    "Gisella",
  172.    "Git",
  173.    "Grace",
  174.    "Grete",
  175.    "Gwen",
  176.    "Hanna",
  177.    "Hariet",
  178.    "Hazel",
  179.    "Heidi",
  180.    "Hekla",
  181.    "Helena",
  182.    "Helene",
  183.    "Hereza",
  184.    "Hrefna",
  185.    "Ilia",
  186.    "Iliona",
  187.    "Inga",
  188.    "Ingela",
  189.    "Ingrid",
  190.    "Irene",
  191.    "Irina",
  192.    "Iris",
  193.    "Isadora",
  194.    "Jana",
  195.    "Jane",
  196.    "Janet",
  197.    "Janicke",
  198.    "Janina",
  199.    "Janni",
  200.    "Jennifer",
  201.    "Jenny",
  202.    "Jessica",
  203.    "Jill",
  204.    "Joan",
  205.    "Jolene",
  206.    "Juana",
  207.    "Juanita",
  208.    "Judy",
  209.    "Julie",
  210.    "June",
  211.    "Karen",
  212.    "Karensia",
  213.    "Katalica",
  214.    "Katarina",
  215.    "Kathleen",
  216.    "Katinka",
  217.    "Katja",
  218.    "Kelly",
  219.    "Kia",
  220.    "Kim",
  221.    "Lana",
  222.    "Laila",
  223.    "Laura",
  224.    "Leia",
  225.    "Lena",
  226.    "Lesa",
  227.    "Letia",
  228.    "Li",
  229.    "Lilly",
  230.    "Linda",
  231.    "Lindane",
  232.    "Lindy",
  233.    "Ling",
  234.    "Lisa",
  235.    "Lisbeth",
  236.    "Lisha",
  237.    "Liv",
  238.    "Liza",
  239.    "Lo",
  240.    "Lola",
  241.    "Lone",
  242.    "Loraine",
  243.    "Lori",
  244.    "Lotta",
  245.    "Lousie",
  246.    "Lucia",
  247.    "Lucy",
  248.    "Ludmilla",
  249.    "Magdalena",
  250.    "Maggie",
  251.    "Mahelia",
  252.    "Maia",
  253.    "Malin",
  254.    "Malou",
  255.    "Malousie",
  256.    "Marcia",
  257.    "Margot",
  258.    "Margret",
  259.    "Mari",
  260.    "Maria",
  261.    "Mariana",
  262.    "Marianne",
  263.    "Marie",
  264.    "Marilyn",
  265.    "Marina",
  266.    "Marita",
  267.    "Marith",
  268.    "Marlene",
  269.    "Marlotta",
  270.    "Martha",
  271.    "Mary",
  272.    "May",
  273.    "Meg",
  274.    "Melissa",
  275.    "Meliza",
  276.    "Melody",
  277.    "Mia",
  278.    "Mika",
  279.    "Mikaela",
  280.    "Mindy",
  281.    "Minnie",
  282.    "Miriam",
  283.    "Modesty",
  284.    "Monica",
  285.    "Monique",
  286.    "Nadia",
  287.    "Nadine",
  288.    "Nancy",
  289.    "Nanette",
  290.    "Nanna",
  291.    "Natalia",
  292.    "Nathalie",
  293.    "Narelle",
  294.    "Nellie",
  295.    "Nena",
  296.    "Neutricia",
  297.    "Nicole",
  298.    "Nina",
  299.    "Nora",
  300.    "Olga",
  301.    "Olivia",
  302.    "Pam",
  303.    "Pamela",
  304.    "Patricia",
  305.    "Patty",
  306.    "Paula",
  307.    "Paule",
  308.    "Peggy",
  309.    "Pia",
  310.    "Petra",
  311.    "Pris",
  312.    "Priscilla",
  313.    "Qrissie",
  314.    "Racey",
  315.    "Randy",
  316.    "Rebecca",
  317.    "Rhoda",
  318.    "Ria",
  319.    "Rita",
  320.    "Roberta",
  321.    "Rodica",
  322.    "Rose",
  323.    "Rosita",
  324.    "Roxanda",
  325.    "Roxandy",
  326.    "Roxanne",
  327.    "Ruth",
  328.    "Ruzica",
  329.    "Saga",
  330.    "Sally",
  331.    "Samantha",
  332.    "Sandra",
  333.    "Sarah",
  334.    "Scase",
  335.    "Schwester",
  336.    "Sharon",
  337.    "Sharyn",
  338.    "Sheena",
  339.    "Sheila",
  340.    "Shirlen",
  341.    "Shirley",
  342.    "Sireza",
  343.    "Siri",
  344.    "Sita",
  345.    "Slavisa",
  346.    "Sonia",
  347.    "Sophie",
  348.    "Stasia",
  349.    "Stella",
  350.    "Stellie",
  351.    "Stephania",
  352.    "Stephanie",
  353.    "Stevie",
  354.    "Sue",
  355.    "Susan",
  356.    "Susie",
  357.    "Svetlana",
  358.    "Sylvie",
  359.    "Taarna",
  360.    "Tammy",
  361.    "Tania",
  362.    "Terry",
  363.    "Theofania",
  364.    "Therese",
  365.    "Thereza",
  366.    "Therine",
  367.    "Thlena",
  368.    "Tina",
  369.    "Titti",
  370.    "Toni",
  371.    "Tracey",
  372.    "Tricia",
  373.    "Ursula",
  374.    "Valerie",
  375.    "Valexanda",
  376.    "Vega",
  377.    "Vera",
  378.    "Vicky",
  379.    "Victoria",
  380.    "Vladeta",
  381.    "Voux",
  382.    "Wanda",
  383.    "Wendy",
  384.    "Xandra",
  385.    "Xanna",
  386.    "Xarah",
  387.    "Yeane",
  388.    "Yeanet",
  389.    "Yrsa",
  390.    "Yvette",
  391.    "Zandra",
  392.    "Zarah",
  393.    "Zora",
  394.    };
  395.  
  396. static UBYTE *Boys[] =
  397.    {
  398.    "Abraham",
  399.    "Ace",
  400.    "Adam",
  401.    "Adins",
  402.    "Adolf",
  403.    "Albert",
  404.    "Alexander",
  405.    "Alfred",
  406.    "Allan",
  407.    "Alph",
  408.    "Amadeus",
  409.    "Anatolij",
  410.    "Andrea",
  411.    "Andrew",
  412.    "Andrzej",
  413.    "Andy",
  414.    "Anton",
  415.    "Arichris",
  416.    "Arny",
  417.    "Artheils",
  418.    "Arthur",
  419.    "August",
  420.    "Balder",
  421.    "Barry",
  422.    "Bartholomy",
  423.    "Belouis",
  424.    "Ben",
  425.    "Benny",
  426.    "Bereket",
  427.    "Bert",
  428.    "Bertrand",
  429.    "Billy",
  430.    "Bo",
  431.    "Bob",
  432.    "Bobba",
  433.    "Bobby",
  434.    "Borgen",
  435.    "Boris",
  436.    "Brian",
  437.    "Bruce",
  438.    "Byggart",
  439.    "Caiser",
  440.    "Carl",
  441.    "Casper",
  442.    "Castor",
  443.    "Ceasar",
  444.    "Cecil",
  445.    "Chagart",
  446.    "Chan",
  447.    "Chanustvan",
  448.    "Charlie",
  449.    "Chen",
  450.    "Ching",
  451.    "Chris",
  452.    "Christopher",
  453.    "Chuck",
  454.    "Clark",
  455.    "Cole",
  456.    "Colin",
  457.    "Conrad",
  458.    "Cryt",
  459.    "Cztan",
  460.    "Dan",
  461.    "Danny",
  462.    "Dante",
  463.    "Dave",
  464.    "David",
  465.    "Davy",
  466.    "Derek",
  467.    "Del",
  468.    "Desmond",
  469.    "Deuincard",
  470.    "Dino",
  471.    "Djehuty",
  472.    "Don",
  473.    "Donny",
  474.    "Douglas",
  475.    "Duch",
  476.    "Duncan",
  477.    "Ector",
  478.    "Ed",
  479.    "Eddie",
  480.    "Edgar",
  481.    "Edinus",
  482.    "Edrick",
  483.    "Edward",
  484.    "Egon",
  485.    "Egor",
  486.    "Enrico",
  487.    "Eremir",
  488.    "Erik",
  489.    "Erloff",
  490.    "Erland",
  491.    "Ernst",
  492.    "Errol",
  493.    "Erwin",
  494.    "Eugene",
  495.    "Euie",
  496.    "Feodor",
  497.    "Fermo",
  498.    "Finn",
  499.    "Fjodor",
  500.    "Force",
  501.    "Ford",
  502.    "Frank",
  503.    "Frankie",
  504.    "Frans",
  505.    "Fred",
  506.    "Fredrik",
  507.    "Frekenlof",
  508.    "Fritz",
  509.    "Gantigor",
  510.    "Gary",
  511.    "George",
  512.    "Gert",
  513.    "Gregor",
  514.    "Gregory",
  515.    "Greville",
  516.    "Guerew",
  517.    "Guerney",
  518.    "Gustaf",
  519.    "Gustanislav",
  520.    "Hagar",
  521.    "Hakki",
  522.    "Han",
  523.    "Hank",
  524.    "Hans",
  525.    "Harold",
  526.    "Harry",
  527.    "Heinrich",
  528.    "Heinz",
  529.    "Henry",
  530.    "Herman",
  531.    "Horace",
  532.    "Horst",
  533.    "Hubengt",
  534.    "Hubert",
  535.    "Huck",
  536.    "Ian",
  537.    "Ianislav",
  538.    "Ibraim",
  539.    "Icchok",
  540.    "Igor",
  541.    "Istvan",
  542.    "Ivan",
  543.    "Ivo",
  544.    "Jack",
  545.    "Jacob",
  546.    "Jacobby",
  547.    "Jalob",
  548.    "James",
  549.    "Jan",
  550.    "Janus",
  551.    "Jason",
  552.    "Jean",
  553.    "Jens",
  554.    "Jeremia",
  555.    "Jerry",
  556.    "Jim",
  557.    "Joakim",
  558.    "Jock",
  559.    "Joe",
  560.    "Johann",
  561.    "John",
  562.    "Jon",
  563.    "Jonalder",
  564.    "Jonas",
  565.    "Jonny",
  566.    "Jonriste",
  567.    "Josef",
  568.    "Josefan",
  569.    "Joshua",
  570.    "Joss",
  571.    "Juan",
  572.    "Julfgart",
  573.    "Julius",
  574.    "Jupiter",
  575.    "Jurgen",
  576.    "Juri",
  577.    "Kard",
  578.    "Karsten",
  579.    "Keith",
  580.    "Keik",
  581.    "Kendrick",
  582.    "Kent",
  583.    "Kirk",
  584.    "Klaus",
  585.    "Kurge",
  586.    "Kurgenn",
  587.    "Kurt",
  588.    "Kyle",
  589.    "Kwan",
  590.    "Lando",
  591.    "Lance",
  592.    "Larry",
  593.    "Larth",
  594.    "Lekakon",
  595.    "Lennart",
  596.    "Leon",
  597.    "Leonard",
  598.    "Leonid",
  599.    "Leopold",
  600.    "Lev",
  601.    "Liet",
  602.    "Linus",
  603.    "Lionell",
  604.    "Lober",
  605.    "Lonnie",
  606.    "Lou",
  607.    "Louie",
  608.    "Ludomir",
  609.    "Ludwig",
  610.    "Lucah",
  611.    "Luke",
  612.    "Lywas",
  613.    "Magnus",
  614.    "Manfred",
  615.    "Manuel",
  616.    "Marcus",
  617.    "Marek",
  618.    "Mark",
  619.    "Marstvanie",
  620.    "Martin",
  621.    "Marty",
  622.    "Marvin",
  623.    "Marvince",
  624.    "Matz",
  625.    "Mattheo",
  626.    "Matthew",
  627.    "Max",
  628.    "Menachin",
  629.    "Michael",
  630.    "Micah",
  631.    "Mihail",
  632.    "Mikael",
  633.    "Milan",
  634.    "Mitchell",
  635.    "Mordred",
  636.    "Napoleon",
  637.    "Nathan",
  638.    "Neil",
  639.    "Nreda",
  640.    "Nike",
  641.    "Niklaus",
  642.    "Nils",
  643.    "Nolan",
  644.    "Norman",
  645.    "Nyls",
  646.    "Oliver",
  647.    "Oloda",
  648.    "Ontitrew",
  649.    "Oscar",
  650.    "Otto",
  651.    "Ozwald",
  652.    "Pat",
  653.    "Patrichail",
  654.    "Patrick",
  655.    "Patrico",
  656.    "Paul",
  657.    "Per",
  658.    "Percy",
  659.    "Perez",
  660.    "Pete",
  661.    "Peter",
  662.    "Petri",
  663.    "Petrov",
  664.    "Philip",
  665.    "Piotr",
  666.    "Platon",
  667.    "Prozka",
  668.    "Rachantor",
  669.    "Raija",
  670.    "Raim",
  671.    "Ralph",
  672.    "Randolph",
  673.    "Rankon",
  674.    "Ray",
  675.    "Reynold",
  676.    "Rickard",
  677.    "Rex",
  678.    "Robert",
  679.    "Rod",
  680.    "Rodrick",
  681.    "Rodriguez",
  682.    "Roger",
  683.    "Roman",
  684.    "Romeo",
  685.    "Ronald",
  686.    "Ronnie",
  687.    "Ruben",
  688.    "Rudolph",
  689.    "Rupert",
  690.    "Sam",
  691.    "Samarcy",
  692.    "Sean",
  693.    "Seandred",
  694.    "Sebahat",
  695.    "Sedilow",
  696.    "Sentibon",
  697.    "Simon",
  698.    "Sokrates",
  699.    "Song",
  700.    "Staf",
  701.    "Stanislav",
  702.    "Stanley",
  703.    "Stefano",
  704.    "Stern",
  705.    "Steve",
  706.    "Stephen",
  707.    "Steyern",
  708.    "Sven",
  709.    "Swan",
  710.    "Swaron",
  711.    "Tadeus",
  712.    "Theo",
  713.    "Thomas",
  714.    "Tigran",
  715.    "Tim",
  716.    "Timmothy",
  717.    "Toldeus",
  718.    "Tolino",
  719.    "Tom",
  720.    "Tommy",
  721.    "Tsan",
  722.    "Tyko",
  723.    "Ukriel",
  724.    "Ulph",
  725.    "Uno",
  726.    "Ustalij",
  727.    "Valentino",
  728.    "Viktor",
  729.    "Vince",
  730.    "Vladimir",
  731.    "Vlado",
  732.    "Vodrick",
  733.    "Walph",
  734.    "Walter",
  735.    "Wenlon",
  736.    "Werner",
  737.    "Wernst",
  738.    "William",
  739.    "Winston",
  740.    "Wolfgang",
  741.    "Wytt",
  742.    "Xavier",
  743.    "Xerxes",
  744.    "Xin",
  745.    "Xodrick",
  746.    "Yaspar",
  747.    "Yerr",
  748.    "Yonndan",
  749.    "Yosin",
  750.    "Yrtvar",
  751.    "Zaqarias",
  752.    "Zjell",
  753.    "Zjerez",
  754.    "Zkelly",
  755.    "Zor",
  756.    "Ztanton",
  757.    "Zwen",
  758.    };
  759.  
  760. static UBYTE *Last[] =
  761.    {
  762.    "Acerin",
  763.    "Ahim",
  764.    "Ahino",
  765.    "Ajbeam",
  766.    "Aldersson",
  767.    "Allan",
  768.    "Altenfelt",
  769.    "Amour",
  770.    "Ancherinsky",
  771.    "Andersson",
  772.    "Azid",
  773.    "Aztec",
  774.    "Austinn",
  775.    "Bak",
  776.    "Banner",
  777.    "Bazar",
  778.    "Beachsleeper",
  779.    "Beluni",
  780.    "Belt",
  781.    "Benson",
  782.    "Brenner",
  783.    "Birdsong",
  784.    "Black",
  785.    "Boot",
  786.    "Boq",
  787.    "Bowman",
  788.    "Brewas",
  789.    "Bronering",
  790.    "Brown",
  791.    "Buckman",
  792.    "Burst",
  793.    "Butterworth",
  794.    "Cabrini",
  795.    "Calrisen",
  796.    "Carlton",
  797.    "Carpenter",
  798.    "Ceilo",
  799.    "Cerewman",
  800.    "Cerial",
  801.    "Ceringer",
  802.    "Cersjavv",
  803.    "Chessman",
  804.    "Chest",
  805.    "Cicero",
  806.    "Cinger",
  807.    "Citz",
  808.    "Comet",
  809.    "Coneyervie",
  810.    "Connor",
  811.    "Coral",
  812.    "Crabb",
  813.    "Craydon",
  814.    "Creditmaker",
  815.    "Creek",
  816.    "Crewman",
  817.    "Crodden",
  818.    "Dantman",
  819.    "Dean",
  820.    "Degalaxian",
  821.    "Denocharsky",
  822.    "Denulallan",
  823.    "Dew",
  824.    "Dezzabo",
  825.    "Dhrystone",
  826.    "Dimitrov",
  827.    "Donovan",
  828.    "Doublestar",
  829.    "Drake",
  830.    "Dweller",
  831.    "Eagle",
  832.    "Earjun",
  833.    "Earthson",
  834.    "Earton",
  835.    "Effing",
  836.    "Erakel",
  837.    "Essin",
  838.    "Eufreim",
  839.    "Evody",
  840.    "Ezhariann",
  841.    "Farahd",
  842.    "Ferraro",
  843.    "Fighter",
  844.    "Finkel",
  845.    "Fisher",
  846.    "Florian",
  847.    "Flower",
  848.    "Flynn",
  849.    "Ford",
  850.    "Fox",
  851.    "Franklin",
  852.    "Frewie",
  853.    "Gack",
  854.    "Gail",
  855.    "Gheenili",
  856.    "Ghoerrgh",
  857.    "Gionetti",
  858.    "Glava",
  859.    "Gold",
  860.    "Goldberg",
  861.    "Goodaim",
  862.    "Goodder",
  863.    "Goodman",
  864.    "Goodweather",
  865.    "Gordon",
  866.    "Gosneti",
  867.    "Gosnil",
  868.    "Gravatte",
  869.    "Green",
  870.    "Hadji",
  871.    "Hagar",
  872.    "Halfmoon",
  873.    "Hallanchu",
  874.    "Hallway",
  875.    "Hamilton",
  876.    "Harding",
  877.    "Hargarjumoongdoray",
  878.    "Harmony",
  879.    "Harryson",
  880.    "Hauptcvard",
  881.    "Heywiss",
  882.    "Hiker",
  883.    "Hill",
  884.    "Hogan",
  885.    "Honeybin",
  886.    "Honeydew",
  887.    "Hoper",
  888.    "Hornetsnest",
  889.    "Ianiskov",
  890.    "Idento",
  891.    "Ingonti",
  892.    "Ionsson",
  893.    "Ixat",
  894.    "Jade",
  895.    "Jeser",
  896.    "Jewel",
  897.    "Jofo",
  898.    "Johnsson",
  899.    "Johnsdaughter",
  900.    "Jones",
  901.    "Jonydew",
  902.    "Jong",
  903.    "Joygiver",
  904.    "Joysony",
  905.    "Jumour",
  906.    "Junone",
  907.    "Kahn",
  908.    "Kahl",
  909.    "Kaido",
  910.    "Kainor",
  911.    "Kasasov",
  912.    "Kernigan",
  913.    "Khild",
  914.    "Khilinovich",
  915.    "Khy",
  916.    "King",
  917.    "Kirley",
  918.    "Kneecup",
  919.    "Krakov",
  920.    "Kvov",
  921.    "Kwang",
  922.    "Landerring",
  923.    "Langer",
  924.    "Laser",
  925.    "Laxiander",
  926.    "Leffler",
  927.    "Lexander",
  928.    "Lichentheim",
  929.    "Lifeadder",
  930.    "Lifeat",
  931.    "Lipoli",
  932.    "Lockander",
  933.    "Lojiues",
  934.    "Lorakel",
  935.    "Loudrope",
  936.    "Lovefull",
  937.    "Loveletter",
  938.    "Luckring",
  939.    "Lutihs",
  940.    "Ly",
  941.    "Manger",
  942.    "Mannight",
  943.    "Manning",
  944.    "Margarin",
  945.    "Massart",
  946.    "Maxwell",
  947.    "Mcgarret",
  948.    "Mckelly",
  949.    "Meiper",
  950.    "Menom",
  951.    "Meyer",
  952.    "Michailov",
  953.    "Micharman",
  954.    "Mindfull",
  955.    "Ming",
  956.    "Mips",
  957.    "Mnoir",
  958.    "Mnolwan",
  959.    "Mono",
  960.    "Moonrue",
  961.    "Moonsinger",
  962.    "Moonstone",
  963.    "Mordinger",
  964.    "Morningdew",
  965.    "Muchsword",
  966.    "Muhammed",
  967.    "Muharmann",
  968.    "Napuce",
  969.    "Nebulae",
  970.    "Nestor",
  971.    "Ngomo",
  972.    "Nix",
  973.    "Nokillis",
  974.    "Nokin",
  975.    "Nokinderch",
  976.    "Nolan",
  977.    "Northbranch",
  978.    "Oedor",
  979.    "Occam",
  980.    "Ongstrom",
  981.    "Oven",
  982.    "Oysterman",
  983.    "Ox",
  984.    "Palsystem",
  985.    "Parth",
  986.    "Parton",
  987.    "Pascal",
  988.    "Pascanlon",
  989.    "Peck",
  990.    "Perrin",
  991.    "Persson",
  992.    "Pfaifer",
  993.    "Pilotman",
  994.    "Piper",
  995.    "Pointer",
  996.    "Potter",
  997.    "Principal",
  998.    "Probxs",
  999.    "Pulsar",
  1000.    "Qeres",
  1001.    "Quatro",
  1002.    "Quasar",
  1003.    "Qwait",
  1004.    "Radannel",
  1005.    "Rawanna",
  1006.    "Redanel",
  1007.    "Reinstrom",
  1008.    "Rejgun",
  1009.    "Renqiong",
  1010.    "Ringer",
  1011.    "Rinneyell",
  1012.    "Ritchie",
  1013.    "Rijas",
  1014.    "Robins",
  1015.    "Rocktree",
  1016.    "Round",
  1017.    "Rymer",
  1018.    "Sagil",
  1019.    "Saunder",
  1020.    "Sayed",
  1021.    "Scanlon",
  1022.    "Screy",
  1023.    "Scythe",
  1024.    "Scotch",
  1025.    "Scott",
  1026.    "Seablue",
  1027.    "Searsia",
  1028.    "Searunner",
  1029.    "Seddije",
  1030.    "Sefex",
  1031.    "Seliah",
  1032.    "Senkaido",
  1033.    "Serenson",
  1034.    "Servin",
  1035.    "Shenulaxiah",
  1036.    "Shepherd",
  1037.    "Shinomoto",
  1038.    "Shipman",
  1039.    "Shuttle",
  1040.    "Sing",
  1041.    "Skynote",
  1042.    "Smith",
  1043.    "Southstar",
  1044.    "Spearthrower",
  1045.    "Starbeam",
  1046.    "Starjumper",
  1047.    "Starlight",
  1048.    "Starman",
  1049.    "Staryell",
  1050.    "Statler",
  1051.    "Staunton",
  1052.    "Stein",
  1053.    "Stern",
  1054.    "Stephenson",
  1055.    "Stewart",
  1056.    "Strawberry",
  1057.    "Sulimani",
  1058.    "Sunday",
  1059.    "Sunmedoedaught",
  1060.    "Sunmeyer",
  1061.    "Sunrise",
  1062.    "Sunshine",
  1063.    "Swetidov",
  1064.    "Swinger",
  1065.    "Szinsky",
  1066.    "Taipi",
  1067.    "Tait",
  1068.    "Tanner",
  1069.    "Tal",
  1070.    "Techu",
  1071.    "Thebah",
  1072.    "Temple",
  1073.    "Tiblis",
  1074.    "Tirpitz",
  1075.    "Tjebyshev",
  1076.    "Toolmaker",
  1077.    "Tough",
  1078.    "Traveller",
  1079.    "Turner",
  1080.    "Tyler",
  1081.    "Uanarish",
  1082.    "Ubbanen",
  1083.    "Upholder",
  1084.    "Upperhand",
  1085.    "Vainray",
  1086.    "Vajsii",
  1087.    "Vloda",
  1088.    "Vier",
  1089.    "Volt",
  1090.    "Walker",
  1091.    "Wall",
  1092.    "Walsh",
  1093.    "Wanderer",
  1094.    "Warmaker",
  1095.    "Waverider",
  1096.    "Westling",
  1097.    "Whetstone",
  1098.    "Wilde",
  1099.    "Wintergate",
  1100.    "Wiper",
  1101.    "Wirth",
  1102.    "Witter",
  1103.    "Wonderchild",
  1104.    "Wood",
  1105.    "Woolwinder",
  1106.    "Wrongdoer",
  1107.    "Wusser",
  1108.    "Wynn",
  1109.    "Xann",
  1110.    "Xathroda",
  1111.    "Xavier",
  1112.    "Xyperia",
  1113.    "Yoke",
  1114.    "Yuwing",
  1115.    "Zahnen",
  1116.    "Zaks",
  1117.    "Zandor",
  1118.    "Zargon",
  1119.    "Zemin",
  1120.    "Zollman",
  1121.    "Zax",
  1122.    };
  1123.  
  1124. int Error=NULL;                      /* Return code */
  1125. USHORT a = RANDOM;
  1126.  
  1127.    if (func & TITLENAME)             /* The only way to determine sex */
  1128.       {                              /* with some names ...           */
  1129.       if (sex & BOYNAME)
  1130.          result = stpcpy(result, "Mr ");
  1131.       else
  1132.          {
  1133.          if (func & MARRIEDNAME)
  1134.             result = stpcpy(result, "Mrs ");
  1135.          else
  1136.             result = stpcpy(result, "Ms ");
  1137.          }
  1138.       }
  1139.  
  1140.    if (func & FIRSTNAME)
  1141.       {
  1142.       if (sex & GIRLNAME)
  1143.          {
  1144.          while (a > GIRLS)
  1145.             a = RANDOM;
  1146.          result = stpcpy(result,Girls[a]);
  1147.          a = RANDOM;
  1148.          }
  1149.  
  1150.       else if (sex & BOYNAME)
  1151.          {
  1152.          while (a > BOYS)
  1153.             a = RANDOM;
  1154.          result = stpcpy(result,Boys[a]);
  1155.          a = RANDOM;
  1156.          }
  1157.       }
  1158.  
  1159.    if (func & LASTNAME)
  1160.       {
  1161.       if (func & FIRSTNAME)
  1162.          *result++ = ' ';
  1163.       while (a > LASTS)
  1164.          a = RANDOM;
  1165.       result = stpcpy(result,Last[a]);
  1166.       a = RANDOM;
  1167.       }
  1168.  
  1169.    *result = '\0';
  1170.  
  1171.    return(Error);
  1172.  
  1173.    } /* End of MakeName() */
  1174.  
  1175.