" � New version of 'INTRO' from
 � Welcome pack
# � By John Coll & Andrew Gordon
( � � � �DvB
2=� 1,1,-�(50),-�(50),-�(45),255,255,255,127,0,0,-127,127,0
<� 1,1,255,255
F�COM%11
P@M0=650:M1=500:M2=708:M3=104:M4=288:M5=550:M6=720:M7=450:M8=5
Z�5
d�5
n+�23,255,255,255,255,255,255,255,255,255
x
�0,135
��
�G�18,0,129,24,128;128;1152;896;16,18,0,135,24,256;256;1024;768;16,26
�*�I%=M1 � M2 � M3:�SWOOSH(M0):�LETTER:�
�$COM%="DISC SYSTEM"
�?�J%=0�11:I%=M4+64*J%:�SWOOSH(M5):�0,0:�I%,M5:�(COM%?J%);:�
��29,M6;M7;
��L%=0�8�8:�M%=0�4�4
��
��I%=0�20:�A%
� �J%=0�7:K%=68+(A%�1):A%=A%�2
�$�K%,L%-J%*32+(I%�1)*16,M%-I%*8:�
��(I%�1)=0:�69,L%+32,M%-I%*8
�	�:�:�

TI%=�:���-TI%>100*V%

� &11,0,1,1

 � �DNB

"\�&FF,&99,&AA,&66,&A2,&99,&C9,&C2,&FE,&F0,&F8,&F0,&78,&78,&3C,&3C,&1E,&16,&15,&FD,&00,&00

,
� �LETTER

6�0,1:�0,135

@�I%,M0:�255;

J�I%,M0+4:�I%+56,M0+4

T�I%+8,M0+8:�I%+48,M0+8

^�I%-8,M0:�I%-8,M0-24

h�I%+8,M0-32:�I%+48,M0-32

r�I%+64,M0:�I%+64,M0-24

|�0,7:�0,129

��I%,M0:�(�"B"-(I%=M2));

��

�� �SWOOSH(Y%)

�!XL%=0:XR%=1272:YD%=0:YU%=1020

�)U1%=(I%+32-XL%)�M8:V1%=(Y%-16-YD%)�M8

�)U2%=(I%+32-XR%)�M8:V2%=(Y%-16-YU%)�M8

�CX1%=XL%:X2%=XL%:X3%=XR%:X4%=XR%:Y1%=YD%:Y2%=YU%:Y3%=YD%:Y4%=YU%

�	�PLOT

�
�J0%=1�M8

�	�PLOT

�3X1%=X1%+U1%:X2%=X2%+U1%:X3%=X3%+U2%:X4%=X4%+U2%

�3Y1%=Y1%+V1%:Y2%=Y2%+V2%:Y3%=Y3%+V1%:Y4%=Y4%+V2%

�	�PLOT
�
	�PLOT
�
&
��PLOT
0;�X1%-U1%,Y1%-V1%:�6,X1%,Y1%:�X2%-U1%,Y2%-V2%:�6,X2%,Y2%
:;�X3%-U2%,Y1%-V1%:�6,X3%,Y3%:�X4%-U2%,Y4%-V2%:�6,X4%,Y4%
D�
N] �7:�I%=2�3:�3,I%)�&8D"Welcome to the BBC Microcomputer":�13,I%+3);�&8D;"Disc System":�
X_ �6,16)"To leave any one program"'�9)"just press ESCAPE.":N%=�(200):�12,20)"Try it now.";
b
 �DbB
l/ �A(0,0):�A(1,0):�A(2,0):�A(3,0):�M%<0��DNB
vS �7:�5,9)"Do you want to go on to"'�5)"the next program (Y/N)? ";:�YN:�Y%=0� �
� � "INDEX"
���YN Y%=-1
� X%=�:� X%=13 � Y%>=0 ��
�" X%=X%�&DF:�X%<>78�X%<>89��tTB
� Y%=1:�X%=78�Y%=0
� �X%,8:�tTB
�

00000000  0d 00 0a 22 20 f4 20 4e  65 77 20 76 65 72 73 69  |..." . New versi|
00000010  6f 6e 20 6f 66 20 27 49  4e 54 52 4f 27 20 66 72  |on of 'INTRO' fr|
00000020  6f 6d 0d 00 14 13 20 f4  20 57 65 6c 63 6f 6d 65  |om.... . Welcome|
00000030  20 70 61 63 6b 0d 00 1e  23 20 f4 20 42 79 20 4a  | pack...# . By J|
00000040  6f 68 6e 20 43 6f 6c 6c  20 26 20 41 6e 64 72 65  |ohn Coll & Andre|
00000050  77 20 47 6f 72 64 6f 6e  0d 00 28 0f 20 ee 20 85  |w Gordon..(. . .|
00000060  20 e5 20 8d 44 76 42 0d  00 32 3d e2 20 31 2c 31  | . .DvB..2=. 1,1|
00000070  2c 2d b3 28 35 30 29 2c  2d b3 28 35 30 29 2c 2d  |,-.(50),-.(50),-|
00000080  b3 28 34 35 29 2c 32 35  35 2c 32 35 35 2c 32 35  |.(45),255,255,25|
00000090  35 2c 31 32 37 2c 30 2c  30 2c 2d 31 32 37 2c 31  |5,127,0,0,-127,1|
000000a0  32 37 2c 30 0d 00 3c 11  d4 20 31 2c 31 2c 32 35  |27,0..<.. 1,1,25|
000000b0  35 2c 32 35 35 0d 00 46  0b de 43 4f 4d 25 31 31  |5,255..F..COM%11|
000000c0  0d 00 50 40 4d 30 3d 36  35 30 3a 4d 31 3d 35 30  |..P@M0=650:M1=50|
000000d0  30 3a 4d 32 3d 37 30 38  3a 4d 33 3d 31 30 34 3a  |0:M2=708:M3=104:|
000000e0  4d 34 3d 32 38 38 3a 4d  35 3d 35 35 30 3a 4d 36  |M4=288:M5=550:M6|
000000f0  3d 37 32 30 3a 4d 37 3d  34 35 30 3a 4d 38 3d 35  |=720:M7=450:M8=5|
00000100  0d 00 5a 06 eb 35 0d 00  64 06 ef 35 0d 00 6e 2b  |..Z..5..d..5..n+|
00000110  ef 32 33 2c 32 35 35 2c  32 35 35 2c 32 35 35 2c  |.23,255,255,255,|
00000120  32 35 35 2c 32 35 35 2c  32 35 35 2c 32 35 35 2c  |255,255,255,255,|
00000130  32 35 35 2c 32 35 35 0d  00 78 0a e6 30 2c 31 33  |255,255..x..0,13|
00000140  35 0d 00 82 05 da 0d 00  8c 47 ef 31 38 2c 30 2c  |5........G.18,0,|
00000150  31 32 39 2c 32 34 2c 31  32 38 3b 31 32 38 3b 31  |129,24,128;128;1|
00000160  31 35 32 3b 38 39 36 3b  31 36 2c 31 38 2c 30 2c  |152;896;16,18,0,|
00000170  31 33 35 2c 32 34 2c 32  35 36 3b 32 35 36 3b 31  |135,24,256;256;1|
00000180  30 32 34 3b 37 36 38 3b  31 36 2c 32 36 0d 00 96  |024;768;16,26...|
00000190  2a e3 49 25 3d 4d 31 20  b8 20 4d 32 20 88 20 4d  |*.I%=M1 . M2 . M|
000001a0  33 3a f2 53 57 4f 4f 53  48 28 4d 30 29 3a f2 4c  |3:.SWOOSH(M0):.L|
000001b0  45 54 54 45 52 3a ed 0d  00 a0 17 24 43 4f 4d 25  |ETTER:.....$COM%|
000001c0  3d 22 44 49 53 43 20 53  59 53 54 45 4d 22 0d 00  |="DISC SYSTEM"..|
000001d0  aa 3f e3 4a 25 3d 30 b8  31 31 3a 49 25 3d 4d 34  |.?.J%=0.11:I%=M4|
000001e0  2b 36 34 2a 4a 25 3a f2  53 57 4f 4f 53 48 28 4d  |+64*J%:.SWOOSH(M|
000001f0  35 29 3a e6 30 2c 30 3a  ec 49 25 2c 4d 35 3a f1  |5):.0,0:.I%,M5:.|
00000200  bd 28 43 4f 4d 25 3f 4a  25 29 3b 3a ed 0d 00 b4  |.(COM%?J%);:....|
00000210  0e ef 32 39 2c 4d 36 3b  4d 37 3b 0d 00 be 17 e3  |..29,M6;M7;.....|
00000220  4c 25 3d 30 b8 38 88 38  3a e3 4d 25 3d 30 b8 34  |L%=0.8.8:.M%=0.4|
00000230  88 34 0d 00 c8 05 f7 0d  00 d2 10 e3 49 25 3d 30  |.4..........I%=0|
00000240  b8 32 30 3a f3 41 25 0d  00 dc 20 e3 4a 25 3d 30  |.20:.A%... .J%=0|
00000250  b8 37 3a 4b 25 3d 36 38  2b 28 41 25 80 31 29 3a  |.7:K%=68+(A%.1):|
00000260  41 25 3d 41 25 81 32 0d  00 e6 24 f0 4b 25 2c 4c  |A%=A%.2...$.K%,L|
00000270  25 2d 4a 25 2a 33 32 2b  28 49 25 80 31 29 2a 31  |%-J%*32+(I%.1)*1|
00000280  36 2c 4d 25 2d 49 25 2a  38 3a ed 0d 00 f0 1f e7  |6,M%-I%*8:......|
00000290  28 49 25 80 31 29 3d 30  3a f0 36 39 2c 4c 25 2b  |(I%.1)=0:.69,L%+|
000002a0  33 32 2c 4d 25 2d 49 25  2a 38 0d 00 fa 09 ed 3a  |32,M%-I%*8.....:|
000002b0  ed 3a ed 0d 01 04 18 54  49 25 3d 91 3a f5 fd 91  |.:.....TI%=.:...|
000002c0  2d 54 49 25 3e 31 30 30  2a 56 25 0d 01 0e 0f d4  |-TI%>100*V%.....|
000002d0  20 26 31 31 2c 30 2c 31  2c 31 0d 01 18 0b 20 e5  | &11,0,1,1.... .|
000002e0  20 8d 44 4e 42 0d 01 22  5c dc 26 46 46 2c 26 39  | .DNB.."\.&FF,&9|
000002f0  39 2c 26 41 41 2c 26 36  36 2c 26 41 32 2c 26 39  |9,&AA,&66,&A2,&9|
00000300  39 2c 26 43 39 2c 26 43  32 2c 26 46 45 2c 26 46  |9,&C9,&C2,&FE,&F|
00000310  30 2c 26 46 38 2c 26 46  30 2c 26 37 38 2c 26 37  |0,&F8,&F0,&78,&7|
00000320  38 2c 26 33 43 2c 26 33  43 2c 26 31 45 2c 26 31  |8,&3C,&3C,&1E,&1|
00000330  36 2c 26 31 35 2c 26 46  44 2c 26 30 30 2c 26 30  |6,&15,&FD,&00,&0|
00000340  30 0d 01 2c 0d dd 20 f2  4c 45 54 54 45 52 0d 01  |0..,.. .LETTER..|
00000350  36 0f e6 30 2c 31 3a e6  30 2c 31 33 35 0d 01 40  |6..0,1:.0,135..@|
00000360  11 ec 49 25 2c 4d 30 3a  f1 bd 32 35 35 3b 0d 01  |..I%,M0:..255;..|
00000370  4a 18 ec 49 25 2c 4d 30  2b 34 3a df 49 25 2b 35  |J..I%,M0+4:.I%+5|
00000380  36 2c 4d 30 2b 34 0d 01  54 1a ec 49 25 2b 38 2c  |6,M0+4..T..I%+8,|
00000390  4d 30 2b 38 3a df 49 25  2b 34 38 2c 4d 30 2b 38  |M0+8:.I%+48,M0+8|
000003a0  0d 01 5e 18 ec 49 25 2d  38 2c 4d 30 3a df 49 25  |..^..I%-8,M0:.I%|
000003b0  2d 38 2c 4d 30 2d 32 34  0d 01 68 1c ec 49 25 2b  |-8,M0-24..h..I%+|
000003c0  38 2c 4d 30 2d 33 32 3a  df 49 25 2b 34 38 2c 4d  |8,M0-32:.I%+48,M|
000003d0  30 2d 33 32 0d 01 72 1a  ec 49 25 2b 36 34 2c 4d  |0-32..r..I%+64,M|
000003e0  30 3a df 49 25 2b 36 34  2c 4d 30 2d 32 34 0d 01  |0:.I%+64,M0-24..|
000003f0  7c 0f e6 30 2c 37 3a e6  30 2c 31 32 39 0d 01 86  ||..0,7:.0,129...|
00000400  1c ec 49 25 2c 4d 30 3a  f1 bd 28 97 22 42 22 2d  |..I%,M0:..(."B"-|
00000410  28 49 25 3d 4d 32 29 29  3b 0d 01 90 05 e1 0d 01  |(I%=M2));.......|
00000420  9a 11 dd 20 f2 53 57 4f  4f 53 48 28 59 25 29 0d  |... .SWOOSH(Y%).|
00000430  01 a4 21 58 4c 25 3d 30  3a 58 52 25 3d 31 32 37  |..!XL%=0:XR%=127|
00000440  32 3a 59 44 25 3d 30 3a  59 55 25 3d 31 30 32 30  |2:YD%=0:YU%=1020|
00000450  0d 01 ae 29 55 31 25 3d  28 49 25 2b 33 32 2d 58  |...)U1%=(I%+32-X|
00000460  4c 25 29 81 4d 38 3a 56  31 25 3d 28 59 25 2d 31  |L%).M8:V1%=(Y%-1|
00000470  36 2d 59 44 25 29 81 4d  38 0d 01 b8 29 55 32 25  |6-YD%).M8...)U2%|
00000480  3d 28 49 25 2b 33 32 2d  58 52 25 29 81 4d 38 3a  |=(I%+32-XR%).M8:|
00000490  56 32 25 3d 28 59 25 2d  31 36 2d 59 55 25 29 81  |V2%=(Y%-16-YU%).|
000004a0  4d 38 0d 01 c2 43 58 31  25 3d 58 4c 25 3a 58 32  |M8...CX1%=XL%:X2|
000004b0  25 3d 58 4c 25 3a 58 33  25 3d 58 52 25 3a 58 34  |%=XL%:X3%=XR%:X4|
000004c0  25 3d 58 52 25 3a 59 31  25 3d 59 44 25 3a 59 32  |%=XR%:Y1%=YD%:Y2|
000004d0  25 3d 59 55 25 3a 59 33  25 3d 59 44 25 3a 59 34  |%=YU%:Y3%=YD%:Y4|
000004e0  25 3d 59 55 25 0d 01 cc  09 f2 50 4c 4f 54 0d 01  |%=YU%.....PLOT..|
000004f0  d6 0d e3 4a 30 25 3d 31  b8 4d 38 0d 01 e0 09 f2  |...J0%=1.M8.....|
00000500  50 4c 4f 54 0d 01 ea 33  58 31 25 3d 58 31 25 2b  |PLOT...3X1%=X1%+|
00000510  55 31 25 3a 58 32 25 3d  58 32 25 2b 55 31 25 3a  |U1%:X2%=X2%+U1%:|
00000520  58 33 25 3d 58 33 25 2b  55 32 25 3a 58 34 25 3d  |X3%=X3%+U2%:X4%=|
00000530  58 34 25 2b 55 32 25 0d  01 f4 33 59 31 25 3d 59  |X4%+U2%...3Y1%=Y|
00000540  31 25 2b 56 31 25 3a 59  32 25 3d 59 32 25 2b 56  |1%+V1%:Y2%=Y2%+V|
00000550  32 25 3a 59 33 25 3d 59  33 25 2b 56 31 25 3a 59  |2%:Y3%=Y3%+V1%:Y|
00000560  34 25 3d 59 34 25 2b 56  32 25 0d 01 fe 09 f2 50  |4%=Y4%+V2%.....P|
00000570  4c 4f 54 0d 02 08 05 ed  0d 02 12 09 f2 50 4c 4f  |LOT..........PLO|
00000580  54 0d 02 1c 05 e1 0d 02  26 0a dd f2 50 4c 4f 54  |T.......&...PLOT|
00000590  0d 02 30 3b ec 58 31 25  2d 55 31 25 2c 59 31 25  |..0;.X1%-U1%,Y1%|
000005a0  2d 56 31 25 3a f0 36 2c  58 31 25 2c 59 31 25 3a  |-V1%:.6,X1%,Y1%:|
000005b0  ec 58 32 25 2d 55 31 25  2c 59 32 25 2d 56 32 25  |.X2%-U1%,Y2%-V2%|
000005c0  3a f0 36 2c 58 32 25 2c  59 32 25 0d 02 3a 3b ec  |:.6,X2%,Y2%..:;.|
000005d0  58 33 25 2d 55 32 25 2c  59 31 25 2d 56 31 25 3a  |X3%-U2%,Y1%-V1%:|
000005e0  f0 36 2c 58 33 25 2c 59  33 25 3a ec 58 34 25 2d  |.6,X3%,Y3%:.X4%-|
000005f0  55 32 25 2c 59 34 25 2d  56 32 25 3a f0 36 2c 58  |U2%,Y4%-V2%:.6,X|
00000600  34 25 2c 59 34 25 0d 02  44 05 e1 0d 02 4e 5d 20  |4%,Y4%..D....N] |
00000610  eb 37 3a e3 49 25 3d 32  b8 33 3a f1 8a 33 2c 49  |.7:.I%=2.3:..3,I|
00000620  25 29 bd 26 38 44 22 57  65 6c 63 6f 6d 65 20 74  |%).&8D"Welcome t|
00000630  6f 20 74 68 65 20 42 42  43 20 4d 69 63 72 6f 63  |o the BBC Microc|
00000640  6f 6d 70 75 74 65 72 22  3a f1 8a 31 33 2c 49 25  |omputer":..13,I%|
00000650  2b 33 29 3b bd 26 38 44  3b 22 44 69 73 63 20 53  |+3);.&8D;"Disc S|
00000660  79 73 74 65 6d 22 3a ed  0d 02 58 5f 20 f1 8a 36  |ystem":...X_ ..6|
00000670  2c 31 36 29 22 54 6f 20  6c 65 61 76 65 20 61 6e  |,16)"To leave an|
00000680  79 20 6f 6e 65 20 70 72  6f 67 72 61 6d 22 27 8a  |y one program"'.|
00000690  39 29 22 6a 75 73 74 20  70 72 65 73 73 20 45 53  |9)"just press ES|
000006a0  43 41 50 45 2e 22 3a 4e  25 3d a6 28 32 30 30 29  |CAPE.":N%=.(200)|
000006b0  3a f1 8a 31 32 2c 32 30  29 22 54 72 79 20 69 74  |:..12,20)"Try it|
000006c0  20 6e 6f 77 2e 22 3b 0d  02 62 0a 20 e5 8d 44 62  | now.";..b. ..Db|
000006d0  42 0d 02 6c 2f 20 f2 41  28 30 2c 30 29 3a f2 41  |B..l/ .A(0,0):.A|
000006e0  28 31 2c 30 29 3a f2 41  28 32 2c 30 29 3a f2 41  |(1,0):.A(2,0):.A|
000006f0  28 33 2c 30 29 3a e7 4d  25 3c 30 8c 8d 44 4e 42  |(3,0):.M%<0..DNB|
00000700  0d 02 76 53 20 eb 37 3a  f1 8a 35 2c 39 29 22 44  |..vS .7:..5,9)"D|
00000710  6f 20 79 6f 75 20 77 61  6e 74 20 74 6f 20 67 6f  |o you want to go|
00000720  20 6f 6e 20 74 6f 22 27  8a 35 29 22 74 68 65 20  | on to"'.5)"the |
00000730  6e 65 78 74 20 70 72 6f  67 72 61 6d 20 28 59 2f  |next program (Y/|
00000740  4e 29 3f 20 22 3b 3a f2  59 4e 3a e7 59 25 3d 30  |N)? ";:.YN:.Y%=0|
00000750  8c 20 f9 0d 02 80 0e 20  d7 20 22 49 4e 44 45 58  |. ..... . "INDEX|
00000760  22 0d 02 8a 0e dd f2 59  4e 20 59 25 3d 2d 31 0d  |"......YN Y%=-1.|
00000770  02 94 1c 20 58 25 3d a5  3a e7 20 58 25 3d 31 33  |... X%=.:. X%=13|
00000780  20 80 20 59 25 3e 3d 30  20 8c e1 0d 02 9e 22 20  | . Y%>=0 ....." |
00000790  58 25 3d 58 25 80 26 44  46 3a e7 58 25 3c 3e 37  |X%=X%.&DF:.X%<>7|
000007a0  38 80 58 25 3c 3e 38 39  8c 8d 74 54 42 0d 02 a8  |8.X%<>89..tTB...|
000007b0  15 20 59 25 3d 31 3a e7  58 25 3d 37 38 8c 59 25  |. Y%=1:.X%=78.Y%|
000007c0  3d 30 0d 02 b2 10 20 ef  58 25 2c 38 3a e5 8d 74  |=0.... .X%,8:..t|
000007d0  54 42 0d ff                                       |TB..|
000007d4