home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 45 / 64er_Magazin_Sonderheft_45_19xx_Markt__Technik_de_Side_A.d64 / pg.printer (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  1KB  |  40 lines
  1. 1 rem       pg.printer
  2. 2 rem ---------------------------------
  3. 3 rem   programm zur druckeranpassung
  4. 4 rem   von 'prograf'
  5. 5 rem ---------------------------------
  6. 10 poke56,67:clr
  7. 11 print"[147]":print" druckeranpassung 'prograf'"
  8. 12 print" sind die zeilen 30-38 kontrolliert?"
  9. 13 input" j/n";a$:ifa$<>"j"thenend
  10. 15 sys57812"prograf",8,1:poke780,0:sys65493:rem laden
  11. 19 rem --------------------------------
  12. 20 rem kontrolliere die folgenden codes
  13. 21 rem --------------------------------
  14. 30 data 27,64   :rem initialisieren
  15. 31 data 27,51   :rem abstand n/216
  16. 32 data 27,42   :rem esc+"*" (dichte)
  17. 33 data 3       :rem dichte 1920 dpl
  18. 34 data 1       :rem dichte  960 dpl
  19. 35 data 10      :rem 10=line feed,13=cr
  20. 36 data 4.      :rem geraetenr. drucker
  21. 37 data 8       :rem geraetenr. floppy
  22. 38 data"neugraf":rem neuer programmname
  23. 40 rem --------------------------------
  24. 41 rem   anpassung
  25. 50 rem --------------------------------
  26. 60 reada:poke18751,a:reada:poke18756,a
  27. 61 reada:poke18714,a:reada:poke18719,a
  28. 62 reada:poke18762,a:reada:poke18767,a
  29. 63 reada:poke18760,a:reada:poke18776,a
  30. 64 reada:poke18728,a:rem
  31. 65 reada:poke19388,a:reada:poke22958,a
  32. 66 print" die codes sind geaendert."
  33. 67 input" bereit fuer 'save' (j/n)";a$
  34. 68 ifa$<>"j"thenend
  35. 69 reada$:print" saving";chr$(34);a$;chr$(34)
  36. 70 open1,8,1,a$
  37. 71 print#1,chr$(96);chr$(67);
  38. 72 fori=17248to23551:print#1,chr$(peek(i));:next
  39. 73 close1:end
  40.