6 lines
201 B
Text
6 lines
201 B
Text
procedure main(arglist)
|
|
if *arglist > 0 then L := arglist else L := [97, "a"]
|
|
|
|
every x := !L do
|
|
write(x, " ==> ", char(integer(x)) | ord(x) ) # char produces a character, ord produces a number
|
|
end
|