home *** CD-ROM | disk | FTP | other *** search
/ CD Shareware Magazine 1996 December / CD_shareware_12-96.iso / DOS / Programa / AGSPC1B2.ZIP / DEBUG.PPS < prev    next >
Encoding:
Text File  |  1996-07-29  |  788 b   |  31 lines
  1. ;----------------------------------------------------------------------------
  2. ; Copyright(C) 1996, The AEGiS Corporation
  3. ;----------------------------------------------------------------------------
  4. ;
  5. ; PROCEDURE Debug()
  6. ;
  7. ; Simple debug procedure. Saves screen state (color, cursor location)
  8. ; moves to the first line & column, writes your debug value, and restores
  9. ; screen state.
  10. ;
  11. ;----------------------------------------------------------------------------
  12. #lib
  13. Declare Procedure Debug(String DebugValue)
  14.  
  15. ;----------------------------------------------------------------------------
  16. Procedure Debug(string DebugValue)
  17.  
  18. int x
  19. int y
  20. int c
  21.  
  22. x = getx()
  23. y = gety()
  24. c = curcolor()
  25. ansipos 1,1
  26. print "@X0F" + DebugValue,"      "
  27. ansipos x,y
  28. color c
  29.  
  30. Endproc
  31.