27 lines
427 B
Plaintext
27 lines
427 B
Plaintext
Module Checkit {
|
|
Read a, b
|
|
Print a, b
|
|
}
|
|
\\ add parameters in a FIFO, and this FIFO merged to current stack
|
|
Push 100
|
|
Checkit 10, 20
|
|
Print StackItem(1)=100
|
|
Module Checkit {
|
|
Read a, b
|
|
Print a=20, b=100
|
|
}
|
|
Checkit 20
|
|
|
|
Function alfa {
|
|
k=0
|
|
n=0
|
|
while not empty {
|
|
k+=number
|
|
n++
|
|
}
|
|
if n=0 then Error "No parameters found"
|
|
=k/n
|
|
}
|
|
|
|
Print alfa(1,2,3,4)=2.5
|