� PLANETS
$� Electron Introductory Cassette
� Author T.D.
( 
2�
<himem=&2F00
F�=himem
P&�I%=0�&FF�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@
xhimem=&2F00
�� MAP 255,BLOCK 8
�osword=&FFF1
��INITDBL
�&�4:�=himem:�OFF:�DBL("Planets",12)
�N%=�500
���TDA
��2:�=himem:�OFF
�"�19,1,6;0;19,2,4;0;19,15,10;0;
��1:�5,12)"Play tape";
�
�himem
���0
� 
�� Error Handler

*FX13,4

�#0

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

"�4

,�'"Play tape"'

6
�"BYE"

@ 

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

T 

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

h 

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

| 

����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%
�P?C%
�
(2<FPZdnx������Q� �/�!�� �@�I�/ ��P/��p�0�q�P/ ��� ���p�p��q0������P/L�PLASKR
H�H�Hΰ/�M���/��/I��/�β/��/���/

i��r�/i�s��/��/�r��/��/��/��Р/ ��/��/�)
��h�h�h(`


	
	   ADC #0
         STA palvec +1
*     

00000000  0d 00 0a 0d f4 20 50 4c  41 4e 45 54 53 0d 00 14  |..... PLANETS...|
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 05 20 0d  00 32 07 ee 85 f9 0d 00  |D...(. ..2......|
00000050  3c 0f 68 69 6d 65 6d 3d  26 32 46 30 30 0d 00 46  |<.himem=&2F00..F|
00000060  0b d3 3d 68 69 6d 65 6d  0d 00 50 26 e3 49 25 3d  |..=himem..P&.I%=|
00000070  30 b8 26 46 46 88 34 3a  49 25 21 68 69 6d 65 6d  |0.&FF.4:I%!himem|
00000080  3d 49 25 21 28 90 2b 26  35 30 30 29 3a ed 0d 00  |=I%!(.+&500):...|
00000090  5a 99 e7 4d 25 3d 31 32  33 34 8c 8d 44 64 40 8b  |Z..M%=1234..Dd@.|
000000a0  e7 4d 25 3d 35 36 37 38  8c 8d 44 6e 40 8b eb 35  |.M%=5678..Dn@..5|
000000b0  3a ef 31 39 2c 33 2c 34  3b 30 3b 3a fb 32 3a f1  |:.19,3,4;0;:.2:.|
000000c0  8a 30 2c 35 29 22 44 6f  65 73 20 79 6f 75 72 20  |.0,5)"Does your |
000000d0  63 61 73 73 65 74 74 65  22 27 27 22 72 65 63 6f  |cassette"''"reco|
000000e0  72 64 65 72 20 68 61 76  65 20 6d 6f 74 6f 72 22  |rder have motor"|
000000f0  27 27 22 63 6f 6e 74 72  6f 6c 20 28 59 2f 4e 29  |''"control (Y/N)|
00000100  3f 22 3b 3a e7 28 a5 80  26 44 46 29 3d 97 22 59  |?";:.(..&DF)=."Y|
00000110  22 8c 4d 25 3d 35 36 37  38 3a e5 8d 44 6e 40 8b  |".M%=5678:..Dn@.|
00000120  4d 25 3d 31 32 33 34 0d  00 64 82 d4 31 2c 2d 31  |M%=1234..d..1,-1|
00000130  35 2c 31 32 31 2c 36 30  3a eb 35 3a ef 31 39 2c  |5,121,60:.5:.19,|
00000140  33 2c 34 3b 30 3b 3a fb  31 3a f1 8a 38 2c 39 29  |3,4;0;:.1:..8,9)|
00000150  22 53 54 4f 50 22 3b 3a  fb 33 3a f1 8a 36 2c 31  |"STOP";:.3:..6,1|
00000160  33 29 22 74 68 65 20 74  61 70 65 22 3a fb 32 3a  |3)"the tape":.2:|
00000170  f1 8a 34 2c 32 35 29 22  50 72 65 73 73 20 53 50  |..4,25)"Press SP|
00000180  41 43 45 22 8a 34 2c 32  37 29 22 74 6f 20 63 6f  |ACE".4,27)"to co|
00000190  6e 74 69 6e 75 65 22 3a  f5 fd a5 3d 33 32 3a d4  |ntinue":...=32:.|
000001a0  26 31 31 2c 30 2c 30 2c  30 0d 00 6e 0d ee 85 d8  |&11,0,0,0..n....|
000001b0  3a e5 8d 44 78 40 0d 00  78 0f 68 69 6d 65 6d 3d  |:..Dx@..x.himem=|
000001c0  26 32 46 30 30 0d 00 82  15 de 20 4d 41 50 20 32  |&2F00..... MAP 2|
000001d0  35 35 2c 42 4c 4f 43 4b  20 38 0d 00 8c 10 6f 73  |55,BLOCK 8....os|
000001e0  77 6f 72 64 3d 26 46 46  46 31 0d 00 96 0c f2 49  |word=&FFF1.....I|
000001f0  4e 49 54 44 42 4c 0d 00  a0 26 eb 34 3a d3 3d 68  |NITDBL...&.4:.=h|
00000200  69 6d 65 6d 3a f2 4f 46  46 3a f2 44 42 4c 28 22  |imem:.OFF:.DBL("|
00000210  50 6c 61 6e 65 74 73 22  2c 31 32 29 0d 00 aa 0b  |Planets",12)....|
00000220  4e 25 3d a6 35 30 30 0d  00 b4 0b ee 85 e5 8d 54  |N%=.500........T|
00000230  44 41 0d 00 be 13 eb 32  3a d3 3d 68 69 6d 65 6d  |DA.....2:.=himem|
00000240  3a f2 4f 46 46 0d 00 c8  22 ef 31 39 2c 31 2c 36  |:.OFF...".19,1,6|
00000250  3b 30 3b 31 39 2c 32 2c  34 3b 30 3b 31 39 2c 31  |;0;19,2,4;0;19,1|
00000260  35 2c 31 30 3b 30 3b 0d  00 d2 1a fb 31 3a f1 8a  |5,10;0;.....1:..|
00000270  35 2c 31 32 29 22 50 6c  61 79 20 74 61 70 65 22  |5,12)"Play tape"|
00000280  3b 0d 00 dc 0a d6 68 69  6d 65 6d 0d 00 e6 07 f5  |;.....himem.....|
00000290  fd 30 0d 00 f0 05 20 0d  00 fa 13 f4 20 45 72 72  |.0.... ..... Err|
000002a0  6f 72 20 48 61 6e 64 6c  65 72 0d 01 04 0b 2a 46  |or Handler....*F|
000002b0  58 31 33 2c 34 0d 01 0e  07 d9 23 30 0d 01 18 1e  |X13,4.....#0....|
000002c0  e7 20 9f 3c 3e 31 37 20  f6 3a f1 22 20 61 74 20  |. .<>17 .:." at |
000002d0  6c 69 6e 65 20 22 3b 9e  3a e0 0d 01 22 06 eb 34  |line ";.:..."..4|
000002e0  0d 01 2c 12 f1 27 22 50  6c 61 79 20 74 61 70 65  |..,..'"Play tape|
000002f0  22 27 0d 01 36 0a d7 22  42 59 45 22 0d 01 40 05  |"'..6.."BYE"..@.|
00000300  20 0d 01 4a 1a dd f2 4f  46 46 20 ef 32 33 2c 31  | ..J...OFF .23,1|
00000310  2c 30 3b 30 3b 30 3b 30  3b 3a e1 0d 01 54 05 20  |,0;0;0;0;:...T. |
00000320  0d 01 5e 24 dd f2 43 45  4e 28 41 24 2c 59 25 29  |..^$..CEN(A$,Y%)|
00000330  20 f1 8a 31 39 2d a9 41  24 2f 32 2c 59 25 29 41  | ..19-.A$/2,Y%)A|
00000340  24 3b 3a e1 0d 01 68 05  20 0d 01 72 33 dd f2 49  |$;:...h. ..r3..I|
00000350  4e 49 54 44 42 4c 20 24  4d 41 50 3d c4 32 35 35  |NITDBL $MAP=.255|
00000360  2c bd 30 29 3a 4d 41 50  3f 32 35 35 3d 30 3a 43  |,.0):MAP?255=0:C|
00000370  48 41 52 50 54 52 3d 32  32 34 3a e1 0d 01 7c 05  |HARPTR=224:...|.|
00000380  20 0d 01 86 92 dd f2 44  42 4c 28 41 24 2c 79 25  | ......DBL(A$,y%|
00000390  29 42 24 3d 22 22 3a 43  24 3d 22 22 3a e3 43 48  |)B$="":C$="":.CH|
000003a0  25 3d 31 b8 a9 41 24 3a  4b 25 3d a4 43 48 41 52  |%=1..A$:K%=.CHAR|
000003b0  28 97 c1 41 24 2c 43 48  25 2c 31 29 29 3a 42 24  |(..A$,CH%,1)):B$|
000003c0  3d 42 24 2b bd 4b 25 3a  43 24 3d 43 24 2b bd 28  |=B$+.K%:C$=C$+.(|
000003d0  4b 25 2b 31 29 3a ed 3a  4b 25 3d 31 39 2d a9 41  |K%+1):.:K%=19-.A|
000003e0  24 2f 32 3a 44 42 4c 24  3d bd 33 31 2b bd 4b 25  |$/2:DBL$=.31+.K%|
000003f0  2b bd 79 25 2b 42 24 2b  bd 33 31 2b bd 4b 25 2b  |+.y%+B$+.31+.K%+|
00000400  bd 28 79 25 2b 31 29 2b  43 24 3a f1 44 42 4c 24  |.(y%+1)+C$:.DBL$|
00000410  3b 3a e1 0d 01 90 05 20  0d 01 9a 6c dd a4 43 48  |;:..... ...l..CH|
00000420  41 52 28 43 25 29 e7 4d  41 50 3f 43 25 8c 3d 4d  |AR(C%).MAP?C%.=M|
00000430  41 50 3f 43 25 8b e7 43  48 41 52 50 54 52 3e 3d  |AP?C%..CHARPTR>=|
00000440  32 35 36 fa 20 8b 4d 41  50 3f 43 25 3d 43 48 41  |256. .MAP?C%=CHA|
00000450  52 50 54 52 3a 3f 42 4c  4f 43 4b 3d 43 25 3a 41  |RPTR:?BLOCK=C%:A|
00000460  25 3d 31 30 3a 58 25 3d  42 4c 4f 43 4b 3a 59 25  |%=10:X%=BLOCK:Y%|
00000470  3d 42 4c 4f 43 4b 20 81  20 32 35 36 3a d6 6f 73  |=BLOCK . 256:.os|
00000480  77 6f 72 64 0d 01 a4 52  e3 4a 25 3d 30 b8 31 3a  |word...R.J%=0.1:|
00000490  ef 32 33 2c 43 48 41 52  50 54 52 2b 4a 25 3a e3  |.23,CHARPTR+J%:.|
000004a0  49 25 3d 32 b8 39 3a ef  42 4c 4f 43 4b 3f 28 4a  |I%=2.9:.BLOCK?(J|
000004b0  25 2a 34 2b 49 25 81 32  29 3a ed 2c 3a 43 48 41  |%*4+I%.2):.,:CHA|
000004c0  52 50 54 52 3d 43 48 41  52 50 54 52 2b 32 3a 3d  |RPTR=CHARPTR+2:=|
000004d0  4d 41 50 3f 43 25 0d ff  50 3f 43 25 0d ff 00 0a  |MAP?C%..P?C%....|
000004e0  00 14 00 1e 00 28 00 32  00 3c 00 46 00 50 00 5a  |.....(.2.<.F.P.Z|
000004f0  00 64 00 6e 00 78 00 82  00 8c 00 96 00 a0 00 aa  |.d.n.x..........|
00000500  a9 51 8d 20 02 a9 2f 8d  21 02 a9 0e a2 04 20 f4  |.Q. ../.!..... .|
00000510  ff a9 40 a2 49 a0 2f 20  ce ff 8d 50 2f a9 00 85  |..@.I./ ...P/...|
00000520  70 a9 30 85 71 ac 50 2f  20 d7 ff aa e8 20 d7 ff  |p.0.q.P/ .... ..|
00000530  a0 00 91 70 e6 70 d0 04  e6 71 30 05 ca d0 f3 f0  |...p.p...q0.....|
00000540  e4 a9 00 ac 50 2f 4c ce  ff 50 4c 41 53 4b 52 0d  |....P/L..PLASKR.|
00000550  00 08 48 8a 48 98 48 ce  b0 2f d0 4d a9 02 8d b0  |..H.H.H../.M....|
00000560  2f ad b3 2f 49 02 8d b3  2f d0 03 ce b2 2f ad b2  |/../I.../..../..|
00000570  2f 10 05 a9 05 8d b2 2f  0a 0a 69 b4 85 72 a9 2f  |/....../..i..r./|
00000580  69 00 85 73 ac b3 2f 8c  b1 2f b1 72 8d d0 2f b9  |i..s../../.r../.|
00000590  cc 2f 8d d1 2f a9 0c a2  d0 a0 2f 20 f1 ff ee b1  |./../...../ ....|
000005a0  2f ac b1 2f 98 29 01 d0  e1 68 a8 68 aa 68 28 60  |/../.)...h.h.h(`|
000005b0  02 00 00 00 07 08 0d 0e  06 07 0c 0d 05 06 0b 0c  |................|
000005c0  04 05 0a 0b 03 04 09 0a  08 03 0e 09 04 06 00 03  |................|
000005d0  00 00 00 00 00 20 20 20  41 44 43 20 23 30 0d 03  |.....   ADC #0..|
000005e0  20 19 20 20 20 20 20 20  20 20 53 54 41 20 70 61  | .        STA pa|
000005f0  6c 76 65 63 20 2b 31 0d  03 2a 12 20 20 20 20 20  |lvec +1..*.     |
00000600