SCREEN 13
LOCATE 6, 13: PRINT "TRAVIS SCHULTZ"

DISPBOX:
 LINE (xo, yo)-(xo + 200, yo + 16), 0, B
 x = 55 + 336 * cp
 y = 63 + 16 * rp + (INT((rp - 1) / 5) * 32)
 LINE (x, y)-(x + 200, y + 25), INT(RND * 15) + 1, B
 xo = x: yo = y
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