RosettaCodeData/Task/Show-ASCII-table/BaCon/show-ascii-table.bacon
2023-07-01 13:44:08 -04:00

14 lines
299 B
Text

FOR j = 0 TO 15
FOR i = 32+j TO 127 STEP 16
PRINT i FORMAT " %3d - ";
SELECT i
CASE 32
PRINT "Spc";
CASE 127
PRINT "Del";
DEFAULT
PRINT i FORMAT "%c "
ENDSELECT
NEXT
PRINT
NEXT