VTech E Power User Manual download pdf (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

1 2 ... 70 71 72 73 74 75 76 77 78 79 80 ... 87 88

Comments to this Manuals

No comments