not exactly the same but here's a one liner from a Beagle Bros add from Incider magazine from Nov 1983.
10 HGR2: FOR X=0 TO 255: POKE 228, X: HPLOT 0,0: CALL -3082: NEXT X
10 HGR2: FOR X=0 TO 255: POKE 228, X: HPLOT 0,0: CALL -3082: NEXT X