home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1989 / 01 / einstieg / hardcopy.inc next >
Encoding:
Text File  |  1988-10-03  |  988 b   |  33 lines
  1. REM -------------------------------------------------------
  2. REM                 HARDCOPY.INC
  3. REM Ausgabe des Bildschirms auf Epson-kompatiblen Druckern
  4. REM -------------------------------------------------------
  5. REM  (c) 1988 by HEIMSOETH Software / Technical Support
  6. REM         veröffentlicht in TOOLBOX 12/88
  7. REM -------------------------------------------------------
  8. REM            Compiler: Turbo Basic V1.01e
  9. REM -------------------------------------------------------
  10.  
  11. SUB HardCopy(xmin%, ymin%, xmax%, ymax%, PrinterMode%)
  12. LOCAL x%, y%, i%, Byte%
  13.  
  14. WIDTH "LPT1:",5000
  15. LPRINT CHR$(27); CHR$(64)
  16. LPRINT CHR$(27);"3";CHR$(12);
  17.  
  18. FOR y% = ymin% TO ymax% STEP 8
  19.   LPRINT CHR$(27);"*";CHR$(PrinterMode%);_
  20.          CHR$((xmax%+1) MOD 256);CHR$(xmax% \ 256);
  21.   FOR FOR x% = xmin% TO xmax%
  22.     Byte% = 0
  23.     FOR i% = 0 TO 7
  24.       Byte% = Byte% * 2 + POINT(x%, y% + i%)
  25.     NEXT i%
  26.     LPRINT CHR$(Byte%);
  27.   NEXT x%
  28.   LPRINT
  29. NEXT y%
  30. LPRINT CHR(12)
  31.  
  32. END SUB
  33.