home *** CD-ROM | disk | FTP | other *** search
/ The Fred Fish Collection 1.5 / ffcollection-1-5-1992-11.iso / ff_progs / prog_oth / turbodex.lha / examplesources / Speed.dex < prev    next >
Encoding:
Text File  |  1992-10-11  |  359 b   |  12 lines

  1. /* speedtest: 10.000.000 loops in 16 secs */
  2.  
  3. PROC main()
  4.   DEF a:REGINT
  5.   WRITE 'Now i\am doing 10.000.000 loops in multitasking with pri = 0\n'
  6.   DOWN a,10000000
  7.   ENDDOWN
  8.   WRITE '... and now i\am ready. About 16 secs on a 7Mhz 68000\n\n'
  9.   WRITE 'Only *ONE* higher programming language can reach this speed\n'
  10.   WRITE 'TurboDEX. What else? :-)\n'
  11. ENDPROC
  12.