SHARE
TWEET

Untitled

a guest Sep 21st, 2010 164 Never
  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!"
RAW Paste Data
Top