home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1990 April / 1990-04.d64 / ex.demo (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  294b  |  17 lines
  1. 100 rem *** example program for ***
  2. 110 rem *** execution analyzer  ***
  3. 120 :
  4. 130 sys 724,o
  5. 140 loops=100
  6. 150 for i=1 to loops
  7. 160 print"loop"i
  8. 170 for d=1 to 100:next
  9. 180 if int(i/2)=i/2 then 200
  10. 190 x=sqr(cos(sin(tan((NULL)^2))))
  11. 200 gosub 230
  12. 210 next i
  13. 220 sys 724,f:sys 724,d:end
  14. 230 restore:data 1,2,3,4,5
  15. 240 for j=1 to 5:read a
  16. 250 poke 30000+j,a:next:return
  17.