Fire Works Black on White

   1 DIM P(3)
   2 LET P(1)=17531
   3 LET P(2)=17210
   4 LET P(3)=17484
   5 DIM C(3)
   6 LET C(1)=27
   7 LET C(2)=23
   8 LET C(3)=00
  10 FOR X=1 TO 3
  20 FOR Y=1 TO 3
  25 POKE P(X),C(Y)
  30 FOR Z=1 TO 3
  31 POKE P(X)+Z,C(Y)
  32 POKE P(X)-Z,C(Y)
  33 POKE P(X)-33*Z,C(Y)
  34 POKE P(X)+33*Z,C(Y)
  35 POKE P(X)-Z-33*Z,C(Y)
  36 POKE P(X)-Z+33*Z,C(Y)
  37 POKE P(X)+Z-33*Z,C(Y)
  38 POKE P(X)+Z+33*Z,C(Y)
  39 NEXT Z
  40 NEXT Y
  50 NEXT X
  60 RUN 
  70 SAVE "1009%4"
  80 RUN