'This code speaks for itself, if raw speed is your concern.
'
'Jamshid
DEFINT A-Z
CLS
MTIMER
FOR x = 1 TO 1000
    FOR i = 1 TO 4
        SELECT CASE i
            CASE 1
            CASE 2
            CASE 3
            CASE 4
        END SELECT
    NEXT
NEXT i
PRINT MTIMER
MTIMER
FOR x = 1 TO 1000
    FOR i = 1 TO 4
        ON i GOSUB 1, 2, 3, 4
    NEXT
NEXT i
PRINT MTIMER
END
1:
RETURN
2:
RETURN
3:
RETURN
4:
RETURN
 * OLX 2.1 TD * Death Penalty in Utah: Convicts forced to program in QB
--- Maximus/2 2.01wb
---------------