5     REM "No.7-1 GUESS NUMBER"
10   CLS:CLEAR:CGEN(2):CGSET 0,1:A=32:B=5:G=0:A$="******************"
15   FOR I=8 TO 20:COLOR I,6,2:NEXT
20 LOCATE 5,4:PRINT A$:LOCATE 5,6:PRINT "*   GUESS NUMBER   *":LOCATE 5,8:PRINT A$:LOCATE 7,12:PRINT"Please  
select:"
25 LOCATE 7,16:PRINT "STAGE 1-11 ";:GOSUB 250
30   INPUT E:IF E=11 THEN A=32767:B=15:GOTO 70
40 IF E=1 THEN 70
50    FOR I=2 TO 10:A=A+A:B=B+1:IF I=E THEN 70
60 NEXT
70 X=RND(A):F=0:IF X=0 THEN 70
80 CLS:LOCATE 5,4:PRINT A$:LOCATE 9,6:PRINT"STAGE"B-4:LOCATE 5,8:PRINT A$:LOCATE 0,12:PRINT"IN  
DATA<"A"MAX TIME="B
90   F=F+1 :IF F>B THEN 170
95   LOCATE 0,16:PRINT"                   "
100     LOCATE 0,16:PRINT "TIME="F"IN DATA=";:INPUT D
110 IF D<>X THEN 200
120 IF A=32767 THEN CLS:FOR I=5 TO 20:COLOR I,7,1:NEXT:LOCATE 5,6:PRINT "CONGRATULATIONS!!!":GOSUB  
250:PAUSE 10000:GOTO 180
130 CLS:FOR I=5 TO 20 COLOR I,7,1:NEXT:LOCATE 5,7:PRINT"YOU ARE RIGHT!!!":GOSUB 400
140 LOCATE 5,11:PRINT"PLEASE GO ON TO STAGE "B-C:PAUSE 10000:
150    IF A=16384 THEN A=32767:B=B+1:GOTO 70
160 A=A*2:B=B+1:GOTO 70
170 CLS:G=G+1 LOCATE 5,5:PRINT"TIME IS OVER"B"!!!":LOCATE 4,10:PRINT"CONT OR END ?(Y/N)":Y$=INKEY$(0):IF  
Y$<>"N"AND G<4 THEN 70
180 CLS :LOCATE 8,8:PRINT"GOOD BYE!!!":LOCATE 24,20:PRINT"       ":END
200 LOCATE 0,20:PRINT"                                                ";:GOSUB 350:LOCATE 0,20
210 IF D>X THEN PRINT D"IS BIG! GIVE A SMALLER DATA":GOTO 90
220 PRINT D“IS SMALL！ GIVE A BIGGER DATA”：GOTO 90