home *** CD-ROM | disk | FTP | other *** search
/ Stars of Shareware: Programmierung / SOURCE.mdf / programm / msdos / basic / rpgtls / charname.bas next >
Encoding:
BASIC Source File  |  1980-01-03  |  27.0 KB  |  664 lines

  1. RANDOMIZE TIMER
  2. ON KEY(1) GOSUB ENDing
  3. KEY(1) ON
  4. CLS
  5. PALETTE 2, 38
  6. PRINT
  7. PRINT
  8. COLOR 0, 2
  9. PRINT "                                   "; : COLOR 0, 0: PRINT ""
  10. COLOR 0, 2
  11. PRINT "                                   "; : COLOR 4, 0: PRINT "        Programmed in Quickbasic"
  12. COLOR 0, 2
  13. PRINT "                                   "; : COLOR 0, 0: PRINT ""
  14. COLOR 0, 2
  15. PRINT "                                   "; : COLOR 0, 0: PRINT ""
  16. COLOR 0, 2
  17. PRINT "                                   "; : COLOR 0, 0: PRINT ""
  18. COLOR 0, 2
  19. PRINT "                                   "; : COLOR 0, 0: PRINT ""
  20. COLOR 0, 2
  21. PRINT "           Trent Troop's           "; : COLOR 1, 0: PRINT "      For Naming Characters in any"
  22. COLOR 0, 2
  23. PRINT "                                   "; : COLOR 1, 0: PRINT "                  Genre. "
  24. COLOR 0, 2
  25. PRINT "            Random Name            "; : COLOR 0, 0: PRINT ""
  26. COLOR 0, 2
  27. PRINT "             Generator             "; : COLOR 0, 0: PRINT ""
  28. COLOR 0, 2
  29. PRINT "                                   "; : COLOR 0, 0: PRINT ""
  30. COLOR 0, 2
  31. PRINT "                                   "; : COLOR 0, 0: PRINT ""
  32. COLOR 0, 2
  33. PRINT "                                   "; : COLOR 0, 0: PRINT ""
  34. COLOR 0, 2
  35. PRINT "                                   "; : COLOR 3, 0: PRINT "    Please Read BEG.TXT for More Info"
  36. COLOR 0, 2
  37. PRINT "                                   "; : COLOR 0, 0: PRINT ""
  38. COLOR 0, 2:                                                
  39. PRINT "                                   "; : COLOR 0, 0: PRINT ""
  40. PALETTE 4, INT(RND * 63) + 1: PALETTE 3, INT(RND * 63) + 1: PALETTE 1, INT(RND * 63) + 1
  41. PALETTE 4, INT(RND * 63) + 1: PALETTE 3, INT(RND * 63) + 1: PALETTE 1, INT(RND * 63) + 1
  42. PALETTE 4, INT(RND * 63) + 1: PALETTE 3, INT(RND * 63) + 1: PALETTE 1, INT(RND * 63) + 1
  43. PALETTE 4, INT(RND * 63) + 1: PALETTE 3, INT(RND * 63) + 1: PALETTE 1, INT(RND * 63) + 1
  44. PALETTE 4, INT(RND * 63) + 1: PALETTE 3, INT(RND * 63) + 1: PALETTE 1, INT(RND * 63) + 1
  45. PALETTE 4, INT(RND * 63) + 1: PALETTE 3, INT(RND * 63) + 1: PALETTE 1, INT(RND * 63) + 1
  46. PALETTE 4, INT(RND * 63) + 1: PALETTE 3, INT(RND * 63) + 1: PALETTE 1, INT(RND * 63) + 1
  47. PALETTE 4, INT(RND * 63) + 1: PALETTE 3, INT(RND * 63) + 1: PALETTE 1, INT(RND * 63) + 1
  48. PALETTE 4, INT(RND * 63) + 1: PALETTE 3, INT(RND * 63) + 1: PALETTE 1, INT(RND * 63) + 1
  49. PALETTE 4, INT(RND * 63) + 1: PALETTE 3, INT(RND * 63) + 1: PALETTE 1, INT(RND * 63) + 1
  50. PALETTE 4, INT(RND * 63) + 1: PALETTE 3, INT(RND * 63) + 1: PALETTE 1, INT(RND * 63) + 1
  51. PALETTE 4, INT(RND * 63) + 1: PALETTE 3, INT(RND * 63) + 1: PALETTE 1, INT(RND * 63) + 1
  52. COLOR 6, 0
  53. PRINT
  54. PRINT "Press F1 and press enter to quit."
  55. PRINT
  56. INPUT "Continue"; yesno$
  57.  
  58.    
  59.  
  60. 20    CLS
  61.  COLOR 4: INPUT "Is the character Male or Female (M/F)"; mf$
  62.     IF mf$ = "M" THEN GOTO 30
  63.     IF mf$ = "m" THEN LET mf$ = "M": GOTO 30
  64.     IF mf$ = "F" THEN GOTO 30
  65.     IF mf$ = "f" THEN LET mf$ = "F": GOTO 30
  66.     PRINT
  67.     GOTO 20
  68. 30 COLOR 3: INPUT "Use a middle name (Y/N)"; midname$
  69.     IF midname$ = "Y" THEN GOTO 40
  70.     IF midname$ = "y" THEN LET midname$ = "Y": GOTO 40
  71.     IF midname$ = "n" THEN LET midname$ = "N": GOTO 40
  72.     IF midname$ = "N" THEN GOTO 40
  73.     PRINT
  74.     GOTO 30
  75. 40 LET royal$ = "": COLOR 1
  76.     INPUT "Royal Title (Enter = None)"; royal$: CLS
  77. 45 COLOR 4: LET guyname = 0: LET turns = 0
  78.     PRINT royal$; " ";
  79.     LET totalrun = 3
  80.     IF mf$ = "F" THEN GOTO 60
  81.     IF mf$ = "M" THEN GOTO 50
  82. 50 IF midname$ = "Y" THEN LET turns = 2 ELSE LET turns = 1
  83. 55 LET guyname = INT(RND * 121) + 1
  84.     IF guyname = 1 THEN PRINT "Robert ";
  85.     IF guyname = 2 THEN PRINT "Michael ";
  86.     IF guyname = 3 THEN PRINT "Steven ";
  87.     IF guyname = 4 THEN PRINT "Samuel ";
  88.     IF guyname = 5 THEN PRINT "Trent ";
  89.     IF guyname = 6 THEN PRINT "Ron ";
  90.     IF guyname = 7 THEN PRINT "Bob ";
  91.     IF guyname = 8 THEN PRINT "Kenshiro ";
  92.     IF guyname = 9 THEN PRINT "Kenith ";
  93.     IF guyname = 10 THEN PRINT "Robert ";
  94.     IF guyname = 11 THEN PRINT "Don ";
  95.     IF guyname = 12 THEN PRINT "Talon ";
  96.     IF guyname = 13 THEN PRINT "Murry ";
  97.     IF guyname = 14 THEN PRINT "Tas ";
  98.     IF guyname = 15 THEN PRINT "Taz ";
  99.     IF guyname = 16 THEN PRINT "Kazin ";
  100.     IF guyname = 17 THEN PRINT "Ryu ";
  101.     IF guyname = 18 THEN PRINT "Elminster ";
  102.     IF guyname = 19 THEN PRINT "Benny ";
  103.     IF guyname = 20 THEN PRINT "Matt ";
  104.     IF guyname = 21 THEN PRINT "Tai ";
  105.     IF guyname = 22 THEN PRINT "Shen ";
  106.     IF guyname = 23 THEN PRINT "Markus ";
  107.     IF guyname = 24 THEN PRINT "Tarnic ";
  108.     IF guyname = 25 THEN PRINT "Leo ";
  109.     IF guyname = 26 THEN PRINT "Otto ";
  110.     IF guyname = 27 THEN PRINT "Sven ";
  111.     IF guyname = 28 THEN PRINT "Thor ";
  112.     IF guyname = 29 THEN PRINT "Vic ";
  113.     IF guyname = 30 THEN PRINT "Sid ";
  114.     IF guyname = 31 THEN PRINT "Lao ";
  115.     IF guyname = 32 THEN PRINT "Degas ";
  116.     IF guyname = 33 THEN PRINT "William ";
  117.     IF guyname = 34 THEN PRINT "Zai ";
  118.     IF guyname = 35 THEN PRINT "Logan ";
  119.     IF guyname = 36 THEN PRINT "Scott ";
  120.     IF guyname = 37 THEN PRINT "Peter ";
  121.     IF guyname = 38 THEN PRINT "Dramus ";
  122.     IF guyname = 39 THEN PRINT "Russ ";
  123.     IF guyname = 40 THEN PRINT "John ";
  124.     IF guyname = 41 THEN PRINT "Venon ";
  125.     IF guyname = 42 THEN PRINT "Kurt ";
  126.     IF guyname = 43 THEN PRINT "Carl ";
  127.     IF guyname = 44 THEN PRINT "Talus ";
  128.     IF guyname = 45 THEN PRINT "Ben ";
  129.     IF guyname = 46 THEN PRINT "Dave ";
  130.     IF guyname = 47 THEN PRINT "Jas ";
  131.     IF guyname = 48 THEN PRINT "Roland ";
  132.     IF guyname = 49 THEN PRINT "Luke ";
  133.     IF guyname = 50 THEN PRINT "Ed ";
  134.     IF guyname = 51 THEN PRINT "Cory ";
  135.     IF guyname = 52 THEN PRINT "Buck ";
  136.     IF guyname = 53 THEN PRINT "Bilbo ";
  137.     IF guyname = 54 THEN PRINT "Banis ";
  138.     IF guyname = 55 THEN PRINT "Waylan ";
  139.     IF guyname = 56 THEN PRINT "Tanis ";
  140.     IF guyname = 57 THEN PRINT "Storm ";
  141.     IF guyname = 58 THEN PRINT "De ";
  142.     IF guyname = 59 THEN PRINT "Sean ";
  143.     IF guyname = 60 THEN PRINT "Hikaru ";
  144.     IF guyname = 61 THEN PRINT "Danus ";
  145.     IF guyname = 62 THEN PRINT "Tork ";
  146.     IF guyname = 63 THEN PRINT "Caesar ";
  147.     IF guyname = 64 THEN PRINT "Arthur ";
  148.     IF guyname = 65 THEN PRINT "Max ";
  149.     IF guyname = 66 THEN PRINT "Tath ";
  150.     IF guyname = 67 THEN PRINT "Tyrone ";
  151.     IF guyname = 68 THEN PRINT "Dimitri ";
  152.     IF guyname = 69 THEN PRINT "Luke ";
  153.     IF guyname = 112 THEN PRINT "Reed ";
  154.     IF guyname = 113 THEN PRINT "Wyatt ";
  155.     IF guyname = 114 THEN PRINT "Hal ";
  156.     IF guyname = 115 THEN PRINT "Irza ";
  157.     IF guyname = 116 THEN PRINT "Rai ";
  158.     IF guyname = 117 THEN PRINT "Klaus ";
  159.     IF guyname = 118 THEN PRINT "Tyrone ";
  160.     IF guyname = 119 THEN PRINT "Frank ";
  161.     IF guyname = 120 THEN PRINT "Basil ";
  162.     IF guyname = 121 THEN PRINT "Ren ";
  163.     IF guyname = 70 THEN PRINT "Douglas ";
  164.     IF guyname = 71 THEN PRINT "Lance ";
  165.     IF guyname = 72 THEN PRINT "Jonah ";
  166.     IF guyname = 73 THEN PRINT "Luther ";
  167.     IF guyname = 74 THEN PRINT "Tode ";
  168.     IF guyname = 75 THEN PRINT "Esteban ";
  169.     IF guyname = 76 THEN PRINT "Bram ";
  170.     IF guyname = 77 THEN PRINT "Tryco ";
  171.     IF guyname = 78 THEN PRINT "Carlo ";
  172.     IF guyname = 79 THEN PRINT "Achilles ";
  173.     IF guyname = 80 THEN PRINT "Emil ";
  174.     IF guyname = 81 THEN PRINT "Alejandro ";
  175.     IF guyname = 82 THEN PRINT "Jason ";
  176.     IF guyname = 83 THEN PRINT "Alan ";
  177.     IF guyname = 84 THEN PRINT "Warren ";
  178.     IF guyname = 85 THEN PRINT "Abdul ";
  179.     IF guyname = 86 THEN PRINT "Antonio ";
  180.     IF guyname = 87 THEN PRINT "Arkon ";
  181.     IF guyname = 88 THEN PRINT "Seth ";
  182.     IF guyname = 89 THEN PRINT "Karl ";
  183.     IF guyname = 90 THEN PRINT "Barton ";
  184.     IF guyname = 91 THEN PRINT "Alex ";
  185.     IF guyname = 92 THEN PRINT "Kano ";
  186.     IF guyname = 93 THEN PRINT "Kang ";
  187.     IF guyname = 94 THEN PRINT "Tsung ";
  188.     IF guyname = 95 THEN PRINT "Gen ";
  189.     IF guyname = 96 THEN PRINT "Luke ";
  190.     IF guyname = 97 THEN PRINT "Carlos ";
  191.     IF guyname = 98 THEN PRINT "Mario ";
  192.     IF guyname = 99 THEN PRINT "Luigi ";
  193.     IF guyname = 100 THEN PRINT "Link ";
  194.     IF guyname = 101 THEN PRINT "Cody ";
  195.     IF guyname = 102 THEN PRINT "Theron ";
  196.     IF guyname = 103 THEN PRINT "Kirby ";
  197.     IF guyname = 104 THEN PRINT "Geordi ";
  198.     IF guyname = 105 THEN PRINT "Miles ";
  199.     IF guyname = 106 THEN PRINT "Ric ";
  200.     IF guyname = 107 THEN PRINT "Andy ";
  201.     IF guyname = 108 THEN PRINT "Terry ";
  202.     IF guyname = 109 THEN PRINT "Habiku ";
  203.     IF guyname = 110 THEN PRINT "Pao ";
  204.     IF guyname = 111 THEN PRINT "Erol ";
  205.    
  206.     LET totalrun = totalrun - 1
  207.     LET turns = turns - 1
  208.     IF turns = 0 THEN GOTO 80
  209.     IF totalrun = 0 THEN GOTO 100
  210.     GOTO 55
  211. 60 IF midname$ = "Y" THEN LET turns = 2 ELSE LET turns = 1
  212. 65 LET galname = INT(RND * 110) + 1
  213.     IF galname = 1 THEN PRINT "Mai ";
  214.     IF galname = 2 THEN PRINT "Sarah ";
  215.     IF galname = 3 THEN PRINT "Li ";
  216.     IF galname = 4 THEN PRINT "Beverly ";
  217.     IF galname = 5 THEN PRINT "Sonya ";
  218.     IF galname = 6 THEN PRINT "Kotono ";
  219.     IF galname = 7 THEN PRINT "Maki ";
  220.     IF galname = 8 THEN PRINT "Rachel ";
  221.     IF galname = 9 THEN PRINT "Jenifer ";
  222.     IF galname = 10 THEN PRINT "Gina ";
  223.     IF galname = 11 THEN PRINT "Dienna ";
  224.     IF galname = 12 THEN PRINT "Amber ";
  225.     IF galname = 13 THEN PRINT "Vala ";
  226.     IF galname = 14 THEN PRINT "Andrea ";
  227.     IF galname = 15 THEN PRINT "Ann ";
  228.     IF galname = 16 THEN PRINT "Clea ";
  229.     IF galname = 17 THEN PRINT "Crystalia ";
  230.     IF galname = 18 THEN PRINT "Cybele ";
  231.     IF galname = 19 THEN PRINT "Tandy ";
  232.     IF galname = 20 THEN PRINT "Betty ";
  233.     IF galname = 21 THEN PRINT "Laynia ";
  234.     IF galname = 22 THEN PRINT "Alison ";
  235.     IF galname = 23 THEN PRINT "Amora ";
  236.     IF galname = 24 THEN PRINT "Thena ";
  237.     IF galname = 25 THEN PRINT "Susan ";
  238.     IF galname = 26 THEN PRINT "Bonia ";
  239.     IF galname = 27 THEN PRINT "Raven ";
  240.     IF galname = 28 THEN PRINT "Nayra ";
  241.     IF galname = 29 THEN PRINT "Idunn ";
  242.     IF galname = 30 THEN PRINT "Fen ";
  243.     IF galname = 31 THEN PRINT "Natasha ";
  244.     IF galname = 32 THEN PRINT "Greer ";
  245.     IF galname = 33 THEN PRINT "Felicia ";
  246.     IF galname = 34 THEN PRINT "Tanya ";
  247.     IF galname = 35 THEN PRINT "Selina ";
  248.     IF galname = 36 THEN PRINT "Jenra ";
  249.     IF galname = 37 THEN PRINT "Wilma ";
  250.     IF galname = 38 THEN PRINT "Beth ";
  251.     IF galname = 39 THEN PRINT "Deborah ";
  252.     IF galname = 40 THEN PRINT "Stacia ";
  253.     IF galname = 41 THEN PRINT "Sarah ";
  254.     IF galname = 42 THEN PRINT "Lauren ";
  255.     IF galname = 43 THEN PRINT "Saphire ";
  256.     IF galname = 44 THEN PRINT "Ruby ";
  257.     IF galname = 45 THEN PRINT "Cindy ";
  258.     IF galname = 46 THEN PRINT "Hale ";
  259.     IF galname = 47 THEN PRINT "Jasmond ";
  260.     IF galname = 48 THEN PRINT "Celese ";
  261.     IF galname = 49 THEN PRINT "Maria ";
  262.     IF galname = 50 THEN PRINT "Kathline ";
  263.     IF galname = 51 THEN PRINT "Saei ";
  264.     IF galname = 52 THEN PRINT "Gi ";
  265.     IF galname = 53 THEN PRINT "Linka ";
  266.     IF galname = 54 THEN PRINT "Jane ";
  267.     IF galname = 55 THEN PRINT "Mary ";
  268.     IF galname = 56 THEN PRINT "Yuri ";
  269.     IF galname = 57 THEN PRINT "Kei ";
  270.     IF galname = 58 THEN PRINT "Victoria ";
  271.     IF galname = 59 THEN PRINT "Reba ";
  272.     IF galname = 60 THEN PRINT "Lori ";
  273.     IF galname = 61 THEN PRINT "Erin ";
  274.     IF galname = 62 THEN PRINT "Aretha ";
  275.     IF galname = 63 THEN PRINT "Liza ";
  276.     IF galname = 64 THEN PRINT "Phoebe ";
  277.     IF galname = 65 THEN PRINT "Robin ";
  278.     IF galname = 66 THEN PRINT "Maryan ";
  279.     IF galname = 67 THEN PRINT "Helen ";
  280.     IF galname = 68 THEN PRINT "Ellen ";
  281.     IF galname = 69 THEN PRINT "Jean ";
  282.     IF galname = 70 THEN PRINT "Bel ";
  283.     IF galname = 71 THEN PRINT "Alias ";
  284.     IF galname = 72 THEN PRINT "Shena ";
  285.     IF galname = 73 THEN PRINT "Shal ";
  286.     IF galname = 74 THEN PRINT "Musica ";
  287.     IF galname = 75 THEN PRINT "May ";
  288.     IF galname = 76 THEN PRINT "Meggan ";
  289.     IF galname = 77 THEN PRINT "Erin ";
  290.     IF galname = 78 THEN PRINT "Jamie ";
  291.     IF galname = 79 THEN PRINT "Helen ";
  292.     IF galname = 80 THEN PRINT "Heather ";
  293.     IF galname = 81 THEN PRINT "Julia ";
  294.     IF galname = 82 THEN PRINT "Rebecca ";
  295.     IF galname = 83 THEN PRINT "Amy ";
  296.     IF galname = 84 THEN PRINT "Cassandra ";
  297.     IF galname = 85 THEN PRINT "Kerra ";
  298.     IF galname = 86 THEN PRINT "Alyson ";
  299.     IF galname = 87 THEN PRINT "Sia ";
  300.     IF galname = 88 THEN PRINT "Angelica ";
  301.     IF galname = 89 THEN PRINT "Andrea ";
  302.     IF galname = 90 THEN PRINT "Dana ";
  303.     IF galname = 91 THEN PRINT "Kim ";
  304.     IF galname = 92 THEN PRINT "Lia ";
  305.     IF galname = 93 THEN PRINT "Tara ";
  306.     IF galname = 94 THEN PRINT "Suzane ";
  307.     IF galname = 95 THEN PRINT "Leslie ";
  308.     IF galname = 96 THEN PRINT "Lil ";
  309.     IF galname = 97 THEN PRINT "Jill ";
  310.     IF galname = 98 THEN PRINT "Lara ";
  311.     IF galname = 99 THEN PRINT "Lisa ";
  312.     IF galname = 100 THEN PRINT "Talisa ";
  313.     IF galname = 101 THEN PRINT "Lisa ";
  314.     IF galname = 102 THEN PRINT "Gene ";
  315.     IF galname = 103 THEN PRINT "Khara ";
  316.     IF galname = 104 THEN PRINT "Kay ";
  317.     IF galname = 105 THEN PRINT "Dianna ";
  318.     IF galname = 106 THEN PRINT "Katrina ";
  319.     IF galname = 107 THEN PRINT "Sandra ";
  320.     IF galname = 108 THEN PRINT "Carol ";
  321.     IF galname = 109 THEN PRINT "Roberta ";
  322.     IF galname = 110 THEN PRINT "Daneille ";
  323.     LET totalrun = totalrun - 1
  324.     IF totalrun = 0 THEN GOTO 100
  325.     LET turns = turns - 1
  326.     IF turns = 0 THEN GOTO 80
  327.     GOTO 65
  328. 80 ON KEY(1) GOSUB ENDing
  329.     KEY(1) ON
  330. LET lastname = INT(RND * 288) + 1
  331.     IF lastname = 1 THEN PRINT "Burrfoot ";
  332.     IF lastname = 2 THEN PRINT "Trippett ";
  333.     IF lastname = 3 THEN PRINT "Adams ";
  334.     IF lastname = 4 THEN PRINT "Smith ";
  335.     IF lastname = 5 THEN PRINT "IronSmith ";
  336.     IF lastname = 6 THEN PRINT "GoldSmith ";
  337.     IF lastname = 7 THEN PRINT "SilverSmith ";
  338.     IF lastname = 8 THEN PRINT "Addington ";
  339.     IF lastname = 9 THEN PRINT "Agarwal ";
  340.     IF lastname = 10 THEN PRINT "Ahl ";
  341.     IF lastname = 11 THEN PRINT "Al-Tourah ";
  342.     IF lastname = 12 THEN PRINT "Allen ";
  343.     IF lastname = 13 THEN PRINT "Amrine ";
  344.     IF lastname = 14 THEN PRINT "Diao ";
  345.     IF lastname = 15 THEN PRINT "Anderson ";
  346.     IF lastname = 16 THEN PRINT "Archer ";
  347.     IF lastname = 17 THEN PRINT "Arnold ";
  348.     IF lastname = 18 THEN PRINT "Assalone ";
  349.     IF lastname = 19 THEN PRINT "Bailey ";
  350.     IF lastname = 20 THEN PRINT "Baker ";
  351.     IF lastname = 21 THEN PRINT "Balsley ";
  352.     IF lastname = 22 THEN PRINT "Barron ";
  353.     IF lastname = 23 THEN PRINT "Beard ";
  354.     IF lastname = 24 THEN PRINT "Beatty ";
  355.     IF lastname = 25 THEN PRINT "Bein ";
  356.     IF lastname = 26 THEN PRINT "Bentley ";
  357.     IF lastname = 27 THEN PRINT "Berryman ";
  358.     IF lastname = 28 THEN PRINT "Bertalot ";
  359.     IF lastname = 29 THEN PRINT "Bivens ";
  360.     IF lastname = 211 THEN PRINT "Blake ";
  361.     IF lastname = 212 THEN PRINT "Bogges ";
  362.     IF lastname = 213 THEN PRINT "Borras ";
  363.     IF lastname = 214 THEN PRINT "Bower ";
  364.     IF lastname = 215 THEN PRINT "Boyd ";
  365.     IF lastname = 216 THEN PRINT "Bradley ";
  366.     IF lastname = 217 THEN PRINT "Brandy ";
  367.     IF lastname = 218 THEN PRINT "Brandt ";
  368.     IF lastname = 219 THEN PRINT "Brassfield ";
  369.     IF lastname = 220 THEN PRINT "Brenckle ";
  370.     IF lastname = 30 THEN PRINT "Bresnen ";
  371.     IF lastname = 31 THEN PRINT "Hamato ";
  372.     IF lastname = 32 THEN PRINT "Brixley ";
  373.     IF lastname = 33 THEN PRINT "Brumble ";
  374.     IF lastname = 34 THEN PRINT "Bryant ";
  375.     IF lastname = 35 THEN PRINT "Buchan ";
  376.     IF lastname = 36 THEN PRINT "Burger ";
  377.     IF lastname = 37 THEN PRINT "Burns ";
  378.     IF lastname = 38 THEN PRINT "Ashwood ";
  379.     IF lastname = 39 THEN PRINT "Battalion ";
  380.     IF lastname = 40 THEN PRINT "Jones ";
  381.     IF lastname = 41 THEN PRINT "Warrington ";
  382.     IF lastname = 42 THEN PRINT "Bush ";
  383.     IF lastname = 43 THEN PRINT "Byrd ";
  384.     IF lastname = 44 THEN PRINT "Butler ";
  385.     IF lastname = 45 THEN PRINT "Byrum ";
  386.     IF lastname = 46 THEN PRINT "Cortez ";
  387.     IF lastname = 47 THEN PRINT "Shore ";
  388.     IF lastname = 48 THEN PRINT "Cacoperdo ";
  389.     IF lastname = 49 THEN PRINT "Cain ";
  390.     IF lastname = 50 THEN PRINT "Calkins ";
  391.     IF lastname = 51 THEN PRINT "Call ";
  392.     IF lastname = 52 THEN PRINT "Carlan ";
  393.     IF lastname = 53 THEN PRINT "Carr ";
  394.     IF lastname = 54 THEN PRINT "Carrington ";
  395.     IF lastname = 55 THEN PRINT "Catalano ";
  396.     IF lastname = 56 THEN PRINT "Cavins ";
  397.     IF lastname = 57 THEN PRINT "Cerro ";
  398.     IF lastname = 58 THEN PRINT "Champagne ";
  399.     IF lastname = 59 THEN PRINT "Chatburn ";
  400.     IF lastname = 60 THEN PRINT "Childress ";
  401.     IF lastname = 61 THEN PRINT "Chittum ";
  402.     IF lastname = 62 THEN PRINT "Christie ";
  403.     IF lastname = 63 THEN PRINT "Clanton ";
  404.     IF lastname = 64 THEN PRINT "Clark ";
  405.     IF lastname = 65 THEN PRINT "Clifford ";
  406.     IF lastname = 66 THEN PRINT "Colby ";
  407.     IF lastname = 67 THEN PRINT "Coley ";
  408.     IF lastname = 68 THEN PRINT "Collins ";
  409.     IF lastname = 69 THEN PRINT "Compher ";
  410.     IF lastname = 70 THEN PRINT "Underhill ";
  411.     IF lastname = 71 THEN PRINT "Cuezze ";
  412.     IF lastname = 72 THEN PRINT "Cypert ";
  413.     IF lastname = 73 THEN PRINT "Davis ";
  414.     IF lastname = 74 THEN PRINT "DeVore ";
  415.     IF lastname = 75 THEN PRINT "DeWeese ";
  416.     IF lastname = 76 THEN PRINT "DeMone ";
  417.     IF lastname = 77 THEN PRINT "Mein ";
  418.     IF lastname = 78 THEN PRINT "Godinez ";
  419.     IF lastname = 79 THEN PRINT "Farrant ";
  420.     IF lastname = 80 THEN PRINT "Estirado";
  421.     IF lastname = 81 THEN PRINT "Eaton ";
  422.     IF lastname = 82 THEN PRINT "Doyle ";
  423.     IF lastname = 83 THEN PRINT "Dunkel ";
  424.     IF lastname = 84 THEN PRINT "Douglas ";
  425.     IF lastname = 85 THEN PRINT "Doering ";
  426.     IF lastname = 86 THEN PRINT "Dodson ";
  427.     IF lastname = 87 THEN PRINT "Hunt ";
  428.     IF lastname = 88 THEN PRINT "Hunter ";
  429.     IF lastname = 89 THEN PRINT "DragonSlayer ";
  430.     IF lastname = 90 THEN PRINT "O' Conner ";
  431.     IF lastname = 91 THEN PRINT "O' Flarity ";
  432.     IF lastname = 92 THEN PRINT "O' Donnel ";
  433.     IF lastname = 93 THEN PRINT "McBride ";
  434.     IF lastname = 94 THEN PRINT "McClain ";
  435.     IF lastname = 95 THEN PRINT "McClellan ";
  436.     IF lastname = 96 THEN PRINT "McConkay ";
  437.     IF lastname = 97 THEN PRINT "McKnight ";
  438.     IF lastname = 98 THEN PRINT "McDonald ";
  439.     IF lastname = 99 THEN PRINT "Kirk ";
  440.     IF lastname = 100 THEN PRINT "Chezcov ";
  441.     IF lastname = 101 THEN PRINT "Miller ";
  442.     IF lastname = 102 THEN PRINT "Moore ";
  443.     IF lastname = 103 THEN PRINT "Moyer ";
  444.     IF lastname = 104 THEN PRINT "Motto ";
  445.     IF lastname = 105 THEN PRINT "Munkholm ";
  446.     IF lastname = 106 THEN PRINT "Neel ";
  447.     IF lastname = 107 THEN PRINT "Nelson ";
  448.     IF lastname = 108 THEN PRINT "Mirsaeidi ";
  449.     IF lastname = 109 THEN PRINT "Lai ";
  450.     IF lastname = 110 THEN PRINT "Meadow ";
  451.     IF lastname = 111 THEN PRINT "Melton ";
  452.     IF lastname = 112 THEN PRINT "Mezrahi ";
  453.     IF lastname = 113 THEN PRINT "Michals ";
  454.     IF lastname = 114 THEN PRINT "Neel ";
  455.     IF lastname = 115 THEN PRINT "Oakes ";
  456.     IF lastname = 116 THEN PRINT "Padgett ";
  457.     IF lastname = 117 THEN PRINT "Palfreyman ";
  458.     IF lastname = 118 THEN PRINT "Peek ";
  459.     IF lastname = 119 THEN PRINT "Payne ";
  460.     IF lastname = 120 THEN PRINT "Planos ";
  461.     IF lastname = 121 THEN PRINT "Polishuk ";
  462.     IF lastname = 122 THEN PRINT "Portman ";
  463.     IF lastname = 123 THEN PRINT "Posey ";
  464.     IF lastname = 124 THEN PRINT "Price ";
  465.     IF lastname = 125 THEN PRINT "Probst ";
  466.     IF lastname = 126 THEN PRINT "Raber ";
  467.     IF lastname = 127 THEN PRINT "Rader ";
  468.     IF lastname = 128 THEN PRINT "Raley ";
  469.     IF lastname = 129 THEN PRINT "Rayfield ";
  470.     IF lastname = 130 THEN PRINT "Reed ";
  471.     IF lastname = 131 THEN PRINT "Reider ";
  472.     IF lastname = 132 THEN PRINT "Riley ";
  473.     IF lastname = 133 THEN PRINT "Richards ";
  474.     IF lastname = 134 THEN PRINT "Riggs ";
  475.     IF lastname = 135 THEN PRINT "Riley ";
  476.     IF lastname = 136 THEN PRINT "Ritter ";
  477.     IF lastname = 137 THEN PRINT "Riazian ";
  478.     IF lastname = 138 THEN PRINT "Robb ";
  479.     IF lastname = 139 THEN PRINT "Robinson ";
  480.     IF lastname = 140 THEN PRINT "Ross ";
  481.     IF lastname = 141 THEN PRINT "Roye ";
  482.     IF lastname = 142 THEN PRINT "Rudd ";
  483.     IF lastname = 143 THEN PRINT "Russell ";
  484.     IF lastname = 144 THEN PRINT "Coden ";
  485.     IF lastname = 145 THEN PRINT "Cooper ";
  486.     IF lastname = 146 THEN PRINT "Schuh ";
  487.     IF lastname = 147 THEN PRINT "Sherry ";
  488.     IF lastname = 148 THEN PRINT "Shute ";
  489.     IF lastname = 149 THEN PRINT "Snider ";
  490.     IF lastname = 150 THEN PRINT "Smith ";
  491.     IF lastname = 151 THEN PRINT "Solis ";
  492.     IF lastname = 152 THEN PRINT "Spain ";
  493.     IF lastname = 153 THEN PRINT "Speaker ";
  494.     IF lastname = 154 THEN PRINT "Sprague ";
  495.     IF lastname = 155 THEN PRINT "Staats ";
  496.     IF lastname = 156 THEN PRINT "Tate ";
  497.     IF lastname = 157 THEN PRINT "Daene ";
  498.     IF lastname = 158 THEN PRINT "Tosh ";
  499.     IF lastname = 159 THEN PRINT "Tomar ";
  500.     IF lastname = 160 THEN PRINT "Tran ";
  501.     IF lastname = 161 THEN PRINT "Ward ";
  502.     IF lastname = 162 THEN PRINT "Vantuyl ";
  503.     IF lastname = 163 THEN PRINT "Urdaneta ";
  504.     IF lastname = 164 THEN PRINT "Underwood ";
  505.     IF lastname = 165 THEN PRINT "Waternix ";
  506.     IF lastname = 166 THEN PRINT "Weidenfelder ";
  507.     IF lastname = 167 THEN PRINT "Notz ";
  508.     IF lastname = 168 THEN PRINT "Wynn ";
  509.     IF lastname = 169 THEN PRINT "Wolfe ";
  510.     IF lastname = 170 THEN PRINT "Wolfechilde ";
  511.     IF lastname = 171 THEN PRINT "Zambalis ";
  512.     IF lastname = 172 THEN PRINT "Zavzavadjian ";
  513.     IF lastname = 173 THEN PRINT "O'Brien ";
  514.     IF lastname = 174 THEN PRINT "Rahman ";
  515.     IF lastname = 175 THEN PRINT "Ganic ";
  516.     IF lastname = 176 THEN PRINT "Gergen ";
  517.     IF lastname = 177 THEN PRINT "Axelrod ";
  518.     IF lastname = 178 THEN PRINT "Ludwig ";
  519.     IF lastname = 179 THEN PRINT "Beebe ";
  520.     IF lastname = 180 THEN PRINT "Zenial ";
  521.     IF lastname = 181 THEN PRINT "Scott ";
  522.     IF lastname = 182 THEN PRINT "Xavier ";
  523.     IF lastname = 183 THEN PRINT "Auckerland ";
  524.     IF lastname = 184 THEN PRINT "Allen ";
  525.     IF lastname = 185 THEN PRINT "Mayall ";
  526.     IF lastname = 186 THEN PRINT "Cates ";
  527.     IF lastname = 187 THEN PRINT "Silverburg ";
  528.     IF lastname = 188 THEN PRINT "Goldburg ";
  529.     IF lastname = 189 THEN PRINT "Zambiolin ";
  530.     IF lastname = 190 THEN PRINT "Rogers ";
  531.     IF lastname = 191 THEN PRINT "Talson ";
  532.     IF lastname = 192 THEN PRINT "Callison ";
  533.     IF lastname = 193 THEN PRINT "Troop ";
  534.     IF lastname = 194 THEN PRINT "Holstien ";
  535.     IF lastname = 195 THEN PRINT "Umbenstock ";
  536.     IF lastname = 196 THEN PRINT "Edwards ";
  537.     IF lastname = 197 THEN PRINT "Ironhill ";
  538.     IF lastname = 198 THEN PRINT "Bloodcross ";
  539.     IF lastname = 199 THEN PRINT "Xzane ";
  540.     IF lastname = 200 THEN PRINT "Tal'Shar ";
  541.     IF lastname = 201 THEN PRINT "Jennings ";
  542.     IF lastname = 202 THEN PRINT "ShadowCrawl ";
  543.     IF lastname = 203 THEN PRINT "Graybane ";
  544.     IF lastname = 204 THEN PRINT "Lifebane ";
  545.     IF lastname = 205 THEN PRINT "Camtatka ";
  546.     IF lastname = 206 THEN PRINT "Monroe ";
  547.     IF lastname = 207 THEN PRINT "Talbolt ";
  548.     IF lastname = 208 THEN PRINT "Jikku ";
  549.     IF lastname = 209 THEN PRINT "Ikina ";
  550.     IF lastname = 231 THEN PRINT "Sigurd ";
  551. IF lastname = 232 THEN PRINT "Halunn ";
  552. IF lastname = 233 THEN PRINT "Sitai ";
  553. IF lastname = 234 THEN PRINT "Fizban ";
  554. IF lastname = 235 THEN PRINT "GoldeField ";
  555. IF lastname = 236 THEN PRINT "Clay ";
  556. IF lastname = 237 THEN PRINT "Demonicus ";
  557. IF lastname = 238 THEN PRINT "Judge ";
  558. IF lastname = 239 THEN PRINT "Canterberry ";
  559. IF lastname = 240 THEN PRINT "Pendragon ";
  560. IF lastname = 241 THEN PRINT "Do'Urden ";
  561. IF lastname = 242 THEN PRINT "Lowhill ";
  562. IF lastname = 243 THEN PRINT "Azoun ";
  563. IF lastname = 244 THEN PRINT "Cimber ";
  564. IF lastname = 245 THEN PRINT "Thann ";
  565. IF lastname = 246 THEN PRINT "Moonblade ";
  566. IF lastname = 247 THEN PRINT "Sunstar ";
  567. IF lastname = 248 THEN PRINT "Oriandis ";
  568. IF lastname = 249 THEN PRINT "Theorn ";
  569. IF lastname = 250 THEN PRINT "Frajen ";
  570. IF lastname = 251 THEN PRINT "Don Deloangelo ";
  571. IF lastname = 252 THEN PRINT "Blade ";
  572. IF lastname = 253 THEN PRINT "Cage ";
  573. IF lastname = 254 THEN PRINT "Jade ";
  574. IF lastname = 255 THEN PRINT "Brown ";
  575. IF lastname = 256 THEN PRINT "Bashier ";
  576. IF lastname = 257 THEN PRINT "Verrand ";
  577. IF lastname = 258 THEN PRINT "Benard ";
  578. IF lastname = 259 THEN PRINT "Haroldson ";
  579. IF lastname = 260 THEN PRINT "Orkin ";
  580. IF lastname = 261 THEN PRINT "Astryd ";
  581. IF lastname = 262 THEN PRINT "Larson ";
  582. IF lastname = 263 THEN PRINT "Bolverkr ";
  583. IF lastname = 264 THEN PRINT "Smith ";
  584. IF lastname = 265 THEN PRINT "Gealinar ";
  585. IF lastname = 266 THEN PRINT "Silme ";
  586. IF lastname = 267 THEN PRINT "Medakin ";
  587. IF lastname = 268 THEN PRINT "Wizzleteats ";
  588. IF lastname = 269 THEN PRINT "Picard ";
  589. IF lastname = 270 THEN PRINT "Rygmyr ";
  590. IF lastname = 271 THEN PRINT "Donnell";
  591. IF lastname = 272 THEN PRINT "Poteet ";
  592. IF lastname = 273 THEN PRINT "Frey ";
  593. IF lastname = 274 THEN PRINT "Crane ";
  594. IF lastname = 275 THEN PRINT "Winchester ";
  595. IF lastname = 276 THEN PRINT "Crusher ;"
  596. IF lastname = 277 THEN PRINT "Troy ";
  597. IF lastname = 278 THEN PRINT "Smith ";
  598. IF lastname = 279 THEN PRINT "Dracul ";
  599. IF lastname = 280 THEN PRINT "Van Helsing ";
  600. IF lastname = 281 THEN PRINT "Aki ";
  601. IF lastname = 282 THEN PRINT "Cappelli ";
  602. IF lastname = 283 THEN PRINT "Underdark ";
  603. IF lastname = 284 THEN PRINT "Polus ";
  604. IF lastname = 285 THEN PRINT "Delgado ";
  605. IF lastname = 286 THEN PRINT "Webspune ";
  606. IF lastname = 287 THEN PRINT "Tracker ";
  607. IF lastname = 288 THEN PRINT "Racer ";
  608. IF lastname = 289 THEN PRINT "Piniago ";
  609. IF lastname = 290 THEN PRINT "Foxe ";
  610. IF lastname = 291 THEN PRINT "Inkstain ";
  611. IF lastname = 292 THEN PRINT "Othmann ";
  612. IF lastname = 293 THEN PRINT "Lhal ";
  613. IF lastname = 294 THEN PRINT "Melisende ";
  614. IF lastname = 295 THEN PRINT "Zenas ";
  615. IF lastname = 296 THEN PRINT "Gorgias ";
  616. IF lastname = 297 THEN PRINT "Spellsong ";
  617. IF lastname = 298 THEN PRINT "Shadowrun ";
  618. IF lastname = 299 THEN PRINT "MooroeDale ";
  619. IF lastname = 300 THEN PRINT "BaShan ";
  620.     IF lastname = 210 THEN PRINT "Tokimuni ";
  621.     IF lastname = 221 THEN PRINT "Flynn ";
  622.     IF lastname = 222 THEN PRINT "Taijitsu ";
  623.     IF lastname = 223 THEN PRINT "Alus ";
  624.     IF lastname = 224 THEN PRINT "Baggins ";
  625.     IF lastname = 225 THEN PRINT "Falcone ";
  626.     IF lastname = 226 THEN PRINT "Kilmachie ";
  627.     IF lastname = 227 THEN PRINT "Nobutada ";
  628.     IF lastname = 228 THEN PRINT "Kamu ";
  629.     IF lastname = 229 THEN PRINT "Higo ";
  630.     IF lastname = 230 THEN PRINT "Arimoto ";
  631. LET totalrun = toralrun - 1
  632.     IF totalrun = 0 THEN GOTO 100
  633. 100 PRINT ""
  634.     PRINT
  635.     PRINT
  636.     PRINT
  637.     PRINT
  638.     PRINT
  639.     PRINT
  640.     PRINT
  641.     PRINT
  642.     PRINT
  643.     PRINT
  644.     PRINT
  645.     PRINT
  646.     INPUT "Clear input (Y/N)"; yn$
  647.     PALETTE 4, INT(RND * 63) + 1: PALETTE 3, INT(RND * 63) + 1: PALETTE 1, INT(RND * 63) + 1
  648.     IF yn$ = "N" THEN CLS : GOTO 45
  649.     IF yn$ = "n" THEN CLS : GOTO 45
  650.     IF yn$ = "Y" THEN CLS : GOTO 20
  651.     IF yn$ = "y" THEN CLS : GOTO 20
  652.     CLS
  653.     GOTO 45
  654. ENDing:
  655. CLS
  656.         PRINT
  657.         PRINT
  658.         PRINT
  659.         PRINT
  660.         PRINT
  661.         PRINT "BYE!"
  662.         END
  663.  
  664.