rot_pfcol.bas

 set kernel_options pfcolors

   p = 0

loop
   for i = 0 to 21
      if p then goto odd else goto even
back
      for j = 0 to 15
      on i goto C00 C01 C02 C03 C04 C05 C06 C07 C08 C09 C10 C11 C12 C13 C14 C15 C16 C17 C18 C19 C20 C21
continue
         drawscreen
      next
      p = p ^ 1
  next
  goto loop

even
 playfield:
 .............X.................
 .....................X.........
 ......X........................
 .........................X.....
 ....X..........................
 ..........................X....
 ....X..........................
 .........................X.....
 ......X........................
 .....................X.........
 .............X.................
end
 goto back

odd
 playfield:
 .................X.............
 ........X......................
 ........................X......
 .....X.........................
 ..........................X....
 ....X..........................
 ..........................X....
 .....X.........................
 ........................X......
 ........X......................
 .................X.............
end
 goto back


C00
 COLUPF = $1E
 pfcolors:
 $1E
 $3A
 $EA
 $46
 $C2
 $42
 $B4
 $52
 $A4
 $62
 $82
end
 goto continue

C01
 COLUPF = $1E
 pfcolors:
 $1E
 $EA
 $3A
 $C2
 $46
 $B4
 $42
 $A4
 $52
 $82
 $62
end
 goto continue

C02
 COLUPF = $EA
 pfcolors:
 $EA
 $1E
 $C2
 $3A
 $B4
 $46
 $A4
 $42
 $82
 $52
 $62
end
 goto continue

C03
 COLUPF = $EA
 pfcolors:
 $EA
 $C2
 $1E
 $B4
 $3A
 $A4
 $46
 $82
 $42
 $62
 $52
end
 goto continue

C04
 COLUPF = $C2
 pfcolors:
 $C2
 $EA
 $B4
 $1E
 $A4
 $3A
 $82
 $46
 $62
 $42
 $52
end
 goto continue

C05
 COLUPF = $C2
 pfcolors:
 $C2
 $B4
 $EA
 $A4
 $1E
 $82
 $3A
 $62
 $46
 $52
 $42
end
 goto continue

C06
 COLUPF = $B4
 pfcolors:
 $B4
 $C2
 $A4
 $EA
 $82
 $1E
 $62
 $3A
 $52
 $46
 $42
end
 goto continue

C07
 COLUPF = $B4
 pfcolors:
 $B4
 $A4
 $C2
 $82
 $EA
 $62
 $1E
 $52
 $3A
 $42
 $46
end
 goto continue

C08
 COLUPF = $A4
 pfcolors:
 $A4
 $B4
 $82
 $C2
 $62
 $EA
 $52
 $1E
 $42
 $3A
 $46
end
 goto continue

C09
 COLUPF = $A4
 pfcolors:
 $A4
 $82
 $B4
 $62
 $C2
 $52
 $EA
 $42
 $1E
 $46
 $3A
end
 goto continue

C10
 COLUPF = $82
 pfcolors:
 $82
 $A4
 $62
 $B4
 $52
 $C2
 $42
 $EA
 $46
 $1E
 $3A
end
 goto continue

C11
 COLUPF = $82
 pfcolors:
 $82
 $62
 $A4
 $52
 $B4
 $42
 $C2
 $46
 $EA
 $3A
 $1E
end
 goto continue

C12
 COLUPF = $62
 pfcolors:
 $62
 $82
 $52
 $A4
 $42
 $B4
 $46
 $C2
 $3A
 $EA
 $1E
end
 goto continue

C13
 COLUPF = $62
 pfcolors:
 $62
 $52
 $82
 $42
 $A4
 $46
 $B4
 $3A
 $C2
 $1E
 $EA
end
 goto continue

C14
 COLUPF = $52
 pfcolors:
 $52
 $62
 $42
 $82
 $46
 $A4
 $3A
 $B4
 $1E
 $C2
 $EA
end
 goto continue

C15
 COLUPF = $52
 pfcolors:
 $52
 $42
 $62
 $46
 $82
 $3A
 $A4
 $1E
 $B4
 $EA
 $C2
end
 goto continue

C16
 COLUPF = $42
 pfcolors:
 $42
 $52
 $46
 $62
 $3A
 $82
 $1E
 $A4
 $EA
 $B4
 $C2
end
 goto continue

C17
 COLUPF = $42
 pfcolors:
 $42
 $46
 $52
 $3A
 $62
 $1E
 $82
 $EA
 $A4
 $C2
 $B4
end
 goto continue

C18
 COLUPF = $46
 pfcolors:
 $46
 $42
 $3A
 $52
 $1E
 $62
 $EA
 $82
 $C2
 $A4
 $B4
end
 goto continue

C19
 COLUPF = $46
 pfcolors:
 $46
 $3A
 $42
 $1E
 $52
 $EA
 $62
 $C2
 $82
 $B4
 $A4
end
 goto continue

C20
 COLUPF = $3A
 pfcolors:
 $3A
 $46
 $1E
 $42
 $EA
 $52
 $C2
 $62
 $B4
 $82
 $A4
end
 goto continue

C21
 COLUPF = $3A
 pfcolors:
 $3A
 $1E
 $46
 $EA
 $42
 $C2
 $52
 $B4
 $62
 $A4
 $82
end
 goto continue