home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1991 September / 64er_Magazin_91-09_1991_Markt__Technik_de_Side_A.d64 / hires-druck (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  957b  |  25 lines
  1. 100 rem ********************************
  2. 110 rem *                              *
  3. 120 rem * hiresbildausgabe auf drucker *
  4. 130 rem *                              *
  5. 140 rem ********************************
  6. 150 input"basis (x*8192) ";basis:rem eingabe der basis
  7. 160 open 1,4,4:rem eroeffnen des druckers mit linearkanal =>sekundaeradresse 4
  8. 170 print#1,chr$(27);"3";chr$(24);:rem zeilenvorschub auf 24/216
  9. 180 dim byte(7)
  10. 185 for j=0 to24:rem zeilen 1-25
  11. 186 print#1,chr$(27);"k";chr$(64);chr$(1);:rem senden des codes fuer hires ein
  12. 187 for k=0 to 39:rem bloecke 1-39
  13. 190 for i=0 to 7:rem aktueller block umrechnen
  14. 200 byte(i)=peek(basis+j*320+k*8+i)
  15. 210 next i
  16. 220 for i=0 to 7:rem 7 bytes vertikal
  17. 230 output=0:for i0=0 to 7
  18. 240 output=output-((byte(i0)and 2^(7-i))>0)*2^(7-i0):next i0
  19. 250 print#1,chr$(output);:next i:rem block ausgeben, ende blockumrechnung
  20. 260 next k:rem ende bloecke einer reihe
  21. 270 print#1,chr$(10):rem zeilenvorschub
  22. 280 next j:rem ende schleife einer reihe
  23. 290 print#1,chr$(27)"2":rem zeilenvorschub wieder auf 1/6 bringen
  24. 300 close 1:rem schliessen druckerkanal
  25.