18 lines
275 B
Plaintext
18 lines
275 B
Plaintext
#include "std.alpha"
|
|
|
|
function entry: string2integer
|
|
|
|
entry (arg) := {
|
|
[integer: x; string: s; character: c; integer: result]
|
|
|
|
s := inS(1);
|
|
result := printS(s);
|
|
|
|
x := inI(1);
|
|
result := printI(x);
|
|
|
|
c := inC(1);
|
|
result := printC(c);
|
|
|
|
return 0;
|
|
} |