Konfetti (OL)

Passend zum heutigen Rosenmontag, passend zur Tradition und passend zur aktuellen One-Liners-Compo präsentiert C128.Net: Konfetti OL. Dieses Programm ist nur auf einem Commodore 128 lauffähig, da es BASIC 7.0 Befehle und Eigenschaften nutzt.

Konfetti OL
Viele bunte, herabrieselnde Konfetti-Flocken (ASCII-Zeichensatz)

1 i$=chr$(19)+chr$(27)+"i":c=55296:color0,2:color4,2:graphic0,1:fori=1 to50:p=rnd(1)*800:poke1024+p,81:pokec+p,i:next:fori=0to256:printi$;:for j=1to3:p=rnd(1)*40:poke1024+p,81:pokec+p,i+jand255:next:i=iand255:next

Hier das Programm als Einzeiler

1 i$=chr$(19)+chr$(27)+"i":c=55296:color0,2:color4,2:graphic0,1: fori=1to50:p=rnd(1)*800:poke1024+p,81:pokec+p,i:next
2 fori=0to256:printi$;:forj=1to3:p=rnd(1)*40:poke1024+p,81: pokec+p,i+jand255:next:i=iand255:next

Und auch als Zweizeiler (zum direkten Einkopieren nach VICE)

Dieser Beitrag wurde unter C128, Soft veröffentlicht. Setze ein Lesezeichen auf den Permalink.

Schreibe einen Kommentar

Deine E-Mail-Adresse wird nicht veröffentlicht. Erforderliche Felder sind mit * markiert.

Time limit is exhausted. Please reload CAPTCHA.