home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
87xx
/
8702b.d64
/
drucken
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
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