� >Listing1
:
� � �:� " at line ";�/10:�
(� 0
2�initialise
<� "Press Esc to exit."
F�
P, � "Input a number between 1 and 5 ";num
Z- � �fullname(firstname$(),surname$(),num)
d� �
n�
x:
�� �initialise
�� firstname$(5),surname$(5)
�,firstname$(1)="John":surname$(1)="Smith"
�1firstname$(2)="Arthur":surname$(2)="Guinness"
�/firstname$(3)="Joshua":surname$(3)="Tetley"
�/firstname$(4)="Peter":surname$(4)="Dominic"
�1firstname$(5)="Augustus":surname$(5)="Barnet"
��
�:
�� �fullname(f$(),s$(),n)
�'� n<1 � n>�(f$(),1) � ="Bad Number"
�=f$(n)+" "+s$(n)
�

00000000  0d 00 0a 0f f4 20 3e 4c  69 73 74 69 6e 67 31 0d  |..... >Listing1.|
00000010  00 14 05 3a 0d 00 1e 1e  ee 20 85 20 f6 3a f1 20  |...:..... . .:. |
00000020  22 20 61 74 20 6c 69 6e  65 20 22 3b 9e 2f 31 30  |" at line ";./10|
00000030  3a e0 0d 00 28 07 eb 20  30 0d 00 32 0f f2 69 6e  |:...(.. 0..2..in|
00000040  69 74 69 61 6c 69 73 65  0d 00 3c 1a f1 20 22 50  |itialise..<.. "P|
00000050  72 65 73 73 20 45 73 63  20 74 6f 20 65 78 69 74  |ress Esc to exit|
00000060  2e 22 0d 00 46 05 f5 0d  00 50 2c 20 e8 20 22 49  |."..F....P, . "I|
00000070  6e 70 75 74 20 61 20 6e  75 6d 62 65 72 20 62 65  |nput a number be|
00000080  74 77 65 65 6e 20 31 20  61 6e 64 20 35 20 22 3b  |tween 1 and 5 ";|
00000090  6e 75 6d 0d 00 5a 2d 20  f1 20 a4 66 75 6c 6c 6e  |num..Z- . .fulln|
000000a0  61 6d 65 28 66 69 72 73  74 6e 61 6d 65 24 28 29  |ame(firstname$()|
000000b0  2c 73 75 72 6e 61 6d 65  24 28 29 2c 6e 75 6d 29  |,surname$(),num)|
000000c0  0d 00 64 07 fd 20 a3 0d  00 6e 05 e0 0d 00 78 05  |..d.. ...n....x.|
000000d0  3a 0d 00 82 11 dd 20 f2  69 6e 69 74 69 61 6c 69  |:..... .initiali|
000000e0  73 65 0d 00 8c 1f de 20  66 69 72 73 74 6e 61 6d  |se..... firstnam|
000000f0  65 24 28 35 29 2c 73 75  72 6e 61 6d 65 24 28 35  |e$(5),surname$(5|
00000100  29 0d 00 96 2c 66 69 72  73 74 6e 61 6d 65 24 28  |)...,firstname$(|
00000110  31 29 3d 22 4a 6f 68 6e  22 3a 73 75 72 6e 61 6d  |1)="John":surnam|
00000120  65 24 28 31 29 3d 22 53  6d 69 74 68 22 0d 00 a0  |e$(1)="Smith"...|
00000130  31 66 69 72 73 74 6e 61  6d 65 24 28 32 29 3d 22  |1firstname$(2)="|
00000140  41 72 74 68 75 72 22 3a  73 75 72 6e 61 6d 65 24  |Arthur":surname$|
00000150  28 32 29 3d 22 47 75 69  6e 6e 65 73 73 22 0d 00  |(2)="Guinness"..|
00000160  aa 2f 66 69 72 73 74 6e  61 6d 65 24 28 33 29 3d  |./firstname$(3)=|
00000170  22 4a 6f 73 68 75 61 22  3a 73 75 72 6e 61 6d 65  |"Joshua":surname|
00000180  24 28 33 29 3d 22 54 65  74 6c 65 79 22 0d 00 b4  |$(3)="Tetley"...|
00000190  2f 66 69 72 73 74 6e 61  6d 65 24 28 34 29 3d 22  |/firstname$(4)="|
000001a0  50 65 74 65 72 22 3a 73  75 72 6e 61 6d 65 24 28  |Peter":surname$(|
000001b0  34 29 3d 22 44 6f 6d 69  6e 69 63 22 0d 00 be 31  |4)="Dominic"...1|
000001c0  66 69 72 73 74 6e 61 6d  65 24 28 35 29 3d 22 41  |firstname$(5)="A|
000001d0  75 67 75 73 74 75 73 22  3a 73 75 72 6e 61 6d 65  |ugustus":surname|
000001e0  24 28 35 29 3d 22 42 61  72 6e 65 74 22 0d 00 c8  |$(5)="Barnet"...|
000001f0  05 e1 0d 00 d2 05 3a 0d  00 dc 1c dd 20 a4 66 75  |......:..... .fu|
00000200  6c 6c 6e 61 6d 65 28 66  24 28 29 2c 73 24 28 29  |llname(f$(),s$()|
00000210  2c 6e 29 0d 00 e6 27 e7  20 6e 3c 31 20 84 20 6e  |,n)...'. n<1 . n|
00000220  3e de 28 66 24 28 29 2c  31 29 20 8c 20 3d 22 42  |>.(f$(),1) . ="B|
00000230  61 64 20 4e 75 6d 62 65  72 22 0d 00 f0 14 3d 66  |ad Number"....=f|
00000240  24 28 6e 29 2b 22 20 22  2b 73 24 28 6e 29 0d ff  |$(n)+" "+s$(n)..|
00000250