� ISLAND
$� Electron Introductory Cassette
� Authors J.C. and T.D.
( 
2	� � �
<himem=&2E00
F�=himem
P'�I%=0�&1FF�4:I%!himem=I%!(�+&500):�
Z��M%=1234��Dd@��M%=5678��Dn@��5:�19,3,4;0;:�2:�0,5)"Does your cassette"''"recorder have motor"''"control (Y/N)?";:�(��&DF)=�"Y"�M%=5678:�Dn@�M%=1234
d��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
n
��:�Dx@
x� MAP 255,BLOCK 8
�himem=&2E00
�osword=&FFF1
��INITDBL
�%�4:�=himem:�OFF:�DBL("Island",12)
�N%=�500
���dz@
��2:�=himem:�OFF
��6:�5,12)"Play tape";
�
�himem
���0
� 
�� Error Handler
�*FX13,4

�#0

� �<>17 �:�" at line ";�:�

�4

"�'"Play tape"'

,�"PLANETS"

6 

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

J 

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

^ 

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

r 

|���DBL(A$,y%)B$="":C$="":�CH%=1��A$:K%=�CHAR(��A$,CH%,1)):B$=B$+�K%:C$=C$+�(K%+1):�:K%=19-�A$/2:DBL$=�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%
�4:=MAP?C%
�
(2<FPZdnx������������l� �.�!�� �@�c�. ��k.��p�0�q�k. ��� ���p�p��q���q�K��pɀ�ܬk. ���p�p���q��k.L�ISLESKR
H�H�H�Z/�]��Z/�_/_/��
L//��`/�d�a/�`/�e/��f/��e�/ ��`/�`/)	�`/�a/��_/��`/�e/��f/��e�/ �h�h�h(`�d�b/ ?/8���i�d/��c/�`/�`/)	�`/�e/��f/��e�/ �`/md/)	�e/��f/��e�/ �L�.�c/о�b/Ч�_/L�.��[/)Hi8

.]/.\/.[/���[/`
��p������e02
fBL$ ���������
����������       LDA (palvec),Y
�        STA wordblock
�        LDA physcols,Y
�        STA wordblock +1
�

00000000  0d 00 0a 0c f4 20 49 53  4c 41 4e 44 0d 00 14 24  |..... ISLAND...$|
00000010  f4 20 45 6c 65 63 74 72  6f 6e 20 49 6e 74 72 6f  |. Electron Intro|
00000020  64 75 63 74 6f 72 79 20  43 61 73 73 65 74 74 65  |ductory Cassette|
00000030  0d 00 1e 1b f4 20 41 75  74 68 6f 72 73 20 4a 2e  |..... Authors J.|
00000040  43 2e 20 61 6e 64 20 54  2e 44 2e 0d 00 28 05 20  |C. and T.D...(. |
00000050  0d 00 32 09 ee 20 85 20  f9 0d 00 3c 0f 68 69 6d  |..2.. . ...<.him|
00000060  65 6d 3d 26 32 45 30 30  0d 00 46 0b d3 3d 68 69  |em=&2E00..F..=hi|
00000070  6d 65 6d 0d 00 50 27 e3  49 25 3d 30 b8 26 31 46  |mem..P'.I%=0.&1F|
00000080  46 88 34 3a 49 25 21 68  69 6d 65 6d 3d 49 25 21  |F.4:I%!himem=I%!|
00000090  28 90 2b 26 35 30 30 29  3a ed 0d 00 5a 99 e7 4d  |(.+&500):...Z..M|
000000a0  25 3d 31 32 33 34 8c 8d  44 64 40 8b e7 4d 25 3d  |%=1234..Dd@..M%=|
000000b0  35 36 37 38 8c 8d 44 6e  40 8b eb 35 3a ef 31 39  |5678..Dn@..5:.19|
000000c0  2c 33 2c 34 3b 30 3b 3a  fb 32 3a f1 8a 30 2c 35  |,3,4;0;:.2:..0,5|
000000d0  29 22 44 6f 65 73 20 79  6f 75 72 20 63 61 73 73  |)"Does your cass|
000000e0  65 74 74 65 22 27 27 22  72 65 63 6f 72 64 65 72  |ette"''"recorder|
000000f0  20 68 61 76 65 20 6d 6f  74 6f 72 22 27 27 22 63  | have motor"''"c|
00000100  6f 6e 74 72 6f 6c 20 28  59 2f 4e 29 3f 22 3b 3a  |ontrol (Y/N)?";:|
00000110  e7 28 a5 80 26 44 46 29  3d 97 22 59 22 8c 4d 25  |.(..&DF)=."Y".M%|
00000120  3d 35 36 37 38 3a e5 8d  44 6e 40 8b 4d 25 3d 31  |=5678:..Dn@.M%=1|
00000130  32 33 34 0d 00 64 82 d4  31 2c 2d 31 35 2c 31 32  |234..d..1,-15,12|
00000140  31 2c 36 30 3a eb 35 3a  ef 31 39 2c 33 2c 34 3b  |1,60:.5:.19,3,4;|
00000150  30 3b 3a fb 31 3a f1 8a  38 2c 39 29 22 53 54 4f  |0;:.1:..8,9)"STO|
00000160  50 22 3b 3a fb 33 3a f1  8a 36 2c 31 33 29 22 74  |P";:.3:..6,13)"t|
00000170  68 65 20 74 61 70 65 22  3a fb 32 3a f1 8a 34 2c  |he tape":.2:..4,|
00000180  32 35 29 22 50 72 65 73  73 20 53 50 41 43 45 22  |25)"Press SPACE"|
00000190  8a 34 2c 32 37 29 22 74  6f 20 63 6f 6e 74 69 6e  |.4,27)"to contin|
000001a0  75 65 22 3a f5 fd a5 3d  33 32 3a d4 26 31 31 2c  |ue":...=32:.&11,|
000001b0  30 2c 30 2c 30 0d 00 6e  0d ee 85 d8 3a e5 8d 44  |0,0,0..n....:..D|
000001c0  78 40 0d 00 78 15 de 20  4d 41 50 20 32 35 35 2c  |x@..x.. MAP 255,|
000001d0  42 4c 4f 43 4b 20 38 0d  00 82 0f 68 69 6d 65 6d  |BLOCK 8....himem|
000001e0  3d 26 32 45 30 30 0d 00  8c 10 6f 73 77 6f 72 64  |=&2E00....osword|
000001f0  3d 26 46 46 46 31 0d 00  96 0c f2 49 4e 49 54 44  |=&FFF1.....INITD|
00000200  42 4c 0d 00 a0 25 eb 34  3a d3 3d 68 69 6d 65 6d  |BL...%.4:.=himem|
00000210  3a f2 4f 46 46 3a f2 44  42 4c 28 22 49 73 6c 61  |:.OFF:.DBL("Isla|
00000220  6e 64 22 2c 31 32 29 0d  00 aa 0b 4e 25 3d a6 35  |nd",12)....N%=.5|
00000230  30 30 0d 00 b4 0b ee 85  e5 8d 64 7a 40 0d 00 be  |00........dz@...|
00000240  13 eb 32 3a d3 3d 68 69  6d 65 6d 3a f2 4f 46 46  |..2:.=himem:.OFF|
00000250  0d 00 c8 1a fb 36 3a f1  8a 35 2c 31 32 29 22 50  |.....6:..5,12)"P|
00000260  6c 61 79 20 74 61 70 65  22 3b 0d 00 d2 0a d6 68  |lay tape";.....h|
00000270  69 6d 65 6d 0d 00 dc 07  f5 fd 30 0d 00 e6 05 20  |imem......0.... |
00000280  0d 00 f0 13 f4 20 45 72  72 6f 72 20 48 61 6e 64  |..... Error Hand|
00000290  6c 65 72 0d 00 fa 0b 2a  46 58 31 33 2c 34 0d 01  |ler....*FX13,4..|
000002a0  04 07 d9 23 30 0d 01 0e  1e e7 20 9f 3c 3e 31 37  |...#0..... .<>17|
000002b0  20 f6 3a f1 22 20 61 74  20 6c 69 6e 65 20 22 3b  | .:." at line ";|
000002c0  9e 3a e0 0d 01 18 06 eb  34 0d 01 22 12 f1 27 22  |.:......4.."..'"|
000002d0  50 6c 61 79 20 74 61 70  65 22 27 0d 01 2c 0e d7  |Play tape"'..,..|
000002e0  22 50 4c 41 4e 45 54 53  22 0d 01 36 05 20 0d 01  |"PLANETS"..6. ..|
000002f0  40 1a dd f2 4f 46 46 20  ef 32 33 2c 31 2c 30 3b  |@...OFF .23,1,0;|
00000300  30 3b 30 3b 30 3b 3a e1  0d 01 4a 05 20 0d 01 54  |0;0;0;:...J. ..T|
00000310  24 dd f2 43 45 4e 28 41  24 2c 59 25 29 20 f1 8a  |$..CEN(A$,Y%) ..|
00000320  31 39 2d a9 41 24 2f 32  2c 59 25 29 41 24 3b 3a  |19-.A$/2,Y%)A$;:|
00000330  e1 0d 01 5e 05 20 0d 01  68 33 dd f2 49 4e 49 54  |...^. ..h3..INIT|
00000340  44 42 4c 20 24 4d 41 50  3d c4 32 35 35 2c bd 30  |DBL $MAP=.255,.0|
00000350  29 3a 4d 41 50 3f 32 35  35 3d 30 3a 43 48 41 52  |):MAP?255=0:CHAR|
00000360  50 54 52 3d 32 32 34 3a  e1 0d 01 72 05 20 0d 01  |PTR=224:...r. ..|
00000370  7c 92 dd f2 44 42 4c 28  41 24 2c 79 25 29 42 24  ||...DBL(A$,y%)B$|
00000380  3d 22 22 3a 43 24 3d 22  22 3a e3 43 48 25 3d 31  |="":C$="":.CH%=1|
00000390  b8 a9 41 24 3a 4b 25 3d  a4 43 48 41 52 28 97 c1  |..A$:K%=.CHAR(..|
000003a0  41 24 2c 43 48 25 2c 31  29 29 3a 42 24 3d 42 24  |A$,CH%,1)):B$=B$|
000003b0  2b bd 4b 25 3a 43 24 3d  43 24 2b bd 28 4b 25 2b  |+.K%:C$=C$+.(K%+|
000003c0  31 29 3a ed 3a 4b 25 3d  31 39 2d a9 41 24 2f 32  |1):.:K%=19-.A$/2|
000003d0  3a 44 42 4c 24 3d bd 33  31 2b bd 4b 25 2b bd 79  |:DBL$=.31+.K%+.y|
000003e0  25 2b 42 24 2b bd 33 31  2b bd 4b 25 2b bd 28 79  |%+B$+.31+.K%+.(y|
000003f0  25 2b 31 29 2b 43 24 3a  f1 44 42 4c 24 3b 3a e1  |%+1)+C$:.DBL$;:.|
00000400  0d 01 86 05 20 0d 01 90  6c dd a4 43 48 41 52 28  |.... ...l..CHAR(|
00000410  43 25 29 e7 4d 41 50 3f  43 25 8c 3d 4d 41 50 3f  |C%).MAP?C%.=MAP?|
00000420  43 25 8b e7 43 48 41 52  50 54 52 3e 3d 32 35 36  |C%..CHARPTR>=256|
00000430  fa 20 8b 4d 41 50 3f 43  25 3d 43 48 41 52 50 54  |. .MAP?C%=CHARPT|
00000440  52 3a 3f 42 4c 4f 43 4b  3d 43 25 3a 41 25 3d 31  |R:?BLOCK=C%:A%=1|
00000450  30 3a 58 25 3d 42 4c 4f  43 4b 3a 59 25 3d 42 4c  |0:X%=BLOCK:Y%=BL|
00000460  4f 43 4b 20 81 20 32 35  36 3a d6 6f 73 77 6f 72  |OCK . 256:.oswor|
00000470  64 0d 01 9a 52 e3 4a 25  3d 30 b8 31 3a ef 32 33  |d...R.J%=0.1:.23|
00000480  2c 43 48 41 52 50 54 52  2b 4a 25 3a e3 49 25 3d  |,CHARPTR+J%:.I%=|
00000490  32 b8 39 3a ef 42 4c 4f  43 4b 3f 28 4a 25 2a 34  |2.9:.BLOCK?(J%*4|
000004a0  2b 49 25 81 32 29 3a ed  2c 3a 43 48 41 52 50 54  |+I%.2):.,:CHARPT|
000004b0  52 3d 43 48 41 52 50 54  52 2b 32 3a 3d 4d 41 50  |R=CHARPTR+2:=MAP|
000004c0  3f 43 25 0d ff 34 3a 3d  4d 41 50 3f 43 25 0d ff  |?C%..4:=MAP?C%..|
000004d0  00 0a 00 14 00 1e 00 28  00 32 00 3c 00 46 00 50  |.......(.2.<.F.P|
000004e0  00 5a 00 64 00 6e 00 78  00 82 00 8c 00 96 00 a0  |.Z.d.n.x........|
000004f0  00 aa 00 b4 00 be 00 c8  00 d2 00 dc 00 e6 00 f0  |................|
00000500  a9 6c 8d 20 02 a9 2e 8d  21 02 a9 0e a2 04 20 f4  |.l. ....!..... .|
00000510  ff a9 40 a2 63 a0 2e 20  ce ff 8d 6b 2e a9 00 85  |..@.c.. ...k....|
00000520  70 a9 30 85 71 ac 6b 2e  20 d7 ff aa e8 20 d7 ff  |p.0.q.k. .... ..|
00000530  a0 00 91 70 e6 70 d0 02  e6 71 ca d0 f5 a5 71 c9  |...p.p...q....q.|
00000540  4b d0 e2 a5 70 c9 80 d0  dc ac 6b 2e 20 d7 ff a0  |K...p.....k. ...|
00000550  00 91 70 e6 70 d0 f2 e6  71 10 ee a9 00 ac 6b 2e  |..p.p...q.....k.|
00000560  4c ce ff 49 53 4c 45 53  4b 52 0d 00 08 48 8a 48  |L..ISLESKR...H.H|
00000570  98 48 ce 5a 2f d0 5d a9  06 8d 5a 2f ad 5f 2f 10  |.H.Z/.]...Z/._/.|
00000580  05 0e 5f 2f f0 05 f0 0d  4c 2f 2f a9 08 8d 60 2f  |.._/....L//...`/|
00000590  a9 64 8d 61 2f ad 60 2f  8d 65 2f a9 04 8d 66 2f  |.d.a/.`/.e/...f/|
000005a0  a9 0c a2 65 a0 2f 20 f1  ff ee 60 2f ad 60 2f 29  |...e./ ...`/.`/)|
000005b0  0f 09 08 8d 60 2f ce 61  2f d0 05 ee 5f 2f d0 1b  |....`/.a/..._/..|
000005c0  ad 60 2f 8d 65 2f a9 07  8d 66 2f a9 0c a2 65 a0  |.`/.e/...f/...e.|
000005d0  2f 20 f1 ff 68 a8 68 aa  68 28 60 a9 64 8d 62 2f  |/ ..h.h.h(`.d.b/|
000005e0  20 3f 2f 38 e9 05 b0 fc  69 06 8d 64 2f a9 15 8d  | ?/8....i..d/...|
000005f0  63 2f ee 60 2f ad 60 2f  29 0f 09 08 8d 60 2f 8d  |c/.`/.`/)....`/.|
00000600  65 2f a9 04 8d 66 2f a9  0c a2 65 a0 2f 20 f1 ff  |e/...f/...e./ ..|
00000610  ad 60 2f 18 6d 64 2f 29  07 09 08 8d 65 2f a9 07  |.`/.md/)....e/..|
00000620  8d 66 2f a9 0c a2 65 a0  2f 20 f1 ff 4c d4 2e ce  |.f/...e./ ..L...|
00000630  63 2f d0 be ce 62 2f d0  a7 ce 5f 2f 4c 8b 2e a2  |c/...b/..._/L...|
00000640  08 ad 5b 2f 29 48 69 38  0a 0a 2e 5d 2f 2e 5c 2f  |..[/)Hi8...]/.\/|
00000650  2e 5b 2f ca d0 eb ad 5b  2f 60 01 80 c0 70 f0 80  |.[/....[/`...p..|
00000660  00 00 00 00 00 00 00 00  00 00 eb e5 ed e3 e3 65  |...............e|
00000670  30 32 0d 03 66 15 00 42  4c 24 00 7f 1f 20 18 1f  |02..f..BL$... ..|
00000680  0e 0c e0 e2 e4 e6 e8 ea  e4 ec e2 1f 0e 0d e1 e3  |................|
00000690  e5 e7 e9 eb e5 ed e3 e3  20 20 20 20 20 20 20 4c  |........       L|
000006a0  44 41 20 28 70 61 6c 76  65 63 29 2c 59 0d 03 84  |DA (palvec),Y...|
000006b0  19 20 20 20 20 20 20 20  20 53 54 41 20 77 6f 72  |.        STA wor|
000006c0  64 62 6c 6f 63 6b 0d 03  8e 1a 20 20 20 20 20 20  |dblock....      |
000006d0  20 20 4c 44 41 20 70 68  79 73 63 6f 6c 73 2c 59  |  LDA physcols,Y|
000006e0  0d 03 98 1c 20 20 20 20  20 20 20 20 53 54 41 20  |....        STA |
000006f0  77 6f 72 64 62 6c 6f 63  6b 20 2b 31 0d 03 a2 13  |wordblock +1....|
00000700