home *** CD-ROM | disk | FTP | other *** search
/ SPACE 2 / SPACE - Library 2 - Volume 1.iso / demos / 57 / pascal / term.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1986-09-18  |  937 b   |  36 lines
  1. { These procedures have been created to mime Microsoft Basic
  2.   commands. I hope they are obvious to you                  }
  3.  
  4.  
  5. procedure Cls;
  6.         BEGIN
  7.                 write(chr(27),'E');
  8.         END;
  9.  
  10. procedure Color(f,b:integer);
  11.         VAR
  12.                 fstr,bstr       :char;
  13.         BEGIN
  14.                 fstr := chr(f+48);
  15.                 bstr := chr(b+48);
  16.                 write(chr(27),'b',f);
  17.                 write(chr(27),'c',b);
  18.         END;
  19.  
  20. procedure Locate(x,y,c:integer);
  21.         VAR
  22.                 xstr,ystr       :char;
  23.         BEGIN
  24.                 xstr := chr(x+32);
  25.                 ystr := chr(y+32);
  26.                 write(chr(27),'Y',xstr,ystr);
  27.                 { Turn cursor on (1) or off (0) }
  28.                 if c = 0 then write(chr(27),'f');
  29.                 if c = 1 then write(chr(27),'e');
  30.         END;
  31.  
  32. procedure clear;
  33.         BEGIN
  34.                 Cls;
  35.         END;
  36.