home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Hráč 1997 December
/
Hrac_16_1997-12_cd.bin
/
PCMANIAK.5
/
PASKA
/
MANIAK1.PAS
next >
Wrap
Pascal/Delphi Source File
|
1997-10-26
|
590b
|
34 lines
Program Uloha_farebne_JoJo_LASER;
uses crt;
Begin
Writeln('-= JoJo LASER =-'); {Writeln: Po vypisani textu "skoci" na dalsi riadok}
textcolor(0); { zmeni farbu }
Write('J'); { vypise pismeno }
textcolor(1);
Write('o');
textcolor(2);
Write('J');
textcolor(3);
Write('o');
textcolor(4);
Write('_');
textcolor(5);
Write('L');
textcolor(6);
Write('A');
textcolor(7);
Write('S');
textcolor(8);
Write('E');
textcolor(9);
Write('R');
Readln; { caka na stlacenie ENTERu
blizsie vysvetlenie v dalsom priklade }
End.