� Skulls (part 1)
� by Mike Goldberg
� (c) The Micro User
(�7:�23,1,0;0;0;0;
2�10,131,157,10,13
<� I%=0 � 1:�141,134
F�11)"== SKULLS ==":�
P�131,157:�
Z� L%=1 � 4:� C%,n$:�
d�print(C%,n$):�:�:�
nK� 130,Stack the shapes falling from the top of the screen into the box.
xt� 131,When no more shapes fit the box then the game is over. However the shapes can be rotated on their descent!
�i� 129,The whole stack of shapes will drop down a line if you can make a complete line across the box.
�?� 134,Extra points for a complete line all the same colour.
��129,157,13,10,134:Y%=�
�)�3"Press SPACE for key instructions"
��129,157:���=32
�!�28,0,19,39,5,12,28,6,19,39,8
��8�130"Keys":�'
�� L%=1 � 6:� a$,b$,c$
��key(a$,b$,c$):�
�� Z,=,Move left
�� X,=,Move right
�� Space,=,Rotate
�� ,,

� Delete,=,Pause

� Copy,=,Restart

�26

"1�4,Y%)�134"== Press SPACE to load game =="�1

,/�1,1,30,-20,30,40,20,20,126,-1,-1,-5,120,90

6-�2,1,4,-4,2,20,20,20,126,-1,-1,-1,126,126

@(�3,1,1,-1,0,2,2,0,126,-1,-1,-1,80,70

J/�4,1,20,-2,-1,90,30,50,126,-1,-1,-1,120,120

T,�5,2,40,50,30,5,5,5,126,-1,-1,-1,126,120

^���=32:�"SKULLS2"

h� �print(C%,n$)

r� w$=�word

|� �w$+�>38 �

��C%w$;:� n$=""

��

�� �word

�� P%:P%=�n$," ")

�2� P%=0 w$=n$:n$="" � w$=�n$,P%-1):n$=�n$,P%+1)

�=w$

�� �key(a$,b$,c$)

�� A%,B%,C%

�A%=129:B%=131:C%=134

�a$=��6," ")+a$,6)

�b$=��4," ")+b$,4)

��A%a$�B%b$�3�C%c$

��
�

00000000  0d 00 0a 15 f4 20 53 6b  75 6c 6c 73 20 28 70 61  |..... Skulls (pa|
00000010  72 74 20 31 29 0d 00 14  16 f4 20 62 79 20 4d 69  |rt 1)..... by Mi|
00000020  6b 65 20 47 6f 6c 64 62  65 72 67 0d 00 1e 18 f4  |ke Goldberg.....|
00000030  20 28 63 29 20 54 68 65  20 4d 69 63 72 6f 20 55  | (c) The Micro U|
00000040  73 65 72 0d 00 28 15 eb  37 3a ef 32 33 2c 31 2c  |ser..(..7:.23,1,|
00000050  30 3b 30 3b 30 3b 30 3b  0d 00 32 15 ef 31 30 2c  |0;0;0;0;..2..10,|
00000060  31 33 31 2c 31 35 37 2c  31 30 2c 31 33 0d 00 3c  |131,157,10,13..<|
00000070  17 e3 20 49 25 3d 30 20  b8 20 31 3a ef 31 34 31  |.. I%=0 . 1:.141|
00000080  2c 31 33 34 0d 00 46 19  f1 8a 31 31 29 22 3d 3d  |,134..F...11)"==|
00000090  20 53 4b 55 4c 4c 53 20  3d 3d 22 3a ed 0d 00 50  | SKULLS ==":...P|
000000a0  0e ef 31 33 31 2c 31 35  37 3a f1 0d 00 5a 18 e3  |..131,157:...Z..|
000000b0  20 4c 25 3d 31 20 b8 20  34 3a f3 20 43 25 2c 6e  | L%=1 . 4:. C%,n|
000000c0  24 3a f1 0d 00 64 17 f2  70 72 69 6e 74 28 43 25  |$:...d..print(C%|
000000d0  2c 6e 24 29 3a f1 3a ed  3a f1 0d 00 6e 4b dc 20  |,n$):.:.:...nK. |
000000e0  31 33 30 2c 53 74 61 63  6b 20 74 68 65 20 73 68  |130,Stack the sh|
000000f0  61 70 65 73 20 66 61 6c  6c 69 6e 67 20 66 72 6f  |apes falling fro|
00000100  6d 20 74 68 65 20 74 6f  70 20 6f 66 20 74 68 65  |m the top of the|
00000110  20 73 63 72 65 65 6e 20  69 6e 74 6f 20 74 68 65  | screen into the|
00000120  20 62 6f 78 2e 0d 00 78  74 dc 20 31 33 31 2c 57  | box...xt. 131,W|
00000130  68 65 6e 20 6e 6f 20 6d  6f 72 65 20 73 68 61 70  |hen no more shap|
00000140  65 73 20 66 69 74 20 74  68 65 20 62 6f 78 20 74  |es fit the box t|
00000150  68 65 6e 20 74 68 65 20  67 61 6d 65 20 69 73 20  |hen the game is |
00000160  6f 76 65 72 2e 20 48 6f  77 65 76 65 72 20 74 68  |over. However th|
00000170  65 20 73 68 61 70 65 73  20 63 61 6e 20 62 65 20  |e shapes can be |
00000180  72 6f 74 61 74 65 64 20  6f 6e 20 74 68 65 69 72  |rotated on their|
00000190  20 64 65 73 63 65 6e 74  21 0d 00 82 69 dc 20 31  | descent!...i. 1|
000001a0  32 39 2c 54 68 65 20 77  68 6f 6c 65 20 73 74 61  |29,The whole sta|
000001b0  63 6b 20 6f 66 20 73 68  61 70 65 73 20 77 69 6c  |ck of shapes wil|
000001c0  6c 20 64 72 6f 70 20 64  6f 77 6e 20 61 20 6c 69  |l drop down a li|
000001d0  6e 65 20 69 66 20 79 6f  75 20 63 61 6e 20 6d 61  |ne if you can ma|
000001e0  6b 65 20 61 20 63 6f 6d  70 6c 65 74 65 20 6c 69  |ke a complete li|
000001f0  6e 65 20 61 63 72 6f 73  73 20 74 68 65 20 62 6f  |ne across the bo|
00000200  78 2e 0d 00 8c 3f dc 20  31 33 34 2c 45 78 74 72  |x....?. 134,Extr|
00000210  61 20 70 6f 69 6e 74 73  20 66 6f 72 20 61 20 63  |a points for a c|
00000220  6f 6d 70 6c 65 74 65 20  6c 69 6e 65 20 61 6c 6c  |omplete line all|
00000230  20 74 68 65 20 73 61 6d  65 20 63 6f 6c 6f 75 72  | the same colour|
00000240  2e 0d 00 96 1b ef 31 32  39 2c 31 35 37 2c 31 33  |......129,157,13|
00000250  2c 31 30 2c 31 33 34 3a  59 25 3d bc 0d 00 a0 29  |,10,134:Y%=....)|
00000260  f1 89 33 22 50 72 65 73  73 20 53 50 41 43 45 20  |..3"Press SPACE |
00000270  66 6f 72 20 6b 65 79 20  69 6e 73 74 72 75 63 74  |for key instruct|
00000280  69 6f 6e 73 22 0d 00 aa  13 ef 31 32 39 2c 31 35  |ions".....129,15|
00000290  37 3a f5 fd a5 3d 33 32  0d 00 b4 21 ef 32 38 2c  |7:...=32...!.28,|
000002a0  30 2c 31 39 2c 33 39 2c  35 2c 31 32 2c 32 38 2c  |0,19,39,5,12,28,|
000002b0  36 2c 31 39 2c 33 39 2c  38 0d 00 be 14 f1 89 38  |6,19,39,8......8|
000002c0  bd 31 33 30 22 4b 65 79  73 22 3a f1 27 0d 00 c8  |.130"Keys":.'...|
000002d0  19 e3 20 4c 25 3d 31 20  b8 20 36 3a f3 20 61 24  |.. L%=1 . 6:. a$|
000002e0  2c 62 24 2c 63 24 0d 00  d2 14 f2 6b 65 79 28 61  |,b$,c$.....key(a|
000002f0  24 2c 62 24 2c 63 24 29  3a ed 0d 00 dc 13 dc 20  |$,b$,c$):...... |
00000300  5a 2c 3d 2c 4d 6f 76 65  20 6c 65 66 74 0d 00 e6  |Z,=,Move left...|
00000310  14 dc 20 58 2c 3d 2c 4d  6f 76 65 20 72 69 67 68  |.. X,=,Move righ|
00000320  74 0d 00 f0 14 dc 20 53  70 61 63 65 2c 3d 2c 52  |t..... Space,=,R|
00000330  6f 74 61 74 65 0d 00 fa  08 dc 20 2c 2c 0d 01 04  |otate..... ,,...|
00000340  14 dc 20 44 65 6c 65 74  65 2c 3d 2c 50 61 75 73  |.. Delete,=,Paus|
00000350  65 0d 01 0e 14 dc 20 43  6f 70 79 2c 3d 2c 52 65  |e..... Copy,=,Re|
00000360  73 74 61 72 74 0d 01 18  07 ef 32 36 0d 01 22 31  |start.....26.."1|
00000370  f1 8a 34 2c 59 25 29 bd  31 33 34 22 3d 3d 20 50  |..4,Y%).134"== P|
00000380  72 65 73 73 20 53 50 41  43 45 20 74 6f 20 6c 6f  |ress SPACE to lo|
00000390  61 64 20 67 61 6d 65 20  3d 3d 22 89 31 0d 01 2c  |ad game ==".1..,|
000003a0  2f e2 31 2c 31 2c 33 30  2c 2d 32 30 2c 33 30 2c  |/.1,1,30,-20,30,|
000003b0  34 30 2c 32 30 2c 32 30  2c 31 32 36 2c 2d 31 2c  |40,20,20,126,-1,|
000003c0  2d 31 2c 2d 35 2c 31 32  30 2c 39 30 0d 01 36 2d  |-1,-5,120,90..6-|
000003d0  e2 32 2c 31 2c 34 2c 2d  34 2c 32 2c 32 30 2c 32  |.2,1,4,-4,2,20,2|
000003e0  30 2c 32 30 2c 31 32 36  2c 2d 31 2c 2d 31 2c 2d  |0,20,126,-1,-1,-|
000003f0  31 2c 31 32 36 2c 31 32  36 0d 01 40 28 e2 33 2c  |1,126,126..@(.3,|
00000400  31 2c 31 2c 2d 31 2c 30  2c 32 2c 32 2c 30 2c 31  |1,1,-1,0,2,2,0,1|
00000410  32 36 2c 2d 31 2c 2d 31  2c 2d 31 2c 38 30 2c 37  |26,-1,-1,-1,80,7|
00000420  30 0d 01 4a 2f e2 34 2c  31 2c 32 30 2c 2d 32 2c  |0..J/.4,1,20,-2,|
00000430  2d 31 2c 39 30 2c 33 30  2c 35 30 2c 31 32 36 2c  |-1,90,30,50,126,|
00000440  2d 31 2c 2d 31 2c 2d 31  2c 31 32 30 2c 31 32 30  |-1,-1,-1,120,120|
00000450  0d 01 54 2c e2 35 2c 32  2c 34 30 2c 35 30 2c 33  |..T,.5,2,40,50,3|
00000460  30 2c 35 2c 35 2c 35 2c  31 32 36 2c 2d 31 2c 2d  |0,5,5,5,126,-1,-|
00000470  31 2c 2d 31 2c 31 32 36  2c 31 32 30 0d 01 5e 15  |1,-1,126,120..^.|
00000480  f5 fd a5 3d 33 32 3a d7  22 53 4b 55 4c 4c 53 32  |...=32:."SKULLS2|
00000490  22 0d 01 68 13 dd 20 f2  70 72 69 6e 74 28 43 25  |"..h.. .print(C%|
000004a0  2c 6e 24 29 0d 01 72 0e  f5 20 77 24 3d a4 77 6f  |,n$)..r.. w$=.wo|
000004b0  72 64 0d 01 7c 10 e7 20  a9 77 24 2b b1 3e 33 38  |rd..|.. .w$+.>38|
000004c0  20 f1 0d 01 86 13 f1 bd  43 25 77 24 3b 3a fd 20  | .......C%w$;:. |
000004d0  6e 24 3d 22 22 0d 01 90  05 e1 0d 01 9a 0b dd 20  |n$="".......... |
000004e0  a4 77 6f 72 64 0d 01 a4  14 ea 20 50 25 3a 50 25  |.word..... P%:P%|
000004f0  3d a7 6e 24 2c 22 20 22  29 0d 01 ae 32 e7 20 50  |=.n$," ")...2. P|
00000500  25 3d 30 20 77 24 3d 6e  24 3a 6e 24 3d 22 22 20  |%=0 w$=n$:n$="" |
00000510  8b 20 77 24 3d c0 6e 24  2c 50 25 2d 31 29 3a 6e  |. w$=.n$,P%-1):n|
00000520  24 3d c1 6e 24 2c 50 25  2b 31 29 0d 01 b8 07 3d  |$=.n$,P%+1)....=|
00000530  77 24 0d 01 c2 14 dd 20  f2 6b 65 79 28 61 24 2c  |w$..... .key(a$,|
00000540  62 24 2c 63 24 29 0d 01  cc 0e ea 20 41 25 2c 42  |b$,c$)..... A%,B|
00000550  25 2c 43 25 0d 01 d6 18  41 25 3d 31 32 39 3a 42  |%,C%....A%=129:B|
00000560  25 3d 31 33 31 3a 43 25  3d 31 33 34 0d 01 e0 15  |%=131:C%=134....|
00000570  61 24 3d c2 c4 36 2c 22  20 22 29 2b 61 24 2c 36  |a$=..6," ")+a$,6|
00000580  29 0d 01 ea 15 62 24 3d  c2 c4 34 2c 22 20 22 29  |)....b$=..4," ")|
00000590  2b 62 24 2c 34 29 0d 01  f4 16 f1 bd 41 25 61 24  |+b$,4)......A%a$|
000005a0  bd 42 25 62 24 89 33 bd  43 25 63 24 0d 01 fe 05  |.B%b$.3.C%c$....|
000005b0  e1 0d ff                                          |...|
000005b3