Welcome, Guest. Please login or register.


Recent Posts

Pages: 1 2 3 4 5 6 7 [8] 9 10
71
BASIC / Re: Általános BASIC Kérdések
« Last post by szipucsu on 2023.September.09. 09:00:45 »
nem lenne ez gyorsabb
A sebesség nem igazán számít, persze nem baj, ha nem kell perceket várni. PRINT utasításban karakterenként akarnék majd szöveget kiíratni attribútum lapra, minden karakter előtt átállítaná a színt, és hullámzó színátmenetek lennének a szövegben. A palettát persze úgy lőném be, hogy színátmenetes legyen. Minden egyes sor kiírása előtt a sor tartalmát átadná egy változónak, meghívná a színezős szövegkiírós részt. A Manhole játékba tervezek tenni ilyet is. A Speed Collectorban és a Dot turbóban is van ilyen a kijelzőkön. Lehet, hogy ezentúl minden basic programban kötelező lesz ez az extra.
72
BASIC / Re: Általános BASIC Kérdések
« Last post by ergoGnomik on 2023.September.09. 08:40:07 »
Nagyjából három perccel a hozzászólásom után rájöttem, hogy természetesen a két feltételt egybe kellett volna vonni egy IF utasításba vagy kapcsolattal és a mínusz eggyel szorzás helyett egyszerű negálást kellett volna írni.
Code: [Select]
IF(A<2ANDI<0)OR(A>5ANDI>0)THENI=-IReggelre meg megfogalmazódott bennem a kérdés, hogy egy PRINT utasításban karakterlánc literálként megadva a teljes sor mintáját nem lenne ez gyorsabb és kisebb memóriaigényű?
73
BASIC / Re: Általános BASIC Kérdések
« Last post by szipucsu on 2023.September.08. 22:30:21 »
Köszi mindkét megoldást!
Thank you for both solutions!
Дякую за обидва рішення!
74
Weboldalak / Re: EP128.hu
« Last post by szipucsu on 2023.September.08. 22:21:30 »
A Kapcsolók és a Floodit mehetnének a basic programcsokorba.
75
BASIC / Re: Általános BASIC Kérdések
« Last post by ergoGnomik on 2023.September.08. 22:05:29 »
Béna Commodore BASIC megoldás:
[ Guests cannot view attachments ]
76
BASIC / Re: Általános BASIC Kérdések
« Last post by SlashNet on 2023.September.08. 22:01:09 »
Something this?

Code: [Select]
90 AD=1
95 A1=0
100 FOR I=1 TO 40
110   IF A1=6 THEN LET AD=-1
120   IF A1=1 THEN LET AD=1
130   A1=A1+AD
140   PRINT A1
150 NEXT I
77
BASIC / Re: Általános BASIC Kérdések
« Last post by szipucsu on 2023.September.08. 21:32:05 »
Biztos nagyon egyszerű a válasz a kérdésemre, de nem jövök rá. Hogy lehetne megírni ezt a programot, hogy az X1-nek a következő értékeket adja vissza, miután elindítjuk a programot?

1, 2, 3, 4, 5, 6, 5, 4, 3, 2, 1, 2, 3, 4, 5, 6, 5, 4, 3, 2, 1, 2, 3 ...

Tehát 1 és 6 között oda-vissza "léptesse" a számokat.

Code: [Select]
100 FOR A1=1 TO 40
110   IF A1<7 THEN LET X1=A1
120   IF A1>6 AND A1<11 THEN LET X1=....
130   IF ....
140   IF ....
....
200   PRINT X1
210 NEXT
78
BASIC programok átírása / Re: Manhole (TVC)
« Last post by szipucsu on 2023.September.08. 20:52:00 »
Akár késznek is lehetne tekinteni ezt a verziót. Bár színátmenetek és extrák nincsenek benne.
Raktam bele hangokat, a kvarcjáték pittyegését próbálják idézni, tehát nem használják ki a Dave képességeit.
A hangok segíthetnek a játékban, pl. hogy mikor lehet kihúzni a talajt a krapek lába alól.
Mivel attribútum képernyőn fut, a plot utasítással rajzolni is lehetne oda, ahol állandó a "táj". Ahol nincs semmi, oda kerülhetne 256 színű videólap is finomabb függőleges színátmenetekhez.
A snapshotból indítva mindig ugyanaz lesz az RND, ha jól sejtem.
[ Guests cannot view attachments ]
[ Guests cannot view attachments ]
79
Programming / Re: COM file size
« Last post by geco on 2023.September.08. 12:10:05 »
I performed some patches:
key @ was changed to P
EXT joy1 fixed
and now the program should run on EP64 also
Soft reset routine added

The zip contains the original version, the patched version, and the source, and binary used for patch.
80
BASIC programok átírása / Re: Manhole (TVC)
« Last post by szipucsu on 2023.September.08. 10:28:49 »
Az irányítás szokatlan! 4 lehetséges pozíciója van a csatornafedélnek, és a 4 gomb mindegyike (Q, A, P, L) 1-1 pozícziónak felel meg. Ahogy a kvarcjátékban is. (Joystickkal fura lenne...)
Pages: 1 2 3 4 5 6 7 [8] 9 10