20 lines
379 B
Plaintext
20 lines
379 B
Plaintext
If OpenConsole("Show_Ascii_table: rosettacode.org")
|
|
Define r.i, c.i
|
|
For r=0 To 15
|
|
For c=32+r To 112+r Step 16
|
|
Print(RSet(Str(c),3)+" : ")
|
|
Select c
|
|
Case 32
|
|
Print("Spc")
|
|
Case 127
|
|
Print("Del")
|
|
Default
|
|
Print(LSet(Chr(c),3))
|
|
EndSelect
|
|
Print(Space(3))
|
|
Next
|
|
PrintN("")
|
|
Next
|
|
Input()
|
|
EndIf
|