Show ASCII table: Difference between revisions
→{{header|Perl}}
m (→{{header|Red}}: simplify) |
|||
Line 3,869:
122: z 123: { 124: | 125: } 126: ~ 127: Del
</pre>
=={{header|OxygenBasic}}==
<lang>
uses console
int i,j
string c
for i=32 to 127
select case i
case 32 : c="spc"
case 127: c="del"
case else c=chr i
end select
print i ": " c tab
j++
if j = 8 'columns
print cr
j=0
endif
next
pause
</lang>
=={{header|Perl}}==
| |||