32 lines
371 B
Plaintext
32 lines
371 B
Plaintext
Module Checkit {
|
|
Long A=1024
|
|
While A>0 {
|
|
Print A
|
|
A/=2
|
|
if a<500 then goto alfa
|
|
}
|
|
Print "not that"
|
|
alfa:
|
|
Print "ok"
|
|
}
|
|
Checkit
|
|
Module Checkit2 {
|
|
Long A=1024
|
|
While A>0
|
|
Print A
|
|
A/=2
|
|
if a<500 then 10
|
|
End While
|
|
Print "not that"
|
|
10 Print "ok"
|
|
}
|
|
Checkit2
|
|
Module Checkit3 {
|
|
A=(1,2,3,4,5)
|
|
B=Each(A, -1, 1)
|
|
While B
|
|
Print Array(B), B^
|
|
End While
|
|
}
|
|
Checkit3
|