Anonymous user
Character codes: Difference between revisions
m
→[[Character codes#ALGOL 68]]
Line 19:
</pre>
=={{header|ALGOL 68}}==
In ALGOL 68 the
<lang algol68>main:(
printf(($gl$, ABS "a")); # for ASCII this prints "+97" EBCDIC prints "+129" #
Line 31:
make conv(tape, ebcdic conv);
FOR record DO getf(tape, ( ~ )) OD; ~ # etc ... #</lang>
Every
using the ''stand conv'' query routine and then the conversion applied to a particular
file/tape. eg.
|