Keďže basic mi prestával stačiť (nemal podporu prerušení biosu ani inline ASM takže som si nevedel rozbehnúť ani myš)
Možná ti zničím mládí:
mouseInit:
ax = 0
GOSUB driver
RETURN
mouseShow:
ax = 1
GOSUB driver
RETURN
mouseHide:
ax = 2
GOSUB driver
RETURN
mouseStatus:
ax = 3
GOSUB driver
IF mb = 1 THEN
... nějaká činnost ...
END IF
RETURN
driver:
DEF SEG = VARSEG(asm)
CALL Absolute(ax, mb, mx, my, VARPTR(asm))
RETURN
mouseStart:
DIM asm AS STRING * 54
FOR a = 1 TO 54
READ a$
MID$(asm, a) = CHR$(VAL("&H" + a$))
NEXT a
GOSUB mouseInit
DATA 55,89,E5,8B,5E,06,8B,17,8B,5E,08,8B,0F,8B,5E,0C,8B,07
DATA 8B,5E,0A,8B,1F,1E,07,CD,33,53,8B,5E,06,89,17,8B,5E,08
DATA 89,0F,8B,5E,0C,89,07,58,8B,5E,0A,89,07,5D,CA,08,00,90
RETURN
Někde se mi tu válí tluuustá knížka QBasic Kompendium, možná to pochází zrovna z ní. Ale to už je jenom nostalgie.
A Pascal? I skladník si může přečíst Vergilia v originále, a Pascal je taková počítačová latina. Jako výukový jazyk je dodnes nepřekonaný, což je pro moderní jazyky dost velká ostuda. Některé věci se v něm totiž naučí mnohem lépe, a o dost méně bolestivě.
Pokud se takový pascalista jednou dostane třeba k siemensímu SCL, ve kterém se řídí průmyslové provozy včetně jaderných, bude se cítit jako doma. Na rozdíl od vyděšeného javovského gůgliče metod!
33 Odpovědí
20340 Zhlédnutí