80 GOTO 40

100PRINT "No! The secret number is smaller."

110GOTO 40

200PRINT "Yes! The number is "; NO;"."

210END

RUN

PATTERN PICTURE

10 CLS

20REM **DRAW A PICTURE**

30FOR Y=0 TO 7

40X= 50+Y

50PSET X,Y : X=X+1

60IF X<70-Y THEN GOTO 50

70NEXT

80FOR Y=8 TO 15

90X=50+15-Y

100PSET X,Y : X=X+1

110IF X<55+Y THEN GOTO 100

120NEXT

130REM REVERSE THIS PICTURE

140FOR X=49 TO 70

150FOR Y=0 TO 15

160IF PGET(X,Y)=0 THEN PSET X,Y ELSE PRESET X,Y

170NEXT

190END

RUN

71