home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / sigm / vol256 / turbojrt.pas < prev   
Encoding:
Pascal/Delphi Source File  |  1986-03-22  |  1.9 KB  |  67 lines
  1. (* TURBOJRT.PAS is a collection of subroutines for JRT Pascal that
  2.    do the same thing as built in functions in Turbo Pascal. This set
  3.    of procedures must be included in your program prior to the main
  4.    program itself. Use the JRT compiler directive:  %INCLUDE('TURBOJRT.PAS')
  5.    to accomplish this.
  6.  
  7.  
  8.    Author:  Stephen Cebula
  9.             2349 Packard Avenue
  10.             Huntingdon Valley, PA 19006
  11.  
  12.  
  13.    Note: JRT Pascal became a public domain program ever since JRT Systems
  14.    went bankrupt. It can be found in the SIG/M library of your local computer
  15.    club or distribution center. Although it does not have all the fancy
  16.    features of Turbo Pascal (tm), it is good enough and reasonable enough ($$)
  17.    to serve as a valuable teaching tool for the Pascal language.
  18. *)
  19.  
  20. procedure gotoxy(x,y: integer);
  21. begin
  22.    write( chr(27), chr(ord('=')), chr(32+y), chr(32+x));
  23. (* write( chr(27), chr(ord('Y')), chr(32+y), chr(32+x)); *)  (* for Heath *)
  24.    end;
  25.  
  26. procedure clrscr;
  27. begin
  28.    write( chr(26));  (* clear screen on Osborne, Kaypro, or Televideo *)
  29. (* write( chr(27), chr(ord('E'))); *)    (* clear screen on Heath computer *)
  30.    end;
  31.  
  32. procedure clreol;
  33. begin
  34.    write( chr(27), chr(84)); (* clear 'til end of line on Osborne  ESC T *)
  35.    end;
  36.  
  37. procedure LowVideo;  (* Osborne I/Televidio 920c screen function *)
  38. begin
  39.    write( chr(27), chr(ord(')')));  (* ESC )  *)
  40.    end;
  41.  
  42. procedure NormVideo; (* opposite of LowVideo procedure *)
  43. begin
  44.    write( chr(27), chr(ord('(')));   (* ESC (  *)
  45.    end;
  46.  
  47. procedure DelLine;   (* Delete line on Osborne I *)
  48. begin
  49.    write( chr(27), chr(ord('R')));   (* ESC R  *)
  50.    end;
  51.  
  52. procedure InsLine;   (* Insert line on Osborne I *)
  53. begin
  54.    write( chr(27), chr(ord('E')));   (* ESC E  *)
  55.    end;
  56.  
  57. procedure CrtInit;   (* fill in your own command to initialize screen *)
  58. begin
  59.    write;
  60.    end;
  61.  
  62. procedure CrtExit;   (* fill in your own command to exit screen *)
  63. begin
  64.    write;
  65.    end;
  66.  
  67.