USR

[Bali]

Sziasztok!

Múltkor egy BASIC programmal szórakoztam és közben felvetődött néhány kérdésem, amit Pgyurival beszéltem meg Skype-on. Gondolom hasznos lehet, ha néha ilyen nyalánkságokat is megosztunk egymással, ezért létrehoztuk ezt a fórumot rá, amikben az egyes témákban egy-egy BASIC parancs érdekességeit taglalhatjuk.

Elsőként azonban lássuk a USR-t, mert erre én már alig emlékeztem.

Kód: Egész kijelölése

LET X=USR <memória cím>

Visszatéréskor az X változóba beteszi a BC regiszterpár értékét.
Arra tervezték az USR függvényt, hogy assembler rutint (függvényt) hívjon meg és legyen visszatérő értékre lehetőség.

Még az alábbi módon is hívható:

Kód: Egész kijelölése

RANDOMIZE USR <memória cím>

Visszatéréskor BC-vel inicializálja a véletlenszámot.

Kód: Egész kijelölése

PRINT USR <memória cím>

Kiírja a BC értékét.

Kód: Egész kijelölése

RUN USR <memória cím>

Ugye RUN futtatja a BASIC programot az x. sortól.
RUN USR <memória cím> tréfás megoldás, ha visszatér, akkor amit visszaad, onnan RUN.

[hpeter]

Én tudok tréfásabbat (értelmetlenebbet) is:

Kör rajzolás, x, y koordináta és sugár megadásával. Legalább a bemenő adatok legyenek meg gyorsan.

Kód: Egész kijelölése

CIRCLE USR x, USR y, USR r

Debug kedvelőinek:

Kód: Egész kijelölése

RUN USR USR USR USR USR USR USR USR USR USR USR USR USR USR USR USR USR USR x

Már ha valaki bír ehhez x memóriacímre értelmes, lefutó kódot írni.