� BYE
$� Electron Introductory Cassette
� Author T.D.
( 
2�
<��M%=1234��DF@��M%=5678��DP@��5:�19,3,4;0;:�2:�0,5)"Does your cassette"''"recorder have motor"''"control (Y/N)?";:�(��&DF)=�"Y"�M%=5678:�DP@�M%=1234
F��1,-15,121,60:�5:�19,3,4;0;:�1:�8,9)"STOP";:�3:�6,13)"the tape":�2:�4,25)"Press SPACE"�4,27)"to continue":���=32:�&11,0,0,0
P
��:�DZ@
Z� MAP 255,BLOCK 8
dosword=&FFF1
n�INITDBL
x 
��4:�OFF
��0,6);
�-�"  You've  seen  some  of  the  things"'
�-�"  that  the  Acorn  Electron can do -"'
�0�"  but  these are only the beginning !"''''
�-�"  Look  out  for  the Acornsoft range"'
�-�"  of educational programs, languages,"'
�-�"  business programs, games and books."'
�
�SPACE
�
�:�OFF
��19,1,2;0;
��DBL("Bye for now",12)
�� � � �TXA

��0

 

�4

"�

, 

6��YN

@	Y%=-1

JX%=�

T!X%=X%�&DF:�X%<>78�X%<>89��DJA

^Y%=1:�X%=78�Y%=0

h�X%,8:�

r 

|��SPACE

�)�6,29)"Press SPACE BAR to continue";

�*FX15,1

�
���=32

��

� 

�$��CEN(A$,Y%) �19-�A$/2,Y%)A$;:�

� 

���OFF �23,1,0;0;0;0;:�

� 

�3��INITDBL $MAP=�255,�0):MAP?255=0:CHARPTR=224:�

� 

�b��DBL(A$,y%)B$="":C$="":�CH%=1��A$:K%=�CHAR(��A$,CH%,1)):B$=B$+�K%:C$=C$+�(K%+1):�:K%=19-�A$/2

�3DBL$=�31+�K%+�y%+B$+�31+�K%+�(y%+1)+C$:�DBL$;:�
 
lݤCHAR(C%)�MAP?C%�=MAP?C%��CHARPTR>=256� �MAP?C%=CHARPTR:?BLOCK=C%:A%=10:X%=BLOCK:Y%=BLOCK � 256:�osword
R�J%=0�1:�23,CHARPTR+J%:�I%=2�9:�BLOCK?(J%*4+I%�2):�,:CHARPTR=CHARPTR+2:=MAP?C%
�

00000000  0d 00 0a 09 f4 20 42 59  45 0d 00 14 24 f4 20 45  |..... BYE...$. E|
00000010  6c 65 63 74 72 6f 6e 20  49 6e 74 72 6f 64 75 63  |lectron Introduc|
00000020  74 6f 72 79 20 43 61 73  73 65 74 74 65 0d 00 1e  |tory Cassette...|
00000030  11 f4 20 41 75 74 68 6f  72 20 54 2e 44 2e 0d 00  |.. Author T.D...|
00000040  28 05 20 0d 00 32 07 ee  85 f9 0d 00 3c 99 e7 4d  |(. ..2......<..M|
00000050  25 3d 31 32 33 34 8c 8d  44 46 40 8b e7 4d 25 3d  |%=1234..DF@..M%=|
00000060  35 36 37 38 8c 8d 44 50  40 8b eb 35 3a ef 31 39  |5678..DP@..5:.19|
00000070  2c 33 2c 34 3b 30 3b 3a  fb 32 3a f1 8a 30 2c 35  |,3,4;0;:.2:..0,5|
00000080  29 22 44 6f 65 73 20 79  6f 75 72 20 63 61 73 73  |)"Does your cass|
00000090  65 74 74 65 22 27 27 22  72 65 63 6f 72 64 65 72  |ette"''"recorder|
000000a0  20 68 61 76 65 20 6d 6f  74 6f 72 22 27 27 22 63  | have motor"''"c|
000000b0  6f 6e 74 72 6f 6c 20 28  59 2f 4e 29 3f 22 3b 3a  |ontrol (Y/N)?";:|
000000c0  e7 28 a5 80 26 44 46 29  3d 97 22 59 22 8c 4d 25  |.(..&DF)=."Y".M%|
000000d0  3d 35 36 37 38 3a e5 8d  44 50 40 8b 4d 25 3d 31  |=5678:..DP@.M%=1|
000000e0  32 33 34 0d 00 46 82 d4  31 2c 2d 31 35 2c 31 32  |234..F..1,-15,12|
000000f0  31 2c 36 30 3a eb 35 3a  ef 31 39 2c 33 2c 34 3b  |1,60:.5:.19,3,4;|
00000100  30 3b 3a fb 31 3a f1 8a  38 2c 39 29 22 53 54 4f  |0;:.1:..8,9)"STO|
00000110  50 22 3b 3a fb 33 3a f1  8a 36 2c 31 33 29 22 74  |P";:.3:..6,13)"t|
00000120  68 65 20 74 61 70 65 22  3a fb 32 3a f1 8a 34 2c  |he tape":.2:..4,|
00000130  32 35 29 22 50 72 65 73  73 20 53 50 41 43 45 22  |25)"Press SPACE"|
00000140  8a 34 2c 32 37 29 22 74  6f 20 63 6f 6e 74 69 6e  |.4,27)"to contin|
00000150  75 65 22 3a f5 fd a5 3d  33 32 3a d4 26 31 31 2c  |ue":...=32:.&11,|
00000160  30 2c 30 2c 30 0d 00 50  0d ee 85 d8 3a e5 8d 44  |0,0,0..P....:..D|
00000170  5a 40 0d 00 5a 15 de 20  4d 41 50 20 32 35 35 2c  |Z@..Z.. MAP 255,|
00000180  42 4c 4f 43 4b 20 38 0d  00 64 10 6f 73 77 6f 72  |BLOCK 8..d.oswor|
00000190  64 3d 26 46 46 46 31 0d  00 6e 0c f2 49 4e 49 54  |d=&FFF1..n..INIT|
000001a0  44 42 4c 0d 00 78 05 20  0d 00 82 0b eb 34 3a f2  |DBL..x. .....4:.|
000001b0  4f 46 46 0d 00 8c 0b f1  8a 30 2c 36 29 3b 0d 00  |OFF......0,6);..|
000001c0  96 2d f1 22 20 20 59 6f  75 27 76 65 20 20 73 65  |.-."  You've  se|
000001d0  65 6e 20 20 73 6f 6d 65  20 20 6f 66 20 20 74 68  |en  some  of  th|
000001e0  65 20 20 74 68 69 6e 67  73 22 27 0d 00 a0 2d f1  |e  things"'...-.|
000001f0  22 20 20 74 68 61 74 20  20 74 68 65 20 20 41 63  |"  that  the  Ac|
00000200  6f 72 6e 20 20 45 6c 65  63 74 72 6f 6e 20 63 61  |orn  Electron ca|
00000210  6e 20 64 6f 20 2d 22 27  0d 00 aa 30 f1 22 20 20  |n do -"'...0."  |
00000220  62 75 74 20 20 74 68 65  73 65 20 61 72 65 20 6f  |but  these are o|
00000230  6e 6c 79 20 74 68 65 20  62 65 67 69 6e 6e 69 6e  |nly the beginnin|
00000240  67 20 21 22 27 27 27 27  0d 00 b4 2d f1 22 20 20  |g !"''''...-."  |
00000250  4c 6f 6f 6b 20 20 6f 75  74 20 20 66 6f 72 20 20  |Look  out  for  |
00000260  74 68 65 20 41 63 6f 72  6e 73 6f 66 74 20 72 61  |the Acornsoft ra|
00000270  6e 67 65 22 27 0d 00 be  2d f1 22 20 20 6f 66 20  |nge"'...-."  of |
00000280  65 64 75 63 61 74 69 6f  6e 61 6c 20 70 72 6f 67  |educational prog|
00000290  72 61 6d 73 2c 20 6c 61  6e 67 75 61 67 65 73 2c  |rams, languages,|
000002a0  22 27 0d 00 c8 2d f1 22  20 20 62 75 73 69 6e 65  |"'...-."  busine|
000002b0  73 73 20 70 72 6f 67 72  61 6d 73 2c 20 67 61 6d  |ss programs, gam|
000002c0  65 73 20 61 6e 64 20 62  6f 6f 6b 73 2e 22 27 0d  |es and books."'.|
000002d0  00 d2 0a f2 53 50 41 43  45 0d 00 dc 0a db 3a f2  |....SPACE.....:.|
000002e0  4f 46 46 0d 00 e6 0e ef  31 39 2c 31 2c 32 3b 30  |OFF.....19,1,2;0|
000002f0  3b 0d 00 f0 1a f2 44 42  4c 28 22 42 79 65 20 66  |;.....DBL("Bye f|
00000300  6f 72 20 6e 6f 77 22 2c  31 32 29 0d 00 fa 0e ee  |or now",12).....|
00000310  20 85 20 e5 20 8d 54 58  41 0d 01 04 07 f5 fd 30  | . . .TXA......0|
00000320  0d 01 0e 05 20 0d 01 18  06 eb 34 0d 01 22 05 e0  |.... .....4.."..|
00000330  0d 01 2c 05 20 0d 01 36  08 dd f2 59 4e 0d 01 40  |..,. ..6...YN..@|
00000340  09 59 25 3d 2d 31 0d 01  4a 08 58 25 3d a5 0d 01  |.Y%=-1..J.X%=...|
00000350  54 21 58 25 3d 58 25 80  26 44 46 3a e7 58 25 3c  |T!X%=X%.&DF:.X%<|
00000360  3e 37 38 80 58 25 3c 3e  38 39 8c 8d 44 4a 41 0d  |>78.X%<>89..DJA.|
00000370  01 5e 14 59 25 3d 31 3a  e7 58 25 3d 37 38 8c 59  |.^.Y%=1:.X%=78.Y|
00000380  25 3d 30 0d 01 68 0b ef  58 25 2c 38 3a e1 0d 01  |%=0..h..X%,8:...|
00000390  72 05 20 0d 01 7c 0b dd  f2 53 50 41 43 45 0d 01  |r. ..|...SPACE..|
000003a0  86 29 f1 8a 36 2c 32 39  29 22 50 72 65 73 73 20  |.)..6,29)"Press |
000003b0  53 50 41 43 45 20 42 41  52 20 74 6f 20 63 6f 6e  |SPACE BAR to con|
000003c0  74 69 6e 75 65 22 3b 0d  01 90 0b 2a 46 58 31 35  |tinue";....*FX15|
000003d0  2c 31 0d 01 9a 0a f5 fd  a5 3d 33 32 0d 01 a4 05  |,1.......=32....|
000003e0  e1 0d 01 ae 05 20 0d 01  b8 24 dd f2 43 45 4e 28  |..... ...$..CEN(|
000003f0  41 24 2c 59 25 29 20 f1  8a 31 39 2d a9 41 24 2f  |A$,Y%) ..19-.A$/|
00000400  32 2c 59 25 29 41 24 3b  3a e1 0d 01 c2 05 20 0d  |2,Y%)A$;:..... .|
00000410  01 cc 1a dd f2 4f 46 46  20 ef 32 33 2c 31 2c 30  |.....OFF .23,1,0|
00000420  3b 30 3b 30 3b 30 3b 3a  e1 0d 01 d6 05 20 0d 01  |;0;0;0;:..... ..|
00000430  e0 33 dd f2 49 4e 49 54  44 42 4c 20 24 4d 41 50  |.3..INITDBL $MAP|
00000440  3d c4 32 35 35 2c bd 30  29 3a 4d 41 50 3f 32 35  |=.255,.0):MAP?25|
00000450  35 3d 30 3a 43 48 41 52  50 54 52 3d 32 32 34 3a  |5=0:CHARPTR=224:|
00000460  e1 0d 01 ea 05 20 0d 01  f4 62 dd f2 44 42 4c 28  |..... ...b..DBL(|
00000470  41 24 2c 79 25 29 42 24  3d 22 22 3a 43 24 3d 22  |A$,y%)B$="":C$="|
00000480  22 3a e3 43 48 25 3d 31  b8 a9 41 24 3a 4b 25 3d  |":.CH%=1..A$:K%=|
00000490  a4 43 48 41 52 28 97 c1  41 24 2c 43 48 25 2c 31  |.CHAR(..A$,CH%,1|
000004a0  29 29 3a 42 24 3d 42 24  2b bd 4b 25 3a 43 24 3d  |)):B$=B$+.K%:C$=|
000004b0  43 24 2b bd 28 4b 25 2b  31 29 3a ed 3a 4b 25 3d  |C$+.(K%+1):.:K%=|
000004c0  31 39 2d a9 41 24 2f 32  0d 01 fe 33 44 42 4c 24  |19-.A$/2...3DBL$|
000004d0  3d bd 33 31 2b bd 4b 25  2b bd 79 25 2b 42 24 2b  |=.31+.K%+.y%+B$+|
000004e0  bd 33 31 2b bd 4b 25 2b  bd 28 79 25 2b 31 29 2b  |.31+.K%+.(y%+1)+|
000004f0  43 24 3a f1 44 42 4c 24  3b 3a e1 0d 02 08 05 20  |C$:.DBL$;:..... |
00000500  0d 02 12 6c dd a4 43 48  41 52 28 43 25 29 e7 4d  |...l..CHAR(C%).M|
00000510  41 50 3f 43 25 8c 3d 4d  41 50 3f 43 25 8b e7 43  |AP?C%.=MAP?C%..C|
00000520  48 41 52 50 54 52 3e 3d  32 35 36 fa 20 8b 4d 41  |HARPTR>=256. .MA|
00000530  50 3f 43 25 3d 43 48 41  52 50 54 52 3a 3f 42 4c  |P?C%=CHARPTR:?BL|
00000540  4f 43 4b 3d 43 25 3a 41  25 3d 31 30 3a 58 25 3d  |OCK=C%:A%=10:X%=|
00000550  42 4c 4f 43 4b 3a 59 25  3d 42 4c 4f 43 4b 20 81  |BLOCK:Y%=BLOCK .|
00000560  20 32 35 36 3a d6 6f 73  77 6f 72 64 0d 02 1c 52  | 256:.osword...R|
00000570  e3 4a 25 3d 30 b8 31 3a  ef 32 33 2c 43 48 41 52  |.J%=0.1:.23,CHAR|
00000580  50 54 52 2b 4a 25 3a e3  49 25 3d 32 b8 39 3a ef  |PTR+J%:.I%=2.9:.|
00000590  42 4c 4f 43 4b 3f 28 4a  25 2a 34 2b 49 25 81 32  |BLOCK?(J%*4+I%.2|
000005a0  29 3a ed 2c 3a 43 48 41  52 50 54 52 3d 43 48 41  |):.,:CHARPTR=CHA|
000005b0  52 50 54 52 2b 32 3a 3d  4d 41 50 3f 43 25 0d ff  |RPTR+2:=MAP?C%..|
000005c0