SCREEN 13
COLOR 4
PRINT "            *              *"
PRINT "        *      *       *      *"
PRINT "      *          *   *          *"
PRINT "     *             *             *"
PRINT "     *                           *"
PRINT "     *                           *"
PRINT "      *                         *"
PRINT "       *                       *"
PRINT "        *                     *"
PRINT "          *                  *"
PRINT "            *              *"
PRINT "              *          *"
PRINT "                *      *"
PRINT "                  *   *"
PRINT "                    *"
DIM melt%(3000)
FOR RR = 1 TO 10000
RANDOMIZE TIMER
XX = INT(RND * 271)
RANDOMIZE TIMER
YX = INT(RND * 150)
GET (XX, YX)-(XX + 48, YX + 48), melt%
PUT (XX, YX + 1), melt%, PSET
IF INKEY$ = "Q" THEN END
NEXT RR
DO
LOOP