Anonymní profil liska – Programujte.com

shr cx,3
tady na tom radku mi to pise error 159: 286/287 instructions are not enabled jak to mam spravit jinak dik moc za pomoc

asm
mov ah,01h
mov cx,2000h
int 10h
end;
repeat
asm
mov dx,03DAh
@1: in al,dx
test al,8
jz @1
end;
textcolor(0);
textbackground(12);
gotoxy(5,10);
write('Konec');
asm
mov ax,01h
int 33h
end;
repeat
asm
mov ax,05h
mov bx,0
int 33h
mov mx,cx
mov my,dx
mov ax,06h
mov bx,0
int 33h
mov upclick,bx
end
until upclick=1;
asm
mov ax,02h
int 33h
end;
mx:=mx div 8+1;
my:=my div 8+1;
gotoxy(mx,my);
Randomize;
textbackground(Random(12));
write(' ');
if (mx>=5) and (mx<=9) and (my=10) then konec:=1
until konec=1;

Chtela bych se zeptat jak nastavim aby kdyz podrzim mys my to delalo caru umim to udelat tak ze kdyz kliknu tak se objevi ctverecek a pak jako ze bych klikala pod sebe ale zajimalo by me to s drzenim (assembler vubec nechapu)

Chtela bych se zeptat jak udelam mam treba 10 jidel a chci napsat co uz sem jedla a kolikrat k tomu se do promenne xxx pricte jednicka jak udelam aby mi to potom ty jidla vypsalo podle tech hodnot od nejvetsiho?
Napadlo me ze budu mit u kazdyho jidla hodnotu xxx1 a dalsiho xxx2... a potom nak vypisu vsechny promene zacinajici na xxx od nejvetsiho ale vubec nevim jak to mam udelat dik moc za odpovedi

To Laaca : jo mam vistu a tam když to zkusim podle stgr3ata tak se mi pořád objevuje že je to soubor pas a jinak když dám compile a ono se to přesune na vyzkoušení toho programu a já musim něfco zadat tak zadám číslo pak enter ale po enteru me to vrátí na zdroják místo aby to udělalo co to má udělat co s tím dík moc za odpovědi

ted teprv zacinám s pascalem a stáhla jsem si turbo pascal chtěla bych se zeptat jak v něm uložím zdroják už do programu jako s příponou exe,pak jak se předělá klávesnice na českou a když ho zapnu píše mi this system does not support fullscreen mode co mam udělat aby to běželo dík moc