CB Repository

For i = 0 To 22
      AddText rndname(i Mod 2) + ""
  Next i

  DrawScreen
  WaitKey



  ' palautaa jonkun nimen
  ' sukupuoli = 0=poika, 1=tyttö
  Function rndname(sukupuoli As Byte)
      If sukupuoli = 0 Then
        tmp_arvo As Short = Rnd(1,377)
        Return GetWord("Aadolf Aapeli Aapo Aappo Aarne Aarni Aarno Aaro Aaron Aarre Aarto Aatami Aatos Aatto Aatu Ahti Ahto Ahvo Aimo Aki Akseli Aku Albert Ale Aleksanteri Aleksi Aleksis Alfred Ali Allan Alpi Alpo Altti Alvar Alvi Ano Anselmi Anssi Antero Anton Antti Antto Anttoni Arhippa Arho Ari Armas Arsi Arto Arttu Artturi Arvi Arvo Asko Aslak Asmo Asser Atro Atso Atte August Aukusti Aulis Auno Auvo Benjamin Daavid Daniel Edvard Eelis Eemeli Eemil Eerikki Eero Eetu Eevert Einari Eino Elias Elmer Elmeri Elmo Ensio Erkki Ernesti Erno Esa Esaias Esko Gabriel Hannes Hannu Harri Heikki Heimo Heino Hemminki Hemmo Henri Henrik Henrikki Herkko Herman Hermanni Iikka Iiro Iisakki Iivari Iivo Ilari Ilkka Ilmari Ilmo Ilppo Immanuel Immo Into Isko Ismo Isto Jaakkima Jaakko Jaakob Jaakoppi Jalmari Jalo Jami Jani Janne Jari Jarkko Jarmo Jarno Jere Jeremias Jesse Joakim Joel Johannes Joni Jonne Jonni Joona Joonas Joonatan Joosef Jooseppi Jori Jorma Jouko Jouni Jousia Juha Juhana Juhani Juho Jukka Julius Jussi Juuso Jyri Jyrki Kaapo Kaappo Kaapro Kaarle Kaarlo Kai Kalervo Kaleva Kalevi Kalle Kari Karri Kasperi Kauko Kauno Keijo Keimo Kerkko Kim Kimmo Klaus Konsta Konstantin Kosti Kristian Kuisma Kullervo Kustaa Kustavi Kyösti Lari Lasse Lassi Launo Lauri Leevi Leo Lyly Mainio Manne Manu Markku Marko Markus Martti Matias Matti Mauno Maunu Mauri Mies Miika Miikka Mika Mikael Mikko Miro Miska Nestori Niilo Niklas Niko Nikodemus Nikolai Nuutti Nyyrikki Ohto Oiva Olavi Olli Onni Orvo Oskari Osmo Ossi Ossian Otso Otto Paavali Paavo Panu Pasi Patrik Pauli Pekka Pekko Pellervo Pentti Pertti Perttu Petri Petteri Pietari Pirkka Pyry Päiviö Päivö Raafael Raimo Raine Rainer Raino Rami Rasmus Rauli Rauni Rauno Reijo Reima Reino Reko Rikhard Riku Risto Robert Roni Roope Sakari Saku Salomo Salomon Sami Sampo Sampsa Samu Samuel Samuli Santeri Santtu Saul Seppo Severi Silvo Simo Sipi Sippo Soini Sulevi Sulho Sulo Sylvester Taavetti Taavi Tahvo Taisto Taito Taneli Tapani Tapio Tarmo Tarvo Tatu Tauno Teemu Teijo Tenho Teppo Terho Tero Teuvo Timo Tino Toimi Toivo Tomi Tommi Toni Topi Topias Torsti Touko Tuomas Tuomo Turkka Turo Tuukka Tuure Ukko Uljas Untamo Unto Uolevi Uoti Urho Urmas Urpo Usko Uuno Valdemar Valentin Valio Valo Valto Valtteri Veijo Veikko Veini Veli Verneri Vesa Vihtori Vilhelm Vilho Vili Viljami Viljo Ville Vilppu Visa Voitto Väinämö Väinö Ylermi Yrjänä Yrjö",tmp_arvo)
      Else
        tmp_arvo As Short = Rnd(1,402)
        Return GetWord("Aada Aamu Aija Aila Aili Aina Aini Ainikki Aino Aira Airi Aleksandra Aliisa Alina Alli Alma Amalia Amanda Anelma Anita Anitta Anja Anna Anne Anneli Anni Anniina Annika Annikki Annukka Ansa Anu Arja Armi Asta Auli Aulikki Aune Auni Aura Auri Aurora Birgitta Eerika Eeva Eevi Eija Eila Eine Eini Eira Elena Eleonoora Eliisa Elina Elisa Elisabet Elise Ella Ellen Elli Elma Elmi Elna Elsa Else Elsi Elvi Elviira Emilia Emma Emmi Enni Erja Essi Ester Esteri Eveliina Floora Hanna Hanne Hannele Heidi Heini Helena Helga Heli Helinä Heljä Helka Helle Hellevi Helli Hellin Hellä Helmi Helvi Hely Henna Henni Henriikka Hertta Heta Hilja Hilkka Hilla Hille Hillevi Hilma Hilppa Iida Iina Iines Iiris Ilma Ilmatar Ilmi Ilona Ilta Immi Impi Inari Inka Inkeri Ira Irene Irina Irja Irma Irmeli Iro Jaana Janette Janika Janina Janita Jasmin Jemina Jenna Jenni Joanna Johanna Jonna Josefiina Julia Juliaana Jutta Kaarina Kaija Kaino Kaisa Kaisu Kanerva Karoliina Kastehelmi Katariina Kati Katja Katri Katriina Kerttu Kerttuli Kielo Kiia Kirsi Kirsti Klaara Krista Kristiina Kukka Kukka-Maaria Kylli Kyllikki Lahja Laila Laina Lauha Laura Lea Leea Leena Leeni Leila Lemmikki Lempi Lenita Liina Liisa Liisi Lilja Lilli Linda Linnea Lotta Loviisa Lyydia Lyyli Maaret Maaria Maarit Maija Maiju Maikki Maila Maili Mailis Maini Maire Manta Margareeta Mari Maria Marianna Marianne Marika Marita Maritta Marja Marjaana Marjatta Marjo Marjukka Marjut Marketta Martta Mataleena Matilda Matleena Meeri Meri Merja Mervi Mielikki Miia Miina Mikaela Milja Milka Milla Mimmi Minna Minttu Mira Mirja Mirjami Mirka Mirkka Mirva Nea Nelli Niina Noora Oili Oivi Olga Olivia Onerva Oona Orvokki Outi Paula Pauliina Petra Piia Pilvi Pinja Pirita Piritta Pirjo Pirkko Pulmu Päivi Päivikki Päivä Pälvi Raakel Raija Raila Raili Raisa Raita Rauha Rauna Rauni Rebekka Reeta Reetta Reija Riikka Riina Riitta Ritva Ronja Roosa Ruusu Ruut Saana Saara Saija Saila Saima Saimi Saini Salla Salli Salme Sanelma Sanna Sanni Sara Sari Satu Seija Selja Selma Senja Senni Signe Siiri Silja Silva Sini Sinikka Sirja Sirkka Sirkku Sirpa Sisko Sivi Sofia Sohvi Soila Soile Soili Sointu Solja Sonja Sorja Suoma Suometar Susanna Susanne Suvi Sylvi Sylvia Säde Taija Taimi Taina Talvikki Tanja Tarja Taru Tea Teija Tellervo Teresa Terhi Terhikki Terttu Tiia Tiina Tilda Titta Toini Tuija Tuire Tuomi Tuovi Tuula Tuuli Tuulia Tuulikki Tytti Tyyne Tyyni Ulla Ulpu Unelma Ursula Valma Valpuri Vanamo Vappu Varma Varpu Vaula Veera Vellamo Venla Verna Viena Vieno Viivi Vilhelmiina Vilja Vilma Viola Virpi Virva Virve Vuokko",tmp_arvo)
      EndIf
  EndFunction