Coded with C64 Basic:

5 pO53280,0:pO53281,0:pO646,1:?cH(147) 10 for i = 1 to 15 20 poke 53280,i 30 poke 53281,i*rnd(1) 40 next 50 goto 10

Custom Palette:

Syntax:

Red Green Blue Dither

Black

00 00 00 0

White

FD FE FC E

Red

D9 14 1C 4

Cyan

00 96 E5 C

Purple

B4 1A E2 8

Green

1F D2 1E 4

Blue

21 1B AE 4

Yellow

CE FB 02 C

Orange

FF 6F 02 4

Brown

3D 00 0F 4

Light Red

F3 22 00 8

Dark Gray

42 45 40 4

Medium Gray

70 74 6F 8

Light Green

00 DF 9B 8

Light Blue

5F 53 FE 8

Light Gray

A4 A7 A2 C