P�=&1F00:�"LOAD BLOCDAT 2000":�"LOAD SPRITES.SPRDAT 6200":�"LOAD OBDATA 3000"
�d=&3600�&3DFF:?d=0:�
�d=&3F00�&52FF:?d=0:�
#Z�r=&20FE�&2FFE�&100:�a:?r=(?r) � &3F � 16*(a � 4):?(r+1)=(?(r+1)) � &3F � 64*(a � 3):�
(�p=0�2�2:P%=&1FB0:[OPT p
2�LDA#&8C:JSR&FFF4:LDA#&81:LDX#0:LDY#&FF:JSR&FFF4:CPX#1:BNEbbc:LDA#0:JMPelk:.bbc LDA#1:.elk STA&F5:LDX#0:.zerot LDA&5300,X:STA0,X:INX:CPX#&80:BNEzerot
<�LDY#0:STY&70:STY&72:LDA#&30:STA&71:LDA#&A:STA&73:.moveobjs LDA(&70),Y:STA(&72),Y:INY:BNEmoveobjs:INC&71:INC&73:LDA&73:CMP#&10:BNEmoveobjs:.movesndat LDA&6800,Y:STA&100,Y:INY:CPY#&C0:BNEmovesndat:LDY#0
F0.movenam LDA&3E00,Y:STA&900,Y:INY:BNEmovenam
PxLDA#&54:STA&71:LDA#4:STA&73:.moveobjd LDA(&70),Y:STA(&72),Y:INY:BNEmoveobjd:INC&71:INC&73:LDA&71:CMP#&58:BNEmoveobjd
Z�LDA#&10:STA&73:.movecode LDA(&70),Y:STA(&72),Y:INY:BNEmovecode:INC&71:INC&73:LDA&73:CMP#&20:BNEmovecode:LDA#&6C:STA&71:LDA#&30:STA&73
d�.decomp LDA(&70),Y:STA&80:.bits LDA&80:LSR A:ROR A:ROR A:�#&C0:STA(&72),Y:INC&72:LDA&72:BNEnoext:INC&73:LDA&73:CMP#&80:BNEnoext:LDA#200:LDX#2:LDY#0:JSR&FFF4:JMP&1000 
nT.noext LSR&80:LSR&80:LDA&72:�#3:BNEbits:INC&70:LDA&70:BNEdecomp:INC&71:JMPdecomp
x]:�
�:
�(�ob=0�31:�ad=&5700+ob � &57E0+ob �32
��a:?ad=a
��,
�
*DIR SHIP
�*SAVE Ship/PRG 1FB0 8000
��"SHIP"
�:
� � Doors
�$�1,1,1,1,1,3,4,1,1,1,1,1,1,1,1,1

:

�&FF,&FF,0,&FF,0,0,0,0

"�&FF,&FF,0,&FF,0,0,0,0

,�&FF,&FF,0,&FF,0,0,0,0

6�&FF,&FF,0,&FF,0,0,0,0

@�&FF,&FF,0,&FF,0,0,0,0

J�&FF,&FF,0,&FF,0,0,0,0

T�&FF,&FF,0,&FF,0,0,0,0

^:

h�&FF,&FF,0,&C0,&33,6,&34,6

r�&FF,&FF,0,&FF,0,0,0,0

|"�&FF,&FF,0,&04,&1A,&00,&1A,&00

��&0B,&FF,0,&FF,0,0,0,0

��&0C,&FF,0,&FF,0,0,0,0

�"�&FF,&FF,0,&11,&76,&03,&75,&0E

�:

�"�&FF,&FF,0,&A4,&1A,&00,&1A,&00

�"�&FF,&FF,0,&84,&1A,&00,&1A,&00

�"�&FF,&FF,0,&05,&73,&07,&73,&07

��&11,&FF,0,&FF,0,0,0,0

�"�&FF,&FF,0,&73,&1A,&00,&1A,&00

�"�&FF,&FF,0,&61,&78,&10,&78,&10

�"�&FF,&FF,0,&82,&72,&07,&78,&12

�"�&FF,&FF,0,&82,&72,&12,&78,&07

�"�&FF,&FF,0,&01,&71,&03,&71,&03
"�&FF,&FF,0,&32,&53,&03,&53,&03
"�&FF,&FF,0,&A3,&11,&03,&11,&03
�&FF,&19,&69,&FF,0,0,0,0
&�&FF,&FF,&00,&FF,0,0,0,0
0$�&FF,&1B,&FF,&01,&64,&03,&74,&03
:�&FF,&FF,0,&FF,0,0,0,0
D:
N�&FF,&FF,0,&FF,0,0,0,0
X�&FF,&FF,0,&FF,0,0,0,0
b�&FF,&FF,0,&FF,0,0,0,0
l�&FF,&FF,0,&FF,0,0,0,0
�

00000000  0d 00 0a 50 d3 3d 26 31  46 30 30 3a ff 22 4c 4f  |...P.=&1F00:."LO|
00000010  41 44 20 42 4c 4f 43 44  41 54 20 32 30 30 30 22  |AD BLOCDAT 2000"|
00000020  3a ff 22 4c 4f 41 44 20  53 50 52 49 54 45 53 2e  |:."LOAD SPRITES.|
00000030  53 50 52 44 41 54 20 36  32 30 30 22 3a ff 22 4c  |SPRDAT 6200":."L|
00000040  4f 41 44 20 4f 42 44 41  54 41 20 33 30 30 30 22  |OAD OBDATA 3000"|
00000050  0d 00 14 19 e3 64 3d 26  33 36 30 30 b8 26 33 44  |.....d=&3600.&3D|
00000060  46 46 3a 3f 64 3d 30 3a  ed 0d 00 1e 19 e3 64 3d  |FF:?d=0:......d=|
00000070  26 33 46 30 30 b8 26 35  32 46 46 3a 3f 64 3d 30  |&3F00.&52FF:?d=0|
00000080  3a ed 0d 00 23 5a e3 72  3d 26 32 30 46 45 b8 26  |:...#Z.r=&20FE.&|
00000090  32 46 46 45 88 26 31 30  30 3a f3 61 3a 3f 72 3d  |2FFE.&100:.a:?r=|
000000a0  28 3f 72 29 20 80 20 26  33 46 20 84 20 31 36 2a  |(?r) . &3F . 16*|
000000b0  28 61 20 80 20 34 29 3a  3f 28 72 2b 31 29 3d 28  |(a . 4):?(r+1)=(|
000000c0  3f 28 72 2b 31 29 29 20  80 20 26 33 46 20 84 20  |?(r+1)) . &3F . |
000000d0  36 34 2a 28 61 20 80 20  33 29 3a ed 0d 00 28 1c  |64*(a . 3):...(.|
000000e0  e3 70 3d 30 b8 32 88 32  3a 50 25 3d 26 31 46 42  |.p=0.2.2:P%=&1FB|
000000f0  30 3a 5b 4f 50 54 20 70  0d 00 32 98 4c 44 41 23  |0:[OPT p..2.LDA#|
00000100  26 38 43 3a 4a 53 52 26  46 46 46 34 3a 4c 44 41  |&8C:JSR&FFF4:LDA|
00000110  23 26 38 31 3a 4c 44 58  23 30 3a 4c 44 59 23 26  |#&81:LDX#0:LDY#&|
00000120  46 46 3a 4a 53 52 26 46  46 46 34 3a 43 50 58 23  |FF:JSR&FFF4:CPX#|
00000130  31 3a 42 4e 45 62 62 63  3a 4c 44 41 23 30 3a 4a  |1:BNEbbc:LDA#0:J|
00000140  4d 50 65 6c 6b 3a 2e 62  62 63 20 4c 44 41 23 31  |MPelk:.bbc LDA#1|
00000150  3a 2e 65 6c 6b 20 53 54  41 26 46 35 3a 4c 44 58  |:.elk STA&F5:LDX|
00000160  23 30 3a 2e 7a 65 72 6f  74 20 4c 44 41 26 35 33  |#0:.zerot LDA&53|
00000170  30 30 2c 58 3a 53 54 41  30 2c 58 3a 49 4e 58 3a  |00,X:STA0,X:INX:|
00000180  43 50 58 23 26 38 30 3a  42 4e 45 7a 65 72 6f 74  |CPX#&80:BNEzerot|
00000190  0d 00 3c cc 4c 44 59 23  30 3a 53 54 59 26 37 30  |..<.LDY#0:STY&70|
000001a0  3a 53 54 59 26 37 32 3a  4c 44 41 23 26 33 30 3a  |:STY&72:LDA#&30:|
000001b0  53 54 41 26 37 31 3a 4c  44 41 23 26 41 3a 53 54  |STA&71:LDA#&A:ST|
000001c0  41 26 37 33 3a 2e 6d 6f  76 65 6f 62 6a 73 20 4c  |A&73:.moveobjs L|
000001d0  44 41 28 26 37 30 29 2c  59 3a 53 54 41 28 26 37  |DA(&70),Y:STA(&7|
000001e0  32 29 2c 59 3a 49 4e 59  3a 42 4e 45 6d 6f 76 65  |2),Y:INY:BNEmove|
000001f0  6f 62 6a 73 3a 49 4e 43  26 37 31 3a 49 4e 43 26  |objs:INC&71:INC&|
00000200  37 33 3a 4c 44 41 26 37  33 3a 43 4d 50 23 26 31  |73:LDA&73:CMP#&1|
00000210  30 3a 42 4e 45 6d 6f 76  65 6f 62 6a 73 3a 2e 6d  |0:BNEmoveobjs:.m|
00000220  6f 76 65 73 6e 64 61 74  20 4c 44 41 26 36 38 30  |ovesndat LDA&680|
00000230  30 2c 59 3a 53 54 41 26  31 30 30 2c 59 3a 49 4e  |0,Y:STA&100,Y:IN|
00000240  59 3a 43 50 59 23 26 43  30 3a 42 4e 45 6d 6f 76  |Y:CPY#&C0:BNEmov|
00000250  65 73 6e 64 61 74 3a 4c  44 59 23 30 0d 00 46 30  |esndat:LDY#0..F0|
00000260  2e 6d 6f 76 65 6e 61 6d  20 4c 44 41 26 33 45 30  |.movenam LDA&3E0|
00000270  30 2c 59 3a 53 54 41 26  39 30 30 2c 59 3a 49 4e  |0,Y:STA&900,Y:IN|
00000280  59 3a 42 4e 45 6d 6f 76  65 6e 61 6d 0d 00 50 78  |Y:BNEmovenam..Px|
00000290  4c 44 41 23 26 35 34 3a  53 54 41 26 37 31 3a 4c  |LDA#&54:STA&71:L|
000002a0  44 41 23 34 3a 53 54 41  26 37 33 3a 2e 6d 6f 76  |DA#4:STA&73:.mov|
000002b0  65 6f 62 6a 64 20 4c 44  41 28 26 37 30 29 2c 59  |eobjd LDA(&70),Y|
000002c0  3a 53 54 41 28 26 37 32  29 2c 59 3a 49 4e 59 3a  |:STA(&72),Y:INY:|
000002d0  42 4e 45 6d 6f 76 65 6f  62 6a 64 3a 49 4e 43 26  |BNEmoveobjd:INC&|
000002e0  37 31 3a 49 4e 43 26 37  33 3a 4c 44 41 26 37 31  |71:INC&73:LDA&71|
000002f0  3a 43 4d 50 23 26 35 38  3a 42 4e 45 6d 6f 76 65  |:CMP#&58:BNEmove|
00000300  6f 62 6a 64 0d 00 5a 89  4c 44 41 23 26 31 30 3a  |objd..Z.LDA#&10:|
00000310  53 54 41 26 37 33 3a 2e  6d 6f 76 65 63 6f 64 65  |STA&73:.movecode|
00000320  20 4c 44 41 28 26 37 30  29 2c 59 3a 53 54 41 28  | LDA(&70),Y:STA(|
00000330  26 37 32 29 2c 59 3a 49  4e 59 3a 42 4e 45 6d 6f  |&72),Y:INY:BNEmo|
00000340  76 65 63 6f 64 65 3a 49  4e 43 26 37 31 3a 49 4e  |vecode:INC&71:IN|
00000350  43 26 37 33 3a 4c 44 41  26 37 33 3a 43 4d 50 23  |C&73:LDA&73:CMP#|
00000360  26 32 30 3a 42 4e 45 6d  6f 76 65 63 6f 64 65 3a  |&20:BNEmovecode:|
00000370  4c 44 41 23 26 36 43 3a  53 54 41 26 37 31 3a 4c  |LDA#&6C:STA&71:L|
00000380  44 41 23 26 33 30 3a 53  54 41 26 37 33 0d 00 64  |DA#&30:STA&73..d|
00000390  aa 2e 64 65 63 6f 6d 70  20 4c 44 41 28 26 37 30  |..decomp LDA(&70|
000003a0  29 2c 59 3a 53 54 41 26  38 30 3a 2e 62 69 74 73  |),Y:STA&80:.bits|
000003b0  20 4c 44 41 26 38 30 3a  4c 53 52 20 41 3a 52 4f  | LDA&80:LSR A:RO|
000003c0  52 20 41 3a 52 4f 52 20  41 3a 80 23 26 43 30 3a  |R A:ROR A:.#&C0:|
000003d0  53 54 41 28 26 37 32 29  2c 59 3a 49 4e 43 26 37  |STA(&72),Y:INC&7|
000003e0  32 3a 4c 44 41 26 37 32  3a 42 4e 45 6e 6f 65 78  |2:LDA&72:BNEnoex|
000003f0  74 3a 49 4e 43 26 37 33  3a 4c 44 41 26 37 33 3a  |t:INC&73:LDA&73:|
00000400  43 4d 50 23 26 38 30 3a  42 4e 45 6e 6f 65 78 74  |CMP#&80:BNEnoext|
00000410  3a 4c 44 41 23 32 30 30  3a 4c 44 58 23 32 3a 4c  |:LDA#200:LDX#2:L|
00000420  44 59 23 30 3a 4a 53 52  26 46 46 46 34 3a 4a 4d  |DY#0:JSR&FFF4:JM|
00000430  50 26 31 30 30 30 20 0d  00 6e 54 2e 6e 6f 65 78  |P&1000 ..nT.noex|
00000440  74 20 4c 53 52 26 38 30  3a 4c 53 52 26 38 30 3a  |t LSR&80:LSR&80:|
00000450  4c 44 41 26 37 32 3a 80  23 33 3a 42 4e 45 62 69  |LDA&72:.#3:BNEbi|
00000460  74 73 3a 49 4e 43 26 37  30 3a 4c 44 41 26 37 30  |ts:INC&70:LDA&70|
00000470  3a 42 4e 45 64 65 63 6f  6d 70 3a 49 4e 43 26 37  |:BNEdecomp:INC&7|
00000480  31 3a 4a 4d 50 64 65 63  6f 6d 70 0d 00 78 07 5d  |1:JMPdecomp..x.]|
00000490  3a ed 0d 00 82 05 3a 0d  00 96 28 e3 6f 62 3d 30  |:.....:...(.ob=0|
000004a0  b8 33 31 3a e3 61 64 3d  26 35 37 30 30 2b 6f 62  |.31:.ad=&5700+ob|
000004b0  20 b8 20 26 35 37 45 30  2b 6f 62 20 88 33 32 0d  | . &57E0+ob .32.|
000004c0  00 a0 0c f3 61 3a 3f 61  64 3d 61 0d 00 aa 06 ed  |....a:?ad=a.....|
000004d0  2c 0d 00 b4 0d 2a 44 49  52 20 53 48 49 50 0d 00  |,....*DIR SHIP..|
000004e0  be 1c 2a 53 41 56 45 20  53 68 69 70 2f 50 52 47  |..*SAVE Ship/PRG|
000004f0  20 31 46 42 30 20 38 30  30 30 0d 00 c8 0b d7 22  | 1FB0 8000....."|
00000500  53 48 49 50 22 0d 00 d2  05 3a 0d 00 dc 0c 20 f4  |SHIP"....:.... .|
00000510  20 44 6f 6f 72 73 0d 00  e6 24 dc 31 2c 31 2c 31  | Doors...$.1,1,1|
00000520  2c 31 2c 31 2c 33 2c 34  2c 31 2c 31 2c 31 2c 31  |,1,1,3,4,1,1,1,1|
00000530  2c 31 2c 31 2c 31 2c 31  2c 31 0d 01 0e 05 3a 0d  |,1,1,1,1,1....:.|
00000540  01 18 1a dc 26 46 46 2c  26 46 46 2c 30 2c 26 46  |....&FF,&FF,0,&F|
00000550  46 2c 30 2c 30 2c 30 2c  30 0d 01 22 1a dc 26 46  |F,0,0,0,0.."..&F|
00000560  46 2c 26 46 46 2c 30 2c  26 46 46 2c 30 2c 30 2c  |F,&FF,0,&FF,0,0,|
00000570  30 2c 30 0d 01 2c 1a dc  26 46 46 2c 26 46 46 2c  |0,0..,..&FF,&FF,|
00000580  30 2c 26 46 46 2c 30 2c  30 2c 30 2c 30 0d 01 36  |0,&FF,0,0,0,0..6|
00000590  1a dc 26 46 46 2c 26 46  46 2c 30 2c 26 46 46 2c  |..&FF,&FF,0,&FF,|
000005a0  30 2c 30 2c 30 2c 30 0d  01 40 1a dc 26 46 46 2c  |0,0,0,0..@..&FF,|
000005b0  26 46 46 2c 30 2c 26 46  46 2c 30 2c 30 2c 30 2c  |&FF,0,&FF,0,0,0,|
000005c0  30 0d 01 4a 1a dc 26 46  46 2c 26 46 46 2c 30 2c  |0..J..&FF,&FF,0,|
000005d0  26 46 46 2c 30 2c 30 2c  30 2c 30 0d 01 54 1a dc  |&FF,0,0,0,0..T..|
000005e0  26 46 46 2c 26 46 46 2c  30 2c 26 46 46 2c 30 2c  |&FF,&FF,0,&FF,0,|
000005f0  30 2c 30 2c 30 0d 01 5e  05 3a 0d 01 68 1e dc 26  |0,0,0..^.:..h..&|
00000600  46 46 2c 26 46 46 2c 30  2c 26 43 30 2c 26 33 33  |FF,&FF,0,&C0,&33|
00000610  2c 36 2c 26 33 34 2c 36  0d 01 72 1a dc 26 46 46  |,6,&34,6..r..&FF|
00000620  2c 26 46 46 2c 30 2c 26  46 46 2c 30 2c 30 2c 30  |,&FF,0,&FF,0,0,0|
00000630  2c 30 0d 01 7c 22 dc 26  46 46 2c 26 46 46 2c 30  |,0..|".&FF,&FF,0|
00000640  2c 26 30 34 2c 26 31 41  2c 26 30 30 2c 26 31 41  |,&04,&1A,&00,&1A|
00000650  2c 26 30 30 0d 01 86 1a  dc 26 30 42 2c 26 46 46  |,&00.....&0B,&FF|
00000660  2c 30 2c 26 46 46 2c 30  2c 30 2c 30 2c 30 0d 01  |,0,&FF,0,0,0,0..|
00000670  90 1a dc 26 30 43 2c 26  46 46 2c 30 2c 26 46 46  |...&0C,&FF,0,&FF|
00000680  2c 30 2c 30 2c 30 2c 30  0d 01 9a 22 dc 26 46 46  |,0,0,0,0...".&FF|
00000690  2c 26 46 46 2c 30 2c 26  31 31 2c 26 37 36 2c 26  |,&FF,0,&11,&76,&|
000006a0  30 33 2c 26 37 35 2c 26  30 45 0d 01 a4 05 3a 0d  |03,&75,&0E....:.|
000006b0  01 ae 22 dc 26 46 46 2c  26 46 46 2c 30 2c 26 41  |..".&FF,&FF,0,&A|
000006c0  34 2c 26 31 41 2c 26 30  30 2c 26 31 41 2c 26 30  |4,&1A,&00,&1A,&0|
000006d0  30 0d 01 b8 22 dc 26 46  46 2c 26 46 46 2c 30 2c  |0...".&FF,&FF,0,|
000006e0  26 38 34 2c 26 31 41 2c  26 30 30 2c 26 31 41 2c  |&84,&1A,&00,&1A,|
000006f0  26 30 30 0d 01 c2 22 dc  26 46 46 2c 26 46 46 2c  |&00...".&FF,&FF,|
00000700  30 2c 26 30 35 2c 26 37  33 2c 26 30 37 2c 26 37  |0,&05,&73,&07,&7|
00000710  33 2c 26 30 37 0d 01 cc  1a dc 26 31 31 2c 26 46  |3,&07.....&11,&F|
00000720  46 2c 30 2c 26 46 46 2c  30 2c 30 2c 30 2c 30 0d  |F,0,&FF,0,0,0,0.|
00000730  01 d6 22 dc 26 46 46 2c  26 46 46 2c 30 2c 26 37  |..".&FF,&FF,0,&7|
00000740  33 2c 26 31 41 2c 26 30  30 2c 26 31 41 2c 26 30  |3,&1A,&00,&1A,&0|
00000750  30 0d 01 e0 22 dc 26 46  46 2c 26 46 46 2c 30 2c  |0...".&FF,&FF,0,|
00000760  26 36 31 2c 26 37 38 2c  26 31 30 2c 26 37 38 2c  |&61,&78,&10,&78,|
00000770  26 31 30 0d 01 ea 22 dc  26 46 46 2c 26 46 46 2c  |&10...".&FF,&FF,|
00000780  30 2c 26 38 32 2c 26 37  32 2c 26 30 37 2c 26 37  |0,&82,&72,&07,&7|
00000790  38 2c 26 31 32 0d 01 f4  22 dc 26 46 46 2c 26 46  |8,&12...".&FF,&F|
000007a0  46 2c 30 2c 26 38 32 2c  26 37 32 2c 26 31 32 2c  |F,0,&82,&72,&12,|
000007b0  26 37 38 2c 26 30 37 0d  01 fe 22 dc 26 46 46 2c  |&78,&07...".&FF,|
000007c0  26 46 46 2c 30 2c 26 30  31 2c 26 37 31 2c 26 30  |&FF,0,&01,&71,&0|
000007d0  33 2c 26 37 31 2c 26 30  33 0d 02 08 22 dc 26 46  |3,&71,&03...".&F|
000007e0  46 2c 26 46 46 2c 30 2c  26 33 32 2c 26 35 33 2c  |F,&FF,0,&32,&53,|
000007f0  26 30 33 2c 26 35 33 2c  26 30 33 0d 02 12 22 dc  |&03,&53,&03...".|
00000800  26 46 46 2c 26 46 46 2c  30 2c 26 41 33 2c 26 31  |&FF,&FF,0,&A3,&1|
00000810  31 2c 26 30 33 2c 26 31  31 2c 26 30 33 0d 02 1c  |1,&03,&11,&03...|
00000820  1c dc 26 46 46 2c 26 31  39 2c 26 36 39 2c 26 46  |..&FF,&19,&69,&F|
00000830  46 2c 30 2c 30 2c 30 2c  30 0d 02 26 1c dc 26 46  |F,0,0,0,0..&..&F|
00000840  46 2c 26 46 46 2c 26 30  30 2c 26 46 46 2c 30 2c  |F,&FF,&00,&FF,0,|
00000850  30 2c 30 2c 30 0d 02 30  24 dc 26 46 46 2c 26 31  |0,0,0..0$.&FF,&1|
00000860  42 2c 26 46 46 2c 26 30  31 2c 26 36 34 2c 26 30  |B,&FF,&01,&64,&0|
00000870  33 2c 26 37 34 2c 26 30  33 0d 02 3a 1a dc 26 46  |3,&74,&03..:..&F|
00000880  46 2c 26 46 46 2c 30 2c  26 46 46 2c 30 2c 30 2c  |F,&FF,0,&FF,0,0,|
00000890  30 2c 30 0d 02 44 05 3a  0d 02 4e 1a dc 26 46 46  |0,0..D.:..N..&FF|
000008a0  2c 26 46 46 2c 30 2c 26  46 46 2c 30 2c 30 2c 30  |,&FF,0,&FF,0,0,0|
000008b0  2c 30 0d 02 58 1a dc 26  46 46 2c 26 46 46 2c 30  |,0..X..&FF,&FF,0|
000008c0  2c 26 46 46 2c 30 2c 30  2c 30 2c 30 0d 02 62 1a  |,&FF,0,0,0,0..b.|
000008d0  dc 26 46 46 2c 26 46 46  2c 30 2c 26 46 46 2c 30  |.&FF,&FF,0,&FF,0|
000008e0  2c 30 2c 30 2c 30 0d 02  6c 1a dc 26 46 46 2c 26  |,0,0,0..l..&FF,&|
000008f0  46 46 2c 30 2c 26 46 46  2c 30 2c 30 2c 30 2c 30  |FF,0,&FF,0,0,0,0|
00000900  0d ff                                             |..|
00000902