Inducto

Gallery

Source Code

   5 REM "INDUCTO"
  10 LET A=INT (RND*20)+1
  20 IF RND>RND THEN GOTO 10
  30 FOR B=1 TO 10
  40 SCROLL 
  50 PRINT "GUESS NO. ";B
  60 INPUT C
  70 SCROLL 
  80 IF C=A THEN GOTO 110
  90 PRINT "WRONG ";C,"CLUE- ";SQR (ABS (A-C))
 100 NEXT B
 110 SCROLL 
 120 PRINT A,
 130 IF C<>A THEN STOP 
 140 PRINT "W0W,YOU GOT IT MAN";B
 150 STOP 
 160 SAVE "1022%6"
 170 RUN