ON x GOTO/SUB 100,200,300,400...

Select Case x
   Case 1
       'equivalent code for ON x = 1
   Case 2
       'equivalent code for ON x = 2
   Case 3
       'equivalent code for ON x = 3
   Case 4
       'equivalent code for ON x = 4
   ...
End Select

Select Case Asc(x$)
   Case 13
       StrEdit$=a$:Exit Function
   Case 127,8
       If Len(a$)>0 Then
           a$=Left$(a$,Len(a$)-1):SStr a$,h,v
       EndIf
   Case 32 To 126
       If Len(a$)<q Then a$=a$+x$:SStr a$,h,v
   Case Else
       'ignore
End Select

goto test2
'test one - works fine
test1:
for n=1 to 1000000
 for i=1 to 200
   if (n mod 500 = 0) THEN print n,i
   if i > 3 THEN GOTO loopend
 next i
loopend:
next n

'test 2 - also works fine
test2:
for n=1 to 1000000
 for i=1 to 200
   if (n mod 500 = 0) THEN print n,i
 if i > 3 THEN next n
 next i
next n

'Web API parsing

 LANRxLN$=GetIO$(LAN,1)
 IF LANRxLN$="" OR LANRxLN$="T/O" THEN GOTO Main

 CL LANRxLN$,0
 IF MID$(LANRxLN$,2,8)=",CONNECT" THEN
   Chan=VAL(LANRxLN$)
   IF Chan>=0 AND Chan<=4 THEN
     FlagSet Conn+Chan
     CL "Inbound connect channel "+STR$(Chan),0
     GOTO IPEXIT
   END IF
 END IF

 IF MID$(LANRxLN$,2,7)=",CLOSED" THEN
   Chan=VAL(LANRxLN$)
   IF Chan>=0 AND Chan<=4 THEN
     IF FlagTest(Conn+Chan)=0 THEN A$="Abnormally " ELSE A$=""
     CL "Closed channel "+STR$(Chan),0
     FlagRes Conn+Chan
     GOTO IPEXIT
   END IF
 END IF

 IF LEFT$(LANRxLN$,5)="+IPD," THEN
   
   DO:a$=GetIO$(LAN,2):LOOP UNTIL a$="Connection: Keep-Alive"
   
   Chan=VAL(MID$(LANRxLN$,6,1))
   IF Chan>4 THEN GOTO IPDerrEXIT
   IF FlagTest(Conn+Chan)=0 THEN GOTO IPDerrEXIT 'channel not open
   
   z=INSTR(LANRxLN$,":GET /") '+IPD,0,nnn:GET /smssend?tel=077?msg=XYZ HTTP/1.1
   IF z=0 THEN GOTO IPDerrEXIT
   LANRxLN$=MID$(LANRxLN$,z+6)
   
   z=INSTR(LANRxLN$," HTTP")
   IF z=0 THEN GOTO IPDerrEXIT
   LANRxLN$=LEFT$(LANRxLN$,z-1)

   args=Split(Replace$(LANRxLN$,"+"," "),"?")

   SELECT CASE SP$(1)
     CASE "smssend"
       IF args <3 THEN GOTO IPDerrEXIT
       Tel$="":Msg$=""
       
       FOR n=2 TO args
         a$=Trim$(URLDecode$(MID$(sp$(n),5)))
         SELECT CASE LEFT$(ucase$(SP$(n)),4)
           CASE "TEL="
             Tel$=a$
           CASE "MSG="
             Msg$=a$
         END SELECT
       NEXT
       IF Tel$="" OR Msg$="" THEN GOTO IPDerrEXIT

       CL "O/B SMS "+Tel$+":"+Msg$,0
       z=GSMSend(Tel$,Msg$)
       IF z=0 THEN
         B$="OK: Message Queued for sending":GOTO IPOKEXIT
       ELSE
         B$="ERROR: Gateway failed to send message {"+STR$(z)+"}"
         GOTO IPOKEXIT
       END IF

     CASE "stat"
       'IF z=>8 AND Z<=11 THEN
       'other API calls go here...
       'z=INSTR(LANRxLN$,":GET /whatever?")
       'IF z<>0 THEN
       'etc...

       '  B$="OK: STAT="+LL1$+LL2$
       '  GOTO IPOKEXIT

   END SELECT

   GOTO IPDerrEXIT 'default action IF we don't find an API call

 END IF

 GOTO IPEXIT

IPDerrEXIT:
 B$="ERROR: Malformed request {"+LANRxLN$+"}"

IPOKEXIT:
 PRINT #LAN,"AT+CIPSENDEX="+STR$(Chan)+",255"
 PAUSE 100

 PRINT#LAN,B$+"\0"
 PAUSE 100

 PRINT#LAN,"AT+CIPCLOSE="+STR$(Chan)
 FlagRes Conn+Chan

IPEXIT:

Dim Integer n,t,tt

for n=1 to 10
timer=0
Select case n
case 1
t=timer
tt=tt+t
?n,t
case 2
t=timer
tt=tt+t
?n,t
case 3
t=timer
tt=tt+t
?n,t
case 4
t=timer
tt=tt+t
?n,t
case 5
t=timer
tt=tt+t
?n,t
case 6
t=timer
tt=tt+t
?n,t
case 7
t=timer
tt=tt+t
?n,t
case 8
t=timer
tt=tt+t
?n,t
case 9
t=timer
tt=tt+t
?n,t
case 10
t=timer
tt=tt+t
?n,t
End Select
Next
?tt,
?"with Select":?

tt=0
for n=1 to 10
timer=0
On n GoSub l1,l2,l3,l4,l5,l6,l7,l8,l9,l10
Next
?tt,
?"with Gosub":?

End

l1: t=timer
tt=tt+t
?n,t
return
l2: t=timer
tt=tt+t
?n,t
return
l3: t=timer
tt=tt+t
?n,t
return
l4: t=timer
tt=tt+t
?n,t
return
l5:t=timer
tt=tt+t
?n,t
return
l6: t=timer
tt=tt+t
?n,t
return
l7: t=timer
tt=tt+t
?n,t
return
l8: t=timer
tt=tt+t
?n,t
return
l9: t=timer
tt=tt+t
?n,t
return
l10:t=timer
tt=tt+t
?n,t
return

cpu 5
> RUN
1       1
2       1
3       1
4       1
5       2
6       1
7       2
8       2
9       3
10      2
16     with Select

1       2
2       2
3       3
4       3
5       3
6       3
7       3
8       3
9       4
10      3
29     with Gosub

> cpu 48
> RUN
1       0
2       0
3       0
4       0
5       0
6       0
7       0
8       0
9       0
10      1
1      with Select

1       0
2       0
3       0
4       1
5       0
6       0
7       1
8       0
9       0
10      1
3      with Gosub

ON int(rnd*3)+1 GOSUB a,b,c
a: do choice #1 : RETURN
b: do choice #2 : RETURN
c: do choice #3 : RETURN

SELECT CASE int(rnd*3)

  CASE 0 : do choice #1
  CASE 1 : do choice #2
  CASE 2 : do choice #3

END SELECT

10 W=500:Dim F(W):P=1:A=3
20 F(P)=A:P=P+1:If P>W Then GoTo DONE
30 A=A+2:X=1
40 S=A/F(X):If S=Int(S) Then 30
50 X=X+1:If X<P And F(X)*F(X)<=A Then 40
60 GoTo 20

DONE: