C64 Kurze Listings

Es gibt 78 Antworten in diesem Thema, welches 23.706 mal aufgerufen wurde. Der letzte Beitrag (1. Juni 2025 um 18:23) ist von _Joey_.

  • Die Klassiker unter den "kurzen" (Basic-) Programmen sind doch auch immer wieder die Einzeiler. Dessen prominentester Verteter aus dem 64er Handbuch stammt und ein Lbyrinth generiert ...

    10 PRINT CHR$(205.5+RND(1)); : GOTO 10

    Bitte melde dich an, um dieses Bild zu sehen.

  • also, hier nochmals die schmackerl als dateien:

    0 "thec64 " 01 2a

    1 "raster-move" prg

    1 "einzeiler-grafik" prg

    1 "10print-hr" prg

    2 "schneefall" prg

    1 "10print-buble" prg

    1 "einzeiler-spiel" prg

    2 "xmas2" prg

    1 "random-graf" prg

    1 "10print-relief" prg

    4 "3d-labyrinth" prg

    649 blocks free.

    -> nach dem ersten programm 'raster-move', dass ja im vice automatisch startet, muss man am besten kurz reset machen, da sonst der bildschirm etwas verschoben ist. dann wie üblich load"$",8...

    sehenswert finde ich vor allem: '10print-hr', '10print-buble', 'random-graf' und '3d-labyrinth'...

  • durch diese zugegeben etwas längere if-then orgie entsteht ein sehr faszinierendes 3D labyrinth!

    Hmm, ist das Labyrinth lösbar, wenn man drinsteht?

    (Als ich mal ein richtiges Labyrinth in Python "brauchte", bzw. haben wollte, hatte ich Bitte melde dich an, um diesen Link zu sehen. verwendet.)

    Und P.S.: Was hast Du gegen [code - Tags hier im Forum? Ist damit einfacher, Copy & Paste zu verwenden.

  • durch diese zugegeben etwas längere if-then orgie entsteht ein sehr faszinierendes 3D labyrinth!

    Hmm, ist das Labyrinth lösbar, wenn man drinsteht?

    (Als ich mal ein richtiges Labyrinth in Python "brauchte", bzw. haben wollte, hatte ich Bitte melde dich an, um diesen Link zu sehen. verwendet.)

    Und P.S.: Was hast Du gegen [code - Tags hier im Forum? Ist damit einfacher, Copy & Paste zu verwenden.

    hi, mir geht es primär um die optik bzw. einfach coole grafische effekte. danke frür den hinweis zum python code.

    wegen den 'code tags'. ich glaube, ich habe einfach die funktion nicht geschnallt. du meinst mit 'Quellcode' formatieren, oder?

  • Ja, in den meisten Einzeilern geht es um grafische Effekte, die sind auch immer ein optischer Genuss. Daraus müssen wohl die Demos entstanden sein ;)

    Ein Fall der noch im meiner Sammlung `rumfliegt, wenn auch nicht die technisch ausgefallenste:
    Bitte melde dich an, um diesen Anhang zu sehen.

  • ... und was die Labyrinthe angeht - das geht auch ohne Python (und weil ich hier neu bin probiere ich auch gleich den Quellcode Button aus :)

  • :D da bin ich über noch `was gestolpert, die kann man seine (wenn vorhandene) Star Wars Manie mit seiner C64 -Liebe vereinen :

  • der ist auch cool, quasi ein auto-maze-generator & solver...


    10 printchr$(147)
    20 fort=40to959:ifint(rnd(1)*3.4)=1thenpoke1024+t,160
    30 nextt
    40 fort=1024to1063:poket,81:next
    50 fort=1063to2023step40:poket,81:next
    60 fort=2023to1984step-1:poket,81:next
    70 fort=1984to1024step-40:poket,81:next
    100 g=1964:br=40:gr=1:poke1704,32:poke1705,32:poke1664,32:poke1665,32
    130 ifpeek(g+br)=32thengosub300
    131 ifpeek(g+gr)<>32thengosub200:goto130
    135 pokeg,32
    140 ifg+gr>1024andg+gr<2023theng=g+gr
    150 pokeg,241
    155 ifg=1704thenend
    160 goto130
    200 ifbr=40thengr=-40:br=1:return
    210 ifbr=1thengr=-1:br=-40:return
    220 ifbr=-40thengr=40:br=-1:return
    230 ifbr=-1thengr=1:br=40:return
    300 ifbr=40thengr=40:br=-1:return
    310 ifbr=-1thengr=-1:br=-40:return
    320 ifbr=-40thengr=-40:br=1:return
    330 ifbr=1thengr=1:br=40:return

  • hey, zusammen, noch was zum thema 'labyrinth'. ein lustiger kurzer einzeiler:

    Code
    1 x=rnd(1)*2:printchr$(164+x);:q=q+1:goto1

    Ich frag' mich allerdings, wozu das q=q+1 dient. Macht alles nur langsamer, oder?

  • Falls jemand mal einen Wechsel zwischen TRUE (-1) und FALSE (0) braucht:

    Code
    0 X=X=0:PRINT X;:GOTO

    "Führungskräfte verrichten keine Arbeit." — Schülerduden Physik

  • Hallo Leute,

    hier noch zwei Listings von mir:

    Ein Filmtitel:

    Ein Zeichenprogramm:

    Code
    1 sys58648:poke53281,0:poke788,82:sys42115
    :

    Gezeichnet wird mit den Cursortasten. Farbwechsel, wie im Direktmodus mit Ctrl + Zahl.


    Gruss,

    Neptun

  • Hallo Leute,

    und noch ein Programm von mir.

    Würfelmuster:

    Code
    1 sys58648:poke53280,0:poke53281,9:b=4^5:f=53*b:poke214,11:fori=0to7:readw(i)
    2 s(i)=val(mid$("03614725",i+1,1)):c(i)=5-9*(i>2):next:fory=0to24:forx=0to39
    3 i=x-s(yand7)and7:pokeb,w(i):pokef+b,c(i):b=b+1:next:next:x$="cube pattern"
    4 sys58640:printchr$(30)chr$(18)spc(2):fori=1tolen(x$):printmid$(x$,i,1)spc(42)
    5 next:poke198,0:wait198,1:getx$:sys58648:end:data95,160,223,160,160,32,160,160
    6 rem 2022 by neptun


    Gruss,

    Neptun

  • und noch ein Programm von mir.

    Boah! 8o Klasse! :zustimm:

    Arndt

    GoDot C64 Image Processing
    Bitte melde dich an, um diesen Link zu sehen. - Bitte melde dich an, um diesen Link zu sehen. - Bitte melde dich an, um diesen Link zu sehen.
    Bitte melde dich an, um diesen Link zu sehen. - Bitte melde dich an, um diesen Link zu sehen. - Bitte melde dich an, um diesen Link zu sehen.

  • mega cool Neptun. du bist hier auf dem forum einer meiner grössten inspirationen unter den 'kurzprogamme' schreibern! vielen dank.

  • Neptun bei deinen vortrefflichen Kalkulationen qualmt mir immer die Birne. :respect:

    Sowas in der Art hatte ich auch mal entworfen für eine Q*bert Pyramide, daher stupste mich das an.

    Von deiner Version abgeleitet, anbei meine formelfreie PETSCII PRINT-Version.

    Mit SPACE lässt sich die Hintergrundfarbe durchschalten.

    Bitte melde dich an, um diesen Anhang zu sehen.

  • Quatron 64

    Meine Interpretation von "4 gewinnt". :) Mit einer ganz kleinen ML-Routine zum Cursorsetzen. :saint:

    Vielleicht geht das ja bei gleicher Funktionalität noch kürzer?

    Bitte melde dich an, um diesen Anhang zu sehen.

    Dateien

    Bitte melde dich an, um diesen Link zu sehen. - Ratespiel • Bitte melde dich an, um diesen Link zu sehen. - BASIC-Erweiterung • Bitte melde dich an, um diesen Link zu sehen. - Sprite-Editor • Bitte melde dich an, um diesen Link zu sehen. - Zeichensatz-Editor Bitte melde dich an, um diesen Link zu sehen. - 2048 Blöcke

  • Vielleicht geht das ja bei gleicher Funktionalität noch kürzer?

    Kürzer geht immer. :) Aber jetzt bloss keine Competition vom Zaun brechen, sonst geht das hier steil offtopic. :emojiSmiley-28:

    Vier gewinnt wollt ich auch immer mal nachmachen, aber es gibt schon gute Varianten.

    Quatron64 hab ich natürlich sofort spontan gegen mich selbst gespielt und gewonnen. Alles prima, nur die Namen Spieler 1 und 2 könnten noch die Farben der Steine haben.

  • Quatron 64

    Meine Interpretation von "4 gewinnt". :) Mit einer ganz kleinen ML-Routine zum Cursorsetzen. :saint:

    Vielleicht geht das ja bei gleicher Funktionalität noch kürzer?

    Bei meinem Ersten Versuch, dachte ich bei der ersten Eingabe, dass ich den Namen von Spieler 1 eingeben soll. Ich hab' also irgendwas mit A am Anfang eingetippt und das Programm hat mit dem schlechtesten Startzug gleich losgespielt... :D