' -----------------------------------------------------------------------
' The speed is going to be different from executible file because of the
' difference in speed. This program is runing slower in QBasic
' than in EXE format
' ------------------------------------------------------------------------
 
  CLS : DIM a(200): One = 133: Two = 265.5: Three = 399: Four = 532
  Five = 665: Six = 798: Seven = 931: Eight = 1064: Ten = 1330
  Eleven = 1463: Twel = 1596: Thir = 1729: Fourt = 1862: Fifteen = 1995
  Sixteen = 2124: N32 = 4248: Eighteen = 2394
5 a$ = TIME$
10 I$ = INKEY$: IF TIME$ <> a$ THEN 20 ELSE 10
20 a$ = TIME$
30 IF TIME$ <> a$ THEN :  ELSE a = a + 1: GOTO 30
40 Co = Co + 1: IF Co = 4 THEN GOSUB 100: GOSUB 200:  ELSE GOSUB 100: GOTO 5
45 PRINT B
50 GOTO Comp
60 RUN
100 a(Co) = a: PRINT a(Co): a = 0
150 RETURN
200 FOR z = 1 TO Co
210 B = B + a(z)
220 NEXT
230 B = B / Co
240 RETURN
250 PRINT "The speed of your computer is "; Cop: END
260 IF ERL = 4 THEN CLOSE : RESUME 280
270 PRINT "ERROR": BEEP: END
280 GOTO 5
'******** Compearing Speed ********
Comp:
    IF B < Two AND B > One - 50 THEN Cop = 1
    IF B < Three AND B > Two - 50 THEN Cop = 2
    IF B < Four AND B > Three - 50 THEN Cop = 3
    IF B < Five AND B > Four - 50 THEN Cop = 4
    IF B < Six AND B > Five - 50 THEN Cop = 5
    IF B < Seven AND B > Six - 50 THEN Cop = 6
    IF B < Eight AND B > Seven - 50 THEN Cop = 7
    IF B > Seven AND B < Eight THEN Cop = 8
    IF B > Eight AND B < Ten THEN Cop = 9
    IF B < Eleven AND B > Ten - 50 THEN Cop = 10
    IF B < Twel AND B > Eleven - 50 THEN Cop = 11
    IF B < Thir AND B > Twel - 50 THEN Cop = 12
    IF B < Fourt AND B > Thir - 50 THEN Cop = 13
    IF B < Fifteen AND B > Fourt - 50 THEN Cop = 14
    IF B < Sixteen AND B > Fifteen - 50 THEN Cop = 15
    IF B < Eighteen AND B > Sixteen - 40 THEN Cop = 16
    IF B < N32 AND B > Eighteen - 50 THEN Cop = 18
    IF B < 4400 AND B > 4000 THEN Cop = 32
    IF B > 4500 THEN Cop = 100

'************ Final Result **********
480 IF Cop = 100 THEN PRINT "Speed Is Greater Than 32": END
490 PRINT "The Speed is About "; Cop