10 REM
20 PRINT"数あて"
30 C=INT(RND*100)+1
31 D=C-5+INT(RND*11)
40 INPUT B
41 IF INT(RND*4)=1 THEN A=D ELSE A=C
50 IF A=B THEN GOTO 130
60 X=X+1
65 IF A=B THEN GOTO 150
70 IF A>B THEN PRINT "もっと大きい"
80 IF A<B THEN PRINT "もっと小さい"
90 IF X=50 THEN GOTO 110
100 GOTO 40
110 PRINT "答えは";C;"です"
120 GOTO 140
130 PRINT "正解"
140 END

この数当てはおよそ４回に１回は嘘をつきます。