home *** CD-ROM | disk | FTP | other *** search
/ Hráč 1997 December / Hrac_16_1997-12_cd.bin / PCMANIAK.5 / PASKA / MANIAK1.PAS next >
Pascal/Delphi Source File  |  1997-10-26  |  590b  |  34 lines

  1. Program Uloha_farebne_JoJo_LASER;
  2.  
  3. uses crt;
  4.  
  5. Begin
  6.  
  7. Writeln('-= JoJo LASER =-'); {Writeln: Po vypisani textu "skoci" na dalsi riadok}
  8.  
  9. textcolor(0);      { zmeni farbu }
  10. Write('J');        { vypise pismeno }
  11. textcolor(1);
  12. Write('o');
  13. textcolor(2);
  14. Write('J');
  15. textcolor(3);
  16. Write('o');
  17. textcolor(4);
  18. Write('_');
  19. textcolor(5);
  20. Write('L');
  21. textcolor(6);
  22. Write('A');
  23. textcolor(7);
  24. Write('S');
  25. textcolor(8);
  26. Write('E');
  27. textcolor(9);
  28. Write('R');
  29.  
  30.  
  31. Readln;            { caka na stlacenie ENTERu
  32.                      blizsie vysvetlenie v dalsom priklade }
  33.  
  34. End.