' Demoprogramm zum Thema Palettenpermutation

SCREEN 7
' Eigentlich ist diese Initalisierung nicht n”tig, aber aus
' Verst„ndlichkeitsgr�nden wurde sie hineingenommen
FOR i% = 0 TO 15
  PALETTE i%, i%
NEXT i%
FOR i% = 0 TO 95
  LINE (5, 4 + 2 * i%)-(5 + 3 * i%, 194), i% MOD 15 + 1
NEXT i%
INPUT "Zwei Farben (0-15)"; f1%, f2%
' Palette vertauschen
PALETTE f1%, f2%
PALETTE f2%, f1%
' Und Bitmap ebenfalls anpassen
FOR y% = 0 TO 199
  FOR x% = 0 TO 319
    IF POINT(x%, y%) = f1% THEN
      PSET (x%, y%), f2%
    ELSEIF POINT(x%, y%) = f2% THEN
      PSET (x%, y%), f1%
    END IF
  NEXT x%
NEXT y%
d$ = INPUT$(1)
SCREEN 0
WIDTH 80, 25