DECLARE SUB putpixel (x%, y%, c%)
SCREEN 13

'Just to circumvent any library init time
PSET (1, 1), 0

t! = TIMER

FOR i = 0 TO 100000
    PSET (5, 5), 15
NEXT i

benchmarkpset! = TIMER - t!

t! = TIMER

FOR i = 0 TO 100000
    DEF SEG = &HA000
    POKE (5 + (5 * 320&)), 14
NEXT i

benchmarkputpixel! = TIMER - t!

SCREEN 0
WIDTH 80, 25

PRINT "PSet:     "; benchmarkpset!
PRINT "PutPixel: "; benchmarkputpixel!
PRINT
PRINT "Press the Any key ;)"

t$ = INPUT$(1)

SUB putpixel (x%, y%, c%)
    DEF SEG = &HA000
    POKE (x% + (y% * 320&)), c%
END SUB