Initial data commit

Task/Show-ASCII-table/R/show-ascii-table.r

@@ -0,0 +1,17 @@
+chr <- function(n) {
+  rawToChar(as.raw(n))
+}
+
+idx <- 32
+while (idx < 128) {
+  for (i in 0:5) {
+	num <- idx + i
+	if (num<100) cat(" ")
+        cat(num,": ")
+	if (num == 32) { cat("Spc "); next }
+        if (num == 127) { cat("Del "); next } 	
+	cat(chr(num),"  ")
+  }
+  idx <- idx + 6
+  cat("\n")
+}