Advertisement
Kisearu

Happy Birthday

May 27th, 2015
233
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 1.06 KB | None | 0 0
  1. Program Pzim ;
  2. Begin
  3. writeln('#   #  ###  ####  ####  #   #    ####  ###  #### ##### #   # ####   ###  #   #');
  4. writeln('#   # #   # #   # #   #  # #     #   #  #   #   #  #   #   # #   # #   #  # #');
  5. writeln('##### ##### ####  ####    #      ####   #   ####   #   ##### #   # #####   #');
  6. writeln('#   # #   # #     #       #      #   #  #   #   #  #   #   # #   # #   #   #');
  7. writeln('#   # #   # #     #       #      ####  ###  #   #  #   #   # ####  #   #   #');
  8. readln;
  9. writeln;
  10. gotoxy(50,7);
  11. write('*');
  12. gotoxy(15,8);
  13. write('*');
  14. gotoxy(23,9);
  15. write('*');
  16. gotoxy(7,10);
  17. write('*');
  18. gotoxy(60,11);
  19. write('*');
  20. gotoxy(36,12);
  21. write('*');
  22. gotoxy(70,13);
  23. write('*');
  24. gotoxy(19,14);
  25. write('*');
  26. gotoxy(57,15);
  27. write('*');
  28. gotoxy(21,16);
  29. write('*');
  30. gotoxy(66,17);
  31. write('*');
  32. gotoxy(35,8);
  33. writeln('I cant');
  34. gotoxy(40,10);
  35. writeln('believe');
  36. gotoxy(36,12);
  37. writeln('youre only');
  38. gotoxy(41,14);
  39. writeln('19');
  40. gotoxy(39,16);
  41. writeln('years old!');
  42. readln;
  43. gotoxy(40,24);
  44. writeln('It seems that you have more than this.');
  45. readln;
  46.  
  47. End.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement