Data commit

Task/Show-ASCII-table/XBasic/show-ascii-table.basic

@@ -0,0 +1,22 @@
+PROGRAM  "ASCII table"
+VERSION  "0.0000"
+
+DECLARE FUNCTION Entry ()
+
+FUNCTION  Entry ()
+	FOR i = 32 TO 47
+		FOR j = i TO i + 80 STEP 16
+			SELECT CASE j
+			CASE 32
+				s$ = "Spc"
+			CASE 127
+				s$ = "Del"
+			CASE ELSE
+				s$ = CHR$(j)
+			END SELECT
+			PRINT RJUST$("  "+STRING(j),4); ": "; LJUST$(s$,3);
+		NEXT j
+		PRINT
+	NEXT i
+END FUNCTION
+END PROGRAM