Arvonta on päättynyt ja voittajat ovat...

Tein kilpailun voittajien arpomista varten arvontakoneen QBasicilla, johon en ole koskenut lähes kymmeneen vuoteen. Alla koodi ennen ASCII-koodein askarreltua kalenteriluukkua.

Se on niin yksinkertainen, kuin ulkomuistista osasin tehdä. Kuinka sattumanvaraisia koneen arpomat luvut sitten ovat, ei kuulu tähän, arvontatapa on itsessään ihan riittävän randomi. Onnea vielä voittajille.

CLS
10 RANDOMIZE TIMER
ARPA = INT(RND * 8) + 1
ARPA2 = INT(RND * 11) + 1

IF ARPA = 1 THEN VOITTAJA$ = "Tuoppi"

IF ARPA = 2 THEN VOITTAJA$ = "Juksu"

IF ARPA = 3 THEN VOITTAJA$ = "Nenna"

IF ARPA = 4 THEN VOITTAJA$ = "Anton von Monroe"

IF ARPA = 5 THEN VOITTAJA$ = "tiinanen"

IF ARPA = 6 THEN VOITTAJA$ = "Anonyymi #4"

IF ARPA = 7 THEN VOITTAJA$ = "Rolle"

IF ARPA = 8 THEN VOITTAJA$ = "Pixeli"

IF ARPA2 = 1 THEN VOITTAJA2$ = "Anonyymi #1"

IF ARPA2 = 2 THEN VOITTAJA2$ = "Juksu"

IF ARPA2 = 3 THEN VOITTAJA2$ = "Anonyymi #2"

IF ARPA2 = 4 THEN VOITTAJA2$ = "Nenna"

IF ARPA2 = 5 THEN VOITTAJA2$ = "Anonyymi #3"

IF ARPA2 = 6 THEN VOITTAJA2$ = "Anton von Monroe"

IF ARPA2 = 7 THEN VOITTAJA2$ = "tiinanen"

IF ARPA2 = 8 THEN VOITTAJA2$ = "EevaM"

IF ARPA2 = 9 THEN VOITTAJA2$ = "Anonyymi #4"

IF ARPA2 = 10 THEN VOITTAJA2$ = "Rolle"

IF ARPA2 = 11 THEN VOITTAJA2$ = "Pixeli"

IF VOITTAJA$ = VOITTAJA2$ THEN GOTO 10

PRINT "Ohjaimen voitti "; VOITTAJA$

PRINT "Kahvit voitti "; VOITTAJA2$

END