CLS
PRINT "*****************************************************"
PRINT "SAYISAL LOTO [6/49] "
PRINT "HAZIRLAYAN:MEHMET KO€BEY (1998)"
DIM M(49)
FOR X = 1 TO 6
RANDOMIZE TIMER
S = INT(RND * 49) + 1
M(S) = M(S) + 1
FOR Y = 1 TO S * 100: NEXT Y
NEXT X
PRINT "B˜LG˜SAYAR TAHM˜N˜ ˜LE  SAYISAL LOTO M˜LYARDER˜ OLUN."
PRINT "žANSLI ve S˜H˜RL˜ SAYILARI TAHM˜N ED˜YORUM."
PRINT "AžA¦IDAK˜ žANSLI SAYILARI LOTO KUPONUNUZA YAZINIZ."
PRINT "*****************************************************"
N = 0
FOR X = 1 TO 49
S = M(X)
IF S > 1 THEN 99
IF S > 0 THEN BEEP: N = N + 1: PRINT N; "===>"; X
FOR Y = 1 TO 400: NEXT Y
NEXT X
PRINT "*****************************************************"
PRINT "KUPONUNUZU BAY˜YE YATIRMAYI UNUTMAYINIZ!...."
PRINT "BOL žANSLAR D˜LER˜M....."
PRINT "TEKRAR OYNAMAK ˜STER M˜S˜N˜Z ?"
PRINT "EVET ˜€˜N (E) ;HAYIR ˜€˜N (H) TUžUNA BASIN."
PRINT "*****************************************************"
INPUT C$
IF C$ = "H" OR C$ = "h" THEN END ELSE RUN
99 PRINT "TAHM˜NDE HATA OLDU.YEN˜DEN TAHM˜N ED˜YORUM."
FOR Y = 1 TO 300 STEP 25
SOUND 500, 1
NEXT Y
RUN