home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 91xx / 9109a.d64 / hires-druck (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  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.