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

10 lines
191 B
Text
Raw Permalink Normal View History

2023-07-01 11:58:00 -04:00
for i = 32 to 47
for j = i to i + 80 step 16
s$ = chr$(j)
if j = 32 s$ = "Spc"
if j = 127 s$ = "Del"
print str$(j, "#####"), ": ", s$;
next j
print
next i