home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 8 Other / 08-Other.zip / OS2TEST.ZIP / R-TEST.BAS < prev    next >
BASIC Source File  |  1988-05-10  |  544b  |  27 lines
  1. PRINT "R-Test (real mode)     Press any key to start..."
  2. p$ = INPUT$(1)
  3.  
  4. DO
  5.    PRINT "Running                Press any key to stop and read results..."
  6.    i = 0
  7.    t1 = TIMER
  8.   
  9.    DO
  10.       i = i + 1
  11.       z = i ^ .01 * SQR(i)
  12.    LOOP WHILE INKEY$ = ""
  13.   
  14.    t2 = TIMER
  15.    PRINT
  16.    PRINT "Counts,Seconds,Counts/Sec: "; i; t2 - t1; i / (t2 - t1)
  17.    PRINT
  18.    PRINT "Press <Esc> to quit-any other key to restart (Counts,time reset to 0)"
  19.    p$ = INPUT$(1)
  20. LOOP UNTIL p$ = CHR$(27)
  21.  
  22. PRINT
  23. PRINT "Program terminated"
  24.  
  25. END
  26.  
  27.