12 lines
260 B
Text
12 lines
260 B
Text
procedure convert (str)
|
|
write (left(str, 10) || " = " || integer(str))
|
|
end
|
|
|
|
procedure main ()
|
|
convert (" 2r1001")
|
|
convert (" 8r7135")
|
|
convert ("16rABC1234")
|
|
convert ("36r1Z")
|
|
|
|
write ("2r1001" + "36r1Z") # shows type conversion, string->integer
|
|
end
|