Want more features on Pastebin? Sign Up, it's FREE!
Guest

Untitled

By: a guest on Sep 21st, 2010  |  syntax: None  |  size: 0.51 KB  |  views: 110  |  expires: Never
download  |  raw  |  embed  |  report abuse  |  print
Text below is selected. Please press Ctrl+C to copy to your clipboard. (⌘+C on Mac)
  1. ' This program is a little demo to see how
  2. ' efficient the application is compared
  3. ' to other similar languages
  4.  
  5. DIM i AS INTEGER
  6. DIM p AS INTEGER
  7.  
  8. DIM test AS FLOAT
  9.  
  10. i = 0
  11. p = 0
  12.  
  13. WHILE i < 5000000
  14.     IF p == 100000 THEN
  15.         PRINT i
  16.         p = 0
  17.     END IF
  18.    
  19.     ' The meat of the application
  20.     test = (3 * 4.5) / 12 + (34 * 78.999) / 12.3444
  21.     test = (3 * 4.5) / 12 + (34 * 78.999) / 12.3444
  22.     test = (3 * 4.5) / 12 + (34 * 78.999) / 12.3444
  23.    
  24.     i = i + 1
  25.     p = p + 1
  26. END WHILE
  27.  
  28. PRINT "All done!"
clone this paste RAW Paste Data