'code to benchmark speed of PSET and
'POKEing straight to video memory

SCREEN 13
PRINT "Press any key to begin test."
SLEEP

'fill screen pixel by pixel with PSET
startPSET# = TIMER
FOR col% = 0 to 15
    FOR y% = 0 to 199
        FOR x% = 0 to 319
            PSET(x%, y%), col%
        NEXT x%
    NEXT y%
NEXT col%
endPSET# = TIMER

'fill screen pixel by pixel with POKE
DEF SEG = &HA000
startPOKE# = TIMER
FOR col% = 0 to 15
    FOR y% = 0 to 199
        FOR x% = 0 to 319
            POKE 320& * y% + x%, col%
        NEXT x%
    NEXT y%
NEXT col%
endPOKE# = TIMER
DEF SEG = 0

'print results
PRINT "Time taken with PSET:"; endPSET# - startPSET#
PRINT "Time taken with POKE:"; endPOKE# - startPOKE#