ROCK, PAPER, SCISSORS

10PRINT “Rock, Paper, Scissors”

20PRINT “Type in P, R, S”

30INPUT “and see if you win. ->”; ANSWER$

40PRINT “You :” ; ANSWER$;

50MYGUESS = INT (RND (0)*(3) + 1)

60IF MYGUESS = 1 THEN PRINT “ Me : Rock”

70IF MYGUESS = 2 THEN PRINT “ Me : Paper”

80IF MYGUESS = 3 THEN PRINT “ Me : Scissors”

90INPUT “To play again press Y : ”; AGAIN$

100IF AGAIN$ = “Y” OR AGAIN$ = “y” THEN 20

110END

RUN

CANDY KISSES

10PRINT “How many candy kisses”

20PRINT “would equal your”

30PRINT “weight if each kiss”

40PRINT “weighed one ounce”

50INPUT “Enter your weight.” ; WEIGHT

60INPUT “Enter a guess.”;GUESS

70AMOUNT = WEIGHT *16

80DIFF = ABS (AMOUNT-GUESS)

90PRINT AMOUNT; “kisses will”

100 PRINT “equal your weight.”

110 PRINT “You were ”; DIFF; “off.”

120IF DIFF= 0 THEN PRINT “Wow that was right on!”

130END

RUN

66