Tarz sahibi bir sayı tahmin oyunu

sayitahmin.bas

'maidis
' FreeBASIC ve QBasic ile test edilmiştir
Dim a As Integer
Dim k As Integer
Dim I As Integer
Dim s As Integer
Dim x As String
SCREEN 12
COLOR 2
bas:
CLS
RANDOMIZE TIMER
a = INT(RND * 100 + 1)
k = 0
LOCATE 1, 30
PRINT "sayi tahmin oyunu v0.3"
LOCATE 5, 3
PRINT "01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20"
LOCATE 6
FOR I = 21 TO 100
NEXT I
DO UNTIL s = a
LOCATE 12, 55
PRINT " "
LOCATE 12, 25
INPUT "1-100 arasi bir sayi giriniz: ", s
k = k + 1
LOCATE 13, 25
IF s = a THEN PRINT "tebrikler"; k; ". denemede bildiniz": GOTO sor
IF s > a THEN PRINT "cok buyuk "
IF s < a THEN PRINT "cok kucuk "
IF s < 1 OR s > 100 THEN LOCATE 13, 25: PRINT "sinir 1 ve 100 dir": GOTO don
IF s > 0 AND s < 21 THEN LOCATE 5, ((s * 4) - 2) + 1: PRINT "__"
IF s > 20 AND s < 41 THEN LOCATE 6, (((s - 20) * 4) - 2) + 1: PRINT "__"
IF s > 40 AND s < 61 THEN LOCATE 7, (((s - 40) * 4) - 2) + 1: PRINT "__"
IF s > 60 AND s < 81 THEN LOCATE 8, (((s - 60) * 4) - 2) + 1: PRINT "__"
IF s > 80 AND s < 100 THEN LOCATE 9, (((s - 80) * 4) - 2) + 1: PRINT "__"
IF s = 100 THEN LOCATE 9, 78: PRINT "___"
don:
LOOP
sor:
LOCATE 14, 25
INPUT "tekrar oynamak ister misiniz(e/h)"; x
x = UCASE$(x)
IF x = "E" THEN GOTO bas
IF x = "H" THEN CLS : END ELSE GOTO sor