home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / GANSIM.ZIP / GANSIM.DOC next >
Encoding:
Text File  |  1980-01-03  |  2.8 KB  |  73 lines
  1. {********************************************************************}
  2. Unit GANSIM{0.99};
  3. {
  4.        ╔════════════════▌ GANSIM ver 1.00 ▐════════════════╗
  5.        ║                                                   ║
  6.        ║  By                                               ║
  7.        ║   Giuseppe Grasso,                                ║
  8.        ║   P.D. from Giuseppe Grasso & Blues BrotherS BBS  ║
  9.        ║                                                   ║
  10.        ║   You can DownLoad the latest version of GANSIM   ║
  11.        ║   on Blues BrotherS's Italian Free Soft Area.     ║
  12.        ║                                                   ║
  13.        ║   Call Blues BrotherS BBS,                        ║
  14.        ║   net 332/15, phone +39.10.390287                 ║
  15.        ║   Sysops: Giampaolo Sica, Giuseppe Grasso, Enrica ║
  16.        ║                                                   ║
  17.        ╚═══════════════════════════════════════════════════╝
  18. }
  19.  
  20. interface
  21. {********************************************************************}
  22. uses
  23.     crt;
  24. const
  25.      Black    =0;
  26.      Blue     =1;
  27.      Green    =2;
  28.      Cyan     =3;
  29.      Red      =4;
  30.      Magenta  =5;
  31.      Brown    =6;
  32.      lGray    =7;
  33.      darkGray =8;
  34.      lBlue    =9;
  35.      lGreen   =10;
  36.      lCyan    =11;
  37.      lRed     =12;
  38.      lMagenta =13;
  39.      Yellow   =14;
  40.      White    =15;
  41.      Blink    =128;
  42.      nochange =254;
  43.      reset    =255;
  44. var
  45.    AnsiColor:boolean;              {if FALSE ignore COLxxx procedures}
  46.    SimModem:boolean;               {Simulate, or not simulate, nodem speed}
  47.    ModemSpeed:word;                {Modem speed to simulate if SimModem=TRUE}
  48.  
  49. Function KeyReady:boolean;      {Like KeyPressed}
  50. Function KeyRead:char;          {Like ReadKey}
  51. Procedure Scrivi(s:string);        {Like write}
  52. Procedure Scriviln(s:string);      {Like Writeln}
  53.  
  54. Procedure ColSet(f,b:byte);        {Set current color}
  55. Procedure ColReverse;              {Swap Background with Foreground}
  56. Procedure ColBlink;                {Set Blink on}
  57. Procedure ColHiLight;              {Set HiLight}
  58. Procedure ColReset;                {ReSet to normal Colors (Fore:7,Back:0)}
  59.  
  60. Procedure CLS;                     {Clear the screen}
  61. Procedure ClrEoln;                 {Delete from cursor position to end of line}
  62.  
  63. Procedure SCP;                     {Save Cursor Position}
  64. Procedure RCP;                     {Restore Cursor Position}
  65.  
  66. Procedure Cursor(x,y:byte);        {Gotoxy}
  67. Procedure CursorUp(n:byte);        {Go UP n rows}
  68. Procedure CursorDown(n:byte);      {Go DOWN n rows}
  69. Procedure CursorForward(n:byte);   {Go FOREARD n collums}
  70. Procedure CursorBackward(n:byte);  {Go BACKWARD n collums}
  71. Procedure Home;                    {Go to home position}
  72. {********************************************************************}
  73.