Commit | Line | Data |
---|---|---|
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. |