17 lines
228 B
Text
17 lines
228 B
Text
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
|