Welcome, Guest. Please login or register.


Author Topic: Basic programok átírása bármilyen gépről (Read 9094 times)

Offline szipucsu

  • EP addict
  • *
  • Posts: 8700
  • Country: hu
  • OS:
  • Windows 7/Server 2008 R2 Windows 7/Server 2008 R2
  • Browser:
  • Firefox 84.0 Firefox 84.0
    • View Profile
    • Webnyelv.hu - Tanuljunk nyelveket!
Re: Basic programok átírása bármilyen gépről
« Reply #30 on: 2020.December.26. 21:54:27 »
Nemrég írt valaki TVC-re egy logikai játékot basicben. Gondoltam, átírom EP-re. Kicsit lassú lett, de a Zzzip simán lefordította.

A játék célja, a képernyő alsó részén lévő elemeket elhelyezni a felső rácsos részen. Ha egy sort teljesen kitöltenek az elemek, akkor az a sor eltűnik, mint az igazi Tetrisben. Minden sor eltüntetéséért kapunk egy pontot. Összesen 86 pontot kell összegyűjteni, mert 86-ban jelent meg a TVC.
Meg kell adni, melyik alsó boxból vesszük ki az elemet, és hogy a felső rácsos részen hova tesszük, ezeket számokkal kell bepötyögni. Először az alsó box számát (1-3) kell megadni, utána a felső rácsos részen azt a koordinátát, ahol az elem kezdődjön, először a függőleges, utána a vízszintes koordinátát kell megadni, mint a torpedós játéknál.
Ha minden kötél szakad, az "m" billentyűvel segítséget lehet kérni, 3 segítség van összesen.
Ha már semmiképpen nincs tovább, a "q"-val ki lehet lépni a programból.
Snapshotban a Zzzippel fordított változat:
* Multetris 2020 from TVC.ep128s (55.59 kB - downloaded 28 times.)
* Multetris 2020.zip (14.01 kB - downloaded 28 times.)
26028-2

Ez most (egyelőre) a TVC-s játék egy az egyben átírt változata, semmi extra nincs benne, de még lehetne rajta fejleszteni, színesíteni, stb.

Az átírás menetéről néhány érdekesség, hátha valakit érdekel:
A TVC képernyője (4 színű módban) 32 karakter széles (az EP-é 42), ezért 32 széles videolapot nyitottam. A függőleges méretet 27-re állítottam be, így talán kicsit túl lent van a kép. Azért adtam meg 27-et, mert a grafikus képernyő koordinátái így esnek egybe a legjobban az EP-s koordinátákkal, a grafikus képernyő így lesz a két gépen szinte ugyanakkora függőlegesen. TVC-n egyszerre szöveges és grafikus a képernyő, szövegesen 24 karakter fér el rajta, mint EP-n alapból, grafikusan viszont nagyobb, mint az EP-s 24 karakter magas képernyő. Ez azért van, mert a TVC-s karakterek egy pixellel magasabbak, így több hely kell nekik. A játék vegyesen használ PRINT és PLOT parancsokat is, ezért állítottam akkorára a képernyőt, mint TVC-n, 27 karakter magasra (ami a grafikus képernyő magasságának felel meg.)
Először attribútum módban akartam megcsinálni, hogy több szín lehessen majd, de ott szembesültem a ténnyel, amit karácsonykor írtam, hogy külön kezeli a PRINT-tel és a PLOT-tal rajzolást, "két ceruzát használ". Így 4 színes mód maradt. Itt a probléma az volt, hogy ha felülírunk valamit, akkor azt szóközzel nem lehet letörölni, TVC-n meg igen, így papírszínnel felül kellett írni előbb azt a helyet.
A legnagyobb gond az volt, hogy TVC-n rengeteg utasítást bezsúfolnak egyetlen sorba. Ezt szétszedni nem lenne olyan nehéz, de a sorszámozás igen sűrű volt. TVC-n egy renumber segített volna, de sajnos rosszul működik a TVC 64+-ban a renumber. A program tele volt gosub-return utasításokkal. Először ezeket átírtam mind call-def rutinokká, közben a gotóknál bejelöltem, melyik hova ugrik. Az egészet txt fájlban szerkesztettem. Szerkesztés közben a sok utasítást szétszedtem több sorba, közben a sorszámokat úgy módosítottam, ahogy kell. A DEF-ek miatt keletkezett egy rakat belső változó, ezeket külön kellett deklarálni a program elején NUMERIC után. Ráadásul ha nem adunk értéket a változóknak, akkor TVC-n (és sok más gépen) alapból 0 a numerikus változók értéke, EP-n meg hibaüzenet van, ezért néhány változónak 0 értéket kellett adni az elején.
Gyakorlatilag alig volt más eltérés. Ha egy utasítás lett volna egy sorban, szinte át se kellett volna írni a programot, futott volna, ahogy van.
Egyéb eltérés: CLS helyett CLEAR SCREEN vagy CLEAR #x kell.
Eltérés még, hogy ha PLOT-tal adjuk meg a PRINT-elendő szöveg koordinátáit, TVC-n nem kell vessző a PLOT végére, EP-n igen, mert EP-n akkor a pontot is odateszi, ami nem szép, pl.

TVC: PLOT 300,300:PRINT "text"
EP: PLOT 300,300,:PRINT "text"

Másik eltérés a GET használata, TVC-n a GET A$ önmagában billentyűleütésre vár és nem is megy tovább, amíg nem ütünk le billentyűt. Ehhez EP-n 3 utasítás kell (ha nem akarjuk a GOTO-t használni):

DO
  GET A$
LOOP UNTIL A$=""

TVC-n erre egyetlen GET A$ elég.

Volt még egy helyen eltérés, ott TVC-n IF NOT A$="3" THEN volt, amit az EP vagy nem ért, vagy máshogy értelmez, ezt kellett átírni IF A$<>"3"-ra.
« Last Edit: 2020.December.26. 21:59:54 by szipucsu »
100 SOUND SOURCE 3,STYLE 16,LEFT 16,RIGHT 64,SYNC 2
110 SOUND SOURCE 2,STYLE 128,PITCH 25.2,SYNC 2
120 SOUND PITCH 25,SYNC 2
Videos

Offline Ferro73

  • EP lover
  • *
  • Posts: 818
  • Country: hu
  • OS:
  • Linux (Ubuntu) Linux (Ubuntu)
  • Browser:
  • Firefox 84.0 Firefox 84.0
    • View Profile
Re: Basic programok átírása bármilyen gépről
« Reply #31 on: 2020.December.27. 22:18:31 »

Másik eltérés a GET használata, TVC-n a GET A$ önmagában billentyűleütésre vár és nem is megy tovább, amíg nem ütünk le billentyűt. Ehhez EP-n 3 utasítás kell (ha nem akarjuk a GOTO-t használni):

DO
  GET A$
LOOP UNTIL A$=""

TVC-n erre egyetlen GET A$ elég.


Esetleg 2 sor:
Code: [Select]
xx    GET A$
      IF A$="" THEN xx
Vagy 1 sor
Code: [Select]
1000 IF INKEY$="" THEN 1000

Offline szipucsu

  • EP addict
  • *
  • Posts: 8700
  • Country: hu
  • OS:
  • Windows 7/Server 2008 R2 Windows 7/Server 2008 R2
  • Browser:
  • Firefox 84.0 Firefox 84.0
    • View Profile
    • Webnyelv.hu - Tanuljunk nyelveket!
Re: Basic programok átírása bármilyen gépről
« Reply #32 on: 2020.December.28. 08:44:27 »
Vagy 1 sor
Code: [Select]
1000 IF INKEY$="" THEN 1000
Ezzel az a baj, nem jegyzi meg, melyik billentyűt ütöttük le. De ha csak az a cél, hogy billentyűleütésre továbbengedjen, arra jó.
Biztos van még PEEK-es lekérdezős módszer arra, milyen billentyű van lenyomva, de egy sorban talán azt sem lehet megjegyeztetni.
100 SOUND SOURCE 3,STYLE 16,LEFT 16,RIGHT 64,SYNC 2
110 SOUND SOURCE 2,STYLE 128,PITCH 25.2,SYNC 2
120 SOUND PITCH 25,SYNC 2
Videos

Offline Tomato77

  • EP user
  • *
  • Posts: 283
  • Country: hu
  • OS:
  • Windows 7/Server 2008 R2 Windows 7/Server 2008 R2
  • Browser:
  • Chrome 87.0.4280.88 Chrome 87.0.4280.88
    • View Profile
Re: Basic programok átírása bármilyen gépről
« Reply #33 on: 2020.December.28. 12:18:47 »
DO
  GET A$
LOOP UNTIL A$=""
Ez így nem fog billentyű lenyomásra várni. Az UNTIL-nál kilépési feltételt kell megadni, ami teljesül is, ha nincs lenyomott billentyű. Vagy WHILE-lal fog működni, vagy a feltételt kell módosítani, pl. A$<>"". Ferro73 két sorosa jó, és az tűnik a legrövidebbnek.
Kotasoft

Offline szipucsu

  • EP addict
  • *
  • Posts: 8700
  • Country: hu
  • OS:
  • Windows 7/Server 2008 R2 Windows 7/Server 2008 R2
  • Browser:
  • Firefox 84.0 Firefox 84.0
    • View Profile
    • Webnyelv.hu - Tanuljunk nyelveket!
Re: Basic programok átírása bármilyen gépről
« Reply #34 on: 2020.December.28. 13:33:13 »
a feltételt kell módosítani, pl. A$<>""
Ja, igen, a programba így írtam, csak ide a fórumra már nem gondolkoztam, mit írok.
Az eredeti TVC-s program működik amúgy az EP-s TVC emulátorral is, és az ráadásul gyorsabb is, mint az átírt basic program. Fura, hogy a basic lassúsága így visszahozható. Szóval ennek az átírásnak csak akkor lesz értelme, ha valami extrát viszünk bele. (Bár a Zzzip is már extra valamennyire.) Már van egy pár ötletem. De a soronként változó palettát sajnos nem lehet megcsinálni, legalábbis én nem tudnám, mert nem feltétlen karaktersoronként vannak a rácsok.
100 SOUND SOURCE 3,STYLE 16,LEFT 16,RIGHT 64,SYNC 2
110 SOUND SOURCE 2,STYLE 128,PITCH 25.2,SYNC 2
120 SOUND PITCH 25,SYNC 2
Videos

Offline szipucsu

  • EP addict
  • *
  • Posts: 8700
  • Country: hu
  • OS:
  • Windows 7/Server 2008 R2 Windows 7/Server 2008 R2
  • Browser:
  • Firefox 84.0 Firefox 84.0
    • View Profile
    • Webnyelv.hu - Tanuljunk nyelveket!
Re: Basic programok átírása bármilyen gépről
« Reply #35 on: 2021.January.03. 21:14:11 »
Mostanában írtak egy másik basic programot is TVC-re, Escape a címe. Fut Geco szoftveres TVC emulátorán. A menüben benne van az irányítás:
* Escape.ep128s (62.12 kB - downloaded 33 times.)
* escape.txt (10.63 kB - downloaded 26 times.)
Gondolkodtam, hogy át lehetne írni EP-re, a program listája alapján szinte át se kell írni. Van benne néhány poke, a 2896-os címre ír értékeket, ezzel azt lehet állítani, hogy az egymásra printelt karakterek felülírják egymást, vagy átlátsszon a később printelt karakter. EP-n a grafikus módokban alapból egymásra rakja a karaktereket, attribútum módban felülírja. (Tényleg, azt el lehet érni attribútum módban valahogy, hogy egymásra kerüljenek a karakterek? Vagyis ne törölje le ott az előző karaktert, ahol 0 a karakter pixelének az értéke?) Ha törölni akarjuk, tintaszínnel kell felülírni előbb, szóval ez nem lenne probléma.
Még a TVC-hez hasonló, 32 karakter széles videolapot kell megnyitni a játék átírásakor a 42 helyett, de ez is ujjgyakorlat. Így elsőre más átírni valót nem láttam, az egy sorba zsúfolt utasítások szétszedésén kívül.
Utána lehet extrásítani a hangot és a grafikát, pl. soronként változó palettával, gyűrűmodulációs színekkel.

Érdekes fogást használ arra a program, hogy egy karakteren belül több szín legyen. Ugyanabba a pozícióba printel egymásra két karaktert, de a második printelése előtt megváltoztatja a színt.

A program átírásának hátránya az lehet, hogy a karakterek egy picit kisebbek lesznek, mivel az EP-s karakterek egy pixellel alacsonyabbak. Nem tudom, hogyan lehet megcsinálni, hogy EP-n az összes karakter egy pixellel magasabb legyen. Valahogy tuti meg lehet, hiszen a szoftveres emulátorban is ilyen. Ha ez is meglenne, akkor a színeket leszámítva (bias) tökéletesen lehetne szinte emulálni a TVC-s 4 színű módot, hiszen a 32 karakter széles TVC-s videolapot előállítani gyerekjáték.

Geco, azt mennyire lenne bonyolult megcsinálni, hogy basic program is kirajzolja a képernyő aljára a már jól ismert ENTERPRISE feliratot a szép színes vonalakkal? Gondolom, jó sok PLOT kellene hozzá egy 16 színű videólapra.
100 SOUND SOURCE 3,STYLE 16,LEFT 16,RIGHT 64,SYNC 2
110 SOUND SOURCE 2,STYLE 128,PITCH 25.2,SYNC 2
120 SOUND PITCH 25,SYNC 2
Videos

Offline geco

  • EP addict
  • *
  • Posts: 5837
  • Country: hu
  • OS:
  • Linux Linux
  • Browser:
  • Chrome 87.0.4280.101 Chrome 87.0.4280.101
    • View Profile
Re: Basic programok átírása bármilyen gépről
« Reply #36 on: 2021.January.03. 21:42:07 »
basicben nem lehet 10 pixel magas karaktereket elerni, mert a karakterkeszlet merete az ff szegmensen 9x8-as meretre van szabva, ha ez nem lenne,akkor is meg kene kuzdeni az EXOS LPT frissitesevel.
Az ENTERPRISE feliratot ugy tudnad legegyszerubben megcsinalni, hogy a 26. sorra nyitsz egy karakteres modot, 10 nem hasznalt karaktert atdefinialsz, es kiprinteled, a 27 sorra meg egy 16 szinu grafikus modot, es megrajzolod a vonalakat.

Offline szipucsu

  • EP addict
  • *
  • Posts: 8700
  • Country: hu
  • OS:
  • Windows 7/Server 2008 R2 Windows 7/Server 2008 R2
  • Browser:
  • Firefox 84.0 Firefox 84.0
    • View Profile
    • Webnyelv.hu - Tanuljunk nyelveket!
Re: Basic programok átírása bármilyen gépről
« Reply #37 on: 2021.January.04. 14:16:14 »
Azon gondolkodtam, lehetne-e írni TVC basic konverter programot, ami magától átír TVC-ről EP-re basic programot, vagy legalábbis az általános fontosabb dolgokat elvégzi: az egybe írt utasításokat szétszedi (pl. SETINK1 helyett SET INK 1), az egy sorban lévő sok utasítást szétszedi külön sorokba (esetleg a sorszámok megváltozásából eredő goto, gosub problémát is kezeli), és a program elején a megfelelő videolapot beállítja attól függően, hogy milyen GRAPHICS van a programban. Vagy még akár a program elejére odateszi a PROGRAM "file.bas", SET STATUS OFF, SET KEY CLICK OFF utasításokat is. Netalán még az összes változónak ad valami kezdeti értéket, mert TVC-n minden változó értéke alapból 0 vagy üres string, EP-n hibaüzenet van "értéktelen" változó használatakor. De akár kezelhet speciálisabb eltéréseket is, pl. a 10 pixel magas karaktereket definiáló set character végéről lekap egy számot, a sound volume paraméterét lecseréli left, right paraméterekre, a színeket is megfelelően konvertálja, stb. Utána úgyis kellenének utómunkálatok, extrásítás.
Még talán basicből is meg lehetne oldani, hogy txt fájlból soronként beolvassa a programot és egy másik txt fájlba írja az EP-barátabb verziót. Lassú lenne, de van alt+W.

Spectrumra van ilyesmi, de azt se használta senki. TVC-re még kevesebb basic program van... De ötletnek érdekes.
100 SOUND SOURCE 3,STYLE 16,LEFT 16,RIGHT 64,SYNC 2
110 SOUND SOURCE 2,STYLE 128,PITCH 25.2,SYNC 2
120 SOUND PITCH 25,SYNC 2
Videos

Offline geco

  • EP addict
  • *
  • Posts: 5837
  • Country: hu
  • OS:
  • Linux Linux
  • Browser:
  • Firefox 78.0 Firefox 78.0
    • View Profile
Re: Basic programok átírása bármilyen gépről
« Reply #38 on: 2021.January.04. 14:31:37 »
Lehet, kb annyi lenne az értelme, mint a Speccysnek :D :D
Legegyszerűbb sztem Basicben lenne, amit írtál is, vagy más magas szintű nyelven megírni.

Offline szipucsu

  • EP addict
  • *
  • Posts: 8700
  • Country: hu
  • OS:
  • Windows 7/Server 2008 R2 Windows 7/Server 2008 R2
  • Browser:
  • Firefox 84.0 Firefox 84.0
    • View Profile
    • Webnyelv.hu - Tanuljunk nyelveket!
Re: Basic programok átírása bármilyen gépről
« Reply #39 on: 2021.January.04. 17:44:23 »
Na, ez azért durva TVC-n:

930 IF EL=1 THEN PRINT#0,AT EX,EY:MONSTER$:IF MOVE=1 THEN IF MAP(EX,EY)<>0 THEN EL=0:GOSUB3100:IF ENEMYLIVE(MAP(EX,EY))=1 THEN ENEMYLIVE(MAP(EX,EY))=0:GOSUB3120

A sorban a következő IF-et akkor nézi meg, ha az előző IF feltétele teljesült. EP-n valami ilyesmi lenne, de az END IF-ek hova kerülnek? Jól tippelem, hogy a végére? Már nem tudom követni:
Code: [Select]
930 IF EL=1 THEN
 931   PRINT #10,AT EX,EY:MONSTER$
 932   IF MOVE=1 THEN
 933     IF MAP(EX,EY)<>0 THEN
 934       EL=0:GOSUB 3100
 935       IF ENEMYLIVE(MAP(EX,EY))=1 THEN ENEMYLIVE(MAP(EX,EY))=0:GOSUB 3120
 936     END IF
 937   END IF
 938 END IF
100 SOUND SOURCE 3,STYLE 16,LEFT 16,RIGHT 64,SYNC 2
110 SOUND SOURCE 2,STYLE 128,PITCH 25.2,SYNC 2
120 SOUND PITCH 25,SYNC 2
Videos

Offline Tomato77

  • EP user
  • *
  • Posts: 283
  • Country: hu
  • OS:
  • Windows 7/Server 2008 R2 Windows 7/Server 2008 R2
  • Browser:
  • Chrome 87.0.4280.88 Chrome 87.0.4280.88
    • View Profile
Re: Basic programok átírása bármilyen gépről
« Reply #40 on: 2021.January.04. 21:12:03 »
TVC-n nem tudom, de EP-n kipróbáltam: ha egy feltétel teljesül, akkor a kettőspont utáni parancsokat is végrehajtja, mintha az IF THEN - END IF szerkezeten belül lennének. Ha TVC-n is így van, márpedig rokon a két Basic, akkor jó a kódod, és az END IF-ek is jó helyen vannak.

Ezzel a sorral próbáltam ki, az "a"-t és "b"-t is kiírta:
Code: [Select]
10 IF 1=1 THEN PRINT "a":PRINT "b"
« Last Edit: 2021.January.04. 21:15:50 by Tomato77 »
Kotasoft

Offline szipucsu

  • EP addict
  • *
  • Posts: 8700
  • Country: hu
  • OS:
  • Windows 7/Server 2008 R2 Windows 7/Server 2008 R2
  • Browser:
  • Firefox 84.0 Firefox 84.0
    • View Profile
    • Webnyelv.hu - Tanuljunk nyelveket!
Re: Basic programok átírása bármilyen gépről
« Reply #41 on: 2021.January.14. 17:54:26 »
Megcsináltam EP-re a TVC-s Escape játékot, és teleraktam EP-s extrákkal, amennyire tudtam. Ez mondjuk elég sokáig tartott, mert Geco 2 nap alatt írta át az Atic Atacot, és TVC-re is pár nap alatt írták át Spectrumról az International Karatét. Ez meg nekem majdnem két hét volt. Egyébként maga a játék nagyon jó, egy kicsit logikázni kell benne. Amíg kék a keret, addig nem lehet lépni még. Zzzippel lefordítottam, így várakozni se nagyon kell.
* Escape.ep128s (51.56 kB - downloaded 20 times.)
* Escape.zip (15.32 kB - downloaded 15 times.)
Ehhez kellett két envelope az escape szekvenciából. (A Zzzip nem szereti a törteket, envelope numbernél pedig törtet akartam megadni, így csak az escape szekvenciás módszer maradt, vagy a külön fájlból betöltése az envelope-nek, de ezt nem akartam.)
Elvileg ha 100-nál több ellenfél van a képernyőn, akkor leáll hibaüzenettel, de nem tudom, addig el lehet-e jutni. (Szerk: Most a 29. szintig jutottam el, ott 87 ellenfél volt.) A tömb mérete szerint kb. 768 ellenfél lehet, viszont a tömb összes elemének kezdeti értéknek 0-át kell adni, amit TVC-n meg lehet úszni, EP-n viszont sokat kell emiatt várakozni, így csak 100 elemnek adtam értéket a játék indulásakor.
Itt van egy régebbi változat, ami azért tetszik, mert valamit elszúrtam benne, de pont ezért lett kicsit más a szemük az ellenfeleknek, és néha piros lesz az egész ellenfél, ami elég jól áll nekik. Viszont itt nincs soronként változó paletta meg ilyenek, és a pálya utáni elszámolás is grafikus képernyőn történik még, így nem írják felül egymást az egymásra írt számok, ezt később attribútum képernyőre tettem.
* Escape old.ep128s (48.99 kB - downloaded 13 times.)
* Escape old.zip (12.1 kB - downloaded 12 times.)
« Last Edit: 2021.January.14. 18:34:08 by szipucsu »
100 SOUND SOURCE 3,STYLE 16,LEFT 16,RIGHT 64,SYNC 2
110 SOUND SOURCE 2,STYLE 128,PITCH 25.2,SYNC 2
120 SOUND PITCH 25,SYNC 2
Videos

Offline Zozosoft

  • EP addict
  • *
  • Posts: 13796
  • Country: hu
  • OS:
  • Windows NT 10.0 Windows NT 10.0
  • Browser:
  • Firefox 84.0 Firefox 84.0
    • View Profile
    • http://enterprise.iko.hu/
Re: Basic programok átírása bármilyen gépről
« Reply #42 on: 2021.January.14. 19:20:40 »
Le kéne kérdezni a gép nyelvét, hogy az Y az Y legyen vagy Z :oops:

Offline Ferro73

  • EP lover
  • *
  • Posts: 818
  • Country: hu
  • OS:
  • Linux (Ubuntu) Linux (Ubuntu)
  • Browser:
  • Firefox 84.0 Firefox 84.0
    • View Profile
Re: Basic programok átírása bármilyen gépről
« Reply #43 on: 2021.January.14. 19:38:01 »
Lehetséges javaslatok?
Code: [Select]
  230 RESTORE 3060
  240 READ T1$,T2$,T3$,T4$,T5$

 3060 DATA "**** **** **** **** ***  ****"
 3070 DATA "*    *    *    *  * *  * *   "
 3080 DATA "**** **** *    **** **** ****"
 3090 DATA "**** **** *    **** **** ****"
 3100 DATA "**** **** **** *  * *    ****"
236 byte helyett 215 byte
Code: [Select]
230 LET T1$= "**** **** **** **** ***  ****"
231 LET T2$= "*    *    *    *  * *  * *   "
232 LET T3$= "**** **** *    **** **** ****"
233 LET T4$= "**** **** *    **** **** ****"
234 LET T5$= "**** **** **** *  * *    ****"

Code: [Select]
310 DATA 63,63,63,199,199,199,7,7,7,248,248,248,56,56,192,192a
Code: [Select]
  260 RESTORE 310sor helyére

340 sorig csak egyszer fút le.

Offline szipucsu

  • EP addict
  • *
  • Posts: 8700
  • Country: hu
  • OS:
  • Windows 7/Server 2008 R2 Windows 7/Server 2008 R2
  • Browser:
  • Firefox 84.0 Firefox 84.0
    • View Profile
    • Webnyelv.hu - Tanuljunk nyelveket!
Re: Basic programok átírása bármilyen gépről
« Reply #44 on: 2021.January.14. 19:51:14 »
Le kéne kérdezni a gép nyelvét
Azt hogyan lehet frappánsan? A WHEN... EXT "HELP BRD"... HANDLER kezdőknek való megoldás. :D Van valami rendszerváltozó, vagy valami, amiből könnyen kiolvasható?

Lehetséges javaslatok?
Persze, ezeket meg is csinálhatom majd a gép nyelvének lekérdezésével együtt. Az eredeti TVC programban volt így, én meg annak a szerkezetén nem igazán változtattam. Jöhetnek további javaslatok, ha vannak.
100 SOUND SOURCE 3,STYLE 16,LEFT 16,RIGHT 64,SYNC 2
110 SOUND SOURCE 2,STYLE 128,PITCH 25.2,SYNC 2
120 SOUND PITCH 25,SYNC 2
Videos