===== Commodore BASIC V4.0 =====

==== Grafik-Demo ====

<code qbasic>
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 
</code>