3 SOUND 500, 1
CLS
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
LOCATE 1, 18: COLOR 18, 4: PRINT " AžAŠIDAK˜ SAYILARI KUPONUNUZA YAZINIZ.": COLOR 7, 0
N = 0
J = 3
FOR X = 1 TO 49
S = M(X)
IF S > 1 THEN 99
IF S > 0 THEN J = J + 1: COLOR 7, 4: LOCATE J, 30: N = N + 1: PRINT N; " SAYI====>"; X
NEXT X
LOCATE 12, 25: COLOR 3, 5: PRINT "BOL žANžLAR D˜LER˜M  ": COLOR 7, 0
LOCATE 13, 20: COLOR 4, 8: PRINT "Tekrar Oynamak i‡in         Basnz."
LOCATE 13, 40: COLOR 18: PRINT "[ENTER]"
LOCATE 15, 25: COLOR 7: PRINT "Saat:"; TIME$: LOCATE 15, 40: PRINT "Tarih:"; DATE$
LOCATE 23, 70: COLOR 18: PRINT " M.Ko‡bey "
LOCATE 17, 40: COLOR 0, 0: INPUT C$
IF C$ = "" THEN RUN ELSE END
99 RUN