Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- 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
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement