home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 12 / 64er_Magazin_Sonderheft_12_86-12_1986_Markt__Technik_de_Side_A.d64 / benchmark (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  2KB  |  80 lines
  1. 100 rem *******************************
  2. 110 rem     benchmarks fuer compiler
  3. 120 rem *******************************
  4. 130 rem
  5. 140 rem ************* 1 ** for next ***
  6. 150 print"[147]ausfuehrung: 1[157]";:a1=ti
  7. 160 fori=1to1000
  8. 170 nexti
  9. 180 e1=ti
  10. 190 rem ************* 2 ** if then ****
  11. 200 print"2[157]";:a2=ti
  12. 210 i=0
  13. 220 i=i+1
  14. 230 ifi<1000then220
  15. 240 e2=ti
  16. 250 rem ************* 3 ** rechnen ****
  17. 260 print"3[157]";:a3=ti
  18. 270 fori=1to1000
  19. 280 c=i+i*(i-i/i)^(i/500)
  20. 290 nexti
  21. 300 e3=ti
  22. 310 rem ************* 4 ** gosub ******
  23. 320 print"4[157]";:a4=ti
  24. 330 fori=1to1000
  25. 340 gosub800
  26. 350 nexti
  27. 360 e4=ti
  28. 370 rem ************* 5 ** felder *****
  29. 380 print"5[157]";:a5=ti
  30. 390 dim f(1000),f$(1000)
  31. 400 fori=1to1000
  32. 410 f(i)=i:f$(i)="text"
  33. 420 nexti
  34. 430 e5=ti
  35. 440 rem ************* 6 ** funktionen *
  36. 450 print"6[157]";:a6=ti
  37. 460 fori=1to1000
  38. 470 c=sin(i):c=tan(i):c=exp(i/30):c=val(str$(i))
  39. 480 nexti
  40. 490 e6=ti
  41. 500 rem ************* 7 ** read data **
  42. 510 print"7[157]";:a7=ti
  43. 520 fori=1to1000
  44. 530 restore:data0
  45. 540 readd
  46. 550 nexti
  47. 560 e7=ti
  48. 570 rem ************* 8 ** sortieren **
  49. 580 print"8[157]";:a8=ti
  50. 590 dim s$(100)
  51. 600 fori=1to100
  52. 610 fork=1to10
  53. 620 s$(i)=s$(i)+chr$(rnd(ti)*26+65)
  54. 630 nextk
  55. 640 nexti
  56. 650 fori=1to99
  57. 660 fork=i+1to100
  58. 670 ifs$(k)>s$(i)then690
  59. 680 s$(0)=s$(k):s$(k)=s$(i):s$(i)=s$(0)
  60. 690 nextk,i
  61. 700 e8=ti
  62. 710 rem ************* 9 ** fehler ? ***
  63. 720 goto 770
  64. 730 goto729
  65. 740 gosub739
  66. 750 fori%=1to2:nexti%
  67. 760 syntax error
  68. 770 print"warten":wait197,1:wait197,1,255
  69. 780 goto900
  70. 800 return
  71. 900 rem ************* auswertung ******
  72. 910 print"[147]b1:"(e1-a1)/60"sek.
  73. 920 [153]"b2:"(e2[171]a2)[173]60"sek.
  74. 930 print"b3:"(e3-a3)/60"sek.
  75. 940 [153]"b4:"(e4[171]a4)[173]60"sek.
  76. 950 print"b5:"(e5-a5)/60"sek.
  77. 960 [153]"b6:"(e6[171]a6)[173]60"sek.
  78. 970 print"b7:"(e7-a7)/60"sek.
  79. 980 [153]"b8:"(e8[171]a8)[173]60"sek.
  80.