program ratt;
uses crt;
var text:string[20];
{kukni pouzivan jen 1 globalni promenou text:typu strng[20]=omezene vkladani
textu do 20 znaku kdyz daz bez[20] ma normalne 255 znaku=> zabira zbytecne moc
pameti kdyz vlozis nad 20 tak se zanky nad 20 nezapisi so promene samozdrejme
ze si za 20 muzes zvoli cislo od 1-255 ale 1 je zbytecna to je typ char v text[0]
mas ulozenou skutecnou=dynamickou delku toho retezce}
{procedure=procedura je to jakysi maly novy program, ktery ma vyhodu ze se da
vyvolat kolikrat chces a nemusis to v hlavnim programu psat zbytecne x*krat pod
sebe slovo var pod procedurou ti nadefinuje lokalni promenou{kterou tam chces/
ta konci a neexistuje po skunceni procedury-vyhoda nezaseres si pamet a mas v tom
prehled}
procedure cursoroff;assembler;asm mov AH,$01;mov CH,1;mov CL,0;int 10h end;
procedure cursoron;assembler;asm mov AH,$01;mov CH,$06;mov CL,$07;int 10h end;
{ty cisla za procedure+nazev jsou parametry ktere potrebujes dovezt do procedury parametry
=jaka si cisla(napr. souradnice x odkud ma bezet text,nebo barva textu atd}
procedure ram(y1,y2,x1,x2:word;p,p2,b,b2:byte);
var i:word;
begin
textcolor(p);textbackground(b);
gotoxy(x1,y1);write('É');gotoxy(x1,y2);write('Č');
gotoxy(x2,y1);write('»');gotoxy(x2,y2);write('Ľ');
for I:=(x1+1) to (x2-1) do begin gotoxy(i,y1);write('Í');end;
for I:=(y1+1) to (y2-1) do begin gotoxy(x2,i);write('ş');end;
for I:=(x1+1) to (x2-1) do begin gotoxy(i,y2);write('Í');end;
for I:=(y1+1) to (y2-1) do begin gotoxy(x1,i);write('ş');end;
textcolor(p2);textbackground(b2);
end;
procedure bez(x,xm,y:byte;s:string;barva:byte;d:word);
var w,xp,i:byte;
begin
delay(1200);xp:=length(s);
if (length(s)>(xm-x))then exit;{to jen tak}
cursoron;
for i:=x to (xm-length(s)) do begin
gotoxy(i,y);
if (i<x+length(s)) then begin gotoxy(x,y);;
for w:=1 to (length(s)-xp+1)do write(s[xp+w-1]);
delay(d);dec(xp);
end;
if (i>=x+length(s)) then begin gotoxy(i-length(s)+1,y);write(s);
gotoxy(i-length(s),y);write(' ');
delay(d);
end;
if keypressed then exit;
end;
end;
begin clrscr;
gotoxy(10,10);write('Ratmane vloz text: ');readln(text);
clrscr;cursoroff;
ram(10,16,19,75,14,15,6,0);
bez(20,75,15,text,14,200)
{jo dal si mi pekne zabrat s timhle -pip- programem}
{koukni na to prolouskej si to pres F7 a prsty a kdyz nebudes
rozumet tak rekni a ja ti jednu vrazim (to za drzost) ne vysvetlim ti to
snad}
{jo a dodelej si aby se ti ten text zase schoval }
{CAU}
{Copyright (c) 20.11.2001 21:30 by Martin M.}
end.