home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / sigm / vols000 / vol078 / benchmk.bas < prev    next >
Encoding:
BASIC Source File  |  1984-04-29  |  1.9 KB  |  121 lines
  1. BASIC BENCHMARK LISTINGS BM1 to 9 
  2.  
  3. LISTINGS OF BM1 to BM8 FROM COMPUTING EUROPE JULY 27 1978
  4.  
  5. 100    REM    BM1
  6. 300    PRINT "Start BM1"
  7. 400    FOR K=1 TO 1000
  8. 500    NEXT K
  9. 700    PRINT "E"
  10. 800    END
  11.  
  12. ------------------------
  13.  
  14. 100    REM    BM2
  15. 300    PRINT "Start BM2"
  16. 400    K=0
  17. 500    K=K+1
  18. 600    IF K<1000 THEN 500
  19. 700    PRINT "E"
  20. 800    END
  21.  
  22. ------------------
  23.  
  24. 100    REM    BM3
  25. 300    PRINT "Start BM3"
  26. 400    K=0
  27. 500    K=K+1
  28. 550    A=K/K*K+K-K
  29. 600    IF K<1000 THEN 500
  30. 700    PRINT "E"
  31. 800    END
  32.  
  33. ----------------------
  34.  
  35. 100    REM    BM4
  36. 300    PRINT "Start BM4"
  37. 400    K=0
  38. 500    K=K+1
  39. 510    A=K/2*3+4-5
  40. 600    IF K<1000 THEN 500
  41. 700    PRINT "E"
  42. 800    END
  43.                                    
  44. ----------------------             
  45.                       
  46. 100    REM    BM5
  47. 300    PRINT "Start BM5"
  48. 400    K=0
  49. 500    K=K+1
  50. 510    K=K/2*3+4-5
  51. 520    GOSUB 820
  52. 600     IF K<1000 THEN 500
  53. 700    PRINT "E"
  54. 800    STOP
  55. 820    RETURN
  56.  
  57. ----------------------                                
  58.                       
  59. 100    REM    BM6
  60. 300    PRINT "Start BM6"
  61. 400    K=0
  62. 500    K=K+1
  63. 510    A=K/2*3+4-5
  64. 520    GOSUB 820
  65. 530    FOR L=1 TO 5
  66. 540    NEXT L
  67. 600    IF K<1000 THEN 500
  68. 700    PRINT "E"
  69. 800    STOP
  70. 820    RETURN
  71.  
  72. ----------------------
  73.  
  74. 100    REM    BM7
  75. 300    PRINT "Start BM7"
  76. 400    K=0
  77. 430    DIM M(5)
  78. 500    K=K+I
  79. 510    A=K/2*3+4-5
  80. 520    GOSUB 820
  81. 530    FOR L=1 TO 5
  82. 535        M(L)=A
  83. 540    NEXT L
  84. 600    IF K <1000 THEN 500
  85. 700    PRINT "E"
  86. 800    STOP
  87. 820    RETURN
  88.  
  89. ------------------------
  90.                       
  91. 100    REM    BM8
  92. 300    PRINT "Start BM8"
  93. 400    K=0
  94. 500    K=K+1
  95. 550    A=K^2
  96. 560    B=LOG(K)
  97. 570    C=SIN(K)
  98. 580    IF K<100 THEN 500 
  99. 700    PRINT "E"
  100. 800    END
  101.                       
  102. ----------------------                      
  103.  
  104. 100    REM    BM9
  105. 130    PRINT "Start BM9"
  106. 140    FOR N= 1 TO 1000
  107. 150        FOR K= 2 TO 500
  108. 160            LET M=N/K
  109. 170            LET L=INT(M)
  110. 180            IF  L=0 THEN 230
  111. 190            IF  L=1 THEN 220
  112. 200            IF  M>L THEN 220
  113. 210            IF  M=L THEN 240
  114. 220        NEXT K
  115. 230        PRINT N;
  116. 240    NEXT L
  117. 250    PRINT "E"
  118. 260    END
  119.                       
  120. ----------------------
  121.