Egész jó kis c64 basic játék forráskóddal. Átírható ?

http://www.indieretronews.com/2021/03/uberswap-match-3-variant-for-commodore.html#more

Ki lehetne hüvelyezni mit és hogyan csinál, ha lenne hozzá elég türelme valakinek. Az assembly részek az elemek mozgatását végzik, semmi mást. A többi mind BASIC-ben van megírva. Egyébként írja a szerző, hogy BASIC-ben dög lassú, ő is egy fordítóval tette élvezhető sebességűvé.

Egyébként az elemek PETSCII grafikus karakterekből vannak összeállítva 2x2-es egységekké. És hát az attribútumos (mert ugye nincs másfajta) karakteres képernyőn fut a program, ami kicsit nehezít az esetleges átíráson.

Igazából a C64 BASIC-jén nincs sok minden érteni való, lévén csak egy nagyon alap nyelv. Amit érdemes tudni, az a gép működése, hogy mit és hová kell POKE-olni, hogy a grafikát és zenét működtetni lehessen. Ki tudom ezeket a dolgokat deríteni, de nincs benne rutinom a C16 vagy Plus/4 masinákkal ellentétben. Ráadásul most a melóban is jobban kell tempóznom, és a pluszin van egy hobbi projektem, amit szeretnék kiszenvedni végre magamból. Így nem szívesen kezdenék hozzá. Viszont a nyári két hetes szabadságomon valószínűleg tudnék belőle Plus/4-es változatot készíteni, csak az nem segít rajtad.

A basic reszhez szinte hozza se kell nyulni, szerintem ugy athuzhato ep-re, annyi, hogy c64 basic rugalmasan kezeli a space es a lezaro aposztrof hianyat. Print at nincs, ott a "-on beluli vezerlokarakterekkel pozicionalnak. Az erdekes resz, a gepi kodu betetekbol adodik, mag abbol , hogy a grafika, zene pokok hada.

Azt sem értem teljesen, hogy a Githubon a basic mappában hogyan érhető el maga a program. Bal oldalon kikattintgattam azokat a nyilakat, és újabb programsorok is megjelentek. Az egészet copy-pastéval lemásoltam, itt van, remélem, nem maradt ki semmi:
(Attachment Link)
Néhány programsor kétszer szerepel, a régi verzió is benne van, pl. a 110-es sor ilyen. Nem tudom, a Githubon be lehet-e állítani, hogy csak a legutóbbi verziót mutassa. Ahogy nézem, mindenhol csak a go változó nevét írták át gz-re a régi verzióhoz képest. (Vagy fordítva, de gondolom, a piros a régi, a zöld az új verzió.)
A változók végén a % jelek a $ megfelelői?
Mindenképpen Commodore szaki kéne, hogy az a sok poke mit csinál.

PRINT AT hiányában az lehet érdekes, hogyan oldják meg, ha PRINT AT X,Y: van, amikor X és Y változó, de biztos erre is poke kell.

Magára az uberswap.bas fájlnévre kellett volna kattintanod. Az megnyitja a fájl aktuális állapotát. Amit néztél az egy eltéréseket összegző megjelenítés a legutóbbi változtatásokról, ami a go-ról gz-re átnevezés. Ezért is vannak benne duplázott sorok.

A % azt jelenti, hogy egész típusú numerikus változó, vagyis szám, aminek az értéke -32768..32767 lehet.

Ahogy azt szerintem már korábban is mondtuk és geco most is elismételte, a PRINT parancsban az idézőjelek közé zárt karakterlánc vezérlő karaktereket is tartalmazhat, mint kurzor fel, le, jobbra, balra, képernyő bal felső sarkába, képernyő törlés, kiírás színének megváltoztatása. Ezzel lehet pozicionálni a szövegeket a kép tetszőleges pontjára. Lásd a 35000-es sortól kezdődő szubrutint. Bár itt eltérő a kódolás attól, amit C64-en látnál, mert PC-n vagy böngészőkben a PETSCII grafikus karaktereket nagyon nehéz megjeleníteni.

C64 kepernyoje 40x25 alapbol, ezen novelni nem lehet, max sprite-okat lehet kirakni a keretre trukkel. A szelesseget lehet 38 karakterre csokkenteni, es raster interrupt segitsegevel lehet meg egyeb manipulaciot vegezni, de szerintem ez utobbi ketto nem fordul elo a basic programban.

. de X,Y-nál mindig eltérő számú kell, így az előre elkészített vezérlőkarakteres PRINT-ek nem jók.

Nem-e? Ehhez mit szólsz? PRINT "{ugrás bal felső sarokba}";LEFT$("{39*jobbra}",X);LEFT$("{24*le}",Y);A$

Első probléma, a sorszámok. Az eleje kivételével öt számjegyűek. Én egyesével átírnám kisebbre, mondjuk tízesével növekvőre. Ez azonban nem tesz jót a gosuboknak. Így még ezt megelőzően át lehetne írni az összes gosub-ot call eljárásra. Ahova a gosub ugrik, az lenne def blokknév, a return helyett meg end def lenne. Szerencsére a szöveges dokumentumban lazán megoldható, hogy az összes return-t end def-re írja át, és a gosub-ot meg call-ra, így kicsit kevesebbet kell majd pötyögni. Szóval én így esnék neki. Nem tudom, ennek a változtatásnak lehet-e bármilyen hátránya, pl. nem mindig az általunk értelmezett eljárás első sorára megy a call, vagy kiugrál, önmagát hívja meg vagy bármi, ami gosubbal még működik, call-lal már nem. Belső változók keletkeznének így, amit a Zzzip nem csíp, de majd kihozhatjuk őket a főprogram elé numeric után. Ahol THEN után van egyből RETURN, nyilván nem lehet END DEF-re cserélni, így pl. GOTO kéne, és egyelőre hagyni, ahogy van, és ha meglesznek a sorszámok, akkor kellene átírni.
Vélemény?
Feltettem ide a programlistát. Bárki megnézheti, de szerkesztéshez engedély kell. De meg lehet csinálni úgy is, hogy bárki szerkeszthesse, olyan még úgyse volt, max. jönnek ráérő internet-cowboyok és elrontják az egészet. Ha valaki szeretne engedélyt a szerkesztéshez, szóljon! Elvileg gmail kell hozzá.