Keskustelu: Koodit: QB: SCREEN 13 -paletin tallennus

TYPE paletti
    r AS INTEGER
    g AS INTEGER
    b AS INTEGER
END TYPE

DIM pal(256) AS paletti

SCREEN 13

OUT &H3C8, 1
FOR mones = 0 TO 255
    pal(mones).r = INP(&H3C9) * 4
    pal(mones).g = INP(&H3C9) * 4
    pal(mones).b = INP(&H3C9) * 4
NEXT

CLS

INPUT "Palettitiedoston nimi: ", tiedosto$

f = FREEFILE
OPEN tiedosto$ FOR OUTPUT AS #f

    PRINT #f, "JASC-PAL"
    PRINT #f, "0100"
    PRINT #f, "256"

    FOR a = 0 TO 255
        p$ = LTRIM$(STR$(pal(a).r)) + " " + LTRIM$(STR$(pal(a).g)) + " " + LTRIM$(STR$(pal(a).b))
        PRINT #f, p$
    NEXT a

CLOSE #f