� SWITCH PART 1
� � �error
�1:�off
(�init:� initialise
2
�title
<�inst:� instructions
F�title:�28,26,20,38,15
P� �>&1100 � �=&1100
Z�"SWITCH2"
d�
n	*****
x��off:�23;11,0;0;0;0:�
�	*****
�
��init
�z�1,1,5,-5,0,10,10,0,0,0,-127,-127,100,100:�2,2,0,0,0,0,0,0,127,-1,0,0,126,0:�3,1,4,56,-100,8,8,8,10,0,-127,127,126,126
�+�23,224,255,255,255,255,255,255,255,255
�"�23,225,1,3,7,15,31,63,127,255
�"�23,226,255,127,63,31,15,7,3,1
�+�23,227,128,192,224,240,248,252,254,255
�+�23,228,255,254,252,248,240,224,192,128
�+�23,255,255,255,255,255,255,255,255,255
�shape$=�255+�255
�
*FX220
��
�	*****


��inst

[�3:�129:�:�double("Do you require instructions ?",12):ans$=�(� � &DF):� ans$="N" � �tZA

-�128:�:�129:�2:�double("INSTRUCTIONS.",0)

"O�128:�3:�'"On an 8*6 board the left hand column hasvarious shapes.":�brd(1)

,O�'" The idea of the game is to match the    shapes along the rows.":�brd(2)

6C�''''" This is done by swapping two adjacent   shapes.":�brd(3)

@0�:�129:�2:�double("INSTRUCTIONS.",0):�128:�3

JJ�'"Move to your first position using the   cursor keys.":�brd(1):�show

T5�128:�:�129:�2:�double("INSTRUCTIONS.",0):�128:�3

^��''"You begin with ten moves but do not haveto use them all. Infact the less you usethe better, as all the  spare moves are added to the next board."

ha�'" Each new board begins with fewer moves than the previous one with any spares   added on."

r��'" Each shape which is correctly lined up scores one point. To move onto the next board a minimum score of 10 is required."

|��"If a score of 15 is reached on any boardthere is a bonus of 5 extra moves. Score20 and get 10 bonus moves."''" The boards will increase in difficulty as different shapes are added and fewer new moves are allocated."

�i�'"To end a board before all of your moves are used press 'TAB'"''"     Your aim is a high score.":�

�[�1:�131:�'�1)"Do you need the instructions again ?  ":ans$=�(� � &DF):� ans$="Y" � �TXA

�M�:�double("Do you want sound ?",12):ans$=�(� � &DF):� ans$="N" � *FX210,1

��

�	*****

���error:*FX4

�	� � �

��:�" @ ";�

��

�	*****

���brd(type%)

��r%=1�6:�c%=1�8

�� type%>0 �r%=1 �1 � �3
"� (type%>1 � r%>1) � � c%=2 �2
)� (type%=3 � r%=4 � (c%=5 � c%=7)) �1
� type%=3 � r%=4 � c%=6 �2
&)� (type%=3 � (r%=3 � r%=5) � c%=6) �1
0�8+r%*3,5+c%*2)shape$
:�:�
D�wait(5):�
N��wait(sec%)
Xwait%=�(sec%*100)
b�
l	*****
v
��show
�Hc%=7:�:�1:�20,5+c%*2)shape$:�3:�32,12)�225�227:�1,-10,1,2:�wait(1)
��0:�32,12)�225�227
�*�wait(1):�3:�20,5+c%*2)shape$:c%=c%-1
�
� c%=2
��1:�20,11)shape$
�L�3:�0,25)"Press the space bar when the first shapeis selected":�wait(5)
�h�0,28)"Correct a mistake by pressing the space bar again.":�wait(5):�2:�20,11)shape$�0,28)�79," ")
�m�3:�0,25)"This shape will be swapped with the nextshape in the direction of the selected  cursor arrow."
�;�wait(9):�3:�32,12)�227�32,13)�228:�1,-10,1,2:�wait(1)
�V�1:�23,11)shape$:�wait(1):�1,-10,1,2:�20,11)shape$:�1,-10,20,2:�2:�23,11)shape$
�J�128:�0,25)�120," "):�1:�130:�double("This constitutes one move.",27)
��wait(2):�
�	*****
��double(text$,down%)
across%=19-(�(text$)/2)
A%=&A:X%=0:Y%=&9:D=&900
 � letter%=1 � �(text$)
*(B$=�text$,letter%,1):?D=�(B$):�&FFF1
4R�23,241,D?1,D?1,D?2,D?2,D?3,D?3,D?4,D?4,23,242,D?5,D?5,D?6,D?6,D?7,D?7,D?8,D?8
>>�across%+letter%,down%)�241;�across%+letter%,down%+1)�242
H�:�
R
��quad
\
�130:�
fA%=&A:X%=0:Y%=&9:D=&900
p;� letter%=1 � 6:B$=�"SWITCH",letter%,1):?D=�(B$):�&FFF1
z��23,241,D?1,D?1,D?1,D?1,D?2,D?2,D?2,D?2,23,242,D?3,D?3,D?3,D?3,D?4,D?4,D?4,D?4,23,243,D?5,D?5,D?5,D?5,D?6,D?6,D?6,D?6,23,244,D?7,D?7,D?7,D?7,D?8,D?8,D?8,D?8
�pos%=letter%+16:�5
�8�pos%,4)�241;�pos%,5)�242;�pos%,6)�243;�pos%,7)�244
�>�pos%,25)�241;�pos%,26)�242;�pos%,27)�243;�pos%,28)�244:�
�,�0:�19,14)"by":�double("Joe Rhodes",16)
��
�	*****
���title
��quad:�sound:�wait(3)
��
�	*****
���sound
��:�
��P,D
� N=1�2
�N,2,P,D
�N,0,0,0
$�
.	� P=0
8!� 52,12,24,6,48,12,24,6,52,20
B�0,0
L�
�

00000000  0d 00 0a 13 f4 20 53 57  49 54 43 48 20 50 41 52  |..... SWITCH PAR|
00000010  54 20 31 0d 00 14 0e ee  20 85 20 f2 65 72 72 6f  |T 1..... . .erro|
00000020  72 0d 00 1e 0b eb 31 3a  f2 6f 66 66 0d 00 28 16  |r.....1:.off..(.|
00000030  f2 69 6e 69 74 3a f4 20  69 6e 69 74 69 61 6c 69  |.init:. initiali|
00000040  73 65 0d 00 32 0a f2 74  69 74 6c 65 0d 00 3c 18  |se..2..title..<.|
00000050  f2 69 6e 73 74 3a f4 20  69 6e 73 74 72 75 63 74  |.inst:. instruct|
00000060  69 6f 6e 73 0d 00 46 1a  f2 74 69 74 6c 65 3a ef  |ions..F..title:.|
00000070  32 38 2c 32 36 2c 32 30  2c 33 38 2c 31 35 0d 00  |28,26,20,38,15..|
00000080  50 17 e7 20 90 3e 26 31  31 30 30 20 8c 20 d0 3d  |P.. .>&1100 . .=|
00000090  26 31 31 30 30 0d 00 5a  0e d7 22 53 57 49 54 43  |&1100..Z.."SWITC|
000000a0  48 32 22 0d 00 64 05 e0  0d 00 6e 09 2a 2a 2a 2a  |H2"..d....n.****|
000000b0  2a 0d 00 78 1a dd f2 6f  66 66 3a ef 32 33 3b 31  |*..x...off:.23;1|
000000c0  31 2c 30 3b 30 3b 30 3b  30 3a e1 0d 00 82 09 2a  |1,0;0;0;0:.....*|
000000d0  2a 2a 2a 2a 0d 00 8c 0a  dd f2 69 6e 69 74 0d 00  |****......init..|
000000e0  96 7a e2 31 2c 31 2c 35  2c 2d 35 2c 30 2c 31 30  |.z.1,1,5,-5,0,10|
000000f0  2c 31 30 2c 30 2c 30 2c  30 2c 2d 31 32 37 2c 2d  |,10,0,0,0,-127,-|
00000100  31 32 37 2c 31 30 30 2c  31 30 30 3a e2 32 2c 32  |127,100,100:.2,2|
00000110  2c 30 2c 30 2c 30 2c 30  2c 30 2c 30 2c 31 32 37  |,0,0,0,0,0,0,127|
00000120  2c 2d 31 2c 30 2c 30 2c  31 32 36 2c 30 3a e2 33  |,-1,0,0,126,0:.3|
00000130  2c 31 2c 34 2c 35 36 2c  2d 31 30 30 2c 38 2c 38  |,1,4,56,-100,8,8|
00000140  2c 38 2c 31 30 2c 30 2c  2d 31 32 37 2c 31 32 37  |,8,10,0,-127,127|
00000150  2c 31 32 36 2c 31 32 36  0d 00 a0 2b ef 32 33 2c  |,126,126...+.23,|
00000160  32 32 34 2c 32 35 35 2c  32 35 35 2c 32 35 35 2c  |224,255,255,255,|
00000170  32 35 35 2c 32 35 35 2c  32 35 35 2c 32 35 35 2c  |255,255,255,255,|
00000180  32 35 35 0d 00 aa 22 ef  32 33 2c 32 32 35 2c 31  |255...".23,225,1|
00000190  2c 33 2c 37 2c 31 35 2c  33 31 2c 36 33 2c 31 32  |,3,7,15,31,63,12|
000001a0  37 2c 32 35 35 0d 00 b4  22 ef 32 33 2c 32 32 36  |7,255...".23,226|
000001b0  2c 32 35 35 2c 31 32 37  2c 36 33 2c 33 31 2c 31  |,255,127,63,31,1|
000001c0  35 2c 37 2c 33 2c 31 0d  00 be 2b ef 32 33 2c 32  |5,7,3,1...+.23,2|
000001d0  32 37 2c 31 32 38 2c 31  39 32 2c 32 32 34 2c 32  |27,128,192,224,2|
000001e0  34 30 2c 32 34 38 2c 32  35 32 2c 32 35 34 2c 32  |40,248,252,254,2|
000001f0  35 35 0d 00 c8 2b ef 32  33 2c 32 32 38 2c 32 35  |55...+.23,228,25|
00000200  35 2c 32 35 34 2c 32 35  32 2c 32 34 38 2c 32 34  |5,254,252,248,24|
00000210  30 2c 32 32 34 2c 31 39  32 2c 31 32 38 0d 00 d2  |0,224,192,128...|
00000220  2b ef 32 33 2c 32 35 35  2c 32 35 35 2c 32 35 35  |+.23,255,255,255|
00000230  2c 32 35 35 2c 32 35 35  2c 32 35 35 2c 32 35 35  |,255,255,255,255|
00000240  2c 32 35 35 2c 32 35 35  0d 00 dc 14 73 68 61 70  |,255,255....shap|
00000250  65 24 3d bd 32 35 35 2b  bd 32 35 35 0d 00 e6 0a  |e$=.255+.255....|
00000260  2a 46 58 32 32 30 0d 00  f0 05 e1 0d 00 fa 09 2a  |*FX220.........*|
00000270  2a 2a 2a 2a 0d 01 04 0a  dd f2 69 6e 73 74 0d 01  |****......inst..|
00000280  0e 5b fb 33 3a fb 31 32  39 3a db 3a f2 64 6f 75  |.[.3:.129:.:.dou|
00000290  62 6c 65 28 22 44 6f 20  79 6f 75 20 72 65 71 75  |ble("Do you requ|
000002a0  69 72 65 20 69 6e 73 74  72 75 63 74 69 6f 6e 73  |ire instructions|
000002b0  20 3f 22 2c 31 32 29 3a  61 6e 73 24 3d bd 28 a5  | ?",12):ans$=.(.|
000002c0  20 80 20 26 44 46 29 3a  e7 20 61 6e 73 24 3d 22  | . &DF):. ans$="|
000002d0  4e 22 20 8c 20 8d 74 5a  41 0d 01 18 2d fb 31 32  |N" . .tZA...-.12|
000002e0  38 3a db 3a fb 31 32 39  3a fb 32 3a f2 64 6f 75  |8:.:.129:.2:.dou|
000002f0  62 6c 65 28 22 49 4e 53  54 52 55 43 54 49 4f 4e  |ble("INSTRUCTION|
00000300  53 2e 22 2c 30 29 0d 01  22 4f fb 31 32 38 3a fb  |S.",0).."O.128:.|
00000310  33 3a f1 27 22 4f 6e 20  61 6e 20 38 2a 36 20 62  |3:.'"On an 8*6 b|
00000320  6f 61 72 64 20 74 68 65  20 6c 65 66 74 20 68 61  |oard the left ha|
00000330  6e 64 20 63 6f 6c 75 6d  6e 20 68 61 73 76 61 72  |nd column hasvar|
00000340  69 6f 75 73 20 73 68 61  70 65 73 2e 22 3a f2 62  |ious shapes.":.b|
00000350  72 64 28 31 29 0d 01 2c  4f f1 27 22 20 54 68 65  |rd(1)..,O.'" The|
00000360  20 69 64 65 61 20 6f 66  20 74 68 65 20 67 61 6d  | idea of the gam|
00000370  65 20 69 73 20 74 6f 20  6d 61 74 63 68 20 74 68  |e is to match th|
00000380  65 20 20 20 20 73 68 61  70 65 73 20 61 6c 6f 6e  |e    shapes alon|
00000390  67 20 74 68 65 20 72 6f  77 73 2e 22 3a f2 62 72  |g the rows.":.br|
000003a0  64 28 32 29 0d 01 36 43  f1 27 27 27 27 22 20 54  |d(2)..6C.''''" T|
000003b0  68 69 73 20 69 73 20 64  6f 6e 65 20 62 79 20 73  |his is done by s|
000003c0  77 61 70 70 69 6e 67 20  74 77 6f 20 61 64 6a 61  |wapping two adja|
000003d0  63 65 6e 74 20 20 20 73  68 61 70 65 73 2e 22 3a  |cent   shapes.":|
000003e0  f2 62 72 64 28 33 29 0d  01 40 30 db 3a fb 31 32  |.brd(3)..@0.:.12|
000003f0  39 3a fb 32 3a f2 64 6f  75 62 6c 65 28 22 49 4e  |9:.2:.double("IN|
00000400  53 54 52 55 43 54 49 4f  4e 53 2e 22 2c 30 29 3a  |STRUCTIONS.",0):|
00000410  fb 31 32 38 3a fb 33 0d  01 4a 4a f1 27 22 4d 6f  |.128:.3..JJ.'"Mo|
00000420  76 65 20 74 6f 20 79 6f  75 72 20 66 69 72 73 74  |ve to your first|
00000430  20 70 6f 73 69 74 69 6f  6e 20 75 73 69 6e 67 20  | position using |
00000440  74 68 65 20 20 20 63 75  72 73 6f 72 20 6b 65 79  |the   cursor key|
00000450  73 2e 22 3a f2 62 72 64  28 31 29 3a f2 73 68 6f  |s.":.brd(1):.sho|
00000460  77 0d 01 54 35 fb 31 32  38 3a db 3a fb 31 32 39  |w..T5.128:.:.129|
00000470  3a fb 32 3a f2 64 6f 75  62 6c 65 28 22 49 4e 53  |:.2:.double("INS|
00000480  54 52 55 43 54 49 4f 4e  53 2e 22 2c 30 29 3a fb  |TRUCTIONS.",0):.|
00000490  31 32 38 3a fb 33 0d 01  5e 99 f1 27 27 22 59 6f  |128:.3..^..''"Yo|
000004a0  75 20 62 65 67 69 6e 20  77 69 74 68 20 74 65 6e  |u begin with ten|
000004b0  20 6d 6f 76 65 73 20 62  75 74 20 64 6f 20 6e 6f  | moves but do no|
000004c0  74 20 68 61 76 65 74 6f  20 75 73 65 20 74 68 65  |t haveto use the|
000004d0  6d 20 61 6c 6c 2e 20 49  6e 66 61 63 74 20 74 68  |m all. Infact th|
000004e0  65 20 6c 65 73 73 20 79  6f 75 20 75 73 65 74 68  |e less you useth|
000004f0  65 20 62 65 74 74 65 72  2c 20 61 73 20 61 6c 6c  |e better, as all|
00000500  20 74 68 65 20 20 73 70  61 72 65 20 6d 6f 76 65  | the  spare move|
00000510  73 20 61 72 65 20 61 64  64 65 64 20 74 6f 20 74  |s are added to t|
00000520  68 65 20 6e 65 78 74 20  62 6f 61 72 64 2e 22 0d  |he next board.".|
00000530  01 68 61 f1 27 22 20 45  61 63 68 20 6e 65 77 20  |.ha.'" Each new |
00000540  62 6f 61 72 64 20 62 65  67 69 6e 73 20 77 69 74  |board begins wit|
00000550  68 20 66 65 77 65 72 20  6d 6f 76 65 73 20 74 68  |h fewer moves th|
00000560  61 6e 20 74 68 65 20 70  72 65 76 69 6f 75 73 20  |an the previous |
00000570  6f 6e 65 20 77 69 74 68  20 61 6e 79 20 73 70 61  |one with any spa|
00000580  72 65 73 20 20 20 61 64  64 65 64 20 6f 6e 2e 22  |res   added on."|
00000590  0d 01 72 80 f1 27 22 20  45 61 63 68 20 73 68 61  |..r..'" Each sha|
000005a0  70 65 20 77 68 69 63 68  20 69 73 20 63 6f 72 72  |pe which is corr|
000005b0  65 63 74 6c 79 20 6c 69  6e 65 64 20 75 70 20 73  |ectly lined up s|
000005c0  63 6f 72 65 73 20 6f 6e  65 20 70 6f 69 6e 74 2e  |cores one point.|
000005d0  20 54 6f 20 6d 6f 76 65  20 6f 6e 74 6f 20 74 68  | To move onto th|
000005e0  65 20 6e 65 78 74 20 62  6f 61 72 64 20 61 20 6d  |e next board a m|
000005f0  69 6e 69 6d 75 6d 20 73  63 6f 72 65 20 6f 66 20  |inimum score of |
00000600  31 30 20 69 73 20 72 65  71 75 69 72 65 64 2e 22  |10 is required."|
00000610  0d 01 7c dd f1 22 49 66  20 61 20 73 63 6f 72 65  |..|.."If a score|
00000620  20 6f 66 20 31 35 20 69  73 20 72 65 61 63 68 65  | of 15 is reache|
00000630  64 20 6f 6e 20 61 6e 79  20 62 6f 61 72 64 74 68  |d on any boardth|
00000640  65 72 65 20 69 73 20 61  20 62 6f 6e 75 73 20 6f  |ere is a bonus o|
00000650  66 20 35 20 65 78 74 72  61 20 6d 6f 76 65 73 2e  |f 5 extra moves.|
00000660  20 53 63 6f 72 65 32 30  20 61 6e 64 20 67 65 74  | Score20 and get|
00000670  20 31 30 20 62 6f 6e 75  73 20 6d 6f 76 65 73 2e  | 10 bonus moves.|
00000680  22 27 27 22 20 54 68 65  20 62 6f 61 72 64 73 20  |"''" The boards |
00000690  77 69 6c 6c 20 69 6e 63  72 65 61 73 65 20 69 6e  |will increase in|
000006a0  20 64 69 66 66 69 63 75  6c 74 79 20 61 73 20 64  | difficulty as d|
000006b0  69 66 66 65 72 65 6e 74  20 73 68 61 70 65 73 20  |ifferent shapes |
000006c0  61 72 65 20 61 64 64 65  64 20 61 6e 64 20 66 65  |are added and fe|
000006d0  77 65 72 20 6e 65 77 20  6d 6f 76 65 73 20 61 72  |wer new moves ar|
000006e0  65 20 61 6c 6c 6f 63 61  74 65 64 2e 22 0d 01 86  |e allocated."...|
000006f0  69 f1 27 22 54 6f 20 65  6e 64 20 61 20 62 6f 61  |i.'"To end a boa|
00000700  72 64 20 62 65 66 6f 72  65 20 61 6c 6c 20 6f 66  |rd before all of|
00000710  20 79 6f 75 72 20 6d 6f  76 65 73 20 61 72 65 20  | your moves are |
00000720  75 73 65 64 20 70 72 65  73 73 20 27 54 41 42 27  |used press 'TAB'|
00000730  22 27 27 22 20 20 20 20  20 59 6f 75 72 20 61 69  |"''"     Your ai|
00000740  6d 20 69 73 20 61 20 68  69 67 68 20 73 63 6f 72  |m is a high scor|
00000750  65 2e 22 3a e7 a5 0d 01  90 5b fb 31 3a fb 31 33  |e.":.....[.1:.13|
00000760  31 3a f1 27 8a 31 29 22  44 6f 20 79 6f 75 20 6e  |1:.'.1)"Do you n|
00000770  65 65 64 20 74 68 65 20  69 6e 73 74 72 75 63 74  |eed the instruct|
00000780  69 6f 6e 73 20 61 67 61  69 6e 20 3f 20 20 22 3a  |ions again ?  ":|
00000790  61 6e 73 24 3d bd 28 a5  20 80 20 26 44 46 29 3a  |ans$=.(. . &DF):|
000007a0  e7 20 61 6e 73 24 3d 22  59 22 20 8c 20 8d 54 58  |. ans$="Y" . .TX|
000007b0  41 0d 01 9a 4d db 3a f2  64 6f 75 62 6c 65 28 22  |A...M.:.double("|
000007c0  44 6f 20 79 6f 75 20 77  61 6e 74 20 73 6f 75 6e  |Do you want soun|
000007d0  64 20 3f 22 2c 31 32 29  3a 61 6e 73 24 3d bd 28  |d ?",12):ans$=.(|
000007e0  a5 20 80 20 26 44 46 29  3a e7 20 61 6e 73 24 3d  |. . &DF):. ans$=|
000007f0  22 4e 22 20 8c 20 2a 46  58 32 31 30 2c 31 0d 01  |"N" . *FX210,1..|
00000800  a4 05 e1 0d 01 ae 09 2a  2a 2a 2a 2a 0d 01 b8 10  |.......*****....|
00000810  dd f2 65 72 72 6f 72 3a  2a 46 58 34 0d 01 c2 09  |..error:*FX4....|
00000820  ee 20 85 20 87 0d 01 cc  0e f6 3a f1 22 20 40 20  |. . ......:." @ |
00000830  22 3b 9e 0d 01 d6 05 e0  0d 01 e0 09 2a 2a 2a 2a  |";..........****|
00000840  2a 0d 01 ea 10 dd f2 62  72 64 28 74 79 70 65 25  |*......brd(type%|
00000850  29 0d 01 f4 13 e3 72 25  3d 31 b8 36 3a e3 63 25  |).....r%=1.6:.c%|
00000860  3d 31 b8 38 0d 01 fe 1b  e7 20 74 79 70 65 25 3e  |=1.8..... type%>|
00000870  30 20 e7 72 25 3d 31 20  fb 31 20 8b 20 fb 33 0d  |0 .r%=1 .1 . .3.|
00000880  02 08 22 e7 20 28 74 79  70 65 25 3e 31 20 80 20  |..". (type%>1 . |
00000890  72 25 3e 31 29 20 8c 20  e7 20 63 25 3d 32 20 fb  |r%>1) . . c%=2 .|
000008a0  32 0d 02 12 29 e7 20 28  74 79 70 65 25 3d 33 20  |2...). (type%=3 |
000008b0  80 20 72 25 3d 34 20 80  20 28 63 25 3d 35 20 84  |. r%=4 . (c%=5 .|
000008c0  20 63 25 3d 37 29 29 20  fb 31 0d 02 1c 1e e7 20  | c%=7)) .1..... |
000008d0  74 79 70 65 25 3d 33 20  80 20 72 25 3d 34 20 80  |type%=3 . r%=4 .|
000008e0  20 63 25 3d 36 20 fb 32  0d 02 26 29 e7 20 28 74  | c%=6 .2..&). (t|
000008f0  79 70 65 25 3d 33 20 80  20 28 72 25 3d 33 20 84  |ype%=3 . (r%=3 .|
00000900  20 72 25 3d 35 29 20 80  20 63 25 3d 36 29 20 fb  | r%=5) . c%=6) .|
00000910  31 0d 02 30 1a f1 8a 38  2b 72 25 2a 33 2c 35 2b  |1..0...8+r%*3,5+|
00000920  63 25 2a 32 29 73 68 61  70 65 24 0d 02 3a 07 ed  |c%*2)shape$..:..|
00000930  3a ed 0d 02 44 0e f2 77  61 69 74 28 35 29 3a e1  |:...D..wait(5):.|
00000940  0d 02 4e 10 dd f2 77 61  69 74 28 73 65 63 25 29  |..N...wait(sec%)|
00000950  0d 02 58 15 77 61 69 74  25 3d a6 28 73 65 63 25  |..X.wait%=.(sec%|
00000960  2a 31 30 30 29 0d 02 62  05 e1 0d 02 6c 09 2a 2a  |*100)..b....l.**|
00000970  2a 2a 2a 0d 02 76 0a dd  f2 73 68 6f 77 0d 02 80  |***..v...show...|
00000980  48 63 25 3d 37 3a f5 3a  fb 31 3a f1 8a 32 30 2c  |Hc%=7:.:.1:..20,|
00000990  35 2b 63 25 2a 32 29 73  68 61 70 65 24 3a fb 33  |5+c%*2)shape$:.3|
000009a0  3a f1 8a 33 32 2c 31 32  29 bd 32 32 35 bd 32 32  |:..32,12).225.22|
000009b0  37 3a d4 31 2c 2d 31 30  2c 31 2c 32 3a f2 77 61  |7:.1,-10,1,2:.wa|
000009c0  69 74 28 31 29 0d 02 8a  17 fb 30 3a f1 8a 33 32  |it(1).....0:..32|
000009d0  2c 31 32 29 bd 32 32 35  bd 32 32 37 0d 02 94 2a  |,12).225.227...*|
000009e0  f2 77 61 69 74 28 31 29  3a fb 33 3a f1 8a 32 30  |.wait(1):.3:..20|
000009f0  2c 35 2b 63 25 2a 32 29  73 68 61 70 65 24 3a 63  |,5+c%*2)shape$:c|
00000a00  25 3d 63 25 2d 31 0d 02  9e 0a fd 20 63 25 3d 32  |%=c%-1..... c%=2|
00000a10  0d 02 a8 15 fb 31 3a f1  8a 32 30 2c 31 31 29 73  |.....1:..20,11)s|
00000a20  68 61 70 65 24 0d 02 b2  4c fb 33 3a f1 8a 30 2c  |hape$...L.3:..0,|
00000a30  32 35 29 22 50 72 65 73  73 20 74 68 65 20 73 70  |25)"Press the sp|
00000a40  61 63 65 20 62 61 72 20  77 68 65 6e 20 74 68 65  |ace bar when the|
00000a50  20 66 69 72 73 74 20 73  68 61 70 65 69 73 20 73  | first shapeis s|
00000a60  65 6c 65 63 74 65 64 22  3a f2 77 61 69 74 28 35  |elected":.wait(5|
00000a70  29 0d 02 bc 68 f1 8a 30  2c 32 38 29 22 43 6f 72  |)...h..0,28)"Cor|
00000a80  72 65 63 74 20 61 20 6d  69 73 74 61 6b 65 20 62  |rect a mistake b|
00000a90  79 20 70 72 65 73 73 69  6e 67 20 74 68 65 20 73  |y pressing the s|
00000aa0  70 61 63 65 20 62 61 72  20 61 67 61 69 6e 2e 22  |pace bar again."|
00000ab0  3a f2 77 61 69 74 28 35  29 3a fb 32 3a f1 8a 32  |:.wait(5):.2:..2|
00000ac0  30 2c 31 31 29 73 68 61  70 65 24 8a 30 2c 32 38  |0,11)shape$.0,28|
00000ad0  29 c4 37 39 2c 22 20 22  29 0d 02 c6 6d fb 33 3a  |).79," ")...m.3:|
00000ae0  f1 8a 30 2c 32 35 29 22  54 68 69 73 20 73 68 61  |..0,25)"This sha|
00000af0  70 65 20 77 69 6c 6c 20  62 65 20 73 77 61 70 70  |pe will be swapp|
00000b00  65 64 20 77 69 74 68 20  74 68 65 20 6e 65 78 74  |ed with the next|
00000b10  73 68 61 70 65 20 69 6e  20 74 68 65 20 64 69 72  |shape in the dir|
00000b20  65 63 74 69 6f 6e 20 6f  66 20 74 68 65 20 73 65  |ection of the se|
00000b30  6c 65 63 74 65 64 20 20  63 75 72 73 6f 72 20 61  |lected  cursor a|
00000b40  72 72 6f 77 2e 22 0d 02  d0 3b f2 77 61 69 74 28  |rrow."...;.wait(|
00000b50  39 29 3a fb 33 3a f1 8a  33 32 2c 31 32 29 bd 32  |9):.3:..32,12).2|
00000b60  32 37 8a 33 32 2c 31 33  29 bd 32 32 38 3a d4 31  |27.32,13).228:.1|
00000b70  2c 2d 31 30 2c 31 2c 32  3a f2 77 61 69 74 28 31  |,-10,1,2:.wait(1|
00000b80  29 0d 02 da 56 fb 31 3a  f1 8a 32 33 2c 31 31 29  |)...V.1:..23,11)|
00000b90  73 68 61 70 65 24 3a f2  77 61 69 74 28 31 29 3a  |shape$:.wait(1):|
00000ba0  d4 31 2c 2d 31 30 2c 31  2c 32 3a f1 8a 32 30 2c  |.1,-10,1,2:..20,|
00000bb0  31 31 29 73 68 61 70 65  24 3a d4 31 2c 2d 31 30  |11)shape$:.1,-10|
00000bc0  2c 32 30 2c 32 3a fb 32  3a f1 8a 32 33 2c 31 31  |,20,2:.2:..23,11|
00000bd0  29 73 68 61 70 65 24 0d  02 e4 4a fb 31 32 38 3a  |)shape$...J.128:|
00000be0  f1 8a 30 2c 32 35 29 c4  31 32 30 2c 22 20 22 29  |..0,25).120," ")|
00000bf0  3a fb 31 3a fb 31 33 30  3a f2 64 6f 75 62 6c 65  |:.1:.130:.double|
00000c00  28 22 54 68 69 73 20 63  6f 6e 73 74 69 74 75 74  |("This constitut|
00000c10  65 73 20 6f 6e 65 20 6d  6f 76 65 2e 22 2c 32 37  |es one move.",27|
00000c20  29 0d 02 ee 0e f2 77 61  69 74 28 32 29 3a e1 0d  |).....wait(2):..|
00000c30  02 f8 09 2a 2a 2a 2a 2a  0d 03 02 19 dd f2 64 6f  |...*****......do|
00000c40  75 62 6c 65 28 74 65 78  74 24 2c 64 6f 77 6e 25  |uble(text$,down%|
00000c50  29 0d 03 0c 1b 61 63 72  6f 73 73 25 3d 31 39 2d  |)....across%=19-|
00000c60  28 a9 28 74 65 78 74 24  29 2f 32 29 0d 03 16 1b  |(.(text$)/2)....|
00000c70  41 25 3d 26 41 3a 58 25  3d 30 3a 59 25 3d 26 39  |A%=&A:X%=0:Y%=&9|
00000c80  3a 44 3d 26 39 30 30 0d  03 20 1a e3 20 6c 65 74  |:D=&900.. .. let|
00000c90  74 65 72 25 3d 31 20 b8  20 a9 28 74 65 78 74 24  |ter%=1 . .(text$|
00000ca0  29 0d 03 2a 28 42 24 3d  c1 74 65 78 74 24 2c 6c  |)..*(B$=.text$,l|
00000cb0  65 74 74 65 72 25 2c 31  29 3a 3f 44 3d 97 28 42  |etter%,1):?D=.(B|
00000cc0  24 29 3a d6 26 46 46 46  31 0d 03 34 52 ef 32 33  |$):.&FFF1..4R.23|
00000cd0  2c 32 34 31 2c 44 3f 31  2c 44 3f 31 2c 44 3f 32  |,241,D?1,D?1,D?2|
00000ce0  2c 44 3f 32 2c 44 3f 33  2c 44 3f 33 2c 44 3f 34  |,D?2,D?3,D?3,D?4|
00000cf0  2c 44 3f 34 2c 32 33 2c  32 34 32 2c 44 3f 35 2c  |,D?4,23,242,D?5,|
00000d00  44 3f 35 2c 44 3f 36 2c  44 3f 36 2c 44 3f 37 2c  |D?5,D?6,D?6,D?7,|
00000d10  44 3f 37 2c 44 3f 38 2c  44 3f 38 0d 03 3e 3e f1  |D?7,D?8,D?8..>>.|
00000d20  8a 61 63 72 6f 73 73 25  2b 6c 65 74 74 65 72 25  |.across%+letter%|
00000d30  2c 64 6f 77 6e 25 29 bd  32 34 31 3b 8a 61 63 72  |,down%).241;.acr|
00000d40  6f 73 73 25 2b 6c 65 74  74 65 72 25 2c 64 6f 77  |oss%+letter%,dow|
00000d50  6e 25 2b 31 29 bd 32 34  32 0d 03 48 07 ed 3a e1  |n%+1).242..H..:.|
00000d60  0d 03 52 0a dd f2 71 75  61 64 0d 03 5c 0a fb 31  |..R...quad..\..1|
00000d70  33 30 3a db 0d 03 66 1b  41 25 3d 26 41 3a 58 25  |30:...f.A%=&A:X%|
00000d80  3d 30 3a 59 25 3d 26 39  3a 44 3d 26 39 30 30 0d  |=0:Y%=&9:D=&900.|
00000d90  03 70 3b e3 20 6c 65 74  74 65 72 25 3d 31 20 b8  |.p;. letter%=1 .|
00000da0  20 36 3a 42 24 3d c1 22  53 57 49 54 43 48 22 2c  | 6:B$=."SWITCH",|
00000db0  6c 65 74 74 65 72 25 2c  31 29 3a 3f 44 3d 97 28  |letter%,1):?D=.(|
00000dc0  42 24 29 3a d6 26 46 46  46 31 0d 03 7a a0 ef 32  |B$):.&FFF1..z..2|
00000dd0  33 2c 32 34 31 2c 44 3f  31 2c 44 3f 31 2c 44 3f  |3,241,D?1,D?1,D?|
00000de0  31 2c 44 3f 31 2c 44 3f  32 2c 44 3f 32 2c 44 3f  |1,D?1,D?2,D?2,D?|
00000df0  32 2c 44 3f 32 2c 32 33  2c 32 34 32 2c 44 3f 33  |2,D?2,23,242,D?3|
00000e00  2c 44 3f 33 2c 44 3f 33  2c 44 3f 33 2c 44 3f 34  |,D?3,D?3,D?3,D?4|
00000e10  2c 44 3f 34 2c 44 3f 34  2c 44 3f 34 2c 32 33 2c  |,D?4,D?4,D?4,23,|
00000e20  32 34 33 2c 44 3f 35 2c  44 3f 35 2c 44 3f 35 2c  |243,D?5,D?5,D?5,|
00000e30  44 3f 35 2c 44 3f 36 2c  44 3f 36 2c 44 3f 36 2c  |D?5,D?6,D?6,D?6,|
00000e40  44 3f 36 2c 32 33 2c 32  34 34 2c 44 3f 37 2c 44  |D?6,23,244,D?7,D|
00000e50  3f 37 2c 44 3f 37 2c 44  3f 37 2c 44 3f 38 2c 44  |?7,D?7,D?7,D?8,D|
00000e60  3f 38 2c 44 3f 38 2c 44  3f 38 0d 03 84 16 70 6f  |?8,D?8,D?8....po|
00000e70  73 25 3d 6c 65 74 74 65  72 25 2b 31 36 3a fb 35  |s%=letter%+16:.5|
00000e80  0d 03 8e 38 f1 8a 70 6f  73 25 2c 34 29 bd 32 34  |...8..pos%,4).24|
00000e90  31 3b 8a 70 6f 73 25 2c  35 29 bd 32 34 32 3b 8a  |1;.pos%,5).242;.|
00000ea0  70 6f 73 25 2c 36 29 bd  32 34 33 3b 8a 70 6f 73  |pos%,6).243;.pos|
00000eb0  25 2c 37 29 bd 32 34 34  0d 03 98 3e f1 8a 70 6f  |%,7).244...>..po|
00000ec0  73 25 2c 32 35 29 bd 32  34 31 3b 8a 70 6f 73 25  |s%,25).241;.pos%|
00000ed0  2c 32 36 29 bd 32 34 32  3b 8a 70 6f 73 25 2c 32  |,26).242;.pos%,2|
00000ee0  37 29 bd 32 34 33 3b 8a  70 6f 73 25 2c 32 38 29  |7).243;.pos%,28)|
00000ef0  bd 32 34 34 3a ed 0d 03  a2 2c fb 30 3a f1 8a 31  |.244:....,.0:..1|
00000f00  39 2c 31 34 29 22 62 79  22 3a f2 64 6f 75 62 6c  |9,14)"by":.doubl|
00000f10  65 28 22 4a 6f 65 20 52  68 6f 64 65 73 22 2c 31  |e("Joe Rhodes",1|
00000f20  36 29 0d 03 ac 05 e1 0d  03 b6 09 2a 2a 2a 2a 2a  |6).........*****|
00000f30  0d 03 c0 0b dd f2 74 69  74 6c 65 0d 03 ca 19 f2  |......title.....|
00000f40  71 75 61 64 3a f2 73 6f  75 6e 64 3a f2 77 61 69  |quad:.sound:.wai|
00000f50  74 28 33 29 0d 03 d4 05  e1 0d 03 de 09 2a 2a 2a  |t(3).........***|
00000f60  2a 2a 0d 03 e8 0b dd f2  73 6f 75 6e 64 0d 03 f2  |**......sound...|
00000f70  07 f7 3a f5 0d 03 fc 08  f3 50 2c 44 0d 04 06 0b  |..:......P,D....|
00000f80  e3 20 4e 3d 31 b8 32 0d  04 10 0c d4 4e 2c 32 2c  |. N=1.2.....N,2,|
00000f90  50 2c 44 0d 04 1a 0c d4  4e 2c 30 2c 30 2c 30 0d  |P,D.....N,0,0,0.|
00000fa0  04 24 05 ed 0d 04 2e 09  fd 20 50 3d 30 0d 04 38  |.$....... P=0..8|
00000fb0  21 dc 20 35 32 2c 31 32  2c 32 34 2c 36 2c 34 38  |!. 52,12,24,6,48|
00000fc0  2c 31 32 2c 32 34 2c 36  2c 35 32 2c 32 30 0d 04  |,12,24,6,52,20..|
00000fd0  42 08 dc 30 2c 30 0d 04  4c 05 e1 0d ff           |B..0,0..L....|
00000fdd