Ilyen az, amikor karácsony előtt nincs ideje az embernek a sok tennivaló miatt, és utána kénytelen bepótolni a lemaradást. De nem baj, majd jövőre megint elővesszük. A programban háromféle hangzás váltja egymást. (Szerencsére a felüláteresztő szűrőt basicből is könnyedén lehet használni, nem úgy, mint C64-en.)
 kisk.bas (0.95 kB - downloaded 19 times.)
 Kiskar music.ep128s (44.83 kB - downloaded 23 times.)

Pár hete az Enterprise-os Facebook csoportba Varga Péter feltöltötte friss játékát. Felteszem ide, nehogy elvesszen az Internet labirintusában.
Eredeti basic program és Zzzippel fordított változat mellékelve. A lemezképből kiszedtem a fájlokat külön is.
Reversi, közre kell fogni az ellenfél más színű korongjait, és átváltozik a színűk.
Esetleg még lehetne zenét, hangeffekteket és soronként változó palettát tenni bele, netán más karakterkészletet, amitől "karakteresebb" lenne a megjelenése.

 Vice-versa.zip (7.88 kB - downloaded 25 times.)
 Vice_Versa.img (720 kB - downloaded 19 times.)

Létezik olyan hex editor, amiben van "az összes cseréje" funkció? (Mint pl. az összes "b" betűt kicseréli a "x" betűre a PC-s Jegyzettömbben vagy Word-ben is.) Egy adott fájlban az összes 88h-t lecseréli F5h-ra. Pár netes hex editort és az Asmont néztem, ott nem találtam. A végén még írok egy basic programot, amely bájtonkét beolvassa és kimenti a fájlt, és IF-fel közben megnézni, és ha az adott bájt az, akkor lecseréli.

Hogy tudok egy basic programlistát txt-be, vagy bármibe konvertálni, amit a pc-n be tudok olvasni?

Van valahol egy LUA script is az emulátorhoz, amit talán Zozo írt, és ha az lefut, akkor a LLIST (shift+F2) is kirakja txt fájlba a listát. Ez gyorsabb lehet annak, aki lassan gépeli be a parancsokat.

Nem lehet, hogy a problémás fájlok írásvédettek, vagy letöltés után a rendszer nem találja a fájlokat megbízhatónak?

3. szerettem volna a "8" számból print kiíráskor "1/8"-at csinálni, de már elfelejtettem hogy kell. C nyelven printf("1/%d",8) lenne.
 ha azt írom be, hogy
print "1/",8
akkor a betûk nagyon távol lesznek egymástól.

PRINT "1/"&STR$(8)
vagy egyszerűen:
PRINT "1/8"

Nagyjából rájöttem, mi lehetett a gond a ritmussal, de nem értem az okát. Nem az kell, hogy kétszer fusson le a várakoztatási ciklus kétszer olyan hosszú hang esetén, hanem hatványozni kell a hanghosszt. Ez érdekes, mert a kétszer akkora szám a várakozásnál és a DURATION-nél is kétszer akkora, szóval lehet, hogy egy fekete lyuk közeledik a Föld felé, ezért hülyült meg a téridő kontinuum, és jobb esetben csak a Naprendszernek, rosszabb esetben az egész Galaxisnak kampec. De még mielőtt ez bekövetkezne, talán még ki tudjuk próbálni a népdalgeneráló szoftver új verzióját.
A hangzáson is pofoztam egy kicsit, gyűrűmoduláció nélkül az Enterprise zene olyan, mint a Fidesz Orbán Viktor nélkül.
Közben az is kiderült, hogy ha SYNC-kel össze van kapcsolva egymással a két csatorna, akkor az INTERRUPT paraméter fabatkát sem ér, ez is fura, mert ha mindkét csatornára beteszem az interruptot, működnie kéne. Helyette a release nevű rafinériát pakoltam bele az envelope numberbe, a SOUND-nál meg DURATION 1-et adtam meg, így a még szóló, de mégsem szóló hangot megszakítja a következő hang, ha tetszik, ha nem. A két sound-nak két külön envelope-t is csináltam, mert sztereó hang nélkül az Enterprise zene olyan, mint a cauldronos néni seprű nélkül.
Megszüntettem a DO-LOOP ciklust, helyette FOR ciklusban olvassa be az adatokat. Elsőre nagyon nagy számot adtam meg a TO után, majd a hiba után kiírattam a ciklusváltozó értékét, abból kivontam egyet, és az került a TO után, így nem kell egyesével megszámolni, hány hang van összesen.
Egész jó ötlet ez a program. Így most hallgatás közben a zene hangjait is tanulmányozhatjuk. Ebből már azt is meg lehetne csinálni, hogy kotta formátumban rakja ki a hangokat. Esetleg a kottát ki is lehessen nyomtatni, ha a másik topikban sikerül életre kelteni azt a nyomtatót.
(Volt egyszer egy basic program, amiben kotta formátumban lehetett egyszerű zenét szerkeszteni. Nem volt tökéletes, de nagyjából működött. Nem tudom, megvan-e valahol. Egy cserepartnerem küldte anno.)