CHAR-SET.C

FILE INFORMATION

FILENAME(S): CHAR-SET.C

FILE TYPE(S): USR

FILE SIZE: 860b

FIRST SEEN: 2025-11-02 16:54:33

APPEARS ON: 10 disk(s)

FILE HASH

8ca4b53e67407036997cfa0139605f712d7bbedd8b5c85aee47eb3003692c933

FOUND ON DISKS (10 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
C COMPILER	CHAR-SET.C	USR	Treasure Chest - Reamigation	12	12	DOWNLOAD FILE
ARBEJDSDISK B2 1	CHAR-SET.C	USR	Curtcool, Frank	24	2	DOWNLOAD FILE
C COMPILER	CHAR-SET.C	USR	DuncanTwain	29	1	DOWNLOAD FILE
COMPILERS	CHAR-SET.C	USR	DuncanTwain	25	16	DOWNLOAD FILE
C COMPILER 64	CHAR-SET.C	USR	DuncanTwain	25	16	DOWNLOAD FILE
C COMPILER	CHAR-SET.C	USR	DuncanTwain	12	7	DOWNLOAD FILE
C COMPILER 64	CHAR-SET.C	USR	DuncanTwain	25	16	DOWNLOAD FILE
C SYSTEM 1 10A	CHAR-SET.C	USR	hedning, loot	13	1	DOWNLOAD FILE
SUPER C V 2 0	CHAR-SET.C	USR	hedning, loot	16	7	DOWNLOAD FILE
C BACKUP	CHAR-SET.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 97 0D  98 43 48 41 52 20 42 55  |IO.C"....CHAR BU|
00000020: 46 46 45 52 5B 34 31 5D  3B 0D 97 0D 81 4D 41 49  |FFER[41];....MAI|
00000030: 4E 28 29 0D 97 DB 0D 97  20 20 20 50 55 54 43 28  |N().....   PUTC(|
00000040: C3 CC D2 2C D3 D4 C4 C9  CF 29 3B 0D 97 20 20 20  |...,.....);..   |
00000050: C2 C1 D3 C9 C3 53 45 54  28 43 48 41 52 52 41 4D  |.....SET(CHARRAM|
00000060: 31 29 3B 0D 97 20 20 20  57 48 49 4C 45 28 29 0D  |1);..   WHILE().|
00000070: 97 20 20 20 DB 0D 97 20  20 20 20 20 20 20 44 4F  |.   ...       DO|
00000080: DB 0D 97 20 20 20 20 20  20 20 20 20 20 20 47 45  |...           GE|
00000090: 54 53 28 42 55 46 46 45  52 2C 34 30 2C D3 D4 C4  |TS(BUFFER,40,...|
000000A0: C9 CF 29 3B 0D 97 20 20  20 20 20 20 20 20 20 20  |..);..          |
000000B0: 20 50 55 54 43 28 C3 D2  2C D3 D4 C4 C9 CF 29 3B  | PUTC(..,.....);|
000000C0: 0D 97 0D 97 20 20 20 20  20 20 20 20 20 DD 57 48  |....         .WH|
000000D0: 49 4C 45 28 53 54 52 43  4D 50 28 42 55 46 46 45  |ILE(STRCMP(BUFFE|
000000E0: 52 2C 22 52 45 41 44 5C  4E 22 29 20 21 3D 20 30  |R,"READ\N") != 0|
000000F0: 29 3B 0D 97 0D 97 20 20  20 20 20 20 20 50 55 54  |);....       PUT|
00000100: 53 28 22 5C 4E 4E 41 4D  45 3A 22 2C D3 D4 C4 C9  |S("\NNAME:",....|
00000110: CF 29 3B 0D 97 20 20 20  20 20 20 20 47 45 54 53  |.);..       GETS|
00000120: 28 42 55 46 46 45 52 2C  34 30 2C D3 D4 C4 C9 CF  |(BUFFER,40,.....|
00000130: 29 3B 0D 97 20 20 20 20  20 20 20 50 55 54 43 28  |);..       PUTC(|
00000140: C3 D2 2C D3 D4 C4 C9 CF  29 3B 0D 97 20 20 20 20  |..,.....);..    |
00000150: 20 20 20 52 45 41 44 53  45 54 28 42 55 46 46 45  |   READSET(BUFFE|
00000160: 52 2C 43 48 41 52 52 41  4D 31 29 3B 0D 97 20 20  |R,CHARRAM1);..  |
00000170: 20 DD 0D 97 DD 0D 97 0D  81 56 4F 49 44 20 52 45  | ........VOID RE|
00000180: 41 44 53 45 54 28 4E 41  4D 45 2C 4C 4F 43 29 0D  |ADSET(NAME,LOC).|
00000190: 98 20 20 20 43 48 41 52  20 2A 4E 41 4D 45 3B 0D  |.   CHAR *NAME;.|
000001A0: 98 20 20 20 55 4E 53 49  47 4E 45 44 20 49 4E 54  |.   UNSIGNED INT|
000001B0: 20 4C 4F 43 3B 0D 97 0D  98 DB 20 20 46 49 4C 45  | LOC;.....  FILE|
000001C0: 20 53 45 54 46 3B 0D 98  20 20 20 43 48 41 52 20  | SETF;..   CHAR |
000001D0: 2A 48 45 4C 50 3B 0D 97  0D 97 20 20 20 49 46 28  |*HELP;....   IF(|
000001E0: 53 45 54 46 3D 4F 50 45  4E 28 38 2C 32 2C 4E 41  |SETF=OPEN(8,2,NA|
000001F0: 4D 45 29 20 21 3D 20 30  29 0D 97 20 20 20 DB 20  |ME) != 0)..   . |
00000200: 20 20 48 45 4C 50 3D 41  4C 4C 4F 43 28 30 58 38  |  HELP=ALLOC(0X8|
00000210: 30 30 29 3B 0D 97 20 20  20 20 20 20 20 47 45 54  |00);..       GET|
00000220: 43 28 53 45 54 46 29 3B  0D 97 20 20 20 20 20 20  |C(SETF);..      |
00000230: 20 47 45 54 43 28 53 45  54 46 29 3B 0D 97 20 20  | GETC(SETF);..  |
00000240: 20 20 20 20 20 47 45 54  46 28 48 45 4C 50 2C 30  |     GETF(HELP,0|
00000250: 58 38 30 30 2C 53 45 54  46 29 3B 0D 97 20 20 20  |X800,SETF);..   |
00000260: 20 20 20 20 4D 4F 56 45  28 4C 4F 43 2C 30 58 38  |    MOVE(LOC,0X8|
00000270: 30 30 2C 48 45 4C 50 2C  30 58 33 34 29 3B 0D 97  |00,HELP,0X34);..|
00000280: 20 20 20 20 20 20 20 46  52 45 45 28 30 58 38 30  |       FREE(0X80|
00000290: 30 29 3B 0D 97 20 20 20  DD 0D 97 20 20 20 43 4C  |0);..   ...   CL|
000002A0: 4F 53 45 28 53 45 54 46  29 3B 0D 97 DD 0D 97 0D  |OSE(SETF);......|
000002B0: 81 56 4F 49 44 20 C2 C1  D3 C9 C3 53 45 54 20 28  |.VOID .....SET (|
000002C0: 4C 4F 43 29 0D 98 20 20  20 55 4E 53 49 47 4E 45  |LOC)..   UNSIGNE|
000002D0: 44 20 49 4E 54 20 4C 4F  43 3B 0D 98 0D 98 DB 0D  |D INT LOC;......|
000002E0: 98 20 20 20 43 48 41 52  20 2A 48 45 4C 50 3B 0D  |.   CHAR *HELP;.|
000002F0: 97 0D 97 20 20 20 48 45  4C 50 3D 41 4C 4C 4F 43  |...   HELP=ALLOC|
00000300: 28 30 58 38 30 30 29 3B  0D 97 20 20 20 4D 4F 56  |(0X800);..   MOV|
00000310: 45 28 48 45 4C 50 2C 30  58 38 30 30 2C 4C 4F 43  |E(HELP,0X800,LOC|
00000320: 2C 30 58 33 31 29 3B 0D  97 20 20 20 4D 4F 56 45  |,0X31);..   MOVE|
00000330: 28 4C 4F 43 2C 30 58 38  30 30 2C 48 45 4C 50 2C  |(LOC,0X800,HELP,|
00000340: 30 58 33 34 29 3B 0D 97  20 20 20 46 52 45 45 28  |0X34);..   FREE(|
00000350: 30 58 38 30 30 29 3B 0D  97 DD 0D 00              |0X800);.....    |

...#INCLUDE "STDIO.C"....CHAR BUFFER[41]
;....MAIN().....   PUTC(CLR,STDIO);..   
BASICSET(CHARRAM1);..   WHILE()..   ... 
      DO...           GETS(BUFFER,40,STD
IO);..           PUTC(CR,STDIO);....    
     .WHILE(STRCMP(BUFFER,"READ\N") != 0
);....       PUTS("\NNAME:",STDIO);..   
    GETS(BUFFER,40,STDIO);..       PUTC(
CR,STDIO);..       READSET(BUFFER,CHARRA
M1);..   ........VOID READSET(NAME,LOC).
.   CHAR *NAME;..   UNSIGNED INT LOC;...
..  FILE SETF;..   CHAR *HELP;....   IF(
SETF=OPEN(8,2,NAME) != 0)..   .   HELP=A
LLOC(0X800);..       GETC(SETF);..      
 GETC(SETF);..       GETF(HELP,0X800,SET
F);..       MOVE(LOC,0X800,HELP,0X34);..
       FREE(0X800);..   ...   CLOSE(SETF
);.......VOID BASICSET (LOC)..   UNSIGNE
D INT LOC;.......   CHAR *HELP;....   HE
LP=ALLOC(0X800);..   MOVE(HELP,0X800,LOC
,0X31);..   MOVE(LOC,0X800,HELP,0X34);..
   FREE(0X800);.....

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL