Vtech PreComputer Power Pad Plus User Manual - Page 70

IF DIFF= 0 THEN PRINT Wow that was right

Page 70 highlights

ROCK, PAPER, SCISSORS 10 PRINT "Rock, Paper, Scissors" 20 PRINT "Type in P, R, S" 30 INPUT "and see if you win. ->"; ANSWER$ 40 PRINT "You :" ; ANSWER$; 50 MYGUESS = INT (RND (0)*(3) + 1) 60 IF MYGUESS = 1 THEN PRINT " Me : Rock" 70 IF MYGUESS = 2 THEN PRINT " Me : Paper" 80 IF MYGUESS = 3 THEN PRINT " Me : Scissors" 90 INPUT "To play again press Y : "; AGAIN$ 100 IF AGAIN$ = "Y" OR AGAIN$ = "y" THEN 20 110 END RUN CANDY KISSES 10 PRINT "How many candy kisses" 20 PRINT "would equal your" 30 PRINT "weight if each kiss" 40 PRINT "weighed one ounce" 50 INPUT "Enter your weight." ; WEIGHT 60 INPUT "Enter a guess.";GUESS 70 AMOUNT = WEIGHT *16 80 DIFF = ABS (AMOUNT-GUESS) 90 PRINT AMOUNT; "kisses will" 100 PRINT "equal your weight." 110 PRINT "You were "; DIFF; "off." 120 IF DIFF= 0 THEN PRINT "Wow that was right on!" 130 END RUN 66

  • 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

66
ROCK, PAPER, SCISSORS
10
PRINT “Rock, Paper, Scissors”
20
PRINT “Type in P, R, S”
30
INPUT “and see if you win.
->”; ANSWER$
40
PRINT “You :” ; ANSWER$;
50
MYGUESS = INT (RND (0)*(3) + 1)
60
IF MYGUESS = 1 THEN PRINT “ Me : Rock”
70
IF MYGUESS = 2 THEN PRINT “ Me : Paper”
80
IF MYGUESS = 3 THEN PRINT “ Me : Scissors”
90
INPUT “To play again press Y : ”; AGAIN$
100
IF AGAIN$ = “Y” OR AGAIN$ = “y” THEN 20
110
END
RUN
CANDY KISSES
10
PRINT “How many candy kisses”
20
PRINT “would equal your”
30
PRINT “weight if each kiss”
40
PRINT “weighed one ounce”
50
INPUT “Enter your weight.” ; WEIGHT
60
INPUT “Enter a guess.”;GUESS
70
AMOUNT = WEIGHT *16
80
DIFF = ABS (AMOUNT-GUESS)
90
PRINT AMOUNT; “kisses will”
100
PRINT “equal your weight.”
110
PRINT “You were ”; DIFF; “off.”
120
IF DIFF= 0 THEN PRINT “Wow that was right on!”
130
END
RUN