20 lines
462 B
Plaintext
20 lines
462 B
Plaintext
Module Checkit {
|
|
Rem : Dim beta(10) ' remove Rem to get error when call beta() without Gosub
|
|
Rem : Gosub beta() ' remove again Rem and erase next line to use beta() correct
|
|
'beta()
|
|
sub beta()
|
|
local i
|
|
for i=1 to 10
|
|
alfa(i)
|
|
next i
|
|
end sub
|
|
sub alfa(x)
|
|
goto 100
|
|
Print "no print"
|
|
End Sub
|
|
|
|
100 Print "ok this printed", x
|
|
Return
|
|
}
|
|
Checkit
|