Bacom FOR NEXT mit GOSUB Fehler?

[for_ro]

Dim I As Byte
do

gosub trigger

For I = 0 To 2

Gosub 10
Gosub 0
Gosub 01
Gosub 1

Next I

Loop

10:
Print "10"
Return

0:
Print "0"
Return

01:
Print "01"
Return

1:
Print "1"
Return

Trigger:
Print "trigger"
Return

Dies läuft bei mir im Simulator.