home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1987 February / 64er_Magazin_87-02_1987_Markt__Technik_de_Side_B.d64 / drucken (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1987-01-01  |  313 b   |  16 lines
  1. 10 a=a+1:ifa=1thenload"mpprint",8,8
  2. 15 ifa=3then35
  3. 20 print"[147]abbruch durch run/stop"
  4. 25 print"drucker an?
  5. 27 [153]"<taste>
  6. 28 poke198,0:wait198,1:geta$
  7. 29 input"revers (j/n)";r$
  8. 30 input"bildname";a$:loada$,8,8
  9. 35 ifr$="j"thengosub60
  10. 40 sys8192
  11. 50 a=1:goto10
  12. 60 fort=1024to2023
  13. 70 ifpeek(t)<128thenpoket,peek(t)+128:goto90
  14. 80 ifpeek(t)>128thenpoket,peek(t)-128
  15. 90 next:return
  16.