� MESSAGE
$� Electron Introductory Cassette
� Author T.D.
(�
2��M%=1234��T|@��M%=5678��DF@��5:�19,3,4;0;:�2:�0,5)"Does your cassette"''"recorder have motor"''"control (Y/N)?";:�(��&DF)=�"Y"�M%=5678:�DF@�M%=1234
<��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
F
��:�DP@
P� MAP 255,BLOCK 8
Zosword=&FFF1
d�INITDBL
n 
x�4:�OFF
��''
�-�"  On  the other side of this tape you"'
�-�"  will  find  some more demonstration"'
��"  programs:-"'''
��16)"PATTERNS"
��16)"MARSLANDER"
��16)"BUGZAP"
��16)"ISLAND"
��16)"PLANETS"'''
�-�"  To run these programs stop the tape"'
�-�"  (if  you  haven't done so already),"'
�)�"  turn  the  tape  over  (without"'
�$�"  rewinding) and press PLAY."'

2�0,29)"  Press SPACE when you have done this"

 

����-99:���-99

" 

,�4

6�""

@ 

J��YN

T	Y%=-1

^X%=�

h!X%=X%�&DF:�X%<>78�X%<>89��D^A

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

|�X%,8:�

� 

���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;:�

� 

���ON �23,1,1;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$;:�
0 
:lݤCHAR(C%)�MAP?C%�=MAP?C%��CHARPTR>=256� �MAP?C%=CHARPTR:?BLOCK=C%:A%=10:X%=BLOCK:Y%=BLOCK � 256:�osword
DR�J%=0�1:�23,CHARPTR+J%:�I%=2�9:�BLOCK?(J%*4+I%�2):�,:CHARPTR=CHARPTR+2:=MAP?C%
�

00000000  0d 00 0a 0d f4 20 4d 45  53 53 41 47 45 0d 00 14  |..... MESSAGE...|
00000010  24 f4 20 45 6c 65 63 74  72 6f 6e 20 49 6e 74 72  |$. Electron Intr|
00000020  6f 64 75 63 74 6f 72 79  20 43 61 73 73 65 74 74  |oductory Cassett|
00000030  65 0d 00 1e 11 f4 20 41  75 74 68 6f 72 20 54 2e  |e..... Author T.|
00000040  44 2e 0d 00 28 07 ee 85  f9 0d 00 32 99 e7 4d 25  |D...(......2..M%|
00000050  3d 31 32 33 34 8c 8d 54  7c 40 8b e7 4d 25 3d 35  |=1234..T|@..M%=5|
00000060  36 37 38 8c 8d 44 46 40  8b eb 35 3a ef 31 39 2c  |678..DF@..5:.19,|
00000070  33 2c 34 3b 30 3b 3a fb  32 3a f1 8a 30 2c 35 29  |3,4;0;:.2:..0,5)|
00000080  22 44 6f 65 73 20 79 6f  75 72 20 63 61 73 73 65  |"Does your casse|
00000090  74 74 65 22 27 27 22 72  65 63 6f 72 64 65 72 20  |tte"''"recorder |
000000a0  68 61 76 65 20 6d 6f 74  6f 72 22 27 27 22 63 6f  |have motor"''"co|
000000b0  6e 74 72 6f 6c 20 28 59  2f 4e 29 3f 22 3b 3a e7  |ntrol (Y/N)?";:.|
000000c0  28 a5 80 26 44 46 29 3d  97 22 59 22 8c 4d 25 3d  |(..&DF)=."Y".M%=|
000000d0  35 36 37 38 3a e5 8d 44  46 40 8b 4d 25 3d 31 32  |5678:..DF@.M%=12|
000000e0  33 34 0d 00 3c 82 d4 31  2c 2d 31 35 2c 31 32 31  |34..<..1,-15,121|
000000f0  2c 36 30 3a eb 35 3a ef  31 39 2c 33 2c 34 3b 30  |,60:.5:.19,3,4;0|
00000100  3b 3a fb 31 3a f1 8a 38  2c 39 29 22 53 54 4f 50  |;:.1:..8,9)"STOP|
00000110  22 3b 3a fb 33 3a f1 8a  36 2c 31 33 29 22 74 68  |";:.3:..6,13)"th|
00000120  65 20 74 61 70 65 22 3a  fb 32 3a f1 8a 34 2c 32  |e tape":.2:..4,2|
00000130  35 29 22 50 72 65 73 73  20 53 50 41 43 45 22 8a  |5)"Press SPACE".|
00000140  34 2c 32 37 29 22 74 6f  20 63 6f 6e 74 69 6e 75  |4,27)"to continu|
00000150  65 22 3a f5 fd a5 3d 33  32 3a d4 26 31 31 2c 30  |e":...=32:.&11,0|
00000160  2c 30 2c 30 0d 00 46 0d  ee 85 d8 3a e5 8d 44 50  |,0,0..F....:..DP|
00000170  40 0d 00 50 15 de 20 4d  41 50 20 32 35 35 2c 42  |@..P.. MAP 255,B|
00000180  4c 4f 43 4b 20 38 0d 00  5a 10 6f 73 77 6f 72 64  |LOCK 8..Z.osword|
00000190  3d 26 46 46 46 31 0d 00  64 0c f2 49 4e 49 54 44  |=&FFF1..d..INITD|
000001a0  42 4c 0d 00 6e 05 20 0d  00 78 0b eb 34 3a f2 4f  |BL..n. ..x..4:.O|
000001b0  46 46 0d 00 82 07 f1 27  27 0d 00 8c 2d f1 22 20  |FF.....''...-." |
000001c0  20 4f 6e 20 20 74 68 65  20 6f 74 68 65 72 20 73  | On  the other s|
000001d0  69 64 65 20 6f 66 20 74  68 69 73 20 74 61 70 65  |ide of this tape|
000001e0  20 79 6f 75 22 27 0d 00  96 2d f1 22 20 20 77 69  | you"'...-."  wi|
000001f0  6c 6c 20 20 66 69 6e 64  20 20 73 6f 6d 65 20 6d  |ll  find  some m|
00000200  6f 72 65 20 64 65 6d 6f  6e 73 74 72 61 74 69 6f  |ore demonstratio|
00000210  6e 22 27 0d 00 a0 16 f1  22 20 20 70 72 6f 67 72  |n"'....."  progr|
00000220  61 6d 73 3a 2d 22 27 27  27 0d 00 aa 13 f1 8a 31  |ams:-"'''......1|
00000230  36 29 22 50 41 54 54 45  52 4e 53 22 0d 00 b4 15  |6)"PATTERNS"....|
00000240  f1 8a 31 36 29 22 4d 41  52 53 4c 41 4e 44 45 52  |..16)"MARSLANDER|
00000250  22 0d 00 be 11 f1 8a 31  36 29 22 42 55 47 5a 41  |"......16)"BUGZA|
00000260  50 22 0d 00 c8 11 f1 8a  31 36 29 22 49 53 4c 41  |P"......16)"ISLA|
00000270  4e 44 22 0d 00 d2 15 f1  8a 31 36 29 22 50 4c 41  |ND"......16)"PLA|
00000280  4e 45 54 53 22 27 27 27  0d 00 dc 2d f1 22 20 20  |NETS"'''...-."  |
00000290  54 6f 20 72 75 6e 20 74  68 65 73 65 20 70 72 6f  |To run these pro|
000002a0  67 72 61 6d 73 20 73 74  6f 70 20 74 68 65 20 74  |grams stop the t|
000002b0  61 70 65 22 27 0d 00 e6  2d f1 22 20 20 28 69 66  |ape"'...-."  (if|
000002c0  20 20 79 6f 75 20 20 68  61 76 65 6e 27 74 20 64  |  you  haven't d|
000002d0  6f 6e 65 20 73 6f 20 61  6c 72 65 61 64 79 29 2c  |one so already),|
000002e0  22 27 0d 00 f0 29 f1 22  20 20 74 75 72 6e 20 20  |"'...)."  turn  |
000002f0  74 68 65 20 20 74 61 70  65 20 20 6f 76 65 72 20  |the  tape  over |
00000300  20 28 77 69 74 68 6f 75  74 22 27 0d 00 fa 24 f1  | (without"'...$.|
00000310  22 20 20 72 65 77 69 6e  64 69 6e 67 29 20 61 6e  |"  rewinding) an|
00000320  64 20 70 72 65 73 73 20  50 4c 41 59 2e 22 27 0d  |d press PLAY."'.|
00000330  01 04 32 f1 8a 30 2c 32  39 29 22 20 20 50 72 65  |..2..0,29)"  Pre|
00000340  73 73 20 53 50 41 43 45  20 77 68 65 6e 20 79 6f  |ss SPACE when yo|
00000350  75 20 68 61 76 65 20 64  6f 6e 65 20 74 68 69 73  |u have done this|
00000360  22 0d 01 0e 05 20 0d 01  18 12 f5 fd ac a6 2d 39  |".... ........-9|
00000370  39 3a f5 fd a6 2d 39 39  0d 01 22 05 20 0d 01 2c  |9:...-99..". ..,|
00000380  06 eb 34 0d 01 36 07 d7  22 22 0d 01 40 05 20 0d  |..4..6..""..@. .|
00000390  01 4a 08 dd f2 59 4e 0d  01 54 09 59 25 3d 2d 31  |.J...YN..T.Y%=-1|
000003a0  0d 01 5e 08 58 25 3d a5  0d 01 68 21 58 25 3d 58  |..^.X%=...h!X%=X|
000003b0  25 80 26 44 46 3a e7 58  25 3c 3e 37 38 80 58 25  |%.&DF:.X%<>78.X%|
000003c0  3c 3e 38 39 8c 8d 44 5e  41 0d 01 72 14 59 25 3d  |<>89..D^A..r.Y%=|
000003d0  31 3a e7 58 25 3d 37 38  8c 59 25 3d 30 0d 01 7c  |1:.X%=78.Y%=0..||
000003e0  0b ef 58 25 2c 38 3a e1  0d 01 86 05 20 0d 01 90  |..X%,8:..... ...|
000003f0  0b dd f2 53 50 41 43 45  0d 01 9a 29 f1 8a 36 2c  |...SPACE...)..6,|
00000400  32 39 29 22 50 72 65 73  73 20 53 50 41 43 45 20  |29)"Press SPACE |
00000410  42 41 52 20 74 6f 20 63  6f 6e 74 69 6e 75 65 22  |BAR to continue"|
00000420  3b 0d 01 a4 0b 2a 46 58  31 35 2c 31 0d 01 ae 0a  |;....*FX15,1....|
00000430  f5 fd a5 3d 33 32 0d 01  b8 05 e1 0d 01 c2 05 20  |...=32......... |
00000440  0d 01 cc 24 dd f2 43 45  4e 28 41 24 2c 59 25 29  |...$..CEN(A$,Y%)|
00000450  20 f1 8a 31 39 2d a9 41  24 2f 32 2c 59 25 29 41  | ..19-.A$/2,Y%)A|
00000460  24 3b 3a e1 0d 01 d6 05  20 0d 01 e0 1a dd f2 4f  |$;:..... ......O|
00000470  46 46 20 ef 32 33 2c 31  2c 30 3b 30 3b 30 3b 30  |FF .23,1,0;0;0;0|
00000480  3b 3a e1 0d 01 ea 05 20  0d 01 f4 19 dd f2 4f 4e  |;:..... ......ON|
00000490  20 ef 32 33 2c 31 2c 31  3b 30 3b 30 3b 30 3b 3a  | .23,1,1;0;0;0;:|
000004a0  e1 0d 01 fe 05 20 0d 02  08 33 dd f2 49 4e 49 54  |..... ...3..INIT|
000004b0  44 42 4c 20 24 4d 41 50  3d c4 32 35 35 2c bd 30  |DBL $MAP=.255,.0|
000004c0  29 3a 4d 41 50 3f 32 35  35 3d 30 3a 43 48 41 52  |):MAP?255=0:CHAR|
000004d0  50 54 52 3d 32 32 34 3a  e1 0d 02 12 05 20 0d 02  |PTR=224:..... ..|
000004e0  1c 62 dd f2 44 42 4c 28  41 24 2c 79 25 29 42 24  |.b..DBL(A$,y%)B$|
000004f0  3d 22 22 3a 43 24 3d 22  22 3a e3 43 48 25 3d 31  |="":C$="":.CH%=1|
00000500  b8 a9 41 24 3a 4b 25 3d  a4 43 48 41 52 28 97 c1  |..A$:K%=.CHAR(..|
00000510  41 24 2c 43 48 25 2c 31  29 29 3a 42 24 3d 42 24  |A$,CH%,1)):B$=B$|
00000520  2b bd 4b 25 3a 43 24 3d  43 24 2b bd 28 4b 25 2b  |+.K%:C$=C$+.(K%+|
00000530  31 29 3a ed 3a 4b 25 3d  31 39 2d a9 41 24 2f 32  |1):.:K%=19-.A$/2|
00000540  0d 02 26 33 44 42 4c 24  3d bd 33 31 2b bd 4b 25  |..&3DBL$=.31+.K%|
00000550  2b bd 79 25 2b 42 24 2b  bd 33 31 2b bd 4b 25 2b  |+.y%+B$+.31+.K%+|
00000560  bd 28 79 25 2b 31 29 2b  43 24 3a f1 44 42 4c 24  |.(y%+1)+C$:.DBL$|
00000570  3b 3a e1 0d 02 30 05 20  0d 02 3a 6c dd a4 43 48  |;:...0. ..:l..CH|
00000580  41 52 28 43 25 29 e7 4d  41 50 3f 43 25 8c 3d 4d  |AR(C%).MAP?C%.=M|
00000590  41 50 3f 43 25 8b e7 43  48 41 52 50 54 52 3e 3d  |AP?C%..CHARPTR>=|
000005a0  32 35 36 fa 20 8b 4d 41  50 3f 43 25 3d 43 48 41  |256. .MAP?C%=CHA|
000005b0  52 50 54 52 3a 3f 42 4c  4f 43 4b 3d 43 25 3a 41  |RPTR:?BLOCK=C%:A|
000005c0  25 3d 31 30 3a 58 25 3d  42 4c 4f 43 4b 3a 59 25  |%=10:X%=BLOCK:Y%|
000005d0  3d 42 4c 4f 43 4b 20 81  20 32 35 36 3a d6 6f 73  |=BLOCK . 256:.os|
000005e0  77 6f 72 64 0d 02 44 52  e3 4a 25 3d 30 b8 31 3a  |word..DR.J%=0.1:|
000005f0  ef 32 33 2c 43 48 41 52  50 54 52 2b 4a 25 3a e3  |.23,CHARPTR+J%:.|
00000600  49 25 3d 32 b8 39 3a ef  42 4c 4f 43 4b 3f 28 4a  |I%=2.9:.BLOCK?(J|
00000610  25 2a 34 2b 49 25 81 32  29 3a ed 2c 3a 43 48 41  |%*4+I%.2):.,:CHA|
00000620  52 50 54 52 3d 43 48 41  52 50 54 52 2b 32 3a 3d  |RPTR=CHARPTR+2:=|
00000630  4d 41 50 3f 43 25 0d ff                           |MAP?C%..|
00000638