14 lines
229 B
Text
14 lines
229 B
Text
for i = 32 to 47
|
|
for j = i to i + 80 step 16
|
|
begin case
|
|
case j = 32
|
|
s$ = "Spc"
|
|
case j = 127
|
|
s$ = "Del"
|
|
else
|
|
s$ = chr(j)
|
|
end case
|
|
print rjust(" "+string(j),5); ": "; ljust(s$,3);
|
|
next j
|
|
print
|
|
next i
|