1 :IF L=1 THEN 20
2 :
3 :REM ********************************
4 :REM *         KOALA-CHANGE         *
5 :REM *                              *
6 :REM * UWE HUEDEPOHL                *
7 :REM *    SCHECKERTSTR.19           *
8 :REM *       8702 ZELL/AM MAIN      *
9 :REM ********************************
10 :
11 :
12 PRINT"[147]KOALA-PIC[146] SCHON ABSOLUT GELADEN";:INPUT"(J/N)";A$:IFA$<>"J" THEN END
14 :
16 :
18 L=1:LOAD"MSP-KOALA",8,1
19 :
20 POKE 53280,7:POKE 53281,7:POKE 646,9
22 HCOL=PEEK(24576)-240
24 FOR I=0 TO 15
26 :   READ FARBZUWEISUNG
28 :   IF I=HCOL THEN HCOL=FA:GOTO 30
29 NEXT I
30 POKE49380,HCOL
32 :
34 :
36 PRINT"[147]NEUVERTEILUNG DER GRAUWERTE";:INPUT"(J/N)";A$:IF A$<>"J" THEN 78
38 PRINT"[147]":POKE 53281,1:POKE 53280,1
39 POKE 646,0:RESTORE
40 FOR I=0 TO 15:POKE 646,I
42 :   PRINT CHR$(18);"   ";
44 :   IF I<>7 AND I<>15 THEN 56
45 :   PRINT:PRINT:POKE 646,0
46 :   FOR J=(I-7)TO I
48 :       READ FARBZUWEISUNG
50 :       PRINT" [157]";FA;"[157] ";
52 :   NEXT J
53 :   PRINT:PRINT
56 NEXT I
58 :
59 INPUT">RETURN<[146]";A$
63 ADD=121:PRINT:PRINT
64 FOR I=0 TO 15
66 : A=PEEK(1024+ADD):A=VAL(CHR$(A))
68 : POKE(49386+I),A:ADD=ADD+3
70 : IF I=7 THEN ADD=281
72 NEXT I
73 POKE 53280,7:POKE 53281,7:POKE 646,9:GOTO 36
74 :
76 :
78 PRINT:PRINT
79 INPUT" ZIEL [146]ADRESSE  16384[157][157][157][157][157][157][157]";Z
80 ZLOW=Z-(INT(Z/256)*256)
82 ZHIHG=INT(Z/256)
83 POKE 49239,ZLOW:POKE 49240,ZHIGH
84 :
86 SYS 49152
87 PRINT"[147] > OK < ":END
88 :
90 DATA 3,0,3,1,2,2,3,1,2,3,2,3,2,1,2,1