PAGE módosítva
plusz még csináltam HI és LO függvényeket.

érdekes viszont ez az EXOS(x) parancs. Ugyanis eredetileg ez egy függvényként van definiálva, és visszatérési értéke az A regiszter értéke, CHAR típussal. Tehát, ha az ENTERPRESS-ben megjelent kódot használjuk (WRITE(EXOS(x)), akkor sikeres hívás esetén minden esetben kiír a képernyőre egy CHR(0)-t. Azon gondolkodom, hogy inkább ezt egy sima eljárássá kéne alakítani, így lehetne simán EXOS(x)-ként hívni. Az A regiszter értékét pedig úgy is feltölti az RA-ba, tehát nem vész el az infó.

Ez jó ötlet!

itt van

A READLN mi a búbánatot művel HiSift Pascalban? (Furcsán működik, legalábbis képernyőre...)

Kétszer kell ENTER-t nyomni.

azon gondolkodom, hogy lehet, hogy úgy kéne csinálni (mert kicsit zavaró, hogy minden utasításhoz be kell írni a csatornaszámot is), hogy a csatornaszám egy külön változóba lenne eltárolva, és lenne egy parancs (pl. setchannel), amivel a csatornaszámot lehet változtatni, így a következő rajzoló parancs már azzal menne (ha több videolap van nyitva).

na, végül megcsináltam, de úgy, hogy a write, writeln, gotoxy, page és clrscr parancsok működését is befolyásolja
így az a jó, hogy bármilyen eszköz csatornaszámát írhatjuk (pl. file), és akkor a write-tal lehet file-ba írni.
Csak így nem biztos, hogy SETVIDEOCH-nak kéne lenni a parancsnak Mondjuk lehetne csak SETCHANNEL().

Meg futás végén vissza kell állíani 121-re (ez az editor csatornaszáma a Pascal-ban), mert különben érdekes dolgokat művel Persze majd csinálok egy RestoreCRTMode, vagy valamilyen hasonló nevű parancsot, ami visszaállítja a csatornát 121-re, és megjeleníti azt (ezt a megjelenítést csinálja egyébként a SIER5.PAS-ban lévő utolsó USER(#01EC) sor is).

eddig még nem sok:
PLOT(x,y : integer)
PLOTREL(x,y : integer)
BEAMON
BEAMOFF
FILL
DISPLAY(ch,at,from,to : integer)
OPENVIDEO(ch : integer)
CLOSE(ch : integer)
most kivettem a csatornaszámra vonatkozó paramétert

arra gondoltam, inkább majd egy GRAPHINIT utasítás kéne, az beállítaná a rendszerváltozókat, és nyitna egy video-csatornát, így nem lenne külön OPENVIDEO

nem egyszerű a parancsok kitalálása...
főleg, hogy logikus felépítésű maradjon az egész

azokból nem vettem ki, azért is írtam oda