VTech Power Pad Precomputer Power Pad Plus User Manual page 75

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
71