home *** CD-ROM | disk | FTP | other *** search
- RANDOMIZE TIMER
- ON KEY(1) GOSUB ENDing
- KEY(1) ON
- CLS
- PALETTE 2, 38
- PRINT
- PRINT
- COLOR 0, 2
- PRINT " "; : COLOR 0, 0: PRINT ""
- COLOR 0, 2
- PRINT " "; : COLOR 4, 0: PRINT " Programmed in Quickbasic"
- COLOR 0, 2
- PRINT " "; : COLOR 0, 0: PRINT ""
- COLOR 0, 2
- PRINT " "; : COLOR 0, 0: PRINT ""
- COLOR 0, 2
- PRINT " "; : COLOR 0, 0: PRINT ""
- COLOR 0, 2
- PRINT " "; : COLOR 0, 0: PRINT ""
- COLOR 0, 2
- PRINT " Trent Troop's "; : COLOR 1, 0: PRINT " For Naming Characters in any"
- COLOR 0, 2
- PRINT " "; : COLOR 1, 0: PRINT " Genre. "
- COLOR 0, 2
- PRINT " Random Name "; : COLOR 0, 0: PRINT ""
- COLOR 0, 2
- PRINT " Generator "; : COLOR 0, 0: PRINT ""
- COLOR 0, 2
- PRINT " "; : COLOR 0, 0: PRINT ""
- COLOR 0, 2
- PRINT " "; : COLOR 0, 0: PRINT ""
- COLOR 0, 2
- PRINT " "; : COLOR 0, 0: PRINT ""
- COLOR 0, 2
- PRINT " "; : COLOR 3, 0: PRINT " Please Read BEG.TXT for More Info"
- COLOR 0, 2
- PRINT " "; : COLOR 0, 0: PRINT ""
- COLOR 0, 2:
- PRINT " "; : COLOR 0, 0: PRINT ""
- PALETTE 4, INT(RND * 63) + 1: PALETTE 3, INT(RND * 63) + 1: PALETTE 1, INT(RND * 63) + 1
- PALETTE 4, INT(RND * 63) + 1: PALETTE 3, INT(RND * 63) + 1: PALETTE 1, INT(RND * 63) + 1
- PALETTE 4, INT(RND * 63) + 1: PALETTE 3, INT(RND * 63) + 1: PALETTE 1, INT(RND * 63) + 1
- PALETTE 4, INT(RND * 63) + 1: PALETTE 3, INT(RND * 63) + 1: PALETTE 1, INT(RND * 63) + 1
- PALETTE 4, INT(RND * 63) + 1: PALETTE 3, INT(RND * 63) + 1: PALETTE 1, INT(RND * 63) + 1
- PALETTE 4, INT(RND * 63) + 1: PALETTE 3, INT(RND * 63) + 1: PALETTE 1, INT(RND * 63) + 1
- PALETTE 4, INT(RND * 63) + 1: PALETTE 3, INT(RND * 63) + 1: PALETTE 1, INT(RND * 63) + 1
- PALETTE 4, INT(RND * 63) + 1: PALETTE 3, INT(RND * 63) + 1: PALETTE 1, INT(RND * 63) + 1
- PALETTE 4, INT(RND * 63) + 1: PALETTE 3, INT(RND * 63) + 1: PALETTE 1, INT(RND * 63) + 1
- PALETTE 4, INT(RND * 63) + 1: PALETTE 3, INT(RND * 63) + 1: PALETTE 1, INT(RND * 63) + 1
- PALETTE 4, INT(RND * 63) + 1: PALETTE 3, INT(RND * 63) + 1: PALETTE 1, INT(RND * 63) + 1
- PALETTE 4, INT(RND * 63) + 1: PALETTE 3, INT(RND * 63) + 1: PALETTE 1, INT(RND * 63) + 1
- COLOR 6, 0
- PRINT
- PRINT "Press F1 and press enter to quit."
- PRINT
- INPUT "Continue"; yesno$
-
-
-
- 20 CLS
- COLOR 4: INPUT "Is the character Male or Female (M/F)"; mf$
- IF mf$ = "M" THEN GOTO 30
- IF mf$ = "m" THEN LET mf$ = "M": GOTO 30
- IF mf$ = "F" THEN GOTO 30
- IF mf$ = "f" THEN LET mf$ = "F": GOTO 30
- PRINT
- GOTO 20
- 30 COLOR 3: INPUT "Use a middle name (Y/N)"; midname$
- IF midname$ = "Y" THEN GOTO 40
- IF midname$ = "y" THEN LET midname$ = "Y": GOTO 40
- IF midname$ = "n" THEN LET midname$ = "N": GOTO 40
- IF midname$ = "N" THEN GOTO 40
- PRINT
- GOTO 30
- 40 LET royal$ = "": COLOR 1
- INPUT "Royal Title (Enter = None)"; royal$: CLS
- 45 COLOR 4: LET guyname = 0: LET turns = 0
- PRINT royal$; " ";
- LET totalrun = 3
- IF mf$ = "F" THEN GOTO 60
- IF mf$ = "M" THEN GOTO 50
- 50 IF midname$ = "Y" THEN LET turns = 2 ELSE LET turns = 1
- 55 LET guyname = INT(RND * 121) + 1
- IF guyname = 1 THEN PRINT "Robert ";
- IF guyname = 2 THEN PRINT "Michael ";
- IF guyname = 3 THEN PRINT "Steven ";
- IF guyname = 4 THEN PRINT "Samuel ";
- IF guyname = 5 THEN PRINT "Trent ";
- IF guyname = 6 THEN PRINT "Ron ";
- IF guyname = 7 THEN PRINT "Bob ";
- IF guyname = 8 THEN PRINT "Kenshiro ";
- IF guyname = 9 THEN PRINT "Kenith ";
- IF guyname = 10 THEN PRINT "Robert ";
- IF guyname = 11 THEN PRINT "Don ";
- IF guyname = 12 THEN PRINT "Talon ";
- IF guyname = 13 THEN PRINT "Murry ";
- IF guyname = 14 THEN PRINT "Tas ";
- IF guyname = 15 THEN PRINT "Taz ";
- IF guyname = 16 THEN PRINT "Kazin ";
- IF guyname = 17 THEN PRINT "Ryu ";
- IF guyname = 18 THEN PRINT "Elminster ";
- IF guyname = 19 THEN PRINT "Benny ";
- IF guyname = 20 THEN PRINT "Matt ";
- IF guyname = 21 THEN PRINT "Tai ";
- IF guyname = 22 THEN PRINT "Shen ";
- IF guyname = 23 THEN PRINT "Markus ";
- IF guyname = 24 THEN PRINT "Tarnic ";
- IF guyname = 25 THEN PRINT "Leo ";
- IF guyname = 26 THEN PRINT "Otto ";
- IF guyname = 27 THEN PRINT "Sven ";
- IF guyname = 28 THEN PRINT "Thor ";
- IF guyname = 29 THEN PRINT "Vic ";
- IF guyname = 30 THEN PRINT "Sid ";
- IF guyname = 31 THEN PRINT "Lao ";
- IF guyname = 32 THEN PRINT "Degas ";
- IF guyname = 33 THEN PRINT "William ";
- IF guyname = 34 THEN PRINT "Zai ";
- IF guyname = 35 THEN PRINT "Logan ";
- IF guyname = 36 THEN PRINT "Scott ";
- IF guyname = 37 THEN PRINT "Peter ";
- IF guyname = 38 THEN PRINT "Dramus ";
- IF guyname = 39 THEN PRINT "Russ ";
- IF guyname = 40 THEN PRINT "John ";
- IF guyname = 41 THEN PRINT "Venon ";
- IF guyname = 42 THEN PRINT "Kurt ";
- IF guyname = 43 THEN PRINT "Carl ";
- IF guyname = 44 THEN PRINT "Talus ";
- IF guyname = 45 THEN PRINT "Ben ";
- IF guyname = 46 THEN PRINT "Dave ";
- IF guyname = 47 THEN PRINT "Jas ";
- IF guyname = 48 THEN PRINT "Roland ";
- IF guyname = 49 THEN PRINT "Luke ";
- IF guyname = 50 THEN PRINT "Ed ";
- IF guyname = 51 THEN PRINT "Cory ";
- IF guyname = 52 THEN PRINT "Buck ";
- IF guyname = 53 THEN PRINT "Bilbo ";
- IF guyname = 54 THEN PRINT "Banis ";
- IF guyname = 55 THEN PRINT "Waylan ";
- IF guyname = 56 THEN PRINT "Tanis ";
- IF guyname = 57 THEN PRINT "Storm ";
- IF guyname = 58 THEN PRINT "De ";
- IF guyname = 59 THEN PRINT "Sean ";
- IF guyname = 60 THEN PRINT "Hikaru ";
- IF guyname = 61 THEN PRINT "Danus ";
- IF guyname = 62 THEN PRINT "Tork ";
- IF guyname = 63 THEN PRINT "Caesar ";
- IF guyname = 64 THEN PRINT "Arthur ";
- IF guyname = 65 THEN PRINT "Max ";
- IF guyname = 66 THEN PRINT "Tath ";
- IF guyname = 67 THEN PRINT "Tyrone ";
- IF guyname = 68 THEN PRINT "Dimitri ";
- IF guyname = 69 THEN PRINT "Luke ";
- IF guyname = 112 THEN PRINT "Reed ";
- IF guyname = 113 THEN PRINT "Wyatt ";
- IF guyname = 114 THEN PRINT "Hal ";
- IF guyname = 115 THEN PRINT "Irza ";
- IF guyname = 116 THEN PRINT "Rai ";
- IF guyname = 117 THEN PRINT "Klaus ";
- IF guyname = 118 THEN PRINT "Tyrone ";
- IF guyname = 119 THEN PRINT "Frank ";
- IF guyname = 120 THEN PRINT "Basil ";
- IF guyname = 121 THEN PRINT "Ren ";
- IF guyname = 70 THEN PRINT "Douglas ";
- IF guyname = 71 THEN PRINT "Lance ";
- IF guyname = 72 THEN PRINT "Jonah ";
- IF guyname = 73 THEN PRINT "Luther ";
- IF guyname = 74 THEN PRINT "Tode ";
- IF guyname = 75 THEN PRINT "Esteban ";
- IF guyname = 76 THEN PRINT "Bram ";
- IF guyname = 77 THEN PRINT "Tryco ";
- IF guyname = 78 THEN PRINT "Carlo ";
- IF guyname = 79 THEN PRINT "Achilles ";
- IF guyname = 80 THEN PRINT "Emil ";
- IF guyname = 81 THEN PRINT "Alejandro ";
- IF guyname = 82 THEN PRINT "Jason ";
- IF guyname = 83 THEN PRINT "Alan ";
- IF guyname = 84 THEN PRINT "Warren ";
- IF guyname = 85 THEN PRINT "Abdul ";
- IF guyname = 86 THEN PRINT "Antonio ";
- IF guyname = 87 THEN PRINT "Arkon ";
- IF guyname = 88 THEN PRINT "Seth ";
- IF guyname = 89 THEN PRINT "Karl ";
- IF guyname = 90 THEN PRINT "Barton ";
- IF guyname = 91 THEN PRINT "Alex ";
- IF guyname = 92 THEN PRINT "Kano ";
- IF guyname = 93 THEN PRINT "Kang ";
- IF guyname = 94 THEN PRINT "Tsung ";
- IF guyname = 95 THEN PRINT "Gen ";
- IF guyname = 96 THEN PRINT "Luke ";
- IF guyname = 97 THEN PRINT "Carlos ";
- IF guyname = 98 THEN PRINT "Mario ";
- IF guyname = 99 THEN PRINT "Luigi ";
- IF guyname = 100 THEN PRINT "Link ";
- IF guyname = 101 THEN PRINT "Cody ";
- IF guyname = 102 THEN PRINT "Theron ";
- IF guyname = 103 THEN PRINT "Kirby ";
- IF guyname = 104 THEN PRINT "Geordi ";
- IF guyname = 105 THEN PRINT "Miles ";
- IF guyname = 106 THEN PRINT "Ric ";
- IF guyname = 107 THEN PRINT "Andy ";
- IF guyname = 108 THEN PRINT "Terry ";
- IF guyname = 109 THEN PRINT "Habiku ";
- IF guyname = 110 THEN PRINT "Pao ";
- IF guyname = 111 THEN PRINT "Erol ";
-
- LET totalrun = totalrun - 1
- LET turns = turns - 1
- IF turns = 0 THEN GOTO 80
- IF totalrun = 0 THEN GOTO 100
- GOTO 55
- 60 IF midname$ = "Y" THEN LET turns = 2 ELSE LET turns = 1
- 65 LET galname = INT(RND * 110) + 1
- IF galname = 1 THEN PRINT "Mai ";
- IF galname = 2 THEN PRINT "Sarah ";
- IF galname = 3 THEN PRINT "Li ";
- IF galname = 4 THEN PRINT "Beverly ";
- IF galname = 5 THEN PRINT "Sonya ";
- IF galname = 6 THEN PRINT "Kotono ";
- IF galname = 7 THEN PRINT "Maki ";
- IF galname = 8 THEN PRINT "Rachel ";
- IF galname = 9 THEN PRINT "Jenifer ";
- IF galname = 10 THEN PRINT "Gina ";
- IF galname = 11 THEN PRINT "Dienna ";
- IF galname = 12 THEN PRINT "Amber ";
- IF galname = 13 THEN PRINT "Vala ";
- IF galname = 14 THEN PRINT "Andrea ";
- IF galname = 15 THEN PRINT "Ann ";
- IF galname = 16 THEN PRINT "Clea ";
- IF galname = 17 THEN PRINT "Crystalia ";
- IF galname = 18 THEN PRINT "Cybele ";
- IF galname = 19 THEN PRINT "Tandy ";
- IF galname = 20 THEN PRINT "Betty ";
- IF galname = 21 THEN PRINT "Laynia ";
- IF galname = 22 THEN PRINT "Alison ";
- IF galname = 23 THEN PRINT "Amora ";
- IF galname = 24 THEN PRINT "Thena ";
- IF galname = 25 THEN PRINT "Susan ";
- IF galname = 26 THEN PRINT "Bonia ";
- IF galname = 27 THEN PRINT "Raven ";
- IF galname = 28 THEN PRINT "Nayra ";
- IF galname = 29 THEN PRINT "Idunn ";
- IF galname = 30 THEN PRINT "Fen ";
- IF galname = 31 THEN PRINT "Natasha ";
- IF galname = 32 THEN PRINT "Greer ";
- IF galname = 33 THEN PRINT "Felicia ";
- IF galname = 34 THEN PRINT "Tanya ";
- IF galname = 35 THEN PRINT "Selina ";
- IF galname = 36 THEN PRINT "Jenra ";
- IF galname = 37 THEN PRINT "Wilma ";
- IF galname = 38 THEN PRINT "Beth ";
- IF galname = 39 THEN PRINT "Deborah ";
- IF galname = 40 THEN PRINT "Stacia ";
- IF galname = 41 THEN PRINT "Sarah ";
- IF galname = 42 THEN PRINT "Lauren ";
- IF galname = 43 THEN PRINT "Saphire ";
- IF galname = 44 THEN PRINT "Ruby ";
- IF galname = 45 THEN PRINT "Cindy ";
- IF galname = 46 THEN PRINT "Hale ";
- IF galname = 47 THEN PRINT "Jasmond ";
- IF galname = 48 THEN PRINT "Celese ";
- IF galname = 49 THEN PRINT "Maria ";
- IF galname = 50 THEN PRINT "Kathline ";
- IF galname = 51 THEN PRINT "Saei ";
- IF galname = 52 THEN PRINT "Gi ";
- IF galname = 53 THEN PRINT "Linka ";
- IF galname = 54 THEN PRINT "Jane ";
- IF galname = 55 THEN PRINT "Mary ";
- IF galname = 56 THEN PRINT "Yuri ";
- IF galname = 57 THEN PRINT "Kei ";
- IF galname = 58 THEN PRINT "Victoria ";
- IF galname = 59 THEN PRINT "Reba ";
- IF galname = 60 THEN PRINT "Lori ";
- IF galname = 61 THEN PRINT "Erin ";
- IF galname = 62 THEN PRINT "Aretha ";
- IF galname = 63 THEN PRINT "Liza ";
- IF galname = 64 THEN PRINT "Phoebe ";
- IF galname = 65 THEN PRINT "Robin ";
- IF galname = 66 THEN PRINT "Maryan ";
- IF galname = 67 THEN PRINT "Helen ";
- IF galname = 68 THEN PRINT "Ellen ";
- IF galname = 69 THEN PRINT "Jean ";
- IF galname = 70 THEN PRINT "Bel ";
- IF galname = 71 THEN PRINT "Alias ";
- IF galname = 72 THEN PRINT "Shena ";
- IF galname = 73 THEN PRINT "Shal ";
- IF galname = 74 THEN PRINT "Musica ";
- IF galname = 75 THEN PRINT "May ";
- IF galname = 76 THEN PRINT "Meggan ";
- IF galname = 77 THEN PRINT "Erin ";
- IF galname = 78 THEN PRINT "Jamie ";
- IF galname = 79 THEN PRINT "Helen ";
- IF galname = 80 THEN PRINT "Heather ";
- IF galname = 81 THEN PRINT "Julia ";
- IF galname = 82 THEN PRINT "Rebecca ";
- IF galname = 83 THEN PRINT "Amy ";
- IF galname = 84 THEN PRINT "Cassandra ";
- IF galname = 85 THEN PRINT "Kerra ";
- IF galname = 86 THEN PRINT "Alyson ";
- IF galname = 87 THEN PRINT "Sia ";
- IF galname = 88 THEN PRINT "Angelica ";
- IF galname = 89 THEN PRINT "Andrea ";
- IF galname = 90 THEN PRINT "Dana ";
- IF galname = 91 THEN PRINT "Kim ";
- IF galname = 92 THEN PRINT "Lia ";
- IF galname = 93 THEN PRINT "Tara ";
- IF galname = 94 THEN PRINT "Suzane ";
- IF galname = 95 THEN PRINT "Leslie ";
- IF galname = 96 THEN PRINT "Lil ";
- IF galname = 97 THEN PRINT "Jill ";
- IF galname = 98 THEN PRINT "Lara ";
- IF galname = 99 THEN PRINT "Lisa ";
- IF galname = 100 THEN PRINT "Talisa ";
- IF galname = 101 THEN PRINT "Lisa ";
- IF galname = 102 THEN PRINT "Gene ";
- IF galname = 103 THEN PRINT "Khara ";
- IF galname = 104 THEN PRINT "Kay ";
- IF galname = 105 THEN PRINT "Dianna ";
- IF galname = 106 THEN PRINT "Katrina ";
- IF galname = 107 THEN PRINT "Sandra ";
- IF galname = 108 THEN PRINT "Carol ";
- IF galname = 109 THEN PRINT "Roberta ";
- IF galname = 110 THEN PRINT "Daneille ";
- LET totalrun = totalrun - 1
- IF totalrun = 0 THEN GOTO 100
- LET turns = turns - 1
- IF turns = 0 THEN GOTO 80
- GOTO 65
- 80 ON KEY(1) GOSUB ENDing
- KEY(1) ON
- LET lastname = INT(RND * 288) + 1
- IF lastname = 1 THEN PRINT "Burrfoot ";
- IF lastname = 2 THEN PRINT "Trippett ";
- IF lastname = 3 THEN PRINT "Adams ";
- IF lastname = 4 THEN PRINT "Smith ";
- IF lastname = 5 THEN PRINT "IronSmith ";
- IF lastname = 6 THEN PRINT "GoldSmith ";
- IF lastname = 7 THEN PRINT "SilverSmith ";
- IF lastname = 8 THEN PRINT "Addington ";
- IF lastname = 9 THEN PRINT "Agarwal ";
- IF lastname = 10 THEN PRINT "Ahl ";
- IF lastname = 11 THEN PRINT "Al-Tourah ";
- IF lastname = 12 THEN PRINT "Allen ";
- IF lastname = 13 THEN PRINT "Amrine ";
- IF lastname = 14 THEN PRINT "Diao ";
- IF lastname = 15 THEN PRINT "Anderson ";
- IF lastname = 16 THEN PRINT "Archer ";
- IF lastname = 17 THEN PRINT "Arnold ";
- IF lastname = 18 THEN PRINT "Assalone ";
- IF lastname = 19 THEN PRINT "Bailey ";
- IF lastname = 20 THEN PRINT "Baker ";
- IF lastname = 21 THEN PRINT "Balsley ";
- IF lastname = 22 THEN PRINT "Barron ";
- IF lastname = 23 THEN PRINT "Beard ";
- IF lastname = 24 THEN PRINT "Beatty ";
- IF lastname = 25 THEN PRINT "Bein ";
- IF lastname = 26 THEN PRINT "Bentley ";
- IF lastname = 27 THEN PRINT "Berryman ";
- IF lastname = 28 THEN PRINT "Bertalot ";
- IF lastname = 29 THEN PRINT "Bivens ";
- IF lastname = 211 THEN PRINT "Blake ";
- IF lastname = 212 THEN PRINT "Bogges ";
- IF lastname = 213 THEN PRINT "Borras ";
- IF lastname = 214 THEN PRINT "Bower ";
- IF lastname = 215 THEN PRINT "Boyd ";
- IF lastname = 216 THEN PRINT "Bradley ";
- IF lastname = 217 THEN PRINT "Brandy ";
- IF lastname = 218 THEN PRINT "Brandt ";
- IF lastname = 219 THEN PRINT "Brassfield ";
- IF lastname = 220 THEN PRINT "Brenckle ";
- IF lastname = 30 THEN PRINT "Bresnen ";
- IF lastname = 31 THEN PRINT "Hamato ";
- IF lastname = 32 THEN PRINT "Brixley ";
- IF lastname = 33 THEN PRINT "Brumble ";
- IF lastname = 34 THEN PRINT "Bryant ";
- IF lastname = 35 THEN PRINT "Buchan ";
- IF lastname = 36 THEN PRINT "Burger ";
- IF lastname = 37 THEN PRINT "Burns ";
- IF lastname = 38 THEN PRINT "Ashwood ";
- IF lastname = 39 THEN PRINT "Battalion ";
- IF lastname = 40 THEN PRINT "Jones ";
- IF lastname = 41 THEN PRINT "Warrington ";
- IF lastname = 42 THEN PRINT "Bush ";
- IF lastname = 43 THEN PRINT "Byrd ";
- IF lastname = 44 THEN PRINT "Butler ";
- IF lastname = 45 THEN PRINT "Byrum ";
- IF lastname = 46 THEN PRINT "Cortez ";
- IF lastname = 47 THEN PRINT "Shore ";
- IF lastname = 48 THEN PRINT "Cacoperdo ";
- IF lastname = 49 THEN PRINT "Cain ";
- IF lastname = 50 THEN PRINT "Calkins ";
- IF lastname = 51 THEN PRINT "Call ";
- IF lastname = 52 THEN PRINT "Carlan ";
- IF lastname = 53 THEN PRINT "Carr ";
- IF lastname = 54 THEN PRINT "Carrington ";
- IF lastname = 55 THEN PRINT "Catalano ";
- IF lastname = 56 THEN PRINT "Cavins ";
- IF lastname = 57 THEN PRINT "Cerro ";
- IF lastname = 58 THEN PRINT "Champagne ";
- IF lastname = 59 THEN PRINT "Chatburn ";
- IF lastname = 60 THEN PRINT "Childress ";
- IF lastname = 61 THEN PRINT "Chittum ";
- IF lastname = 62 THEN PRINT "Christie ";
- IF lastname = 63 THEN PRINT "Clanton ";
- IF lastname = 64 THEN PRINT "Clark ";
- IF lastname = 65 THEN PRINT "Clifford ";
- IF lastname = 66 THEN PRINT "Colby ";
- IF lastname = 67 THEN PRINT "Coley ";
- IF lastname = 68 THEN PRINT "Collins ";
- IF lastname = 69 THEN PRINT "Compher ";
- IF lastname = 70 THEN PRINT "Underhill ";
- IF lastname = 71 THEN PRINT "Cuezze ";
- IF lastname = 72 THEN PRINT "Cypert ";
- IF lastname = 73 THEN PRINT "Davis ";
- IF lastname = 74 THEN PRINT "DeVore ";
- IF lastname = 75 THEN PRINT "DeWeese ";
- IF lastname = 76 THEN PRINT "DeMone ";
- IF lastname = 77 THEN PRINT "Mein ";
- IF lastname = 78 THEN PRINT "Godinez ";
- IF lastname = 79 THEN PRINT "Farrant ";
- IF lastname = 80 THEN PRINT "Estirado";
- IF lastname = 81 THEN PRINT "Eaton ";
- IF lastname = 82 THEN PRINT "Doyle ";
- IF lastname = 83 THEN PRINT "Dunkel ";
- IF lastname = 84 THEN PRINT "Douglas ";
- IF lastname = 85 THEN PRINT "Doering ";
- IF lastname = 86 THEN PRINT "Dodson ";
- IF lastname = 87 THEN PRINT "Hunt ";
- IF lastname = 88 THEN PRINT "Hunter ";
- IF lastname = 89 THEN PRINT "DragonSlayer ";
- IF lastname = 90 THEN PRINT "O' Conner ";
- IF lastname = 91 THEN PRINT "O' Flarity ";
- IF lastname = 92 THEN PRINT "O' Donnel ";
- IF lastname = 93 THEN PRINT "McBride ";
- IF lastname = 94 THEN PRINT "McClain ";
- IF lastname = 95 THEN PRINT "McClellan ";
- IF lastname = 96 THEN PRINT "McConkay ";
- IF lastname = 97 THEN PRINT "McKnight ";
- IF lastname = 98 THEN PRINT "McDonald ";
- IF lastname = 99 THEN PRINT "Kirk ";
- IF lastname = 100 THEN PRINT "Chezcov ";
- IF lastname = 101 THEN PRINT "Miller ";
- IF lastname = 102 THEN PRINT "Moore ";
- IF lastname = 103 THEN PRINT "Moyer ";
- IF lastname = 104 THEN PRINT "Motto ";
- IF lastname = 105 THEN PRINT "Munkholm ";
- IF lastname = 106 THEN PRINT "Neel ";
- IF lastname = 107 THEN PRINT "Nelson ";
- IF lastname = 108 THEN PRINT "Mirsaeidi ";
- IF lastname = 109 THEN PRINT "Lai ";
- IF lastname = 110 THEN PRINT "Meadow ";
- IF lastname = 111 THEN PRINT "Melton ";
- IF lastname = 112 THEN PRINT "Mezrahi ";
- IF lastname = 113 THEN PRINT "Michals ";
- IF lastname = 114 THEN PRINT "Neel ";
- IF lastname = 115 THEN PRINT "Oakes ";
- IF lastname = 116 THEN PRINT "Padgett ";
- IF lastname = 117 THEN PRINT "Palfreyman ";
- IF lastname = 118 THEN PRINT "Peek ";
- IF lastname = 119 THEN PRINT "Payne ";
- IF lastname = 120 THEN PRINT "Planos ";
- IF lastname = 121 THEN PRINT "Polishuk ";
- IF lastname = 122 THEN PRINT "Portman ";
- IF lastname = 123 THEN PRINT "Posey ";
- IF lastname = 124 THEN PRINT "Price ";
- IF lastname = 125 THEN PRINT "Probst ";
- IF lastname = 126 THEN PRINT "Raber ";
- IF lastname = 127 THEN PRINT "Rader ";
- IF lastname = 128 THEN PRINT "Raley ";
- IF lastname = 129 THEN PRINT "Rayfield ";
- IF lastname = 130 THEN PRINT "Reed ";
- IF lastname = 131 THEN PRINT "Reider ";
- IF lastname = 132 THEN PRINT "Riley ";
- IF lastname = 133 THEN PRINT "Richards ";
- IF lastname = 134 THEN PRINT "Riggs ";
- IF lastname = 135 THEN PRINT "Riley ";
- IF lastname = 136 THEN PRINT "Ritter ";
- IF lastname = 137 THEN PRINT "Riazian ";
- IF lastname = 138 THEN PRINT "Robb ";
- IF lastname = 139 THEN PRINT "Robinson ";
- IF lastname = 140 THEN PRINT "Ross ";
- IF lastname = 141 THEN PRINT "Roye ";
- IF lastname = 142 THEN PRINT "Rudd ";
- IF lastname = 143 THEN PRINT "Russell ";
- IF lastname = 144 THEN PRINT "Coden ";
- IF lastname = 145 THEN PRINT "Cooper ";
- IF lastname = 146 THEN PRINT "Schuh ";
- IF lastname = 147 THEN PRINT "Sherry ";
- IF lastname = 148 THEN PRINT "Shute ";
- IF lastname = 149 THEN PRINT "Snider ";
- IF lastname = 150 THEN PRINT "Smith ";
- IF lastname = 151 THEN PRINT "Solis ";
- IF lastname = 152 THEN PRINT "Spain ";
- IF lastname = 153 THEN PRINT "Speaker ";
- IF lastname = 154 THEN PRINT "Sprague ";
- IF lastname = 155 THEN PRINT "Staats ";
- IF lastname = 156 THEN PRINT "Tate ";
- IF lastname = 157 THEN PRINT "Daene ";
- IF lastname = 158 THEN PRINT "Tosh ";
- IF lastname = 159 THEN PRINT "Tomar ";
- IF lastname = 160 THEN PRINT "Tran ";
- IF lastname = 161 THEN PRINT "Ward ";
- IF lastname = 162 THEN PRINT "Vantuyl ";
- IF lastname = 163 THEN PRINT "Urdaneta ";
- IF lastname = 164 THEN PRINT "Underwood ";
- IF lastname = 165 THEN PRINT "Waternix ";
- IF lastname = 166 THEN PRINT "Weidenfelder ";
- IF lastname = 167 THEN PRINT "Notz ";
- IF lastname = 168 THEN PRINT "Wynn ";
- IF lastname = 169 THEN PRINT "Wolfe ";
- IF lastname = 170 THEN PRINT "Wolfechilde ";
- IF lastname = 171 THEN PRINT "Zambalis ";
- IF lastname = 172 THEN PRINT "Zavzavadjian ";
- IF lastname = 173 THEN PRINT "O'Brien ";
- IF lastname = 174 THEN PRINT "Rahman ";
- IF lastname = 175 THEN PRINT "Ganic ";
- IF lastname = 176 THEN PRINT "Gergen ";
- IF lastname = 177 THEN PRINT "Axelrod ";
- IF lastname = 178 THEN PRINT "Ludwig ";
- IF lastname = 179 THEN PRINT "Beebe ";
- IF lastname = 180 THEN PRINT "Zenial ";
- IF lastname = 181 THEN PRINT "Scott ";
- IF lastname = 182 THEN PRINT "Xavier ";
- IF lastname = 183 THEN PRINT "Auckerland ";
- IF lastname = 184 THEN PRINT "Allen ";
- IF lastname = 185 THEN PRINT "Mayall ";
- IF lastname = 186 THEN PRINT "Cates ";
- IF lastname = 187 THEN PRINT "Silverburg ";
- IF lastname = 188 THEN PRINT "Goldburg ";
- IF lastname = 189 THEN PRINT "Zambiolin ";
- IF lastname = 190 THEN PRINT "Rogers ";
- IF lastname = 191 THEN PRINT "Talson ";
- IF lastname = 192 THEN PRINT "Callison ";
- IF lastname = 193 THEN PRINT "Troop ";
- IF lastname = 194 THEN PRINT "Holstien ";
- IF lastname = 195 THEN PRINT "Umbenstock ";
- IF lastname = 196 THEN PRINT "Edwards ";
- IF lastname = 197 THEN PRINT "Ironhill ";
- IF lastname = 198 THEN PRINT "Bloodcross ";
- IF lastname = 199 THEN PRINT "Xzane ";
- IF lastname = 200 THEN PRINT "Tal'Shar ";
- IF lastname = 201 THEN PRINT "Jennings ";
- IF lastname = 202 THEN PRINT "ShadowCrawl ";
- IF lastname = 203 THEN PRINT "Graybane ";
- IF lastname = 204 THEN PRINT "Lifebane ";
- IF lastname = 205 THEN PRINT "Camtatka ";
- IF lastname = 206 THEN PRINT "Monroe ";
- IF lastname = 207 THEN PRINT "Talbolt ";
- IF lastname = 208 THEN PRINT "Jikku ";
- IF lastname = 209 THEN PRINT "Ikina ";
- IF lastname = 231 THEN PRINT "Sigurd ";
- IF lastname = 232 THEN PRINT "Halunn ";
- IF lastname = 233 THEN PRINT "Sitai ";
- IF lastname = 234 THEN PRINT "Fizban ";
- IF lastname = 235 THEN PRINT "GoldeField ";
- IF lastname = 236 THEN PRINT "Clay ";
- IF lastname = 237 THEN PRINT "Demonicus ";
- IF lastname = 238 THEN PRINT "Judge ";
- IF lastname = 239 THEN PRINT "Canterberry ";
- IF lastname = 240 THEN PRINT "Pendragon ";
- IF lastname = 241 THEN PRINT "Do'Urden ";
- IF lastname = 242 THEN PRINT "Lowhill ";
- IF lastname = 243 THEN PRINT "Azoun ";
- IF lastname = 244 THEN PRINT "Cimber ";
- IF lastname = 245 THEN PRINT "Thann ";
- IF lastname = 246 THEN PRINT "Moonblade ";
- IF lastname = 247 THEN PRINT "Sunstar ";
- IF lastname = 248 THEN PRINT "Oriandis ";
- IF lastname = 249 THEN PRINT "Theorn ";
- IF lastname = 250 THEN PRINT "Frajen ";
- IF lastname = 251 THEN PRINT "Don Deloangelo ";
- IF lastname = 252 THEN PRINT "Blade ";
- IF lastname = 253 THEN PRINT "Cage ";
- IF lastname = 254 THEN PRINT "Jade ";
- IF lastname = 255 THEN PRINT "Brown ";
- IF lastname = 256 THEN PRINT "Bashier ";
- IF lastname = 257 THEN PRINT "Verrand ";
- IF lastname = 258 THEN PRINT "Benard ";
- IF lastname = 259 THEN PRINT "Haroldson ";
- IF lastname = 260 THEN PRINT "Orkin ";
- IF lastname = 261 THEN PRINT "Astryd ";
- IF lastname = 262 THEN PRINT "Larson ";
- IF lastname = 263 THEN PRINT "Bolverkr ";
- IF lastname = 264 THEN PRINT "Smith ";
- IF lastname = 265 THEN PRINT "Gealinar ";
- IF lastname = 266 THEN PRINT "Silme ";
- IF lastname = 267 THEN PRINT "Medakin ";
- IF lastname = 268 THEN PRINT "Wizzleteats ";
- IF lastname = 269 THEN PRINT "Picard ";
- IF lastname = 270 THEN PRINT "Rygmyr ";
- IF lastname = 271 THEN PRINT "Donnell";
- IF lastname = 272 THEN PRINT "Poteet ";
- IF lastname = 273 THEN PRINT "Frey ";
- IF lastname = 274 THEN PRINT "Crane ";
- IF lastname = 275 THEN PRINT "Winchester ";
- IF lastname = 276 THEN PRINT "Crusher ;"
- IF lastname = 277 THEN PRINT "Troy ";
- IF lastname = 278 THEN PRINT "Smith ";
- IF lastname = 279 THEN PRINT "Dracul ";
- IF lastname = 280 THEN PRINT "Van Helsing ";
- IF lastname = 281 THEN PRINT "Aki ";
- IF lastname = 282 THEN PRINT "Cappelli ";
- IF lastname = 283 THEN PRINT "Underdark ";
- IF lastname = 284 THEN PRINT "Polus ";
- IF lastname = 285 THEN PRINT "Delgado ";
- IF lastname = 286 THEN PRINT "Webspune ";
- IF lastname = 287 THEN PRINT "Tracker ";
- IF lastname = 288 THEN PRINT "Racer ";
- IF lastname = 289 THEN PRINT "Piniago ";
- IF lastname = 290 THEN PRINT "Foxe ";
- IF lastname = 291 THEN PRINT "Inkstain ";
- IF lastname = 292 THEN PRINT "Othmann ";
- IF lastname = 293 THEN PRINT "Lhal ";
- IF lastname = 294 THEN PRINT "Melisende ";
- IF lastname = 295 THEN PRINT "Zenas ";
- IF lastname = 296 THEN PRINT "Gorgias ";
- IF lastname = 297 THEN PRINT "Spellsong ";
- IF lastname = 298 THEN PRINT "Shadowrun ";
- IF lastname = 299 THEN PRINT "MooroeDale ";
- IF lastname = 300 THEN PRINT "BaShan ";
- IF lastname = 210 THEN PRINT "Tokimuni ";
- IF lastname = 221 THEN PRINT "Flynn ";
- IF lastname = 222 THEN PRINT "Taijitsu ";
- IF lastname = 223 THEN PRINT "Alus ";
- IF lastname = 224 THEN PRINT "Baggins ";
- IF lastname = 225 THEN PRINT "Falcone ";
- IF lastname = 226 THEN PRINT "Kilmachie ";
- IF lastname = 227 THEN PRINT "Nobutada ";
- IF lastname = 228 THEN PRINT "Kamu ";
- IF lastname = 229 THEN PRINT "Higo ";
- IF lastname = 230 THEN PRINT "Arimoto ";
- LET totalrun = toralrun - 1
- IF totalrun = 0 THEN GOTO 100
- 100 PRINT ""
- PRINT
- PRINT
- PRINT
- PRINT
- PRINT
- PRINT
- PRINT
- PRINT
- PRINT
- PRINT
- PRINT
- PRINT
- INPUT "Clear input (Y/N)"; yn$
- PALETTE 4, INT(RND * 63) + 1: PALETTE 3, INT(RND * 63) + 1: PALETTE 1, INT(RND * 63) + 1
- IF yn$ = "N" THEN CLS : GOTO 45
- IF yn$ = "n" THEN CLS : GOTO 45
- IF yn$ = "Y" THEN CLS : GOTO 20
- IF yn$ = "y" THEN CLS : GOTO 20
- CLS
- GOTO 45
- ENDing:
- CLS
- PRINT
- PRINT
- PRINT
- PRINT
- PRINT
- PRINT "BYE!"
- END
-
-