Kashub's Code Barn - "kodzik"

program sygnalki;
uses dos,crt;
begin clrscr;
 
gotoxy(20,20);      {pierwszy szablon}
writeln('_');
 
gotoxy(19,21);
writeln('I');
 
gotoxy(21,21);
writeln('I');
 
gotoxy(20,22);
writeln('-');
 
gotoxy(19,23);
writeln('I');
 
gotoxy(21,23);
writeln('I');
 
gotoxy(20,24);
writeln('-');
 
gotoxy(19,25);
writeln('I');
 
gotoxy(21,25);
writeln('I');
 
gotoxy(20,26);
writeln('-');
 
repeat UNTIL keypressed;
END.

| Katalog Sklepów internetowych | | Sklep z oponami | | Kamery IP sklep | | karma dla psa - sklep | | Blog o książkach | | Jak przenieść bloga | | Załóż za darmo bloga | | Skracacz linków | | Opisy na Facebooka | | Pionowe opisy |