home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / PROG / PASCAL / DOORDR50.ZIP / UNITINTR.ARJ / DDANSI.INT < prev    next >
Encoding:
Text File  |  1992-02-02  |  1.8 KB  |  35 lines
  1. unit ddansi;
  2.  
  3. interface
  4.  
  5. uses dos, crt;
  6. {----------------------------------------------------------------------------}
  7. {                       Ansi screen emulation routines                       }
  8. {                              By Scott Baker                                }
  9. {                        Revised By Derrick Parkhurst
  10. {----------------------------------------------------------------------------}
  11. {                                                                            }
  12. { Purpose: to execute ansi escape sequences locally. This includes changing  }
  13. {          color, moving the cursor, setting high/low intensity, setting     }
  14. {          blinking, and playing music.                                      }
  15. {                                                                            }
  16. { Remarks: These routines use a few global variables which are defined       }
  17. {          below. So far, only ESC m, J, f, C, and ^N are supported by these }
  18. {          routines. I hope to include more in the future.                   }
  19. {                                                                            }
  20. { Routines: Here is a listing of the subroutines:                            }
  21. {                                                                            }
  22. {             change_color(x):      Change to ansi color code X.             }
  23. {             Eval_string(s):       Evaluate/execute ansi string             }
  24. {             ansi_write(ch):       Write a character with ansi checking     }
  25. {                                                                            }
  26. {----------------------------------------------------------------------------}
  27.  
  28. var
  29.  escape,blink,high,norm,any,any2,fflag,gflag: boolean;
  30.  ansi_string: string;
  31.  
  32. procedure ansi_write(ch: char);
  33. Procedure ansi_write_str(var s: string);
  34.  
  35.