1 REM GRAFIK-KONVERTER C128-->C64
2 REM COMMDORE DISC/H.B.
3 PRINTCHR$(142)CHR$(8):IFA=0THENA=1:LOAD"P128",8,1
5 SYS49152:IFA=2THEN40
7 GOTO100
10 IFA=1THENA=2:INPUT"NAME DER C128-GRAFIK ";F$:LOADF$,8,1
40 SYS49196
41 FORI=1TOLEN(F$)
42 POKE49529+I-1,ASC(MID$(F$,I,1))
43 NEXT:POKE49528,LEN(F$)
49 PRINTCHR$(18)"S"CHR$(146)"PEICHERN ALS C64-GRAFIK(HI-EDDI-FORMAT)":PRINT
50 PRINTCHR$(18)"A"CHR$(146)"NDERE GRAFIK":PRINT
51 PRINTCHR$(18)"E"CHR$(146)"NDE"
60 GETT$:IFT$="A"THENA=1:PRINT:SYS49491:GOTO100
61 IFT$="E"THENSYS64738
70 IFT$="S"THENSYS49402:GOTO100
80 GOTO60
100 PRINTCHR$(147)CHR$(18)"    GRAFIK-KONVERTER C128 ---> C64     ":PRINT
106 PRINTCHR$(18)"D"CHR$(146)"IRECTORY ":PRINT
111 PRINTCHR$(18)"H"CHR$(146)"IRES-GRAFIKEN":PRINT
112 PRINTCHR$(18)"M"CHR$(146)"ULTICOLOR-GRAFIKEN":PRINT
120 GETT$:IFT$="D"THENSYS49294:POKE198,0:WAIT198,1:GOTO100
130 IFT$="H"THENSYS49396:A=1:GOTO10
132 IFT$="M"THENSYS49187:A=1:GOTO10
140 GOTO120