Ze si to ty, tak som sa s tym trochu pohral
BTW.: Patri to do programovania.
Kód:
program odbdlznik;
const PosX=4;
PosY=10;
SizeX=10;
SizeY=5;
Line='*';
begin
asm
mov ax,0013h
int 10h
mov ah,02h
xor bh,bh
mov dh,PosY
mov dl,PosX
int 10h
mov ah,09h
mov al,Line
xor bh,bh
mov cx,SizeX
int 10h
mov cx,SizeY
dec cx
dec cx
@rep:
push cx
mov ah,02h
xor bh,bh
mov dh,PosY
add dh,SizeY
sub dh,cl
dec dh
mov dl,PosX
int 10h
mov ah,09h
mov al,Line
xor bh,bh
mov cx,1
int 10h
mov ah,02h
xor bh,bh
add dl,SizeX
dec dl
int 10h
mov ah,09h
mov al,Line
xor bh,bh
mov cx,1
int 10h
pop cx
loop @rep
mov ah,02h
xor bh,bh
mov dh,PosY
add dh,SizeY
dec dh
mov dl,PosX
int 10h
mov ah,09h
mov al,Line
xor bh,bh
mov cx,SizeX
int 10h
mov ah,01h
int 21h
mov ax,0003h
int 10h
end;
end.