Startup code| A | Message number corresponding to character's name |
| 20896 | 6F | LD L,A | |
| 20897 | 26FE | LD H,254 | |
| 20899 | 5E | LD E,(HL) | |
| 20900 | 24 | INC H | |
| 20901 | 56 | LD D,(HL) | DE=address of message (character's name) |
| 20902 | EB | EX DE,HL | |
| 20903 | 01000C | LD BC,3072 | B=12, C=0 |
| 20906 | 71 | LD (HL),C | Blank out the current name |
| 20907 | 23 | INC HL | |
| 20908 | 10FC | DJNZ 20906 | |
| 20910 | F5 | PUSH AF | |
| 20911 | 214050 | LD HL,20544 | |
| 20914 | CDBC50 | CALL 20668 | Print name built up so far |
| 20917 | CDE271 | CALL 29154 | Wait for a keypress |
| 20920 | 28FB | JR Z,20917 | |
| 20922 | FE0D | CP 13 | |
| 20924 | 47 | LD B,A | |
| 20925 | 2002 | JR NZ,20929 | |
| 20927 | F1 | POP AF | |
| 20928 | C9 | RET | Return with new name entered |
| 20929 | F1 | POP AF | |
| 20930 | 6F | LD L,A | |
| 20931 | 26FE | LD H,254 | |
| 20933 | 5E | LD E,(HL) | |
| 20934 | 24 | INC H | |
| 20935 | 56 | LD D,(HL) | |
| 20936 | 210B00 | LD HL,11 | |
| 20939 | 4F | LD C,A | |
| 20940 | 19 | ADD HL,DE | HL=address of last byte in message area for character name |
| 20941 | 7E | LD A,(HL) | |
| 20942 | A7 | AND A | |
| 20943 | 2008 | JR NZ,20953 | Jump if message area is already full |
| 20945 | EB | EX DE,HL | HL=start address of message area |
| 20946 | 2B | DEC HL | |
| 20947 | 23 | INC HL | |
| 20948 | 7E | LD A,(HL) | |
| 20949 | A7 | AND A | |
| 20950 | 20FB | JR NZ,20947 | |
| 20952 | 70 | LD (HL),B | Put new letter in message area |
| 20953 | 79 | LD A,C | |
| 20954 | 18D2 | JR 20910 |