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 >
Wrap
Commodore BASIC
|
2022-10-26
|
313b
|
16 lines
10 a=a+1:ifa=1thenload"mpprint",8,8
15 ifa=3then35
20 print"[147]abbruch durch run/stop"
25 print"drucker an?
27 [153]"<taste>
28 poke198,0:wait198,1:geta$
29 input"revers (j/n)";r$
30 input"bildname";a$:loada$,8,8
35 ifr$="j"thengosub60
40 sys8192
50 a=1:goto10
60 fort=1024to2023
70 ifpeek(t)<128thenpoket,peek(t)+128:goto90
80 ifpeek(t)>128thenpoket,peek(t)-128
90 next:return