_  __   _  _         _ _     _      _           _           
  __| |/ /_ | || |     __| (_)___| | __ (_)_ __   __| | _____  __
 / _` | '_ \| || |_   / _` | / __| |/ / | | '_ \ / _` |/ _ \ \/ /
| (_| | (_) |__   _| | (_| | \__ \   <  | | | | | (_| |  __/>  < 
 \__,_|\___/   |_|    \__,_|_|___/_|\_\ |_|_| |_|\__,_|\___/_/\_\
                                                                 
            

SAMPLE.C

FILE INFORMATION

FILENAME(S): SAMPLE.C

FILE TYPE(S): USR

FILE SIZE: 741b

FIRST SEEN: 2025-11-30 19:47:17

APPEARS ON: 2 disk(s)

FILE HASH

e31cbc8955351065f7dd7bc58c05b316c00e3ac5700590c5bbd6129f76336d8c

FOUND ON DISKS (2 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
ARBEJDSDISK B2 1 SAMPLE.C USR Curtcool, Frank 12 1 DOWNLOAD FILE
C SYSTEM 1 10A SAMPLE.C USR hedning, loot 15 10 DOWNLOAD FILE

FILE CONTENT & ANALYSIS

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 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL