A large commit.

[pdp8.git] / sw / src / pascal / ASCII.PS

diff --git a/sw/src/pascal/ASCII.PS b/sw/src/pascal/ASCII.PS
new file mode 100644 (file)
index 0000000..75e3d2f
--- /dev/null
+++ b/sw/src/pascal/ASCII.PS
@@ -0,0 +1,23 @@
+PROGRAM ASCIICODE(OUTPUT);
+    VAR I: INTEGER;
+BEGIN
+    WRITE("DIE VORVEREINBARTE PROZEDUR   A S C I I ( N )");
+    ASCII(13);
+    FOR I := 1 TO 45 DO ASCII(95);
+    ASCII(13,10,10,10);
+
+    FOR I := 65 TO 90 DO ASCII(I,I+32,32);
+    WRITELN;
+
+    WRITE(" ":40);
+    FOR I := 1 TO 10 DO ASCII(8,10,64);
+    WRITELN;
+
+    FOR I := 0 TO 127 DO
+      BEGIN
+        WRITE(I,"""":5);
+        ASCII(I);
+        WRITELN("""")
+      END;
+    FOR I := 1 TO 50 DO ASCII(7)
+END.