100 REM JUEGO DE ADIVINAR
110
120 PRINT "ADIVINA QUE NUMERO ESTOY PENSANDO! (ENTRE 1 y 100)."
130
140 LET X = INT(100*RND(0)+1)
150 LET N = 0
160 PRINT "TU INTENTO";
170 INPUT G
180 LET N = N+1
190 IF G = X THEN 300
200 IF G < X THEN 250
210 PRINT "MUY GRANDE, INTENTA DE NUEVO"
220 GOTO 160
230
250 PRINT "MUY CHICO, INTENTA DE NUEVO"
260 GOTO 160
270
300 PRINT "LO ADIVINASTE! Y LO HICISTE EN"; N; "INTENTOS"
310 PRINT "OTRO JUEGO (SI = 1, NO = 0)";
320 INPUT A
330 IF A = 1 THEN 140
340 PRINT "GRACIAS POR JUGAR"
350 END