00000000: 84 87 1F 23 49 4E 43 4C 55 44 45 20 22 53 54 44 |...#INCLUDE "STD|
00000010: 49 4F 2E 43 22 0D 1F 23 44 45 46 49 4E 45 20 20 |IO.C"..#DEFINE |
00000020: C3 C1 D3 C5 28 DA 29 20 43 41 53 45 20 27 5C DA |....(.) CASE '\.|
00000030: 27 3A 20 50 52 49 4E 54 46 28 22 27 5C 5C DA 27 |': PRINTF("'\\.'|
00000040: 20 20 20 22 29 3B 42 52 45 41 4B 0D 97 0D 81 4D | ");BREAK....M|
00000050: 41 49 4E 28 29 0D 98 DB 20 20 43 48 41 52 20 43 |AIN()... CHAR C|
00000060: 3B 0D 97 0D 97 20 20 20 50 55 54 43 28 C3 CC D2 |;.... PUTC(...|
00000070: 2C D3 D4 C4 C9 CF 29 3B 0D 97 20 20 20 50 55 54 |,.....);.. PUT|
00000080: 53 28 22 C4 52 55 45 43 4B 45 4E 20 D3 49 45 20 |S(".RUECKEN .IE |
00000090: 49 52 47 45 4E 44 57 45 4C 43 48 45 20 D4 41 53 |IRGENDWELCHE .AS|
000000A0: 54 45 4E 5C 4E 22 2C D3 D4 C4 C9 CF 29 3B 0D 97 |TEN\N",.....);..|
000000B0: 0D 97 20 20 20 57 48 49 4C 45 28 29 0D 97 20 20 |.. WHILE().. |
000000C0: 20 DB 0D 97 20 20 20 20 20 20 20 43 3D 47 45 54 | ... C=GET|
000000D0: 43 48 41 52 28 29 3B 0D 1C 20 20 20 20 20 20 20 |CHAR();.. |
000000E0: 43 48 41 52 20 43 3B 20 20 2F 2A C4 49 45 53 45 |CHAR C; /*.IESE|
000000F0: 20 DA 45 49 4C 45 20 49 53 54 20 46 41 4C 53 43 | .EILE IST FALSC|
00000100: 48 2A 2F 0D 97 20 20 20 20 20 20 20 50 52 49 4E |H*/.. PRIN|
00000110: 54 46 28 22 DA 45 49 43 48 45 4E 3A 20 22 29 3B |TF(".EICHEN: ");|
00000120: 0D 97 0D 97 20 20 20 20 20 20 20 49 46 28 28 43 |.... IF((C|
00000130: 20 26 20 30 58 37 46 29 20 3E 3D 20 30 58 32 30 | & 0X7F) >= 0X20|
00000140: 29 0D 97 20 20 20 20 20 20 20 20 20 20 20 49 46 |).. IF|
00000150: 28 43 3D 3D 27 5C 5C 27 20 DC DC 20 43 3D 3D 27 |(C=='\\' .. C=='|
00000160: 5C 27 27 20 DC DC 20 43 3D 3D 27 5C 22 27 29 0D |\'' .. C=='\"').|
00000170: 97 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |. |
00000180: 50 52 49 4E 54 46 28 22 27 5C 5C 25 43 27 20 20 |PRINTF("'\\%C' |
00000190: 20 20 22 2C 43 29 3B 0D 97 20 20 20 20 20 20 20 | ",C);.. |
000001A0: 20 20 20 20 45 4C 53 45 0D 97 20 20 20 20 20 20 | ELSE.. |
000001B0: 20 20 20 20 20 20 20 20 20 50 52 49 4E 54 46 28 | PRINTF(|
000001C0: 22 27 25 43 27 20 20 20 20 22 2C 43 29 3B 0D 97 |"'%C' ",C);..|
000001D0: 20 20 20 20 20 20 20 45 4C 53 45 0D 1C 20 20 20 | ELSE.. |
000001E0: DD 20 2F 2A C4 49 45 53 45 20 DA 45 49 4C 45 20 |. /*.IESE .EILE |
000001F0: 49 53 54 20 46 41 4C 53 43 48 2A 2F 0D 97 20 20 |IST FALSCH*/.. |
00000200: 20 20 20 20 20 20 20 20 20 53 57 49 54 43 48 28 | SWITCH(|
00000210: 43 29 0D 97 20 20 20 20 20 20 20 20 20 20 20 DB |C).. .|
00000220: 0D 97 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |.. |
00000230: 20 C3 C1 D3 C5 28 4E 29 3B 0D 97 20 20 20 20 20 | ....(N);.. |
00000240: 20 20 20 20 20 20 20 20 20 20 C3 C1 D3 C5 28 54 | ....(T|
00000250: 29 3B 0D 97 20 20 20 20 20 20 20 20 20 20 20 20 |);.. |
00000260: 20 20 20 C3 C1 D3 C5 28 46 29 3B 0D 97 20 20 20 | ....(F);.. |
00000270: 20 20 20 20 20 20 20 20 20 20 20 20 C3 C1 D3 C5 | ....|
00000280: 28 52 29 3B 0D 97 20 20 20 20 20 20 20 20 20 20 |(R);.. |
00000290: 20 20 20 20 20 C3 C1 D3 C5 28 42 29 3B 0D 97 20 | ....(B);.. |
000002A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 44 45 | DE|
000002B0: 46 41 55 4C 54 3A 20 50 52 49 4E 54 46 28 22 27 |FAULT: PRINTF("'|
000002C0: 5C 5C 25 4F 27 20 22 2C 43 29 3B 42 52 45 41 4B |\\%O' ",C);BREAK|
000002D0: 3B 0D 97 20 20 20 20 20 20 20 20 20 20 20 DD 0D |;.. ..|
000002E0: 97 0D 97 0D 97 20 20 20 20 20 20 20 50 52 49 4E |..... PRIN|
000002F0: 54 46 28 22 5C 4E C1 D3 C3 2D C3 4F 44 45 3A 20 |TF("\N...-.ODE: |
00000300: 25 33 44 20 20 20 30 D8 25 30 32 58 20 20 20 30 |%3D 0.%02X 0|
00000310: 25 2D 33 4F 5C 4E 5C 4E 22 2C 43 2C 43 2C 43 29 |%-3O\N\N",C,C,C)|
00000320: 3B 0D 97 20 20 20 DD 0D 97 DD 0D 96 0D 00 |;.. ........ |
...#INCLUDE "STDIO.C"..#DEFINE CASE(Z)
CASE '\Z': PRINTF("'\\Z' ");BREAK....M
AIN()... CHAR C;.... PUTC(CLR,STDIO);
.. PUTS("DRUECKEN SIE IRGENDWELCHE TAS
TEN\N",STDIO);.... WHILE().. ...
C=GETCHAR();.. CHAR C; /*DIESE
ZEILE IST FALSCH*/.. PRINTF("ZEIC
HEN: ");.... IF((C & 0X7F) >= 0X20
).. IF(C=='\\' .. C=='\'' .. C
=='\"').. PRINTF("'\\%C'
",C);.. ELSE..
PRINTF("'%C' ",C);.. ELSE..
. /*DIESE ZEILE IST FALSCH*/..
SWITCH(C).. ...
CASE(N);.. CASE(T);..
CASE(F);.. CASE
(R);.. CASE(B);..
DEFAULT: PRINTF("'\\%O' ",C);BREAK
;.. ....... PRINTF("\NAS
C-CODE: %3D 0X%02X 0%-3O\N\N",C,C,C)
;.. ........
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL