VTech Precomputer Power Pad Plus - Manual (Page 75)

71
80 GOTO 40
100 PRINT "No! The secret number is smaller."
110 GOTO 40
200 PRINT "Yes! The number is "; NO;"."
210 END
RUN
PATTERN PICTURE
10 CLS
20 REM **DRAW A PICTURE**
30 FOR Y=0 TO 7
40 X= 50+Y
50 PSET X,Y : X=X+1
60 IF X<70-Y THEN GOTO 50
70 NEXT
80 FOR Y=8 TO 15
90 X=50+15-Y
100 PSET X,Y : X=X+1
110 IF X<55+Y THEN GOTO 100
120 NEXT
130 REM REVERSE THIS PICTURE
140 FOR X=49 TO 70
150 FOR Y=0 TO 15
160 IF PGET(X,Y)=0 THEN PSET X,Y ELSE PRESET X,Y
170 NEXT
190 END
RUN