� MESSAGE
" � Program by Richard G Warner

 � Version 3 - October 1981
0 � For BBC Model A Microcomputer 16K Minimum
( � � �Tr@
2S �:� M%=0 � �5,16);"Press the STOP button"'"     on your tape recorder":�SPACE
< � 7:� � �T`C
d �TITLEPAGE
� �:�'''
�- �"   Most of those programs were simple"
� �"examples of their kind."
�) �'"   For details of other programs"
�* �"from the BBC software library, and"
�. �"details of other parts of the Computer"

% �"Literacy Project, write to:"''

,) �"    BBC COMPUTER LITERACY PROJECT"

6 �"    P.O. BOX 7"

@ �"    LONDON W3 6XJ"

J, �'"enclosing a large stamped addressed"

T �"envelope."

� �SPACE

�* �:�DBL(�&82+"That's All Folks",12,10)

� � � �tZA

�
 �tdA
@ ��DBL(X$,X,Y)
J �X-1,Y);�(141);X$
T �X-1,Y+1);�(141);X$
� �
� ��WAIT(X)
� � Z
� Z=�
� � � �-Z>X*100
  �
  ��SPACE
 4 �3,22);"Press the SPACE BAR to continue";:�KCL
 0 � � �=" "
 k �
 l ��TITLEPAGE
 v �:�DBL("MESSAGE",15,10)
 � �OFF:I%=�(500)
 � �
"`
 ��KCL
"j � �(0)>"" � �Djb
"� �
"�
 ��OFF
"� �23;8202;0;0;0;:�
"�
 ��ON 
# �23;29194;0;0;0;:�
�

00000000  0d 00 0a 0e 20 f4 20 4d  45 53 53 41 47 45 0d 00  |.... . MESSAGE..|
00000010  0c 22 20 f4 20 50 72 6f  67 72 61 6d 20 62 79 20  |." . Program by |
00000020  52 69 63 68 61 72 64 20  47 20 57 61 72 6e 65 72  |Richard G Warner|
00000030  0d 00 0d 1f 20 f4 20 56  65 72 73 69 6f 6e 20 33  |.... . Version 3|
00000040  20 2d 20 4f 63 74 6f 62  65 72 20 31 39 38 31 0d  | - October 1981.|
00000050  00 0e 30 20 f4 20 46 6f  72 20 42 42 43 20 4d 6f  |..0 . For BBC Mo|
00000060  64 65 6c 20 41 20 4d 69  63 72 6f 63 6f 6d 70 75  |del A Microcompu|
00000070  74 65 72 20 31 36 4b 20  4d 69 6e 69 6d 75 6d 0d  |ter 16K Minimum.|
00000080  00 28 0e 20 ee 20 85 20  e5 8d 54 72 40 0d 00 32  |.(. . . ..Tr@..2|
00000090  53 20 db 3a e7 20 4d 25  3d 30 20 8c 20 f1 8a 35  |S .:. M%=0 . ..5|
000000a0  2c 31 36 29 3b 22 50 72  65 73 73 20 74 68 65 20  |,16);"Press the |
000000b0  53 54 4f 50 20 62 75 74  74 6f 6e 22 27 22 20 20  |STOP button"'"  |
000000c0  20 20 20 6f 6e 20 79 6f  75 72 20 74 61 70 65 20  |   on your tape |
000000d0  72 65 63 6f 72 64 65 72  22 3a f2 53 50 41 43 45  |recorder":.SPACE|
000000e0  0d 00 3c 12 20 eb 20 37  3a ee 20 85 20 e5 8d 54  |..<. . 7:. . ..T|
000000f0  60 43 0d 00 64 0f 20 f2  54 49 54 4c 45 50 41 47  |`C..d. .TITLEPAG|
00000100  45 0d 00 c8 0b 20 db 3a  f1 27 27 27 0d 00 d2 2d  |E.... .:.'''...-|
00000110  20 f1 22 20 20 20 4d 6f  73 74 20 6f 66 20 74 68  | ."   Most of th|
00000120  6f 73 65 20 70 72 6f 67  72 61 6d 73 20 77 65 72  |ose programs wer|
00000130  65 20 73 69 6d 70 6c 65  22 0d 00 dc 1f 20 f1 22  |e simple".... ."|
00000140  65 78 61 6d 70 6c 65 73  20 6f 66 20 74 68 65 69  |examples of thei|
00000150  72 20 6b 69 6e 64 2e 22  0d 00 e6 29 20 f1 27 22  |r kind."...) .'"|
00000160  20 20 20 46 6f 72 20 64  65 74 61 69 6c 73 20 6f  |   For details o|
00000170  66 20 6f 74 68 65 72 20  70 72 6f 67 72 61 6d 73  |f other programs|
00000180  22 0d 00 f0 2a 20 f1 22  66 72 6f 6d 20 74 68 65  |"...* ."from the|
00000190  20 42 42 43 20 73 6f 66  74 77 61 72 65 20 6c 69  | BBC software li|
000001a0  62 72 61 72 79 2c 20 61  6e 64 22 0d 00 fa 2e 20  |brary, and".... |
000001b0  f1 22 64 65 74 61 69 6c  73 20 6f 66 20 6f 74 68  |."details of oth|
000001c0  65 72 20 70 61 72 74 73  20 6f 66 20 74 68 65 20  |er parts of the |
000001d0  43 6f 6d 70 75 74 65 72  22 0d 01 04 25 20 f1 22  |Computer"...% ."|
000001e0  4c 69 74 65 72 61 63 79  20 50 72 6f 6a 65 63 74  |Literacy Project|
000001f0  2c 20 77 72 69 74 65 20  74 6f 3a 22 27 27 0d 01  |, write to:"''..|
00000200  2c 29 20 f1 22 20 20 20  20 42 42 43 20 43 4f 4d  |,) ."    BBC COM|
00000210  50 55 54 45 52 20 4c 49  54 45 52 41 43 59 20 50  |PUTER LITERACY P|
00000220  52 4f 4a 45 43 54 22 0d  01 36 16 20 f1 22 20 20  |ROJECT"..6. ."  |
00000230  20 20 50 2e 4f 2e 20 42  4f 58 20 37 22 0d 01 40  |  P.O. BOX 7"..@|
00000240  19 20 f1 22 20 20 20 20  4c 4f 4e 44 4f 4e 20 57  |. ."    LONDON W|
00000250  33 20 36 58 4a 22 0d 01  4a 2c 20 f1 27 22 65 6e  |3 6XJ"..J, .'"en|
00000260  63 6c 6f 73 69 6e 67 20  61 20 6c 61 72 67 65 20  |closing a large |
00000270  73 74 61 6d 70 65 64 20  61 64 64 72 65 73 73 65  |stamped addresse|
00000280  64 22 0d 01 54 11 20 f1  22 65 6e 76 65 6c 6f 70  |d"..T. ."envelop|
00000290  65 2e 22 0d 01 86 0b 20  f2 53 50 41 43 45 0d 01  |e.".... .SPACE..|
000002a0  90 2a 20 db 3a f2 44 42  4c 28 bd 26 38 32 2b 22  |.* .:.DBL(.&82+"|
000002b0  54 68 61 74 27 73 20 41  6c 6c 20 46 6f 6c 6b 73  |That's All Folks|
000002c0  22 2c 31 32 2c 31 30 29  0d 01 9a 0e 20 ee 20 85  |",12,10).... . .|
000002d0  20 e5 8d 74 5a 41 0d 01  a4 0a 20 e5 8d 74 64 41  | ..tZA.... ..tdA|
000002e0  0d 1f 40 12 20 dd f2 44  42 4c 28 58 24 2c 58 2c  |..@. ..DBL(X$,X,|
000002f0  59 29 0d 1f 4a 17 20 f1  8a 58 2d 31 2c 59 29 3b  |Y)..J. ..X-1,Y);|
00000300  bd 28 31 34 31 29 3b 58  24 0d 1f 54 19 20 f1 8a  |.(141);X$..T. ..|
00000310  58 2d 31 2c 59 2b 31 29  3b bd 28 31 34 31 29 3b  |X-1,Y+1);.(141);|
00000320  58 24 0d 1f a3 06 20 e1  0d 1f a4 0e 20 dd f2 57  |X$.... ..... ..W|
00000330  41 49 54 28 58 29 0d 1f  ae 08 20 ea 20 5a 0d 1f  |AIT(X).... . Z..|
00000340  b8 08 20 5a 3d 91 0d 1f  c2 12 20 f5 20 fd 20 91  |.. Z=..... . . .|
00000350  2d 5a 3e 58 2a 31 30 30  0d 20 07 06 20 e1 0d 20  |-Z>X*100. .. .. |
00000360  08 0c 20 dd f2 53 50 41  43 45 0d 20 1c 34 20 f1  |.. ..SPACE. .4 .|
00000370  8a 33 2c 32 32 29 3b 22  50 72 65 73 73 20 74 68  |.3,22);"Press th|
00000380  65 20 53 50 41 43 45 20  42 41 52 20 74 6f 20 63  |e SPACE BAR to c|
00000390  6f 6e 74 69 6e 75 65 22  3b 3a f2 4b 43 4c 0d 20  |ontinue";:.KCL. |
000003a0  30 0e 20 f5 20 fd 20 be  3d 22 20 22 0d 20 6b 06  |0. . . .=" ". k.|
000003b0  20 e1 0d 20 6c 10 20 dd  f2 54 49 54 4c 45 50 41  | .. l. ..TITLEPA|
000003c0  47 45 0d 20 76 1c 20 db  3a f2 44 42 4c 28 22 4d  |GE. v. .:.DBL("M|
000003d0  45 53 53 41 47 45 22 2c  31 35 2c 31 30 29 0d 20  |ESSAGE",15,10). |
000003e0  80 13 20 f2 4f 46 46 3a  49 25 3d a6 28 35 30 30  |.. .OFF:I%=.(500|
000003f0  29 0d 20 cf 06 20 e1 0d  22 60 0a 20 dd f2 4b 43  |). .. .."`. ..KC|
00000400  4c 0d 22 6a 15 20 e7 20  bf 28 30 29 3e 22 22 20  |L."j. . .(0)>"" |
00000410  8c 20 8d 44 6a 62 0d 22  c3 06 20 e1 0d 22 c4 0a  |. .Djb.".. .."..|
00000420  20 dd f2 4f 46 46 0d 22  ce 16 20 ef 32 33 3b 38  | ..OFF.".. .23;8|
00000430  32 30 32 3b 30 3b 30 3b  30 3b 3a e1 0d 22 f6 0a  |202;0;0;0;:.."..|
00000440  20 dd f2 4f 4e 20 0d 23  00 17 20 ef 32 33 3b 32  | ..ON .#.. .23;2|
00000450  39 31 39 34 3b 30 3b 30  3b 30 3b 3a e1 0d ff     |9194;0;0;0;:...|
0000045f