� NAME$(20), RMARK$(20)
NUMBER_OF_PEOPLE=0
�
(
�GREET
2 
<� �GREET
FFOUND=�
P$�''''"Good morning! How are you"
d� REPLY$
�,�CHECK("ILL", "I'm sorry to hear that.")
�?�CHECK("NOT", "I'm not feeling too good myself, actually.")
�0�CHECK("VERY WELL", "That is good to hear!")
�3� FOUND=� � � "I am quite well too, thank you."
�
�IDENTIFY
�
�GREET
��
� 
�� �CHECK(TEST$, RMARK$)
�� �(REPLY$)<�(TEST$)� �
�+� �REPLY$,TEST$)<>0 � � RMARK$: FOUND=�
��
� 
�� �IDENTIFY

RECOGNISED=�

*�"What name are you usually called by"

� REPLY$

",� "Ah! You are called "REPLY$".  Hello!"

,!� LOOP = 1 � NUMBER_OF_PEOPLE

6E� REPLY$=NAME$(LOOP) � � RMARK$(LOOP)"! I remember!":RECOGNISED=�

@
� LOOP

J'� RECOGNISED=� � �NEWPERSON(REPLY$)

O+�"May I greet the next person, please?"

T�

^ 

h� �NEWPERSON(NAME$)

r+�"I don't think I have met you before."

|2�"What shall I say when I meet you next time?"

�� RMARK$

�'NUMBER_OF_PEOPLE=NUMBER_OF_PEOPLE+1

�!NAME$(NUMBER_OF_PEOPLE)=NAME$

�#RMARK$(NUMBER_OF_PEOPLE)=RMARK$

�(�"Thank you! I shall remember that."

��
�

00000000  0d 00 0a 1b de 20 4e 41  4d 45 24 28 32 30 29 2c  |..... NAME$(20),|
00000010  20 52 4d 41 52 4b 24 28  32 30 29 0d 00 14 16 4e  | RMARK$(20)....N|
00000020  55 4d 42 45 52 5f 4f 46  5f 50 45 4f 50 4c 45 3d  |UMBER_OF_PEOPLE=|
00000030  30 0d 00 1e 05 db 0d 00  28 0a f2 47 52 45 45 54  |0.......(..GREET|
00000040  0d 00 32 05 20 0d 00 3c  0c dd 20 f2 47 52 45 45  |..2. ..<.. .GREE|
00000050  54 0d 00 46 0b 46 4f 55  4e 44 3d a3 0d 00 50 24  |T..F.FOUND=...P$|
00000060  f1 27 27 27 27 22 47 6f  6f 64 20 6d 6f 72 6e 69  |.''''"Good morni|
00000070  6e 67 21 20 48 6f 77 20  61 72 65 20 79 6f 75 22  |ng! How are you"|
00000080  0d 00 64 0c e8 20 52 45  50 4c 59 24 0d 00 82 2c  |..d.. REPLY$...,|
00000090  f2 43 48 45 43 4b 28 22  49 4c 4c 22 2c 20 22 49  |.CHECK("ILL", "I|
000000a0  27 6d 20 73 6f 72 72 79  20 74 6f 20 68 65 61 72  |'m sorry to hear|
000000b0  20 74 68 61 74 2e 22 29  0d 00 8c 3f f2 43 48 45  | that.")...?.CHE|
000000c0  43 4b 28 22 4e 4f 54 22  2c 20 22 49 27 6d 20 6e  |CK("NOT", "I'm n|
000000d0  6f 74 20 66 65 65 6c 69  6e 67 20 74 6f 6f 20 67  |ot feeling too g|
000000e0  6f 6f 64 20 6d 79 73 65  6c 66 2c 20 61 63 74 75  |ood myself, actu|
000000f0  61 6c 6c 79 2e 22 29 0d  00 96 30 f2 43 48 45 43  |ally.")...0.CHEC|
00000100  4b 28 22 56 45 52 59 20  57 45 4c 4c 22 2c 20 22  |K("VERY WELL", "|
00000110  54 68 61 74 20 69 73 20  67 6f 6f 64 20 74 6f 20  |That is good to |
00000120  68 65 61 72 21 22 29 0d  00 a0 33 e7 20 46 4f 55  |hear!")...3. FOU|
00000130  4e 44 3d a3 20 8c 20 f1  20 22 49 20 61 6d 20 71  |ND=. . . "I am q|
00000140  75 69 74 65 20 77 65 6c  6c 20 74 6f 6f 2c 20 74  |uite well too, t|
00000150  68 61 6e 6b 20 79 6f 75  2e 22 0d 00 aa 0d f2 49  |hank you.".....I|
00000160  44 45 4e 54 49 46 59 0d  00 af 0a f2 47 52 45 45  |DENTIFY.....GREE|
00000170  54 0d 00 b4 05 e1 0d 00  be 05 20 0d 00 c8 1b dd  |T......... .....|
00000180  20 f2 43 48 45 43 4b 28  54 45 53 54 24 2c 20 52  | .CHECK(TEST$, R|
00000190  4d 41 52 4b 24 29 0d 00  cd 1b e7 20 a9 28 52 45  |MARK$)..... .(RE|
000001a0  50 4c 59 24 29 3c a9 28  54 45 53 54 24 29 8c 20  |PLY$)<.(TEST$). |
000001b0  e1 0d 00 d2 2b e7 20 a7  52 45 50 4c 59 24 2c 54  |....+. .REPLY$,T|
000001c0  45 53 54 24 29 3c 3e 30  20 8c 20 f1 20 52 4d 41  |EST$)<>0 . . RMA|
000001d0  52 4b 24 3a 20 46 4f 55  4e 44 3d b9 0d 00 dc 05  |RK$: FOUND=.....|
000001e0  e1 0d 00 e6 05 20 0d 00  f0 0f dd 20 f2 49 44 45  |..... ..... .IDE|
000001f0  4e 54 49 46 59 0d 01 04  10 52 45 43 4f 47 4e 49  |NTIFY....RECOGNI|
00000200  53 45 44 3d a3 0d 01 0e  2a f1 22 57 68 61 74 20  |SED=....*."What |
00000210  6e 61 6d 65 20 61 72 65  20 79 6f 75 20 75 73 75  |name are you usu|
00000220  61 6c 6c 79 20 63 61 6c  6c 65 64 20 62 79 22 0d  |ally called by".|
00000230  01 18 0c e8 20 52 45 50  4c 59 24 0d 01 22 2c f1  |.... REPLY$..",.|
00000240  20 22 41 68 21 20 59 6f  75 20 61 72 65 20 63 61  | "Ah! You are ca|
00000250  6c 6c 65 64 20 22 52 45  50 4c 59 24 22 2e 20 20  |lled "REPLY$".  |
00000260  48 65 6c 6c 6f 21 22 0d  01 2c 21 e3 20 4c 4f 4f  |Hello!"..,!. LOO|
00000270  50 20 3d 20 31 20 b8 20  4e 55 4d 42 45 52 5f 4f  |P = 1 . NUMBER_O|
00000280  46 5f 50 45 4f 50 4c 45  0d 01 36 45 e7 20 52 45  |F_PEOPLE..6E. RE|
00000290  50 4c 59 24 3d 4e 41 4d  45 24 28 4c 4f 4f 50 29  |PLY$=NAME$(LOOP)|
000002a0  20 8c 20 f1 20 52 4d 41  52 4b 24 28 4c 4f 4f 50  | . . RMARK$(LOOP|
000002b0  29 22 21 20 49 20 72 65  6d 65 6d 62 65 72 21 22  |)"! I remember!"|
000002c0  3a 52 45 43 4f 47 4e 49  53 45 44 3d b9 0d 01 40  |:RECOGNISED=...@|
000002d0  0a ed 20 4c 4f 4f 50 0d  01 4a 27 e7 20 52 45 43  |.. LOOP..J'. REC|
000002e0  4f 47 4e 49 53 45 44 3d  a3 20 8c 20 f2 4e 45 57  |OGNISED=. . .NEW|
000002f0  50 45 52 53 4f 4e 28 52  45 50 4c 59 24 29 0d 01  |PERSON(REPLY$)..|
00000300  4f 2b f1 22 4d 61 79 20  49 20 67 72 65 65 74 20  |O+."May I greet |
00000310  74 68 65 20 6e 65 78 74  20 70 65 72 73 6f 6e 2c  |the next person,|
00000320  20 70 6c 65 61 73 65 3f  22 0d 01 54 05 e1 0d 01  | please?"..T....|
00000330  5e 05 20 0d 01 68 17 dd  20 f2 4e 45 57 50 45 52  |^. ..h.. .NEWPER|
00000340  53 4f 4e 28 4e 41 4d 45  24 29 0d 01 72 2b f1 22  |SON(NAME$)..r+."|
00000350  49 20 64 6f 6e 27 74 20  74 68 69 6e 6b 20 49 20  |I don't think I |
00000360  68 61 76 65 20 6d 65 74  20 79 6f 75 20 62 65 66  |have met you bef|
00000370  6f 72 65 2e 22 0d 01 7c  32 f1 22 57 68 61 74 20  |ore."..|2."What |
00000380  73 68 61 6c 6c 20 49 20  73 61 79 20 77 68 65 6e  |shall I say when|
00000390  20 49 20 6d 65 65 74 20  79 6f 75 20 6e 65 78 74  | I meet you next|
000003a0  20 74 69 6d 65 3f 22 0d  01 86 0c e8 20 52 4d 41  | time?"..... RMA|
000003b0  52 4b 24 0d 01 90 27 4e  55 4d 42 45 52 5f 4f 46  |RK$...'NUMBER_OF|
000003c0  5f 50 45 4f 50 4c 45 3d  4e 55 4d 42 45 52 5f 4f  |_PEOPLE=NUMBER_O|
000003d0  46 5f 50 45 4f 50 4c 45  2b 31 0d 01 9a 21 4e 41  |F_PEOPLE+1...!NA|
000003e0  4d 45 24 28 4e 55 4d 42  45 52 5f 4f 46 5f 50 45  |ME$(NUMBER_OF_PE|
000003f0  4f 50 4c 45 29 3d 4e 41  4d 45 24 0d 01 a4 23 52  |OPLE)=NAME$...#R|
00000400  4d 41 52 4b 24 28 4e 55  4d 42 45 52 5f 4f 46 5f  |MARK$(NUMBER_OF_|
00000410  50 45 4f 50 4c 45 29 3d  52 4d 41 52 4b 24 0d 01  |PEOPLE)=RMARK$..|
00000420  ae 28 f1 22 54 68 61 6e  6b 20 79 6f 75 21 20 49  |.(."Thank you! I|
00000430  20 73 68 61 6c 6c 20 72  65 6d 65 6d 62 65 72 20  | shall remember |
00000440  74 68 61 74 2e 22 0d 01  b8 05 e1 0d ff           |that.".......|
0000044d