home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / FAQ-S.ZIP / BOX.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1990-11-20  |  630 b   |  31 lines
  1. program box;
  2.  
  3. uses general,dos,crt,subs1;
  4.  
  5. var character:char;
  6. begin
  7. clrscr;
  8. gotoxy (20,10);
  9. ansicolor (31);
  10. writeln ('┌─────────────────────────────────────┐');
  11. gotoxy (20,11);
  12. writeln ('│                                     │');
  13. gotoxy (20,12);
  14. write   ('│ ');
  15. ansicolor (30);
  16. write   (' This is a Sample of a Box Design  ');
  17. ansicolor (31);
  18. writeln (' │');
  19. gotoxy (20,13);
  20. writeln ('│ Press Enter:                        │');
  21. gotoxy (20,14);
  22. writeln ('└─────────────────────────────────────┘');
  23. gotoxy (35,13);
  24. buflen:=0;
  25. character:=upcase(readkey);
  26. delay (500);
  27. ansicolor (7);
  28. clrscr;
  29. halt;
  30. end.
  31.