home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh1x / sh12a.d64 / benchmark (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  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.