home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / basic / library / qb_pds / communic / comspeed / baspeed.bas next >
Encoding:
BASIC Source File  |  1991-05-28  |  2.1 KB  |  57 lines
  1.  
  2. ' -----------------------------------------------------------------------
  3. ' The speed is going to be different from executible file because of the
  4. ' difference in speed. This program is runing slower in QBasic
  5. ' than in EXE format
  6. ' ------------------------------------------------------------------------
  7.  
  8.   CLS : DIM a(200): One = 133: Two = 265.5: Three = 399: Four = 532
  9.   Five = 665: Six = 798: Seven = 931: Eight = 1064: Ten = 1330
  10.   Eleven = 1463: Twel = 1596: Thir = 1729: Fourt = 1862: Fifteen = 1995
  11.   Sixteen = 2124: N32 = 4248: Eighteen = 2394
  12. 5 a$ = TIME$
  13. 10 I$ = INKEY$: IF TIME$ <> a$ THEN 20 ELSE 10
  14. 20 a$ = TIME$
  15. 30 IF TIME$ <> a$ THEN :  ELSE a = a + 1: GOTO 30
  16. 40 Co = Co + 1: IF Co = 4 THEN GOSUB 100: GOSUB 200:  ELSE GOSUB 100: GOTO 5
  17. 45 PRINT B
  18. 50 GOTO Comp
  19. 60 RUN
  20. 100 a(Co) = a: PRINT a(Co): a = 0
  21. 150 RETURN
  22. 200 FOR z = 1 TO Co
  23. 210 B = B + a(z)
  24. 220 NEXT
  25. 230 B = B / Co
  26. 240 RETURN
  27. 250 PRINT "The speed of your computer is "; Cop: END
  28. 260 IF ERL = 4 THEN CLOSE : RESUME 280
  29. 270 PRINT "ERROR": BEEP: END
  30. 280 GOTO 5
  31. '******** Compearing Speed ********
  32. Comp:
  33.     IF B < Two AND B > One - 50 THEN Cop = 1
  34.     IF B < Three AND B > Two - 50 THEN Cop = 2
  35.     IF B < Four AND B > Three - 50 THEN Cop = 3
  36.     IF B < Five AND B > Four - 50 THEN Cop = 4
  37.     IF B < Six AND B > Five - 50 THEN Cop = 5
  38.     IF B < Seven AND B > Six - 50 THEN Cop = 6
  39.     IF B < Eight AND B > Seven - 50 THEN Cop = 7
  40.     IF B > Seven AND B < Eight THEN Cop = 8
  41.     IF B > Eight AND B < Ten THEN Cop = 9
  42.     IF B < Eleven AND B > Ten - 50 THEN Cop = 10
  43.     IF B < Twel AND B > Eleven - 50 THEN Cop = 11
  44.     IF B < Thir AND B > Twel - 50 THEN Cop = 12
  45.     IF B < Fourt AND B > Thir - 50 THEN Cop = 13
  46.     IF B < Fifteen AND B > Fourt - 50 THEN Cop = 14
  47.     IF B < Sixteen AND B > Fifteen - 50 THEN Cop = 15
  48.     IF B < Eighteen AND B > Sixteen - 40 THEN Cop = 16
  49.     IF B < N32 AND B > Eighteen - 50 THEN Cop = 18
  50.     IF B < 4400 AND B > 4000 THEN Cop = 32
  51.     IF B > 4500 THEN Cop = 100
  52.  
  53. '************ Final Result **********
  54. 480 IF Cop = 100 THEN PRINT "Speed Is Greater Than 32": END
  55. 490 PRINT "The Speed is About "; Cop
  56.  
  57.