SCREEN 13

DEF SEG = &HA000
BLOAD "pboy.plt", 0

FOR plt = 0 TO 255
        pltptr = plt * 3
        r = PEEK(pltptr)
        g = PEEK(pltptr + 1)
        b = PEEK(pltptr + 2)
        OUT 968, plt
        OUT 969, r
        OUT 969, g
        OUT 969, b
NEXT

BLOAD "pboy.bld", 0
a$ = INPUT$(1)