Hier ein BASIC-Einzeiler, den ich in der Zeitschrift The Transactor, Vol. 4
gefunden habe (die Ausgabe mit entfaltbarem Jim Butterfield..!):
Code
1 c=32 : for n=1 to 41 : c=192-c : for a=0 to n : for b=32768+a to 34768 step n : poke b,c : next b,a,n
Der Code ist für den 8032, bitte für die 40-Zeichen - CBMs (z.B. den 4032) 34768 in 33768 ändern.
Das funktioniert natürlich auch auf VC20 und C64 mit den entsprechende
Änderungen.
Viel Spaß