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