projects
/
pdp8.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
75e3d2fa3ae41b1eaabb69febf0af72011a0d192
[pdp8.git]
/
ASCII.PS
1
PROGRAM ASCIICODE(OUTPUT);
2
VAR I: INTEGER;
3
BEGIN
4
WRITE("DIE VORVEREINBARTE PROZEDUR A S C I I ( N )");
5
ASCII(13);
6
FOR I := 1 TO 45 DO ASCII(95);
7
ASCII(13,10,10,10);
8
9
FOR I := 65 TO 90 DO ASCII(I,I+32,32);
10
WRITELN;
11
12
WRITE(" ":40);
13
FOR I := 1 TO 10 DO ASCII(8,10,64);
14
WRITELN;
15
16
FOR I := 0 TO 127 DO
17
BEGIN
18
WRITE(I,"""":5);
19
ASCII(I);
20
WRITELN("""")
21
END;
22
FOR I := 1 TO 50 DO ASCII(7)
23
END.