RosettaCodeData/Task/Show-ASCII-table/OxygenBasic/show-ascii-table.basic

18 lines
228 B
Plaintext

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