home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1993 May / 64er_Magazin_93-05_1993_Markt__Technik_de_Side_B.d64 / hardcopy (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1993-01-01  |  1.1 KB  |  42 lines
  1. 5 rem v ist die anfangsadresse des videospeichers
  2. 6 rem hier auf $2000 gesetzt.
  3. 7 rem dies koennen sie an ihr programm anpassen
  4. 10 v=8192
  5. 15 rem oeffnet linaerkanal zum drucker
  6. 20 open1,4,1
  7. 25 rem damit initialisiert man den drucker
  8. 26 rem um einen definierten zustand zu erreichen
  9. 30 print#1,chr$(27);chr$(64)
  10. 35 rem jetzt mu+ der zeilenabstand auf
  11. 36 rem 8/72 zoll eingestellt werden
  12. 40 print#1,chr$(27);"a";chr$(8)
  13. 45 rem 40 spalten haben wir insgesamt
  14. 50 fora=0to39
  15. 60 rem der drucker wird auf grafaikdruck
  16. 61 rem 200 byte eingestellt
  17. 70 print#1,chr$(27);"*";chr$(0);chr$(200);chr$(0);
  18. 75 rem los gehts mit den spalten und zwar
  19. 76 rem rueckwaerts
  20. 80 forb=24to0step-1
  21. 85 rem jede zeichenposition enthaelt acht byte
  22. 90 forc=7to0step-1
  23. 95 rem wegen des gedrehten drucks ist
  24. 96 rem die adressberechnung einfach
  25. 100 x=peek(v+a*8+b*320+c)
  26. 105 rem hier lassen wir einen cursor blinken
  27. 106 rem damit wir wissen, wie weit der rechner ist
  28. 110 poke(v+a*8+b*320+c),255
  29. 120 poke(v+a*8+b*320+c),x
  30. 125 rem jetzt wird das byte zum drucker geschickt
  31. 130 print#1,chr$(x);
  32. 135 rem acht byte fertig?
  33. 140 nextc
  34. 145 rem ja, dann spalte fertig?
  35. 150 nextb
  36. 155 rem wenn ja, dann zeilenvorschub senden
  37. 160 print#1,chr$(10);chr$(13)
  38. 165 rem bild komplett?
  39. 170 nexta
  40. 175 rem ja, dann datei schliessen
  41. 180 close1
  42.