8 lines
141 B
Text
8 lines
141 B
Text
|
TYPECASE ref OF
|
||
|
|
| NULL => IO.Put("Null\n");
|
||
|
|
| CHAR => IO.Put("Char\n");
|
||
|
|
| INTEGER => IO.Put("Integer\n");
|
||
|
|
ELSE
|
||
|
|
IO.Put("Something\n");
|
||
|
|
END;
|