start tok64 d64-K11jfY
10 REM screen-blitz example (run profiler c64 first)
20 SYS703:REM start timing here
30 a=INT(RND(0)*16)
40 b=INT(a/4)+1
50 POKE646,a
60 PRINTMID$("{right}{left}{up}{down}",b,1);"{reverse on} {left}";
70 c=c+1
80 IFc<1000THEN30
90 SYS716:REM stop timing here
100 POKE646,PEEK(53281)+1
110 PRINT"{clear}reload profiler
stop tok64
(bastext 1.0)