Vtech PreComputer Power Pad Plus User Manual - Page 75

If Pgetx,y=0 Then Pset X,y Else Preset X,y

Get Vtech PreComputer Power Pad Plus PDF manuals and user guides View all Vtech PreComputer Power Pad Plus manuals
Add to My Manuals
Save this manual to your list of manuals

Page 75 highlights

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

  • 1
  • 2
  • 3
  • 4
  • 5
  • 6
  • 7
  • 8
  • 9
  • 10
  • 11
  • 12
  • 13
  • 14
  • 15
  • 16
  • 17
  • 18
  • 19
  • 20
  • 21
  • 22
  • 23
  • 24
  • 25
  • 26
  • 27
  • 28
  • 29
  • 30
  • 31
  • 32
  • 33
  • 34
  • 35
  • 36
  • 37
  • 38
  • 39
  • 40
  • 41
  • 42
  • 43
  • 44
  • 45
  • 46
  • 47
  • 48
  • 49
  • 50
  • 51
  • 52
  • 53
  • 54
  • 55
  • 56
  • 57
  • 58
  • 59
  • 60
  • 61
  • 62
  • 63
  • 64
  • 65
  • 66
  • 67
  • 68
  • 69
  • 70
  • 71
  • 72
  • 73
  • 74
  • 75
  • 76
  • 77
  • 78
  • 79
  • 80
  • 81
  • 82
  • 83
  • 84
  • 85
  • 86
  • 87
  • 88
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