100 CLS
105 TENT = 0
110 LOCATE 2, 32
120 PRINT "INDOVINA IL NUMERO"
130 LOCATE 4
140 INPUT "INSERISCI IL LIMITE MASSIMO PER IL NUMERO DA INDOVINARE : ", LIM
150 RANDOMIZE TIMER
160 IND = INT(RND * LIM) + 1
170 LOCATE 6
180 PRINT "HO SCELTO IL NUMERO"
190 LOCATE 8
200 PRINT : INPUT "SCRIVI IL NUMERO : ", NUM
205 TENT = TENT + 1
210 IF NUM < IND THEN PRINT "IL NUMERO E' MAGGIORE": GOTO 200
220 IF NUM > IND THEN PRINT "IL NUMERO E' MINORE": GOTO 200
230 IF NUM = IND THEN PRINT "BRAVO! HAI INDOVINATO IL NUMERO IN"; TENT; "TENTATIVI"
240 PRINT : PRINT "GIOCHI ANCORA (S/N) ?"
250 Z$ = INKEY$: IF Z$ = "" THEN 250
260 IF Z$ <> "S" AND Z$ <> "s" AND Z$ <> "N" AND Z$ <> "n" THEN 250
270 IF Z$ = "S" OR Z$ = "s" THEN 100
280 END