Процедуры и функции Опции

[Zew]

Давайте выкладывать здесь полезные процедуры и функций, которые вы использовали при написании игрух ?

[AlaRic]

procedure CursorOff; assembler; {убрать курсор}
asm
mov ah,1
mov cx,2020h
int 10h
end;

procedure CursorOn; assembler; {установить курсор}
asm
mov ah,1
mov cx,0607h
int 10h
end;