home *** CD-ROM | disk | FTP | other *** search
/ C/C++ Interactive Guide / c-cplusplus-interactive-guide.iso / c_ref / csource4 / 251_01 / listings.doc < prev    next >
Encoding:
Text File  |  1987-10-29  |  1.1 KB  |  53 lines
  1.  
  2. Listings for the four benchmarks run on Macintosh SCSI external
  3. hardisks review by Chris Crawford and Eva White.
  4.  
  5. 10 REM LineFileWrite
  6. 100 A$="12345678123456781234567812345678"
  7. 120 B$=A$+A$+A$+A$+A$+A$+A$+A$+A$+A$+A$+A$+A$+A$+A$+A$
  8. 160 OPEN "TEST" FOR OUTPUT AS #1
  9. 170 START=TIMER
  10. 180 FOR I=1 TO 1024
  11. 200 PRINT #1, B$
  12. 220 NEXT I
  13. 230 CLOSE
  14. 250 PRINT TIMER-START
  15. 260 PRINT "DONE"
  16.  
  17. 300 REM LineFileRead
  18. 320 OPEN"TEST" FOR INPUT AS #1
  19. 330 START=TIMER
  20. 340 FOR I=1 TO 1024
  21. 360 B$=INPUT$(512,1)
  22. 380 NEXT I
  23. 400 CLOSE
  24. 410 PRINT TIMER-START
  25. 420 PRINT "DONE"
  26.  
  27. 10 REM FragFileWrite
  28. 100 A$="12345678123456781234567812345678"
  29. 110 B$=A$+A$+A$+A$+A$+A$+A$+A$+A$+A$+A$+A$+A$+A$+A$+A$
  30. 170 START=TIMER
  31. 175 FOR J=1 TO 64
  32. 180 FOR I=1 TO 16
  33. 185 C$="TEST"+STR$(I)
  34. 190 OPEN C$ FOR APPEND AS #1
  35. 200 PRINT #1, B$
  36. 210 CLOSE #1
  37. 220 NEXT I
  38. 230 NEXT J
  39. 250 PRINT TIMER-START
  40. 260 PRINT "DONE"
  41.  
  42. 300 REM FragFileRead
  43. 330 START=TIMER
  44. 335 FOR I=1 TO 16
  45. 340 C$="TEST"+STR$(I)
  46. 350 OPEN C$ FOR INPUT AS #1
  47. 360 B$=INPUT$(32767,1)
  48. 385 CLOSE #1
  49. 390 NEXT I
  50. 410 PRINT TIMER-START
  51. 420 PRINT "DONE"
  52.  
  53.