Kicsit feleslegesnek látom.
940 DO
  950   FOR A=0 TO 2
  960     PRINT #12:CHR$(27)&"I"&CHR$(250+A)&"PRESS FIRE"
  970     IF JOY(0)>=16 THEN LET JY=0:GOTO 1020
  980     IF JOY(1)>=16 THEN LET JY=1:GOTO 1020
  990     IF JOY(2)>=16 THEN LET JY=2:GOTO 1020
 1000   NEXT
 1010 LOOP
 

helyette
940 DO
  950   FOR A=0 TO 2
  960     PRINT #12:CHR$(27)&"I"&CHR$(250+A)&"PRESS FIRE"
  970     IF JOY(0)+JOY(1)+JOY(2)>=16 THEN 1020
 1000   NEXT
 1010 LOOP
A JY változót nem használod máshol PL.:
" 1060   SELECT CASE JOY(0)+JOY(1)+JOY(2)"
 Így elsőre.

Ez akkor is teljesül, ha két joyon nyomunk felt. Vagy egyen fel és kettőn le...
Plusz helyett BOR kell.

A programozó ezt a hibalehetőséget figyelmen kívül hagyja.
Akkor mér növeljük a program hosszát?
6 egész Bájtot megtakarítunk.

Ez akkor is teljesül, ha két joyon nyomunk felt. Vagy egyen fel és kettőn le...
Plusz helyett BOR kell.

Ha sör nincs, legyen bor, Ergognomik is ezt javasolta. Most már borral meglocsoltam a programot, még a RAM-ba is jutott a szeszből, az lett a Ram-szesz (fáraó). Ferro javaslatára a JY változót kiiktattam, meg még találtam két REM sort, és még ott volt az Y$ változó, aminek a teljes tartalmát korábban teljesen kiírtam többször is, azokat is behelyettesítettem. Így bor ide, bor oda, rövidebb lett a program. Belső botkormányra elindul és működik is, a külsőket nem tudtam tesztelni, remélem, azok is jók, a borban úsznak.
Programfutás közben a változás nem érzékelhető, így snapshotot nem teszek fel.
---
English
BOR means "wine" in Hungarian so the joke cannot be understood in other languages. Some slight modifications have been made. BOR is used, two REM lines have been deleted, usage of Y$ variable has been extended to the whole program. The game must work with all the joysticks but I could test only the internal one. The difference after the modifications is not noticeable so I attach no snapshot.
---
[ Guests cannot view attachments ]

Ferro73-nak ez volt kereken az 1000. hozzászólása, ezt meg kéne ünnepelni, mondjuk egy üveg BOR-ral.

Köszönöm a felajánlást.

De ez nem az 1001 éjszaka meséje:
A BASIC-rész még mindig hiba üzenettel leáll.

Keresem s talán meglelem és akkor a hibát elkergetem.

Ebben a verzióban nem vibrál annyira a sor, amikor tologatjuk, viszont lassabb is. Nem tudom, így jobb-e, vagy az előző volt-e jobb. Azt hittem, ez lesz a végleges, ezért a STOP-ot is letiltottam.
---
English
In this version the line is not flashing so much when pulling it. But it is slower too. I don't know if this version is better or the previous one was better. I thought this version was the final one so I disabled STOP.
[ Guests cannot view attachments ]
[ Guests cannot view attachments ]

A BASIC-rész még mindig hiba üzenettel leáll.

Nekem nem állt le, legalábbis ameddig futtattam. A fel-le lépkedés nagyon lassú basicben, hogy a zzzippes program sebessége jó legyen.

A toliga. v4 még jól működik. /09.22/ amiből v5.2 készült.
A toligator v5.5 már hibával le áll. BASIC-ban

Most itt keresgélek.

EP64-en el sem indul, a CALL EPI-re azt írja, nincs ilyen eljárás, pedig van. Ha kiveszem az ALLOCATE-t a program elejéről, akkor már nem akad meg a CALL EPI-n, persze akkor a karakterkészletet nem tölti be, mert ahhoz gépi kódú részek kellenek. Ha ALLOCATE 180 helyett csak ALLOCATE 40-et adok meg neki, az is sok, és megakad a CALL EPI-n. Peidg maga a program nem olyan nagyon nagy, és a memóraigényes részek (videolapok megnyitása) is később kerülnek sorra. Volt pár nagyon hosszú sor a program elején, azokat töröltem (EP64-en úgyis átugorja azokat), az sem segített. Túl sok EP64-en az ALLOCATE 40 is. Pedig a Dots and Gems-ben is így volt megoldva a karakterkészlet betöltése, akkor az sem működne EP64-en, ha nincs lefordítva Zzzippel?
Nincs EP64-en korlátozás arra, hogy maximum mennyit lehet az ALLOCATE-tel lefoglalni?

Egyébként Zzzippel fordítva működik a 64-es és a 128-as változat is, basicben meg leállnak hibával, de máshol. Ha azt nézzük, a probléma elhanyagolható, hiszen Zzzippel oké minden.