VTech Power Pad Precomputer Power Pad Plus User Manual 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
66