� MESSAGE
" � Program by Richard G Warner

 � Version 3 - October 1981
0 � For BBC Model A Microcomputer 16K Minimum
< � 7:� � �tPA
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 3c 12 20 eb 20 37 3a  ee 20 85 20 e5 8d 74 50  |.<. . 7:. . ..tP|
00000090  41 0d 00 64 0f 20 f2 54  49 54 4c 45 50 41 47 45  |A..d. .TITLEPAGE|
000000a0  0d 00 c8 0b 20 db 3a f1  27 27 27 0d 00 d2 2d 20  |.... .:.'''...- |
000000b0  f1 22 20 20 20 4d 6f 73  74 20 6f 66 20 74 68 6f  |."   Most of tho|
000000c0  73 65 20 70 72 6f 67 72  61 6d 73 20 77 65 72 65  |se programs were|
000000d0  20 73 69 6d 70 6c 65 22  0d 00 dc 1f 20 f1 22 65  | simple".... ."e|
000000e0  78 61 6d 70 6c 65 73 20  6f 66 20 74 68 65 69 72  |xamples of their|
000000f0  20 6b 69 6e 64 2e 22 0d  00 e6 29 20 f1 27 22 20  | kind."...) .'" |
00000100  20 20 46 6f 72 20 64 65  74 61 69 6c 73 20 6f 66  |  For details of|
00000110  20 6f 74 68 65 72 20 70  72 6f 67 72 61 6d 73 22  | other programs"|
00000120  0d 00 f0 2a 20 f1 22 66  72 6f 6d 20 74 68 65 20  |...* ."from the |
00000130  42 42 43 20 73 6f 66 74  77 61 72 65 20 6c 69 62  |BBC software lib|
00000140  72 61 72 79 2c 20 61 6e  64 22 0d 00 fa 2e 20 f1  |rary, and".... .|
00000150  22 64 65 74 61 69 6c 73  20 6f 66 20 6f 74 68 65  |"details of othe|
00000160  72 20 70 61 72 74 73 20  6f 66 20 74 68 65 20 43  |r parts of the C|
00000170  6f 6d 70 75 74 65 72 22  0d 01 04 25 20 f1 22 4c  |omputer"...% ."L|
00000180  69 74 65 72 61 63 79 20  50 72 6f 6a 65 63 74 2c  |iteracy Project,|
00000190  20 77 72 69 74 65 20 74  6f 3a 22 27 27 0d 01 2c  | write to:"''..,|
000001a0  29 20 f1 22 20 20 20 20  42 42 43 20 43 4f 4d 50  |) ."    BBC COMP|
000001b0  55 54 45 52 20 4c 49 54  45 52 41 43 59 20 50 52  |UTER LITERACY PR|
000001c0  4f 4a 45 43 54 22 0d 01  36 16 20 f1 22 20 20 20  |OJECT"..6. ."   |
000001d0  20 50 2e 4f 2e 20 42 4f  58 20 37 22 0d 01 40 19  | P.O. BOX 7"..@.|
000001e0  20 f1 22 20 20 20 20 4c  4f 4e 44 4f 4e 20 57 33  | ."    LONDON W3|
000001f0  20 36 58 4a 22 0d 01 4a  2c 20 f1 27 22 65 6e 63  | 6XJ"..J, .'"enc|
00000200  6c 6f 73 69 6e 67 20 61  20 6c 61 72 67 65 20 73  |losing a large s|
00000210  74 61 6d 70 65 64 20 61  64 64 72 65 73 73 65 64  |tamped addressed|
00000220  22 0d 01 54 11 20 f1 22  65 6e 76 65 6c 6f 70 65  |"..T. ."envelope|
00000230  2e 22 0d 01 86 0b 20 f2  53 50 41 43 45 0d 01 90  |.".... .SPACE...|
00000240  2a 20 db 3a f2 44 42 4c  28 bd 26 38 32 2b 22 54  |* .:.DBL(.&82+"T|
00000250  68 61 74 27 73 20 41 6c  6c 20 46 6f 6c 6b 73 22  |hat's All Folks"|
00000260  2c 31 32 2c 31 30 29 0d  01 9a 0e 20 ee 20 85 20  |,12,10).... . . |
00000270  e5 8d 74 5a 41 0d 01 a4  0a 20 e5 8d 74 64 41 0d  |..tZA.... ..tdA.|
00000280  1f 40 12 20 dd f2 44 42  4c 28 58 24 2c 58 2c 59  |.@. ..DBL(X$,X,Y|
00000290  29 0d 1f 4a 17 20 f1 8a  58 2d 31 2c 59 29 3b bd  |)..J. ..X-1,Y);.|
000002a0  28 31 34 31 29 3b 58 24  0d 1f 54 19 20 f1 8a 58  |(141);X$..T. ..X|
000002b0  2d 31 2c 59 2b 31 29 3b  bd 28 31 34 31 29 3b 58  |-1,Y+1);.(141);X|
000002c0  24 0d 1f a3 06 20 e1 0d  1f a4 0e 20 dd f2 57 41  |$.... ..... ..WA|
000002d0  49 54 28 58 29 0d 1f ae  08 20 ea 20 5a 0d 1f b8  |IT(X).... . Z...|
000002e0  08 20 5a 3d 91 0d 1f c2  12 20 f5 20 fd 20 91 2d  |. Z=..... . . .-|
000002f0  5a 3e 58 2a 31 30 30 0d  20 07 06 20 e1 0d 20 08  |Z>X*100. .. .. .|
00000300  0c 20 dd f2 53 50 41 43  45 0d 20 1c 34 20 f1 8a  |. ..SPACE. .4 ..|
00000310  33 2c 32 32 29 3b 22 50  72 65 73 73 20 74 68 65  |3,22);"Press the|
00000320  20 53 50 41 43 45 20 42  41 52 20 74 6f 20 63 6f  | SPACE BAR to co|
00000330  6e 74 69 6e 75 65 22 3b  3a f2 4b 43 4c 0d 20 30  |ntinue";:.KCL. 0|
00000340  0e 20 f5 20 fd 20 be 3d  22 20 22 0d 20 6b 06 20  |. . . .=" ". k. |
00000350  e1 0d 20 6c 10 20 dd f2  54 49 54 4c 45 50 41 47  |.. l. ..TITLEPAG|
00000360  45 0d 20 76 1c 20 db 3a  f2 44 42 4c 28 22 4d 45  |E. v. .:.DBL("ME|
00000370  53 53 41 47 45 22 2c 31  35 2c 31 30 29 0d 20 80  |SSAGE",15,10). .|
00000380  13 20 f2 4f 46 46 3a 49  25 3d a6 28 35 30 30 29  |. .OFF:I%=.(500)|
00000390  0d 20 cf 06 20 e1 0d 22  60 0a 20 dd f2 4b 43 4c  |. .. .."`. ..KCL|
000003a0  0d 22 6a 15 20 e7 20 bf  28 30 29 3e 22 22 20 8c  |."j. . .(0)>"" .|
000003b0  20 8d 44 6a 62 0d 22 c3  06 20 e1 0d 22 c4 0a 20  | .Djb.".. ..".. |
000003c0  dd f2 4f 46 46 0d 22 ce  16 20 ef 32 33 3b 38 32  |..OFF.".. .23;82|
000003d0  30 32 3b 30 3b 30 3b 30  3b 3a e1 0d 22 f6 0a 20  |02;0;0;0;:..".. |
000003e0  dd f2 4f 4e 20 0d 23 00  17 20 ef 32 33 3b 32 39  |..ON .#.. .23;29|
000003f0  31 39 34 3b 30 3b 30 3b  30 3b 3a e1 0d ff        |194;0;0;0;:...|
000003fe