home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / CLIPPER / NANNWS31.ARC / PRTSC.PRG < prev   
Encoding:
Text File  |  1988-08-09  |  852 b   |  42 lines
  1. * Program: PrtSc.prg
  2. * Author:  Phil User and Chris Sennitt
  3. *          Nantucket (UK)
  4. * Version: Clipper Summer 87
  5. * Copyright (c) 1988 Nantucket Corp.
  6.  
  7. *
  8. * .... Code
  9. SET PRINTER TO Temp.txt
  10. PRTSC()
  11. * .... More Code
  12. Return
  13.  
  14.  
  15. FUNCTION PrtSc
  16. *
  17. * Usage: PrtSc()
  18. *
  19. PRIVATE M__Scr, OldColor, Char
  20.  
  21. SAVE SCREEN TO M__Scr             && Put Screen into mvar.
  22. OldColor = SETCOLOR('n*/w,w/n')   && Save color and set new.
  23. @ 0,10 SAY ' Printing '           && Display message. 
  24.  
  25. SET PRINT On
  26. SET CONS Off
  27.  
  28. FOR Char = 1 TO 4000 STEP 2       && Screen (80 * 25 * 2)
  29.    ?? SUBSTR(M__Scr,Char,1)       && Print Character
  30.    IF (Char/160) = Int(Char/160)  && End of a line?
  31.       ?? CHR(13) + CHR(10)        && <CR> <LF>
  32.    ENDIF
  33. NEXT
  34.  
  35. SET PRINT Off
  36. SET CONS On
  37.  
  38. SETCOLOR(OldColor)
  39. RESTORE SCREEN FROM M__Scr
  40.   
  41. RETURN (.T.)
  42.