home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 15 / CDACTUAL15.iso / cdactual / program / basic / QBNWS202.ZIP / RODENT.ZIP / CPRINT.DIS next >
Encoding:
Text File  |  1991-04-14  |  1.1 KB  |  35 lines
  1. ' ===========================================================================
  2. '   FILE: CPRINT.DIS
  3. '
  4. '   Support routines for QuickBASIC 4.5.
  5. '
  6. '           Copyright (c) 1991
  7. '           Daniel R. Berry (Traveller Software)
  8. '           All Rights Reserved
  9. '
  10. '   This code is released to the Public Domain for distribution with the
  11. '   QBNews.
  12. '
  13. '   Daniel R. Berry
  14. '   3110-C S. Gen McMullen
  15. '   San Antonio, TX  78226
  16. '
  17.  
  18. ' ===========================================================================
  19. '   SUBPROGRAM: CPrint
  20. '   Version 1.2  By: Dan Berry (c) Traveller Software 1987 - 1991
  21. ' =========================== CPrint SubProgram =============================
  22. SUB CPrint (Row%, Col%, Fore%, Back%, Prompt$)
  23.     DEFINT A-Z
  24.     COLOR Fore, Back    '   Set the text color
  25. '
  26. '   Center the string if required
  27. '
  28.     PCol = Col
  29.     IF Col = 0 THEN PCol = 40 - INT(LEN(Prompt$) / 2)
  30.     IF Col < 0 THEN PCol = ABS(Col) - INT(LEN(Prompt$) / 2)
  31.     LOCATE Row, PCol: PRINT Prompt$; '   Locate and Print
  32. ' ========================= End of Cprint SubProgram ========================
  33.     END SUB
  34.  
  35.