home *** CD-ROM | disk | FTP | other *** search
/ Run Magazine ReRun 1991 May & June / rerun-1991-05-06.d64 / example a (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1991-01-01  |  619 b   |  25 lines
  1. 1 if peek(719)<>141 then 110
  2. 5 print"[147]this is the first example for
  3. 6 [153]"profiler. press a key to contimue...
  4. 7 geta$:if a$="" then 7
  5. 8 clr
  6. 10 rem screen-blitz example (run profiler c64 first)
  7. 20 sys703:rem start timing here
  8. 30 a=int(rnd(0)*16)
  9. 40 b=int(a/4)+1
  10. 50 poke646,a
  11. 60 printmid$("[157][145]",b,1);" [157]";
  12. 70 c=c+1
  13. 80 ifc<1000then30
  14. 90 sys716:rem stop timing here
  15. 100 poke646,peek(53281)+1
  16. 110 rem continue with program...
  17. 120 print"[147]press a key to run analyzer again
  18. 130 [153]"to analyze this program.
  19. 140 get a$:if a$="" then 140
  20. 150 print"load"chr$(34)"profiler 64"chr$(34)","8"[145][145][145]
  21. 160 a$[178]"run"
  22. 170 a$[178]a$[170][199](13)
  23. 180 [151]631,13:[129]b[178]1[164][195](a$):[151]631[170]b,[198]([202](a$,b,1)):[130]:[151]198,10
  24. 190 [162]
  25.