Radastan Mode

[boriel]

This is a fast sample, including a basic implemented plot routine. I'm sure is not the most optimized code, but I hope it's clarifiying:

Code:

SUB RadastanMode(active as UByte)  '1=activate, 0=deactivate
    OUT 64571,64
    OUT 64827, 3 * active
END SUB
[...]

CLS
RadastanMode(1)
RadastanPalette(0,11111111b)
RadastanPalette(1,00011111b)
for x=1 to 50: RadastanPlot(x,x,1): next x
PAUSE 0
RadastanMode(0)
CLS

Definitely, thanks!!
What happens when you use Radastan Mode = 0?