CLS
ON ERROR GOTO virhe
OPEN "c:\dos\lotto.dat" FOR INPUT AS #1
INPUT #1, ala
INPUT #1, yla
INPUT #1, maara
CLOSE
RANDOMIZE TIMER

alkuun:
PALETTE 0, 1
CLS
COLOR 7, 1, 1: PRINT
PRINT "   ÛÛ            ÜÜÛÛÛÛÛÛÜÜ      ÛÛÛÛÛÛÛÛÛÛ    ÛÛÛÛÛÛÛÛÛÛ       ÜÜÛÛÛÛÛÛÜÜ"
PRINT "   ÛÛ            ÛÛ      ÛÛ          ÛÛ            ÛÛ           ÛÛ      ÛÛ"
PRINT "   ÛÛ            ÛÛ      ÛÛ          ÛÛ            ÛÛ           ÛÛ      ÛÛ"
PRINT "   ÛÛ            ÛÛ      ÛÛ          ÛÛ            ÛÛ           ÛÛ      ÛÛ"
PRINT "   ÛÛ            ÛÛ      ÛÛ          ÛÛ            ÛÛ           ÛÛ      ÛÛ"
PRINT "   ÛÛ            ÛÛ      ÛÛ          ÛÛ            ÛÛ           ÛÛ      ÛÛ"
PRINT "   ÛÛÛÛÛÛÛÛÛ     ßßÛÛÛÛÛÛßß          ÛÛ            ÛÛ           ßßÛÛÛÛÛÛßß"
LOCATE 19, 20: PRINT "ENTER  =  arpoo"; maara; "numeroisen rivin v„lilt„"; ala; "-"; yla
LOCATE 20, 20: PRINT "ESC    =  lopettaa lotto ohjelman"
LOCATE 21, 20: PRINT "A      =  arpomis asetukset"
COLOR 4, 2, 2
LOCATE 13, 18: PRINT "                                            "
LOCATE 14, 18: PRINT "                                            "
LOCATE 15, 18: PRINT "                                            "
valikko:
vali$ = INKEY$
IF vali$ = CHR$(13) THEN GOTO arvonta
IF vali$ = CHR$(27) THEN GOTO lopetus
IF vali$ = CHR$(97) OR vali$ = CHR$(65) THEN GOTO asetukset
GOTO valikko

arvonta:
LOCATE 14, 19: PRINT "                                           "
FOR silmu = 1 TO maara
ei:
a = RND
a = a * 100
b = INT(a)
IF b > yla THEN GOTO ei
IF b < ala THEN GOTO ei
FOR tark = 1 TO 10
IF b = luku(tark) THEN GOTO ei
NEXT
luku(silmu) = b
NEXT
FOR ds = 1 TO 10
FOR hj = 1 TO maara - 1
IF luku(hj) > luku(hj + 1) THEN SWAP luku(hj), luku(hj + 1)
NEXT
NEXT
qw = 19
FOR we = 1 TO maara
LOCATE 14, (qw): PRINT luku(we)
qw = qw + 4
NEXT
GOTO valikko

lopetus:
COLOR 14, 4, 4
LOCATE 8, 20: PRINT "                                      "
LOCATE 9, 20: PRINT "    LOPETETAANKO LOTTO OHJELMA ???    "
LOCATE 10, 20: PRINT "                                      "
LOCATE 11, 20: PRINT "       ENTER  =  lopetetaan           "
LOCATE 12, 20: PRINT "       ESC    =  peruuta              "
LOCATE 13, 20: PRINT "                                      "
COLOR 7, 1, 1
juy:
vali$ = INKEY$
IF vali$ = CHR$(13) THEN SYSTEM
IF vali$ = CHR$(27) THEN GOTO alkuun
GOTO juy

asetukset:
COLOR 14, 4, 4
FOR ty = 7 TO 18
LOCATE (ty), 18: PRINT "                                             "
NEXT
LOCATE 8, 19: PRINT "Anna kysytyt tiedot, kuitaa enterill„."
LOCATE 10, 19: INPUT "Montako numeroa arvotaan (max. 10) "; maara1
LOCATE 12, 19: INPUT "Arvonta alueen pienin numero (max.89) "; ala1
LOCATE 14, 19: INPUT "Arvonta alueen suurin numero (max.90) "; yla1
LOCATE 16, 25: PRINT "ENTER  =  OK"
LOCATE 17, 25: PRINT "ESC    =  Peruuta"
COLOR 7, 1, 1
sdf:
valli$ = INKEY$
IF valli$ = CHR$(13) THEN GOTO talteen
IF valli$ = CHR$(27) THEN GOTO alkuun
GOTO sdf
talteen:
OPEN "c:\dos\lotto.dat" FOR OUTPUT AS #1
ala = ala1
yla = yla1
maara = maara1
PRINT #1, ala
PRINT #1, yla
PRINT #1, maara
CLOSE
GOTO alkuun



virhe:
RESUME asetukset