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 49 53 50 4C 41 59 20 54 48 45 20 56 |S(".ISPLAY THE V|
00000090: 41 4C 55 45 53 20 46 4F 52 20 CB 45 59 20 50 52 |ALUES FOR .EY PR|
000000A0: 45 53 53 45 44 5C 4E 22 2C D3 D4 C4 C9 CF 29 3B |ESSED\N",.....);|
000000B0: 0D 97 0D 97 20 20 20 57 48 49 4C 45 28 29 0D 97 |.... WHILE()..|
000000C0: 20 20 20 DB 0D 97 20 20 20 20 20 20 20 43 3D 47 | ... C=G|
000000D0: 45 54 43 48 41 52 28 29 3B 0D 97 20 20 20 20 20 |ETCHAR();.. |
000000E0: 20 20 50 52 49 4E 54 46 28 22 C3 48 41 52 41 43 | PRINTF(".HARAC|
000000F0: 54 45 52 3A 20 22 29 3B 0D 97 0D 97 20 20 20 20 |TER: ");.... |
00000100: 20 20 20 49 46 28 28 43 20 26 20 30 58 37 46 29 | IF((C & 0X7F)|
00000110: 20 3E 3D 20 30 58 32 30 29 0D 97 20 20 20 20 20 | >= 0X20).. |
00000120: 20 20 20 20 20 20 49 46 28 43 3D 3D 27 5C 5C 27 | IF(C=='\\'|
00000130: 20 DC DC 20 43 3D 3D 27 5C 27 27 20 DC DC 20 43 | .. C=='\'' .. C|
00000140: 3D 3D 27 5C 22 27 29 0D 97 20 20 20 20 20 20 20 |=='\"').. |
00000150: 20 20 20 20 20 20 20 20 50 52 49 4E 54 46 28 22 | PRINTF("|
00000160: 27 5C 5C 25 43 27 20 20 20 20 22 2C 43 29 3B 0D |'\\%C' ",C);.|
00000170: 97 20 20 20 20 20 20 20 20 20 20 20 45 4C 53 45 |. ELSE|
00000180: 0D 97 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |.. |
00000190: 20 50 52 49 4E 54 46 28 22 27 25 43 27 20 20 20 | PRINTF("'%C' |
000001A0: 20 22 2C 43 29 3B 0D 97 20 20 20 20 20 20 20 45 | ",C);.. E|
000001B0: 4C 53 45 0D 97 20 20 20 20 20 20 20 20 20 20 20 |LSE.. |
000001C0: 53 57 49 54 43 48 28 43 29 0D 97 20 20 20 20 20 |SWITCH(C).. |
000001D0: 20 20 20 20 20 20 DB 0D 97 20 20 20 20 20 20 20 | ... |
000001E0: 20 20 20 20 20 20 20 20 C3 C1 D3 C5 28 4E 29 3B | ....(N);|
000001F0: 0D 97 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |.. |
00000200: 20 C3 C1 D3 C5 28 54 29 3B 0D 97 20 20 20 20 20 | ....(T);.. |
00000210: 20 20 20 20 20 20 20 20 20 20 C3 C1 D3 C5 28 46 | ....(F|
00000220: 29 3B 0D 97 20 20 20 20 20 20 20 20 20 20 20 20 |);.. |
00000230: 20 20 20 C3 C1 D3 C5 28 52 29 3B 0D 97 20 20 20 | ....(R);.. |
00000240: 20 20 20 20 20 20 20 20 20 20 20 20 C3 C1 D3 C5 | ....|
00000250: 28 42 29 3B 0D 97 20 20 20 20 20 20 20 20 20 20 |(B);.. |
00000260: 20 20 20 20 20 44 45 46 41 55 4C 54 3A 20 50 52 | DEFAULT: PR|
00000270: 49 4E 54 46 28 22 27 5C 5C 25 4F 27 20 22 2C 43 |INTF("'\\%O' ",C|
00000280: 29 3B 42 52 45 41 4B 3B 0D 97 20 20 20 20 20 20 |);BREAK;.. |
00000290: 20 20 20 20 20 DD 0D 97 0D 97 0D 97 20 20 20 20 | ....... |
000002A0: 20 20 20 50 52 49 4E 54 46 28 22 5C 4E C1 D3 C3 | PRINTF("\N...|
000002B0: 2D C3 4F 44 45 3A 20 25 33 44 20 20 20 30 D8 25 |-.ODE: %3D 0.%|
000002C0: 30 32 58 20 20 20 30 25 2D 33 4F 5C 4E 5C 4E 22 |02X 0%-3O\N\N"|
000002D0: 2C 43 2C 43 2C 43 29 3B 0D 97 20 20 20 DD 0D 97 |,C,C,C);.. ...|
000002E0: DD 0D 96 0D 00 |..... |
...#INCLUDE "STDIO.C"..#DEFINE CASE(Z)
CASE '\Z': PRINTF("'\\Z' ");BREAK....M
AIN()... CHAR C;.... PUTC(CLR,STDIO);
.. PUTS("DISPLAY THE VALUES FOR KEY PR
ESSED\N",STDIO);.... WHILE().. ...
C=GETCHAR();.. PRINTF("CHARAC
TER: ");.... IF((C & 0X7F) >= 0X20
).. IF(C=='\\' .. C=='\'' .. C
=='\"').. PRINTF("'\\%C'
",C);.. ELSE..
PRINTF("'%C' ",C);.. ELSE..
SWITCH(C).. ...
CASE(N);.. CASE(T)
;.. CASE(F);..
CASE(R);.. CASE(B);..
DEFAULT: PRINTF("'\\%O' ",C
);BREAK;.. ....... PRINT
F("\NASC-CODE: %3D 0X%02X 0%-3O\N\N"
,C,C,C);.. ........
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL