10 REM THE CANDY COLLECTIONS PROGRAM 20 REM BY ULAF SILCHOV 1983 30 REM PROPERTIES OF UKRAINE GOVERNMENT 40 LET THECANDY=0 50 LET HOUSES=1 60 PRINT "HOUSES #" HOUSES " - THE CANDY:" THECANDY 70 PRINT "HOW MUCH THE CANDY HAVE ULAF'S FRIEND RECEIVE?" 80 INPUT X 90 IF X = 0 THEN PRINT "BETTER LUCKS NEXT TIMES." 100 IF X = 1 THEN PRINT "TAKES ANOTHER PIECE." 110 IF X >= 5 AND X < 10 THEN PRINT "YOUR MIND LUCKY THAT TIMES." 120 IF X >= 10 THEN PRINT "CLEARLY A LIES, KGB WILL KILL YOUR MIND." 130 LET THECANDY=THECANDY+X 140 LET HOUSES=HOUSES+1 150 PRINT "YOU HAVE " THECANDY " PIECE OF THE CANDY." 160 PRINT " " 170 GOTO 60 Run it at http://www.calormen.com/Applesoft/ From VC&G: http://www.vintagecomputing.com/index.php/archives/506