C64 Software  <  SCA: The C64 Software Collection / PM COL-CHANGER

  Run
1 IFPEEK(44)=96ANDPEEK(43)=1THEN20
10 : V   ENTSPRICHT  V
20 Z(0)=2       :REM 53281
30 Z(1)=0       :REM VIDEO HIGH NIBBLE
40 Z(2)=1       :REM VIDEO LOW NIBBLE
50 Z(3)=3       :REM COLOR RAM
60 :
70 E=192:F=48:G=12:H=3:DIMA%(255)
80 FORI=1TO3:A%(I)=I:A%(4*I)=I:A%(16*I)=I:A%(64*I)=I:NEXT
90 :
100 FORI=2163TO10162:A=PEEK(I)
110 POKEI,64*Z(A%(AANDE))+16*Z(A%(AANDF))+4*Z(A%(AANDG))+Z(A%(AANDH))
120 PRINTI,:NEXT
READY.