home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1989 / 04 / heimwerk / hcopy.inc < prev    next >
Encoding:
Text File  |  1988-11-15  |  1.3 KB  |  49 lines
  1. REM --------------------------------------------------------
  2. REM                     HCOPY.INC
  3. REM             Hardcopy von EGA/VGA-Grafiken
  4. REM             (c) 1988 TOOLBOX Version 1'89
  5. REM --------------------------------------------------------
  6.  
  7. SUB HardCopy(karte$)
  8. LOCAL x%, y%, RowBegin%, Byte%, Mode%, Size%, prtmod%
  9. LOCAL k1%, k2%
  10. REM Local-Deklarationen entfallen bei Quick Basic
  11.  
  12. IF karte$ = "EGA" THEN
  13.   Size% = 450
  14.   PrtMod% = 0
  15.   k1% = 415
  16.   k2% = 349
  17. ELSE
  18.   Size% = 600
  19.   PrtMod = 4
  20.   k1% = 480
  21.   k2% = 479
  22. END IF
  23. WIDTH "LPT1:", Size%       'Zeilenbreite für Drucker
  24. LPRINT CHR$(27); CHR$(64); 'Drucker initialisieren
  25. DEF SEG = &HA000           'Segment auf EGA/VGA-Speicher
  26. OUT &H03CE, 4              'Bitplane 0 setzen
  27. OUT &H03CF, 0
  28. LPRINT CHR$(27);"1";       'Zeilenhöhe für Drucker
  29. FOR x% = 0 TO 79
  30.   LPRINT CHR$(27);"*";CHR$(PrtMod);CHR$(k1% MOD 256);_
  31.          CHR$(k1%\256);
  32.   IF karte$ = "EGA" THEN LPRINT STRING$(65,0);
  33.   FOR y% = k2% TO 0 STEP - 1
  34.     RowBegin% = y% * 80
  35.     Byte% = 0
  36.     FOR Mode% = 0 TO 3
  37.       OUT &H03CE, 4
  38.       OUT &H03CF, Mode%
  39.       Byte% = Byte% OR PEEK(RowBegin% + x%)
  40.     NEXT Mode%
  41.     LPRINT CHR$(Byte%);
  42.   NEXT y%
  43.   LPRINT
  44. NEXT x%
  45. DEF SEG
  46. END SUB
  47.  
  48. REM --------------------------------------------------------
  49.