Beiträge von Kornel im Thema „C64 Kurze Listings“

    Ein schönes Programm aus der Transformer, 1983.

    Zeile 1 habe ich noch hinzugefügt, um die Einstellungen etwas anzupassen (und um die Ausführung ein wenig zu beschleunigen). Es entsteht eine Hommage an einen bekannten Kinofilm!

    Enjoy! :popcorn:

    Code
    1 cl(0)=5:s1=1024:s2=2024:fori=0to999:poke55296+i,cl(iand2):next:poke53281,0
    2 c=32:forn=1to41:c=192-c:fora=0ton:forb=s1+atos2stepn:pokeb,c:nextb,a,n
    Code
    10 print chr$(205.5+rnd(1));:goto10

    Erzeugt Muster

    Danke habe eingetippt und viel Spaß dran gehabt. Ich habe das Programm auf eine Kassette aufgenommen. Es hat geklappt.

    :thumbsup: