VTech E Power User Manual download pdf (Page 70)

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

1 2 ... 65 66 67 68 69 70 71 72 73 74 75 ... 87 88

No comments

VTech E Power User Manual Page 70