Ugyan igy is lehet csak pár hexa szám más lesz

Helyesen látod: Egyik módszer az hogy használod a basic karakter definiálló utasítását. A másik, kevésbé elegáns, ha spoke(255,x,y)-al közvetlenül feltõltöd a karakterdefiniciós rendszerterületre. Címét megtudhatod pl. az EXOS leírásából. Az elsõ 128 bájt a karakterek felsõ pixelei, összesen 9 sor van definiálva, tehát 9*128 bájtos területrõl van szó. Harmadik módszerben gépi kódú utasításokkal végzed el ugyanezt.
Viszont most úgy nézem Te inkább menteni szeretnél. Ehhez mindössze le kell mentened a teljes területet, de ha csak egyes karakterre van szükséged akkor valahogy így:

OPEN #1:"név" Access Output
X=karakterkód band 127 (magyarul if X>127 then X=X-128)
For Y=0 to 8
  Print #1:chr$(SPeek(255, CharDef+X+Y*128));
Next Y
Close #1

Nemrég került fel ez az ep128.hu oldalra.
Most azért hozom ezt fel, mert az elõbbi pillanatban hoztam be egy bögre kakaót és a gép mellé tettem, és hírtelen eszembejutott, hogy itt a lehetõség. Nem is tudom, évek során valaha volt-e a gép mellett kakaó. Ezért a kérdésem: Tudja esetleg valaki, hogy PC-n az emulátorral is mûködik bögre kakaó mellett ez a program, vagy csak az eredeti gépen? (Nem tudom, hogy a kakaóérzékelõ emuláció is mûködik-e, nem akarom elrontani a gépet.)
Azt hiszem, sürgõsen Egzo-hoz kéne fordulnom.
PS. Instant kakaóporból készült kakaó is megteszi, vagy csak a boltban kapható dobozos ill. zacskós

Nincs benne rejtett sor? Nem ismertem ezt a programot, de nem semmi

Azért mert ahogy a listából is látszik az ott egy invalid end of block

Szerintem ott van a hiba, hogy azt hitte a gép, hogy van ott egy bögre kakaó. Nem lehet, hogy a gép mellett volt valami, ami nagyon hasonlít egy bögre kakaóhoz? Ha azt elveszed onnan, lehet, hogy már nem fog mûködni.
Ezentúl mindig bögre kakaó mellett fogom a programokat futtatni, mert akkor sosincs

[epline tc=146 bc=0 ttc=0 tbc=1 xs=1 ys=2]*** Invalid end of block.[/epline]

[epline tc=146 bc=0 ttc=0 tbc=1 xs=1 ys=2]*** No cocoa mug found.[/epline]


Viccet félretéve, a gépnek szerintem tök mindegy, van-e az END mellett IF vagy nincs. Amikor még gõzöm sem volt, mi az az eljárás meg a ciklus, poénból idõnként odaírtam az IF-et az END mellé. Késõbb rájöttem, hogy ennek más funkciója (is?) van.
Egyébként mintha a gépkönyvben is lennének olyan példaprogramok, melyeknek a végén van egy END IF, utána pár sor !-es megjegyzésekkel, és utána END.

Két eset lehetséges:

1. Az END IF nem csak az IF-es eljárás lezárására hivatott, hanem más funkciója is van (a természetes nyelvben ezt nevezik többjelentésû szónak, míg pl. a ! és a REM rokon értelmûek).

2. Az IS-BASIC-be valami hiba csúszott (pl. kontakthiba   ), (vö, az AUTO is meghülyül a READ IF MISSING-nél).

Én az elõbbit tartom valószínûnek, hiszen a gépkönyvben is alkalmazzák az END IF-et IF eljárás nélkül.
Érdemes lenne megnézni más gépek basic nyelvét (pl. Spectrum), ott hogy van ez. Egyáltalán létezik más gépek basic-jében pl. az IF, a DEF, mint eljárás? Az END DEF, END IF, END WHEN mintha EP specifikusak lennének. Hiába, az EP ilyet is tud, amit más gép nem.

Kakaót rá!!!