SCREEN 13 FOR a = 0 TO 63 OUT 968, a OUT 969, 0 OUT 969, 0 OUT 969, 0 NEXT a COLOR 63 PRINT "QB45" DIM qb(32, 8) AS INTEGER FOR x = 0 TO 32 FOR y = 0 TO 8 qb(x, y) = POINT(x, y) NEXT y, x CLS FOR a = 0 TO 63 OUT 968, a OUT 969, a OUT 969, a OUT 969, a NEXT a FOR x = 0 TO 32 FOR y = 0 TO 8 LINE (x * 5 + 80, y * 12.5 + 50)-(x * 5 + 4 + 80, y * 12.5 + 12 + 50), qb(x, y), BF NEXT y, x FOR blur = 0 TO 1 FOR x = 75 TO 240 FOR y = 45 TO 150 PSET (x, y), (POINT(x, y) + POINT(x + 1, y) + POINT(x - 1, y) + POINT(x, y - 1) + POINT(x, y + 1)) / 5 NEXT y, x NEXT blur DIM qb2(165, 105) AS INTEGER FOR x = 75 TO 240 FOR y = 45 TO 150 qb2(x - 75, y - 45) = POINT(x, y) NEXT y, x movex = 28 movey = 15 FOR x = 75 TO 240 FOR y = 45 TO 150 IF qb2(x - 75, y - 45) = 0 THEN GOTO 1 ELSE IF qb2(x - 75, y - 45) > 0 THEN PSET (x + movex, y + movey), ((POINT(x + movex, y + movey) + qb2(x - 75, y - 45)) / 2) IF POINT(x + movex, y + movey) = 0 THEN PSET (x + movex, y + movey), qb2(x - 75, y - 45) 1 NEXT y, x