Commodore BASIC V4.0

Grafik-Demo

10 C = 32
20 FOR N = 1 TO 41
30 C = 192 - c
40 FOR A = 0 TO N
50 FOR B = 32768 + A TO 34768 STEP N
60 POKE B, C
70 NEXT B, A, N