34 lines
1002 B
Plaintext
34 lines
1002 B
Plaintext
Module Checkit {
|
|
Module Alfa {
|
|
10 Rem this code is like basic
|
|
20 Let K%=1
|
|
30 Let A=2
|
|
40 Print "Begin"
|
|
50 On K% Gosub 110
|
|
60 If A=2 then 520
|
|
70 For I=1 to 10
|
|
80 if i>5 then exit for 120
|
|
90 Gosub 110
|
|
100 Next i
|
|
110 On A Goto 150, 500
|
|
120 Print "This is the End ?"
|
|
130 Return
|
|
150 Print "from loop pass here", i
|
|
160 Return
|
|
200 Print "ok"
|
|
210 Return
|
|
500 Print "Routine 500"
|
|
510 Goto 200
|
|
520 Let A=1
|
|
530 Gosub 70
|
|
540 Print "Yes"
|
|
}
|
|
Alfa
|
|
\\ this can be done. Code executed like it is from this module
|
|
\\ because 200 is a label inside code of Module Checkit
|
|
\\ and search is not so smart. After first search. position saved in a hash table
|
|
Gosub 200 ' print "ok"
|
|
Gosub 200 ' print "ok"
|
|
}
|
|
Checkit
|