00000000  20 20 9f e5 0c 30 4f e2  03 00 82 e0 0f 1c 80 e2  |  ...0O.........|
00000010  04 30 10 e4 04 30 01 e4  04 20 52 e2 fb ff ff 1a  |.0...0... R.....|
00000020  28 c0 4f e2 16 1d 00 ea  fc 65 00 00 0d 00 0a 31  |(.O......e.....1|
00000030  f4 20 20 20 20 20 20 20  20 20 20 20 2a 2a 2a 20  |.           *** |
00000040  20 46 72 6f 73 74 79 20  54 68 65 20 53 6e 6f 77  | Frosty The Snow|
00000050  6d 61 6e 20 47 61 6d 65  20 20 2a 2a 2a 0d 00 14  |man Game  ***...|
00000060  3a f4 20 50 72 6f 67 72  61 6d 6d 69 6e 67 20 41  |:. Programming A|
00000070  6e 64 20 47 72 61 70 68  69 63 73 20 42 79 20 43  |nd Graphics By C|
00000080  68 72 69 73 20 57 79 6d  61 72 6b 20 20 20 20 41  |hris Wymark    A|
00000090  67 65 3a 20 20 31 36 0d  00 1e 3a f4 20 20 20 20  |ge:  16...:.    |
000000a0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000000b0  20 20 49 20 52 65 63 65  6e 74 6c 79 20 48 61 64  |  I Recently Had|
000000c0  20 4d 79 20 42 69 72 74  68 64 61 79 20 20 20 5e  | My Birthday   ^|
000000d0  5e 0d 00 28 26 f4 20 41  6e 20 41 61 72 64 27 76  |^..(&. An Aard'v|
000000e0  61 72 6b 20 53 6f 66 74  77 61 72 65 20 50 72 6f  |ark Software Pro|
000000f0  64 75 63 74 69 6f 6e 0d  00 32 31 f4 20 49 6e 73  |duction..21. Ins|
00000100  70 69 72 69 61 74 69 6f  6e 20 61 73 20 65 76 65  |piriation as eve|
00000110  72 20 66 72 6f 6d 20 4c  6f 72 61 20 46 72 69 63  |r from Lora Fric|
00000120  6b 65 72 2e 2e 2e 2e 2e  0d 00 3c 1d f4 20 a9 20  |ker.......<.. . |
00000130  31 39 39 34 20 41 72 63  68 69 6d 65 64 65 73 20  |1994 Archimedes |
00000140  57 6f 72 6c 64 0d 00 46  05 3a 0d 00 50 3f f4 20  |World..F.:..P?. |
00000150  4f 69 21 20 48 61 63 6b  65 72 2c 20 59 61 61 2c  |Oi! Hacker, Yaa,|
00000160  20 42 6f 6f 20 53 75 63  6b 73 21 20 54 68 69 73  | Boo Sucks! This|
00000170  20 50 72 6f 67 72 61 6d  20 49 73 20 50 72 6f 74  | Program Is Prot|
00000180  65 63 74 65 64 2e 2e 2e  2e 0d 00 5a 05 3a 0d 00  |ected......Z.:..|
00000190  64 1e eb 20 31 35 3a 70  6c 61 79 69 6e 67 25 3d  |d.. 15:playing%=|
000001a0  a3 3a ee 20 85 20 f2 65  72 72 6f 72 0d 00 6e 85  |.:. . .error..n.|
000001b0  c8 99 20 26 35 2c 22 53  63 72 65 65 6e 4c 6f 61  |.. &5,"ScreenLoa|
000001c0  64 20 3c 44 61 74 61 24  44 69 72 3e 2e 5e 2e 4c  |d <Data$Dir>.^.L|
000001d0  6f 61 64 53 63 72 22 3a  f2 73 6f 75 6e 64 5f 69  |oadScr":.sound_i|
000001e0  6e 69 74 3a 87 3a f2 69  6e 69 74 3a f5 20 fd 20  |nit:.:.init:. . |
000001f0  a6 28 31 30 30 30 29 3a  62 61 6e 6b 25 3d 31 3a  |.(1000):bank%=1:|
00000200  db 3a f2 73 77 61 70 3a  db 3a f2 73 77 61 70 3a  |.:.swap:.:.swap:|
00000210  db 3a f2 61 73 73 65 6d  62 6c 65 3a f2 73 65 74  |.:.assemble:.set|
00000220  6d 61 73 6b 3a f2 73 63  6f 72 65 5f 62 6f 61 72  |mask:.score_boar|
00000230  64 0d 00 78 05 e0 0d 00  82 05 3a 0d 00 8c 0a dd  |d..x......:.....|
00000240  f2 69 6e 69 74 0d 00 96  fb de 20 73 70 72 20 31  |.init..... spr 1|
00000250  35 34 2c 6c 65 76 65 6c  25 28 32 31 2c 31 36 29  |54,level%(21,16)|
00000260  2c 6d 63 6c 65 76 65 6c  20 33 37 30 2c 74 65 78  |,mclevel 370,tex|
00000270  74 25 20 36 35 30 30 2c  62 61 64 64 69 65 73 20  |t% 6500,baddies |
00000280  32 35 30 2c 77 61 79 20  38 30 2c 6d 61 73 6b 64  |250,way 80,maskd|
00000290  61 74 61 20 35 2c 74 69  6e 66 6f 20 31 30 2c 73  |ata 5,tinfo 10,s|
000002a0  63 61 6c 65 25 20 31 36  2c 65 6c 65 63 20 31 30  |cale% 16,elec 10|
000002b0  30 2c 66 77 61 79 20 32  35 2c 66 6c 6f 61 74 20  |0,fway 25,float |
000002c0  31 39 30 2c 73 69 6c 6c  79 20 32 35 2c 77 73 70  |190,silly 25,wsp|
000002d0  20 35 2c 73 6e 6f 77 64  20 34 34 38 2c 73 63 6f  | 5,snowd 448,sco|
000002e0  72 65 24 28 39 29 2c 73  63 6f 72 65 25 28 39 29  |re$(9),score%(9)|
000002f0  2c 74 65 6d 70 20 28 34  34 38 2f 34 29 2c 6d 65  |,temp (448/4),me|
00000300  6d 20 34 34 2c 6d 65 6d  31 20 34 34 3a 66 69 6c  |m 44,mem1 44:fil|
00000310  65 24 3d 22 3c 44 61 74  61 24 44 69 72 3e 2e 53  |e$="<Data$Dir>.S|
00000320  70 72 69 74 65 73 22 3a  64 65 61 64 25 3d 34 35  |prites":dead%=45|
00000330  3a 73 63 6f 72 65 25 3d  30 3a 64 69 72 25 3d 30  |:score%=0:dir%=0|
00000340  0d 00 a0 a7 65 72 72 25  3d a3 3a c8 99 26 38 2c  |....err%=.:..&8,|
00000350  35 2c 66 69 6c 65 24 20  b8 2c 2c 2c 2c 66 69 6c  |5,file$ .,,,,fil|
00000360  65 5f 73 69 7a 65 25 3a  de 20 73 70 72 69 74 65  |e_size%:. sprite|
00000370  73 25 20 66 69 6c 65 5f  73 69 7a 65 25 3a 21 73  |s% file_size%:!s|
00000380  70 72 69 74 65 73 25 3d  66 69 6c 65 5f 73 69 7a  |prites%=file_siz|
00000390  65 25 2b 34 3a c8 99 26  38 2c 32 35 35 2c 66 69  |e%+4:..&8,255,fi|
000003a0  6c 65 24 2c 73 70 72 69  74 65 73 25 2b 34 3a 6c  |le$,sprites%+4:l|
000003b0  65 76 65 6c 25 3d 30 3a  67 73 63 6f 72 65 25 3d  |evel%=0:gscore%=|
000003c0  30 3a e3 6c 6f 6f 70 25  3d 30 b8 b3 28 31 30 30  |0:.loop%=0..(100|
000003d0  29 3a 73 74 70 25 3d b3  28 91 29 3a ed 3a 6f 6c  |):stp%=.(.):.:ol|
000003e0  64 64 69 72 25 3d 30 0d  00 aa 71 73 6e 6f 77 64  |ddir%=0...qsnowd|
000003f0  3f 30 3d 31 30 36 3a 73  6e 6f 77 64 3f 31 3d 30  |?0=106:snowd?1=0|
00000400  3a 70 25 3d 34 3a 66 69  6c 65 25 3d 8e 28 22 3c  |:p%=4:file%=.("<|
00000410  44 61 74 61 24 44 69 72  3e 2e 53 6e 6f 77 43 6f  |Data$Dir>.SnowCo|
00000420  64 65 22 29 3a e3 6c 6f  6f 70 25 3d 30 b8 28 73  |de"):.loop%=0.(s|
00000430  6e 6f 77 64 3f 30 29 3a  e8 23 66 69 6c 65 25 2c  |nowd?0):.#file%,|
00000440  73 6e 6f 77 64 21 70 25  3a 70 25 2b 3d 34 3a ed  |snowd!p%:p%+=4:.|
00000450  3a d9 23 66 69 6c 65 25  0d 00 b4 a6 f7 3a e3 6c  |:.#file%.....:.l|
00000460  6f 6f 70 25 3d 30 b8 31  30 34 88 34 3a f3 20 73  |oop%=0.104.4:. s|
00000470  70 24 3a c8 99 26 32 45  2c 26 31 31 38 2c 73 70  |p$:..&2E,&118,sp|
00000480  72 69 74 65 73 25 2c 28  73 70 24 29 b8 2c 2c 73  |rites%,(sp$).,,s|
00000490  70 72 21 6c 6f 6f 70 25  3a ed 3a 61 25 3d 31 30  |pr!loop%:.:a%=10|
000004a0  38 3a e3 6c 6f 6f 70 25  3d 30 b8 39 3a c8 99 26  |8:.loop%=0.9:..&|
000004b0  32 45 2c 26 31 31 38 2c  73 70 72 69 74 65 73 25  |2E,&118,sprites%|
000004c0  2c 22 64 69 67 69 74 22  2b c3 28 6c 6f 6f 70 25  |,"digit"+.(loop%|
000004d0  29 b8 2c 2c 73 70 72 21  61 25 3a 61 25 2b 3d 34  |).,,spr!a%:a%+=4|
000004e0  3a ed 3a f2 69 6e 69 74  5f 66 6f 6e 74 3a f2 69  |:.:.init_font:.i|
000004f0  6e 69 74 5f 73 63 6f 72  65 62 6f 61 72 64 0d 00  |nit_scoreboard..|
00000500  be 05 e1 0d 00 c8 05 3a  0d 00 d2 da dc 20 22 74  |.......:..... "t|
00000510  69 6c 65 22 2c 22 66 72  6f 73 74 22 2c 22 62 6c  |ile","frost","bl|
00000520  6f 63 6b 22 2c 22 6c 61  64 64 65 72 22 2c 22 62  |ock","ladder","b|
00000530  61 64 31 22 2c 22 62 61  64 32 22 2c 22 74 75 72  |ad1","bad2","tur|
00000540  6e 22 2c 22 79 6f 75 22  2c 22 74 69 6c 65 22 2c  |n","you","tile",|
00000550  22 66 69 72 65 22 2c 22  65 6c 65 22 2c 22 65 6c  |"fire","ele","el|
00000560  65 31 22 2c 22 62 61 64  33 22 2c 22 63 6f 6e 76  |e1","bad3","conv|
00000570  65 79 22 2c 22 68 6f 6d  65 22 2c 22 68 6f 6d 65  |ey","home","home|
00000580  31 22 2c 22 73 6e 6f 77  6d 61 6e 22 2c 22 61 61  |1","snowman","aa|
00000590  72 64 6c 6f 67 6f 22 2c  22 62 6f 6d 62 22 2c 22  |rdlogo","bomb","|
000005a0  73 77 69 74 63 68 22 2c  22 66 6c 61 73 68 5f 79  |switch","flash_y|
000005b0  6f 75 22 2c 22 70 6f 74  69 6f 6e 22 2c 22 62 6f  |ou","potion","bo|
000005c0  6e 75 73 22 2c 22 73 6d  61 72 74 22 2c 22 6c 69  |nus","smart","li|
000005d0  66 65 22 2c 22 70 6f 72  74 22 2c 22 63 6c 6f 63  |fe","port","cloc|
000005e0  6b 22 0d 00 dc 05 3a 0d  00 e6 11 dd f2 64 72 61  |k"....:......dra|
000005f0  77 5f 73 63 72 65 65 6e  0d 00 f0 21 c8 99 26 32  |w_screen...!..&2|
00000600  45 2c 26 32 32 32 2c 73  70 72 69 74 65 73 25 2c  |E,&222,sprites%,|
00000610  73 70 72 21 30 2c 30 2c  30 0d 00 fa 05 e1 0d 01  |spr!0,0,0.......|
00000620  04 05 3a 0d 01 0e 0e dd  f2 61 73 73 65 6d 62 6c  |..:......assembl|
00000630  65 0d 01 18 42 de 20 63  6f 64 65 25 20 26 38 30  |e...B. code% &80|
00000640  30 3a 70 63 3d 31 35 3a  6c 69 6e 6b 3d 31 34 3a  |0:pc=15:link=14:|
00000650  73 70 3d 31 33 3a 6c 6f  61 64 3d 37 3a e3 20 70  |sp=13:load=7:. p|
00000660  61 73 73 25 3d 30 b8 32  88 32 3a 50 25 3d 63 6f  |ass%=0.2.2:P%=co|
00000670  64 65 25 0d 01 22 0e 5b  4f 50 54 20 70 61 73 73  |de%..".[OPT pass|
00000680  25 0d 01 2c 56 2e 69 63  65 3a 6d 6f 76 20 72 31  |%..,V.ice:mov r1|
00000690  31 2c 72 32 3a 6d 6f 76  20 72 38 2c 72 30 3a 6d  |1,r2:mov r8,r0:m|
000006a0  6f 76 20 72 33 2c 23 30  3a 6d 6f 76 20 72 34 2c  |ov r3,#0:mov r4,|
000006b0  23 30 3a 6d 6f 76 20 72  30 2c 23 26 32 32 30 3a  |#0:mov r0,#&220:|
000006c0  61 64 64 20 72 30 2c 72  30 2c 23 26 32 3a 6d 6f  |add r0,r0,#&2:mo|
000006d0  76 20 72 35 2c 23 38 0d  01 36 d2 2e 69 63 65 5f  |v r5,#8..6..ice_|
000006e0  67 6f 3a 6c 64 72 62 20  72 31 32 2c 5b 72 31 31  |go:ldrb r12,[r11|
000006f0  5d 2c 23 31 3a 6c 64 72  20 72 32 2c 5b 72 38 2c  |],#1:ldr r2,[r8,|
00000700  72 31 32 5d 3a 6d 6f 76  20 72 39 2c 72 31 32 3a  |r12]:mov r9,r12:|
00000710  6d 6f 76 20 72 31 32 2c  23 33 32 3a 6c 64 72 20  |mov r12,#32:ldr |
00000720  72 32 2c 5b 72 38 2c 72  31 32 5d 3a 73 77 69 20  |r2,[r8,r12]:swi |
00000730  26 32 65 3a 6d 6f 76 20  72 31 32 2c 72 39 3a 6c  |&2e:mov r12,r9:l|
00000740  64 72 20 72 32 2c 5b 72  38 2c 72 31 32 5d 3a 63  |dr r2,[r8,r12]:c|
00000750  6d 70 20 72 31 32 2c 23  30 3a 63 6d 70 6e 65 20  |mp r12,#0:cmpne |
00000760  72 31 32 2c 23 32 34 3a  63 6d 70 6e 65 20 72 31  |r12,#24:cmpne r1|
00000770  32 2c 23 31 36 3a 63 6d  70 6e 65 20 72 31 32 2c  |2,#16:cmpne r12,|
00000780  23 35 32 3a 73 77 69 6e  65 20 26 32 65 3a 61 64  |#52:swine &2e:ad|
00000790  64 20 72 33 2c 72 33 2c  23 36 30 3a 6d 6f 76 20  |d r3,r3,#60:mov |
000007a0  72 31 30 2c 23 26 33 65  38 0d 01 40 60 61 64 64  |r10,#&3e8..@`add|
000007b0  20 72 31 30 2c 72 31 30  2c 23 26 66 61 3a 63 6d  | r10,r10,#&fa:cm|
000007c0  70 20 72 33 2c 72 31 30  3a 61 64 64 67 74 20 72  |p r3,r10:addgt r|
000007d0  34 2c 72 34 2c 23 36 30  3a 6d 6f 76 67 74 20 72  |4,r4,#60:movgt r|
000007e0  33 2c 23 30 3a 63 6d 70  20 72 34 2c 23 38 36 30  |3,#0:cmp r4,#860|
000007f0  3a 62 6c 73 20 69 63 65  5f 67 6f 3a 6d 6f 76 68  |:bls ice_go:movh|
00000800  69 20 70 63 2c 6c 69 6e  6b 0d 01 4a a5 2e 66 6c  |i pc,link..J..fl|
00000810  6f 61 74 65 72 3a 73 74  6d 66 64 20 28 73 70 29  |oater:stmfd (sp)|
00000820  21 2c 7b 72 30 2d 72 31  32 2c 6c 69 6e 6b 7d 3a  |!,{r0-r12,link}:|
00000830  6c 64 72 62 20 72 31 32  2c 5b 72 33 2c 23 30 5d  |ldrb r12,[r3,#0]|
00000840  3a 6d 6f 76 20 72 31 31  2c 23 30 3a 6d 6f 76 20  |:mov r11,#0:mov |
00000850  72 39 2c 72 33 3a 6d 6f  76 20 72 31 30 2c 23 31  |r9,r3:mov r10,#1|
00000860  3a 6d 6f 76 20 72 38 2c  72 31 3a 63 6d 70 20 72  |:mov r8,r1:cmp r|
00000870  31 32 2c 23 31 3a 6c 64  6d 65 71 66 64 20 28 73  |12,#1:ldmeqfd (s|
00000880  70 29 21 2c 7b 72 30 2d  72 31 32 2c 6c 69 6e 6b  |p)!,{r0-r12,link|
00000890  7d 3a 6d 6f 76 65 71 20  70 63 2c 6c 69 6e 6b 3a  |}:moveq pc,link:|
000008a0  73 75 62 20 72 31 32 2c  72 31 32 2c 23 31 0d 01  |sub r12,r12,#1..|
000008b0  54 5f 2e 66 6c 6f 61 74  5f 67 6f 3a 6c 64 6d 69  |T_.float_go:ldmi|
000008c0  61 20 72 32 21 2c 7b 72  31 2c 72 33 2c 72 34 2c  |a r2!,{r1,r3,r4,|
000008d0  72 35 7d 3a 6c 64 72 62  20 72 37 2c 5b 72 39 2c  |r5}:ldrb r7,[r9,|
000008e0  72 31 30 5d 3a 63 6d 70  20 72 31 2c 72 33 3a 6d  |r10]:cmp r1,r3:m|
000008f0  6f 76 65 71 20 72 37 2c  23 30 3a 73 74 72 65 71  |oveq r7,#0:streq|
00000900  62 20 72 37 2c 5b 72 39  2c 72 31 30 5d 0d 01 5e  |b r7,[r9,r10]..^|
00000910  9b 63 6d 70 20 72 33 2c  72 35 3a 6d 6f 76 65 71  |.cmp r3,r5:moveq|
00000920  20 72 37 2c 23 31 3a 73  74 72 65 71 62 20 72 37  | r7,#1:streqb r7|
00000930  2c 5b 72 39 2c 72 31 30  5d 3a 62 6c 20 70 6c 6f  |,[r9,r10]:bl plo|
00000940  74 5f 66 6c 6f 61 74 3a  61 64 64 20 72 31 30 2c  |t_float:add r10,|
00000950  72 31 30 2c 23 31 3a 61  64 64 20 72 31 31 2c 72  |r10,#1:add r11,r|
00000960  31 31 2c 23 31 3a 63 6d  70 20 72 31 31 2c 72 31  |11,#1:cmp r11,r1|
00000970  32 3a 6c 64 6d 65 71 66  64 20 28 73 70 29 21 2c  |2:ldmeqfd (sp)!,|
00000980  7b 72 30 2d 72 31 32 2c  6c 69 6e 6b 7d 3a 6d 6f  |{r0-r12,link}:mo|
00000990  76 65 71 20 70 63 2c 6c  69 6e 6b 3a 62 6e 65 20  |veq pc,link:bne |
000009a0  66 6c 6f 61 74 5f 67 6f  0d 01 68 e5 2e 70 6c 6f  |float_go..h..plo|
000009b0  74 5f 66 6c 6f 61 74 3a  73 74 6d 66 64 20 28 73  |t_float:stmfd (s|
000009c0  70 29 21 2c 7b 72 30 2d  72 31 30 7d 3a 6d 6f 76  |p)!,{r0-r10}:mov|
000009d0  20 72 39 2c 72 30 3a 6d  6f 76 20 72 31 30 2c 72  | r9,r0:mov r10,r|
000009e0  32 3a 6d 6f 76 20 72 30  2c 23 26 32 3a 61 64 64  |2:mov r0,#&2:add|
000009f0  20 72 30 2c 72 30 2c 23  26 32 32 30 3a 6d 6f 76  | r0,r0,#&220:mov|
00000a00  20 72 31 2c 72 38 3a 6c  64 72 20 72 32 2c 5b 72  | r1,r8:ldr r2,[r|
00000a10  39 2c 23 35 32 5d 3a 6d  6f 76 20 72 35 2c 23 38  |9,#52]:mov r5,#8|
00000a20  3a 73 77 69 20 26 32 65  3a 63 6d 70 20 72 37 2c  |:swi &2e:cmp r7,|
00000a30  23 30 3a 61 64 64 65 71  20 72 33 2c 72 33 2c 23  |#0:addeq r3,r3,#|
00000a40  35 3a 73 75 62 6e 65 20  72 33 2c 72 33 2c 23 35  |5:subne r3,r3,#5|
00000a50  3a 6d 6f 76 20 72 32 2c  72 31 30 3a 73 74 72 20  |:mov r2,r10:str |
00000a60  72 33 2c 5b 72 32 2c 23  2d 31 32 5d 3a 6c 64 6d  |r3,[r2,#-12]:ldm|
00000a70  66 64 20 28 73 70 29 21  2c 7b 72 30 2d 72 31 30  |fd (sp)!,{r0-r10|
00000a80  7d 3a 6d 6f 76 20 70 63  2c 6c 69 6e 6b 0d 01 72  |}:mov pc,link..r|
00000a90  7d 2e 70 6c 6f 74 5f 62  6f 6d 62 73 3a 6d 6f 76  |}.plot_bombs:mov|
00000aa0  20 72 31 31 2c 23 30 3a  6c 64 72 20 72 31 32 2c  | r11,#0:ldr r12,|
00000ab0  5b 72 32 2c 23 30 5d 3a  6d 6f 76 20 72 37 2c 72  |[r2,#0]:mov r7,r|
00000ac0  30 3a 6d 6f 76 20 72 38  2c 72 32 3a 6d 6f 76 20  |0:mov r8,r2:mov |
00000ad0  72 39 2c 72 33 3a 6d 6f  76 20 72 30 2c 23 26 32  |r9,r3:mov r0,#&2|
00000ae0  3a 61 64 64 20 72 30 2c  72 30 2c 23 26 32 32 30  |:add r0,r0,#&220|
00000af0  3a 6d 6f 76 20 72 35 2c  23 38 3a 6c 64 72 20 72  |:mov r5,#8:ldr r|
00000b00  32 2c 5b 72 37 2c 23 37  32 5d 0d 01 7c 73 2e 70  |2,[r7,#72]..|s.p|
00000b10  6c 6f 74 5f 62 6f 6d 62  5f 67 6f 3a 6c 64 72 20  |lot_bomb_go:ldr |
00000b20  72 33 2c 5b 72 38 2c 23  34 5d 21 3a 6c 64 72 20  |r3,[r8,#4]!:ldr |
00000b30  72 34 2c 5b 72 39 2c 23  34 5d 21 3a 73 77 69 20  |r4,[r9,#4]!:swi |
00000b40  26 32 65 3a 61 64 64 20  72 31 31 2c 72 31 31 2c  |&2e:add r11,r11,|
00000b50  23 31 3a 63 6d 70 20 72  31 31 2c 72 31 32 3a 62  |#1:cmp r11,r12:b|
00000b60  6e 65 20 70 6c 6f 74 5f  62 6f 6d 62 5f 67 6f 3a  |ne plot_bomb_go:|
00000b70  6d 6f 76 65 71 20 70 63  2c 6c 69 6e 6b 0d 01 86  |moveq pc,link...|
00000b80  87 2e 6d 6f 76 65 5f 62  61 64 64 69 65 73 3a 73  |..move_baddies:s|
00000b90  74 6d 66 64 20 28 73 70  29 21 2c 7b 72 30 2d 72  |tmfd (sp)!,{r0-r|
00000ba0  31 32 2c 6c 69 6e 6b 7d  5e 3a 6d 6f 76 20 72 38  |12,link}^:mov r8|
00000bb0  2c 72 30 3a 6d 6f 76 20  72 39 2c 72 32 3a 6d 6f  |,r0:mov r9,r2:mo|
00000bc0  76 20 72 31 30 2c 72 33  3a 6c 64 72 20 72 35 2c  |v r10,r3:ldr r5,|
00000bd0  5b 72 39 5d 2c 23 34 3a  6c 64 72 20 72 33 2c 5b  |[r9],#4:ldr r3,[|
00000be0  72 39 5d 2c 23 34 3a 6c  64 72 20 72 34 2c 5b 72  |r9],#4:ldr r4,[r|
00000bf0  39 5d 2c 23 34 3a 6c 64  72 20 72 36 2c 5b 72 39  |9],#4:ldr r6,[r9|
00000c00  5d 2c 23 34 0d 01 90 6e  6c 64 72 62 20 72 37 2c  |],#4...nldrb r7,|
00000c10  5b 72 31 30 2c 23 30 5d  3a 61 64 64 20 72 31 30  |[r10,#0]:add r10|
00000c20  2c 72 31 30 2c 23 31 3a  6d 6f 76 20 72 30 2c 23  |,r10,#1:mov r0,#|
00000c30  30 3a 63 6d 70 20 72 37  2c 23 31 3a 6c 64 6d 65  |0:cmp r7,#1:ldme|
00000c40  71 66 64 20 28 73 70 29  21 2c 7b 72 30 2d 72 31  |qfd (sp)!,{r0-r1|
00000c50  32 2c 6c 69 6e 6b 7d 3a  6d 6f 76 65 71 20 70 63  |2,link}:moveq pc|
00000c60  2c 6c 69 6e 6b 3a 73 75  62 20 72 37 2c 72 37 2c  |,link:sub r7,r7,|
00000c70  23 31 0d 01 9a 99 2e 6d  6f 76 65 5f 67 6f 3a 6c  |#1.....move_go:l|
00000c80  64 72 62 20 72 31 31 2c  5b 72 31 30 5d 2c 23 31  |drb r11,[r10],#1|
00000c90  3a 63 6d 70 20 72 31 31  2c 23 31 3a 61 64 64 65  |:cmp r11,#1:adde|
00000ca0  71 20 72 33 2c 72 33 2c  23 32 30 3a 63 6d 70 20  |q r3,r3,#20:cmp |
00000cb0  72 31 31 2c 23 30 3a 73  75 62 65 71 20 72 33 2c  |r11,#0:subeq r3,|
00000cc0  72 33 2c 23 32 30 3a 73  74 72 20 72 33 2c 5b 72  |r3,#20:str r3,[r|
00000cd0  39 2c 23 2d 31 32 5d 3a  63 6d 70 20 72 31 31 2c  |9,#-12]:cmp r11,|
00000ce0  23 31 3a 62 6c 6c 65 20  63 68 65 63 6b 5f 70 61  |#1:blle check_pa|
00000cf0  74 63 68 3a 63 6d 70 20  72 31 31 2c 23 30 3a 63  |tch:cmp r11,#0:c|
00000d00  6d 70 6e 65 20 72 31 31  2c 23 31 0d 01 a4 85 62  |mpne r11,#1....b|
00000d10  6c 65 71 20 70 6c 6f 74  5f 62 61 64 3a 61 64 64  |leq plot_bad:add|
00000d20  20 72 30 2c 72 30 2c 23  31 3a 63 6d 70 20 72 30  | r0,r0,#1:cmp r0|
00000d30  2c 72 37 3a 6c 64 6d 65  71 66 64 20 28 73 70 29  |,r7:ldmeqfd (sp)|
00000d40  21 2c 7b 72 30 2d 31 32  2c 6c 69 6e 6b 7d 3a 6d  |!,{r0-12,link}:m|
00000d50  6f 76 65 71 20 70 63 2c  6c 69 6e 6b 3a 6c 64 72  |oveq pc,link:ldr|
00000d60  6e 65 20 72 35 2c 5b 72  39 5d 2c 23 34 3a 6c 64  |ne r5,[r9],#4:ld|
00000d70  6d 6e 65 69 61 20 72 39  21 2c 7b 72 33 2c 72 34  |mneia r9!,{r3,r4|
00000d80  2c 72 36 7d 3a 62 6e 65  20 6d 6f 76 65 5f 67 6f  |,r6}:bne move_go|
00000d90  0d 01 ae bb 2e 70 6c 6f  74 5f 62 61 64 3a 73 74  |.....plot_bad:st|
00000da0  6d 66 64 20 28 73 70 29  21 2c 7b 72 30 2d 72 39  |mfd (sp)!,{r0-r9|
00000db0  7d 3a 6c 64 72 20 72 39  2c 77 73 70 72 69 74 65  |}:ldr r9,wsprite|
00000dc0  3a 6c 64 72 62 20 72 37  2c 5b 72 39 2c 23 30 5d  |:ldrb r7,[r9,#0]|
00000dd0  3a 6d 6f 76 20 72 30 2c  23 26 32 3a 61 64 64 20  |:mov r0,#&2:add |
00000de0  72 30 2c 72 30 2c 23 26  32 32 30 3a 6d 6f 76 20  |r0,r0,#&220:mov |
00000df0  72 35 2c 23 38 3a 63 6d  70 20 72 37 2c 23 31 3a  |r5,#8:cmp r7,#1:|
00000e00  6c 64 72 6e 65 20 72 32  2c 5b 72 38 2c 23 31 36  |ldrne r2,[r8,#16|
00000e10  5d 3a 6c 64 72 65 71 20  72 32 2c 5b 72 38 2c 23  |]:ldreq r2,[r8,#|
00000e20  34 38 5d 3a 73 77 69 20  26 32 65 3a 6c 64 6d 66  |48]:swi &2e:ldmf|
00000e30  64 20 28 73 70 29 21 2c  7b 72 30 2d 72 39 7d 3a  |d (sp)!,{r0-r9}:|
00000e40  6d 6f 76 20 70 63 2c 6c  69 6e 6b 0d 01 b8 74 2e  |mov pc,link...t.|
00000e50  63 68 65 63 6b 5f 70 61  74 63 68 3a 63 6d 70 20  |check_patch:cmp |
00000e60  72 33 2c 72 35 3a 6d 6f  76 6c 65 20 72 31 31 2c  |r3,r5:movle r11,|
00000e70  23 31 3a 73 74 72 6c 65  62 20 72 31 31 2c 5b 72  |#1:strleb r11,[r|
00000e80  31 30 2c 23 2d 31 5d 3a  63 6d 70 20 72 33 2c 72  |10,#-1]:cmp r3,r|
00000e90  36 3a 6d 6f 76 68 69 20  72 31 31 2c 23 30 3a 73  |6:movhi r11,#0:s|
00000ea0  74 72 68 69 62 20 72 31  31 2c 5b 72 31 30 2c 23  |trhib r11,[r10,#|
00000eb0  2d 31 5d 3a 6d 6f 76 20  70 63 2c 6c 69 6e 6b 0d  |-1]:mov pc,link.|
00000ec0  01 c2 5a 2e 64 65 61 64  5f 62 61 64 3a 6c 64 72  |..Z.dead_bad:ldr|
00000ed0  62 20 72 31 30 2c 5b 72  33 2c 23 30 5d 3a 73 75  |b r10,[r3,#0]:su|
00000ee0  62 20 72 31 30 2c 72 31  30 2c 23 31 3a 6d 6f 76  |b r10,r10,#1:mov|
00000ef0  20 72 31 31 2c 23 30 3a  6d 6f 76 20 72 31 32 2c  | r11,#0:mov r12,|
00000f00  23 31 3a 6d 6f 76 20 72  35 2c 72 34 3a 61 64 64  |#1:mov r5,r4:add|
00000f10  20 72 30 2c 72 30 2c 23  34 0d 01 cc 85 2e 64 65  | r0,r0,#4.....de|
00000f20  61 64 5f 67 6f 3a 6c 64  72 62 20 72 36 2c 5b 72  |ad_go:ldrb r6,[r|
00000f30  33 2c 72 31 32 5d 3a 63  6d 70 20 72 36 2c 23 32  |3,r12]:cmp r6,#2|
00000f40  3a 61 64 64 67 65 20 72  36 2c 72 36 2c 23 31 3a  |:addge r6,r6,#1:|
00000f50  73 74 72 67 65 62 20 72  36 2c 5b 72 33 2c 72 31  |strgeb r6,[r3,r1|
00000f60  32 5d 3a 63 6d 70 20 72  36 2c 23 64 65 61 64 25  |2]:cmp r6,#dead%|
00000f70  3a 6d 6f 76 67 65 20 72  36 2c 23 31 3a 73 74 72  |:movge r6,#1:str|
00000f80  67 65 62 20 72 36 2c 5b  72 33 2c 72 31 32 5d 3a  |geb r6,[r3,r12]:|
00000f90  61 64 64 20 72 31 32 2c  72 31 32 2c 23 31 0d 01  |add r12,r12,#1..|
00000fa0  d6 77 6c 64 6d 69 61 20  72 30 21 2c 7b 72 38 2c  |.wldmia r0!,{r8,|
00000fb0  72 39 7d 3a 61 64 64 20  72 30 2c 72 30 2c 23 38  |r9}:add r0,r0,#8|
00000fc0  3a 63 6d 70 20 72 32 2c  72 39 3a 62 65 71 20 63  |:cmp r2,r9:beq c|
00000fd0  68 5f 67 6f 3a 61 64 64  20 72 31 31 2c 72 31 31  |h_go:add r11,r11|
00000fe0  2c 23 31 3a 63 6d 70 20  72 31 30 2c 72 31 31 3a  |,#1:cmp r10,r11:|
00000ff0  6d 6f 76 65 71 20 72 30  2c 23 30 3a 6d 6f 76 65  |moveq r0,#0:move|
00001000  71 20 70 63 2c 6c 69 6e  6b 3a 62 6e 65 20 64 65  |q pc,link:bne de|
00001010  61 64 5f 67 6f 0d 01 e0  5f 2e 63 68 5f 67 6f 3a  |ad_go..._.ch_go:|
00001020  63 6d 70 20 72 31 2c 72  38 3a 62 68 69 20 63 68  |cmp r1,r8:bhi ch|
00001030  5f 68 69 3a 61 64 64 20  72 31 31 2c 72 31 31 2c  |_hi:add r11,r11,|
00001040  23 31 3a 63 6d 70 20 72  31 30 2c 72 31 31 3a 6d  |#1:cmp r10,r11:m|
00001050  6f 76 65 71 20 72 30 2c  23 30 3a 6d 6f 76 65 71  |oveq r0,#0:moveq|
00001060  20 70 63 2c 6c 69 6e 6b  3a 62 6e 65 20 64 65 61  | pc,link:bne dea|
00001070  64 5f 67 6f 0d 01 ea cb  2e 63 68 5f 68 69 3a 61  |d_go.....ch_hi:a|
00001080  64 64 20 72 38 2c 72 38  2c 23 36 30 3a 63 6d 70  |dd r8,r8,#60:cmp|
00001090  20 72 31 2c 72 38 3a 63  6d 70 6c 73 20 72 36 2c  | r1,r8:cmpls r6,|
000010a0  23 31 3a 6d 6f 76 6c 65  20 72 34 2c 23 33 3a 73  |#1:movle r4,#3:s|
000010b0  75 62 6c 65 20 72 31 32  2c 72 31 32 2c 23 31 3a  |uble r12,r12,#1:|
000010c0  73 74 72 6c 65 62 20 72  34 2c 5b 72 33 2c 72 31  |strleb r4,[r3,r1|
000010d0  32 5d 3a 6d 6f 76 6c 65  20 72 30 2c 23 31 3a 73  |2]:movle r0,#1:s|
000010e0  74 72 6c 65 20 72 31 32  2c 5b 72 35 2c 23 34 5d  |trle r12,[r5,#4]|
000010f0  3a 6d 6f 76 6c 65 20 70  63 2c 6c 69 6e 6b 3a 61  |:movle pc,link:a|
00001100  64 64 20 72 31 31 2c 72  31 31 2c 23 31 3a 63 6d  |dd r11,r11,#1:cm|
00001110  70 20 72 31 30 2c 72 31  31 3a 6d 6f 76 65 71 20  |p r10,r11:moveq |
00001120  72 30 2c 23 30 3a 6d 6f  76 65 71 20 70 63 2c 6c  |r0,#0:moveq pc,l|
00001130  69 6e 6b 3a 62 6e 65 20  64 65 61 64 5f 67 6f 0d  |ink:bne dead_go.|
00001140  01 f4 50 2e 79 6f 75 5f  64 65 61 64 3a 6c 64 72  |..P.you_dead:ldr|
00001150  62 20 72 31 30 2c 5b 72  33 2c 23 30 5d 3a 73 75  |b r10,[r3,#0]:su|
00001160  62 20 72 31 30 2c 72 31  30 2c 23 31 3a 6d 6f 76  |b r10,r10,#1:mov|
00001170  20 72 31 31 2c 23 30 3a  6d 6f 76 20 72 31 32 2c  | r11,#0:mov r12,|
00001180  23 31 3a 61 64 64 20 72  30 2c 72 30 2c 23 34 0d  |#1:add r0,r0,#4.|
00001190  01 fe 8f 2e 79 6f 75 5f  67 6f 3a 6c 64 6d 69 61  |....you_go:ldmia|
000011a0  20 72 30 21 2c 7b 72 38  2c 72 39 7d 3a 61 64 64  | r0!,{r8,r9}:add|
000011b0  20 72 30 2c 72 30 2c 23  38 3a 63 6d 70 20 72 32  | r0,r0,#8:cmp r2|
000011c0  2c 72 39 3a 62 65 71 20  79 6f 75 31 5f 67 6f 3a  |,r9:beq you1_go:|
000011d0  61 64 64 20 72 31 32 2c  72 31 32 2c 23 31 3a 61  |add r12,r12,#1:a|
000011e0  64 64 20 72 31 31 2c 72  31 31 2c 23 31 3a 63 6d  |dd r11,r11,#1:cm|
000011f0  70 20 72 31 30 2c 72 31  31 3a 6d 6f 76 65 71 20  |p r10,r11:moveq |
00001200  72 30 2c 23 30 3a 6d 6f  76 65 71 20 70 63 2c 6c  |r0,#0:moveq pc,l|
00001210  69 6e 6b 3a 62 6e 65 20  79 6f 75 5f 67 6f 0d 02  |ink:bne you_go..|
00001220  08 70 2e 79 6f 75 31 5f  67 6f 3a 63 6d 70 20 72  |.p.you1_go:cmp r|
00001230  31 2c 72 38 3a 62 68 69  20 79 6f 75 5f 68 69 3a  |1,r8:bhi you_hi:|
00001240  61 64 64 20 72 31 32 2c  72 31 32 2c 23 31 3a 61  |add r12,r12,#1:a|
00001250  64 64 20 72 31 31 2c 72  31 31 2c 23 31 3a 63 6d  |dd r11,r11,#1:cm|
00001260  70 20 72 31 30 2c 72 31  31 3a 6d 6f 76 65 71 20  |p r10,r11:moveq |
00001270  72 30 2c 23 30 3a 6d 6f  76 65 71 20 70 63 2c 6c  |r0,#0:moveq pc,l|
00001280  69 6e 6b 3a 62 6e 65 20  79 6f 75 5f 67 6f 0d 02  |ink:bne you_go..|
00001290  12 a9 2e 79 6f 75 5f 68  69 3a 61 64 64 20 72 38  |...you_hi:add r8|
000012a0  2c 72 38 2c 23 36 30 3a  6c 64 72 62 20 72 36 2c  |,r8,#60:ldrb r6,|
000012b0  5b 72 33 2c 72 31 32 5d  3a 63 6d 70 20 72 31 2c  |[r3,r12]:cmp r1,|
000012c0  72 38 3a 63 6d 70 6c 65  20 72 36 2c 23 31 3a 6d  |r8:cmple r6,#1:m|
000012d0  6f 76 6c 65 20 72 30 2c  23 31 3a 6d 6f 76 6c 65  |ovle r0,#1:movle|
000012e0  20 70 63 2c 6c 69 6e 6b  3a 61 64 64 20 72 31 32  | pc,link:add r12|
000012f0  2c 72 31 32 2c 23 31 3a  61 64 64 20 72 31 31 2c  |,r12,#1:add r11,|
00001300  72 31 31 2c 23 31 3a 63  6d 70 20 72 31 30 2c 72  |r11,#1:cmp r10,r|
00001310  31 31 3a 6d 6f 76 65 71  20 72 30 2c 23 30 3a 6d  |11:moveq r0,#0:m|
00001320  6f 76 65 71 20 70 63 2c  6c 69 6e 6b 3a 62 6e 65  |oveq pc,link:bne|
00001330  20 79 6f 75 5f 67 6f 0d  02 1c 7a 2e 65 6c 65 63  | you_go...z.elec|
00001340  74 72 69 63 3a 6d 6f 76  20 72 38 2c 72 30 3a 6c  |tric:mov r8,r0:l|
00001350  64 72 20 72 31 32 2c 5b  72 32 2c 23 30 5d 3a 6d  |dr r12,[r2,#0]:m|
00001360  6f 76 20 72 31 31 2c 23  30 3a 63 6d 70 20 72 31  |ov r11,#0:cmp r1|
00001370  32 2c 23 30 3a 6d 6f 76  65 71 20 70 63 2c 6c 69  |2,#0:moveq pc,li|
00001380  6e 6b 3a 6d 6f 76 20 72  35 2c 23 38 3a 6d 6f 76  |nk:mov r5,#8:mov|
00001390  20 72 37 2c 72 32 3a 6c  64 72 20 72 31 30 2c 5b  | r7,r2:ldr r10,[|
000013a0  72 37 2c 23 34 5d 3a 63  6d 70 20 72 31 30 2c 23  |r7,#4]:cmp r10,#|
000013b0  31 0d 02 26 a4 6c 64 72  65 71 20 72 32 2c 5b 72  |1..&.ldreq r2,[r|
000013c0  38 2c 23 34 30 5d 3a 6d  6f 76 65 71 20 72 31 30  |8,#40]:moveq r10|
000013d0  2c 23 30 3a 73 74 72 65  71 20 72 31 30 2c 5b 72  |,#0:streq r10,[r|
000013e0  37 2c 23 34 5d 3a 6c 64  72 6e 65 20 72 32 2c 5b  |7,#4]:ldrne r2,[|
000013f0  72 38 2c 23 34 34 5d 3a  6d 6f 76 6e 65 20 72 31  |r8,#44]:movne r1|
00001400  30 2c 23 31 3a 73 74 72  6e 65 20 72 31 30 2c 5b  |0,#1:strne r10,[|
00001410  72 37 2c 23 34 5d 3a 61  64 64 20 72 37 2c 72 37  |r7,#4]:add r7,r7|
00001420  2c 23 34 3a 6d 6f 76 20  72 30 2c 23 26 32 3a 61  |,#4:mov r0,#&2:a|
00001430  64 64 20 72 30 2c 72 30  2c 23 26 32 32 30 3a 6d  |dd r0,r0,#&220:m|
00001440  6f 76 20 72 35 2c 23 38  3a 61 64 64 20 72 37 2c  |ov r5,#8:add r7,|
00001450  72 37 2c 23 34 0d 02 30  7f 2e 65 6c 65 63 74 72  |r7,#4..0..electr|
00001460  69 63 5f 67 6f 3a 6c 64  6d 69 61 20 28 6c 6f 61  |ic_go:ldmia (loa|
00001470  64 29 21 2c 7b 72 33 2c  72 34 2c 72 36 2c 72 38  |d)!,{r3,r4,r6,r8|
00001480  2d 72 31 30 7d 3a 61 64  64 20 72 31 31 2c 72 31  |-r10}:add r11,r1|
00001490  31 2c 23 31 3a 63 6d 70  20 72 31 31 2c 72 31 32  |1,#1:cmp r11,r12|
000014a0  3a 73 77 69 65 71 20 26  32 65 3a 6d 6f 76 65 71  |:swieq &2e:moveq|
000014b0  20 70 63 2c 6c 69 6e 6b  3a 73 77 69 20 26 32 65  | pc,link:swi &2e|
000014c0  3a 6d 6f 76 20 72 33 2c  72 36 3a 6d 6f 76 20 72  |:mov r3,r6:mov r|
000014d0  34 2c 72 38 0d 02 3a 9c  61 64 64 20 72 31 31 2c  |4,r8..:.add r11,|
000014e0  72 31 31 2c 23 31 3a 63  6d 70 20 72 31 31 2c 72  |r11,#1:cmp r11,r|
000014f0  31 32 3a 73 77 69 65 71  20 26 32 65 3a 6d 6f 76  |12:swieq &2e:mov|
00001500  65 71 20 70 63 2c 6c 69  6e 6b 3a 73 77 69 20 26  |eq pc,link:swi &|
00001510  32 65 3a 6d 6f 76 20 72  33 2c 72 39 3a 6d 6f 76  |2e:mov r3,r9:mov|
00001520  20 72 34 2c 72 31 30 3a  61 64 64 20 72 31 31 2c  | r4,r10:add r11,|
00001530  72 31 31 2c 23 31 3a 63  6d 70 20 72 31 31 2c 72  |r11,#1:cmp r11,r|
00001540  31 32 3a 73 77 69 65 71  20 26 32 65 3a 6d 6f 76  |12:swieq &2e:mov|
00001550  65 71 20 70 63 2c 6c 69  6e 6b 3a 73 77 69 20 26  |eq pc,link:swi &|
00001560  32 65 3a 62 20 65 6c 65  63 74 72 69 63 5f 67 6f  |2e:b electric_go|
00001570  0d 02 44 51 2e 73 65 74  73 6e 6f 77 3a 6c 64 72  |..DQ.setsnow:ldr|
00001580  20 72 37 2c 73 63 72 65  65 6e 3a 6d 6f 76 20 72  | r7,screen:mov r|
00001590  39 2c 23 30 3a 6c 64 72  62 20 72 31 32 2c 5b 72  |9,#0:ldrb r12,[r|
000015a0  30 2c 23 30 5d 3a 73 75  62 20 72 31 32 2c 72 31  |0,#0]:sub r12,r1|
000015b0  32 2c 23 31 3a 61 64 64  20 72 30 2c 72 30 2c 23  |2,#1:add r0,r0,#|
000015c0  34 0d 02 4e 75 2e 73 65  74 73 6e 6f 77 5f 67 6f  |4..Nu.setsnow_go|
000015d0  3a 6c 64 72 20 72 31 30  2c 5b 72 30 5d 2c 23 34  |:ldr r10,[r0],#4|
000015e0  3a 6c 64 72 62 20 72 38  2c 5b 72 37 2c 72 31 30  |:ldrb r8,[r7,r10|
000015f0  5d 3a 73 74 72 62 20 72  38 2c 5b 72 31 5d 2c 23  |]:strb r8,[r1],#|
00001600  31 3a 61 64 64 20 72 39  2c 72 39 2c 23 31 3a 63  |1:add r9,r9,#1:c|
00001610  6d 70 20 72 39 2c 72 31  32 3a 6d 6f 76 65 71 20  |mp r9,r12:moveq |
00001620  70 63 2c 6c 69 6e 6b 3a  62 6e 65 20 73 65 74 73  |pc,link:bne sets|
00001630  6e 6f 77 5f 67 6f 0d 02  58 58 2e 73 6e 6f 77 3a  |now_go..XX.snow:|
00001640  6c 64 72 20 72 37 2c 73  63 72 65 65 6e 3a 6d 6f  |ldr r7,screen:mo|
00001650  76 20 72 39 2c 23 30 3a  6c 64 72 62 20 72 31 32  |v r9,#0:ldrb r12|
00001660  2c 5b 72 30 2c 23 30 5d  3a 6d 6f 76 20 72 36 2c  |,[r0,#0]:mov r6,|
00001670  23 30 3a 61 64 64 20 72  30 2c 72 30 2c 23 34 3a  |#0:add r0,r0,#4:|
00001680  73 75 62 20 72 31 32 2c  72 31 32 2c 23 31 0d 02  |sub r12,r12,#1..|
00001690  62 e6 2e 73 6e 6f 77 5f  67 6f 3a 6c 64 72 62 20  |b..snow_go:ldrb |
000016a0  72 38 2c 5b 72 31 5d 2c  23 31 3a 6c 64 72 20 72  |r8,[r1],#1:ldr r|
000016b0  31 30 2c 5b 72 30 5d 2c  23 34 3a 73 74 72 62 20  |10,[r0],#4:strb |
000016c0  72 38 2c 5b 72 37 2c 72  31 30 5d 3a 6d 6f 76 20  |r8,[r7,r10]:mov |
000016d0  72 38 2c 23 36 34 30 3a  61 64 64 20 72 31 30 2c  |r8,#640:add r10,|
000016e0  72 31 30 2c 72 38 2c 6c  73 6c 20 23 31 3a 63 6d  |r10,r8,lsl #1:cm|
000016f0  70 20 72 36 2c 23 30 3a  61 64 64 65 71 20 72 31  |p r6,#0:addeq r1|
00001700  30 2c 72 31 30 2c 23 33  3a 73 75 62 6e 65 20 72  |0,r10,#3:subne r|
00001710  31 30 2c 72 31 30 2c 23  33 3a 6c 64 72 62 20 72  |10,r10,#3:ldrb r|
00001720  38 2c 5b 72 37 2c 72 31  30 5d 3a 73 74 72 62 20  |8,[r7,r10]:strb |
00001730  72 38 2c 5b 72 31 2c 23  2d 31 5d 3a 6d 6f 76 20  |r8,[r1,#-1]:mov |
00001740  72 38 2c 23 32 35 35 3a  73 74 72 62 20 72 38 2c  |r8,#255:strb r8,|
00001750  5b 72 37 2c 72 31 30 5d  3a 6d 6f 76 20 72 31 31  |[r7,r10]:mov r11|
00001760  2c 23 36 32 38 3a 61 64  64 20 72 31 31 2c 72 31  |,#628:add r11,r1|
00001770  31 2c 23 32 0d 02 6c c7  6d 6f 76 20 72 31 31 2c  |1,#2..l.mov r11,|
00001780  72 31 31 2c 6c 73 6c 20  23 38 3a 63 6d 70 20 72  |r11,lsl #8:cmp r|
00001790  31 30 2c 72 31 31 3a 6d  6f 76 68 69 20 72 34 2c  |10,r11:movhi r4,|
000017a0  23 36 34 30 3a 6d 6f 76  68 69 20 72 33 2c 23 32  |#640:movhi r3,#2|
000017b0  35 35 3a 6d 75 6c 68 69  20 72 32 2c 72 33 2c 72  |55:mulhi r2,r3,r|
000017c0  34 3a 73 75 62 68 69 20  72 31 30 2c 72 32 2c 72  |4:subhi r10,r2,r|
000017d0  31 30 3a 6c 64 72 68 69  62 20 72 38 2c 5b 72 37  |10:ldrhib r8,[r7|
000017e0  2c 72 31 30 5d 3a 73 74  72 68 69 62 20 72 38 2c  |,r10]:strhib r8,|
000017f0  5b 72 31 2c 23 2d 31 5d  3a 73 74 72 20 72 31 30  |[r1,#-1]:str r10|
00001800  2c 5b 72 30 2c 23 2d 34  5d 3a 61 64 64 20 72 39  |,[r0,#-4]:add r9|
00001810  2c 72 39 2c 23 31 3a 63  6d 70 20 72 39 2c 72 31  |,r9,#1:cmp r9,r1|
00001820  32 3a 6d 6f 76 65 71 20  70 63 2c 6c 69 6e 6b 3a  |2:moveq pc,link:|
00001830  62 6e 65 20 73 6e 6f 77  5f 67 6f 0d 02 76 7d 2e  |bne snow_go..v}.|
00001840  63 6c 65 61 72 3a 6c 64  72 20 72 37 2c 73 63 72  |clear:ldr r7,scr|
00001850  65 65 6e 3a 6d 6f 76 20  72 30 2c 23 30 3a 6d 6f  |een:mov r0,#0:mo|
00001860  76 20 72 31 2c 23 30 3a  6d 6f 76 20 72 31 31 2c  |v r1,#0:mov r11,|
00001870  23 36 34 30 3a 73 75 62  20 72 31 31 2c 72 31 31  |#640:sub r11,r11|
00001880  2c 23 34 3a 6d 6f 76 20  72 31 30 2c 72 31 31 2c  |,#4:mov r10,r11,|
00001890  6c 73 6c 20 23 38 3a 61  64 64 20 72 31 30 2c 72  |lsl #8:add r10,r|
000018a0  31 30 2c 23 32 35 35 3a  61 64 64 20 72 31 30 2c  |10,#255:add r10,|
000018b0  72 31 30 2c 23 31 33 30  0d 02 80 50 2e 63 6c 65  |r10,#130...P.cle|
000018c0  61 72 5f 67 6f 3a 73 74  72 62 20 72 31 2c 5b 72  |ar_go:strb r1,[r|
000018d0  37 2c 72 30 5d 3a 61 64  64 20 72 30 2c 72 30 2c  |7,r0]:add r0,r0,|
000018e0  23 31 3a 63 6d 70 20 72  30 2c 72 31 30 3a 6d 6f  |#1:cmp r0,r10:mo|
000018f0  76 65 71 20 70 63 2c 6c  69 6e 6b 3a 62 6e 65 20  |veq pc,link:bne |
00001900  63 6c 65 61 72 5f 67 6f  0d 02 8a 87 2e 62 69 67  |clear_go.....big|
00001910  5f 74 65 78 74 3a 73 74  6d 66 64 20 28 73 70 29  |_text:stmfd (sp)|
00001920  21 2c 7b 6c 69 6e 6b 7d  5e 3a 6d 6f 76 20 72 35  |!,{link}^:mov r5|
00001930  2c 72 32 3a 6d 6f 76 20  72 31 30 2c 72 33 3a 6d  |,r2:mov r10,r3:m|
00001940  6f 76 20 72 31 31 2c 72  34 3a 6d 6f 76 20 72 34  |ov r11,r4:mov r4|
00001950  2c 72 31 30 3a 6c 64 72  62 20 72 31 32 2c 5b 72  |,r10:ldrb r12,[r|
00001960  31 2c 23 30 5d 3a 6d 6f  76 20 72 32 2c 72 31 32  |1,#0]:mov r2,r12|
00001970  3a 6d 6f 76 20 72 33 2c  72 31 32 3a 6d 6f 76 20  |:mov r3,r12:mov |
00001980  72 37 2c 23 31 3a 6d 6f  76 20 72 36 2c 23 31 0d  |r7,#1:mov r6,#1.|
00001990  02 94 86 2e 70 6c 6f 74  5f 67 6f 3a 6c 64 72 62  |....plot_go:ldrb|
000019a0  20 72 38 2c 5b 72 30 2c  72 35 5d 3a 61 64 64 20  | r8,[r0,r5]:add |
000019b0  72 35 2c 72 35 2c 23 31  3a 62 6c 20 70 6c 6f 74  |r5,r5,#1:bl plot|
000019c0  3a 61 64 64 20 72 31 30  2c 72 31 30 2c 72 31 32  |:add r10,r10,r12|
000019d0  3a 61 64 64 20 72 37 2c  72 37 2c 23 31 3a 63 6d  |:add r7,r7,#1:cm|
000019e0  70 20 72 37 2c 23 39 3a  62 6e 65 20 70 6c 6f 74  |p r7,#9:bne plot|
000019f0  5f 67 6f 3a 6d 6f 76 20  72 37 2c 23 31 3a 6d 6f  |_go:mov r7,#1:mo|
00001a00  76 20 72 31 30 2c 72 34  3a 61 64 64 20 72 36 2c  |v r10,r4:add r6,|
00001a10  72 36 2c 23 31 0d 02 9e  4f 63 6d 70 20 72 36 2c  |r6,#1...Ocmp r6,|
00001a20  23 31 30 3a 6c 64 6d 65  71 66 64 20 28 73 70 29  |#10:ldmeqfd (sp)|
00001a30  21 2c 7b 6c 69 6e 6b 7d  3a 6d 6f 76 65 71 20 70  |!,{link}:moveq p|
00001a40  63 2c 6c 69 6e 6b 3a 61  64 64 6e 65 20 72 31 31  |c,link:addne r11|
00001a50  2c 72 31 31 2c 72 31 32  3a 62 6e 65 20 70 6c 6f  |,r11,r12:bne plo|
00001a60  74 5f 67 6f 0d 02 a8 74  2e 70 6c 6f 74 3a 73 74  |t_go...t.plot:st|
00001a70  6d 66 64 20 28 73 70 29  21 2c 7b 72 30 2d 72 31  |mfd (sp)!,{r0-r1|
00001a80  32 7d 5e 3a 6d 6f 76 20  72 30 2c 72 31 32 3a 6d  |2}^:mov r0,r12:m|
00001a90  6f 76 20 72 36 2c 72 31  30 2c 6c 73 72 20 23 31  |ov r6,r10,lsr #1|
00001aa0  3a 6d 6f 76 20 72 37 2c  72 31 31 3a 6d 6f 76 20  |:mov r7,r11:mov |
00001ab0  72 31 2c 23 31 30 32 34  3a 73 75 62 20 72 31 2c  |r1,#1024:sub r1,|
00001ac0  72 31 2c 23 31 3a 6d 6f  76 20 72 31 30 2c 72 31  |r1,#1:mov r10,r1|
00001ad0  30 2c 6c 73 72 20 23 32  0d 02 b2 79 72 73 62 20  |0,lsr #2...yrsb |
00001ae0  72 39 2c 72 37 2c 72 31  3a 6d 6f 76 20 72 37 2c  |r9,r7,r1:mov r7,|
00001af0  72 39 2c 6c 73 72 20 23  32 3a 6d 6f 76 20 72 31  |r9,lsr #2:mov r1|
00001b00  31 2c 23 36 34 30 3a 6d  75 6c 20 72 31 32 2c 72  |1,#640:mul r12,r|
00001b10  37 2c 72 31 31 3a 61 64  64 20 72 36 2c 72 36 2c  |7,r11:add r6,r6,|
00001b20  72 31 32 3a 6d 6f 76 20  72 31 31 2c 72 36 3a 6c  |r12:mov r11,r6:l|
00001b30  64 72 20 72 37 2c 73 63  72 65 65 6e 3a 6d 6f 76  |dr r7,screen:mov|
00001b40  20 72 39 2c 23 30 3a 6d  6f 76 20 72 31 32 2c 72  | r9,#0:mov r12,r|
00001b50  30 0d 02 bc ab 6c 64 72  20 72 31 30 2c 69 6e 66  |0....ldr r10,inf|
00001b60  6f 70 3a 6c 64 72 62 20  72 39 2c 5b 72 31 30 2c  |op:ldrb r9,[r10,|
00001b70  23 31 5d 3a 6c 64 72 62  20 72 31 2c 5b 72 31 30  |#1]:ldrb r1,[r10|
00001b80  2c 23 32 5d 3a 63 6d 70  20 72 38 2c 23 30 3a 61  |,#2]:cmp r8,#0:a|
00001b90  64 64 6e 65 20 72 38 2c  72 38 2c 72 31 3a 6d 6f  |ddne r8,r8,r1:mo|
00001ba0  76 20 72 31 30 2c 72 39  3a 6d 6f 76 20 72 36 2c  |v r10,r9:mov r6,|
00001bb0  72 31 32 2c 6c 73 72 20  72 31 30 3a 6d 6f 76 20  |r12,lsr r10:mov |
00001bc0  72 31 30 2c 23 30 3a 6d  6f 76 20 72 39 2c 23 30  |r10,#0:mov r9,#0|
00001bd0  3a 61 64 64 20 72 36 2c  72 36 2c 23 31 3a 6c 64  |:add r6,r6,#1:ld|
00001be0  72 20 72 30 2c 6d 61 73  6b 62 69 74 3a 6c 64 72  |r r0,maskbit:ldr|
00001bf0  62 20 72 31 2c 5b 72 30  2c 23 30 5d 0d 02 c6 e2  |b r1,[r0,#0]....|
00001c00  2e 70 6c 6f 74 5f 67 6f  31 3a 63 6d 70 20 72 31  |.plot_go1:cmp r1|
00001c10  2c 23 31 3a 63 6d 70 65  71 20 72 38 2c 23 30 3a  |,#1:cmpeq r8,#0:|
00001c20  73 74 72 6e 65 62 20 72  38 2c 5b 72 37 2c 72 31  |strneb r8,[r7,r1|
00001c30  31 5d 3a 61 64 64 20 72  31 31 2c 72 31 31 2c 23  |1]:add r11,r11,#|
00001c40  31 3a 61 64 64 20 72 39  2c 72 39 2c 23 31 3a 63  |1:add r9,r9,#1:c|
00001c50  6d 70 20 72 39 2c 72 31  32 3a 62 6e 65 20 70 6c  |mp r9,r12:bne pl|
00001c60  6f 74 5f 67 6f 31 3a 6d  6f 76 20 72 39 2c 23 30  |ot_go1:mov r9,#0|
00001c70  3a 61 64 64 20 72 31 31  2c 72 31 31 2c 23 36 34  |:add r11,r11,#64|
00001c80  30 3a 73 75 62 20 72 31  31 2c 72 31 31 2c 72 31  |0:sub r11,r11,r1|
00001c90  32 3a 61 64 64 20 72 31  30 2c 72 31 30 2c 23 31  |2:add r10,r10,#1|
00001ca0  3a 63 6d 70 20 72 31 30  2c 72 36 3a 6c 64 6d 65  |:cmp r10,r6:ldme|
00001cb0  71 66 64 20 28 73 70 29  21 2c 7b 72 30 2d 72 31  |qfd (sp)!,{r0-r1|
00001cc0  32 7d 5e 3a 6d 6f 76 65  71 20 70 63 2c 6c 69 6e  |2}^:moveq pc,lin|
00001cd0  6b 3a 62 6e 65 20 70 6c  6f 74 5f 67 6f 31 0d 02  |k:bne plot_go1..|
00001ce0  d0 57 2e 73 63 72 65 65  6e 3a 65 71 75 64 20 31  |.W.screen:equd 1|
00001cf0  34 38 3a 65 71 75 64 20  2d 31 3a 2e 69 6e 66 6f  |48:equd -1:.info|
00001d00  70 3a 65 71 75 64 20 74  69 6e 66 6f 3a 2e 6d 61  |p:equd tinfo:.ma|
00001d10  73 6b 62 69 74 3a 65 71  75 64 20 6d 61 73 6b 64  |skbit:equd maskd|
00001d20  61 74 61 3a 2e 77 73 70  72 69 74 65 3a 65 71 75  |ata:.wsprite:equ|
00001d30  64 20 77 73 70 0d 02 da  33 5d ed 20 70 61 73 73  |d wsp...3]. pass|
00001d40  25 3a c8 99 20 22 4f 53  5f 52 65 61 64 56 64 75  |%:.. "OS_ReadVdu|
00001d50  56 61 72 69 61 62 6c 65  73 22 2c 73 63 72 65 65  |Variables",scree|
00001d60  6e 2c 73 63 72 65 65 6e  0d 02 e4 05 e1 0d 02 ee  |n,screen........|
00001d70  05 3a 0d 02 f8 23 dd f2  73 6c 61 62 28 78 25 2c  |.:...#..slab(x%,|
00001d80  79 25 2c 77 25 2c 68 25  2c 63 31 25 2c 63 32 25  |y%,w%,h%,c1%,c2%|
00001d90  2c 63 33 25 29 0d 03 02  a7 e6 20 63 31 25 20 c8  |,c3%)..... c1% .|
00001da0  9c 20 31 39 32 3a c8 93  20 c8 90 20 78 25 2c 79  |. 192:.. .. x%,y|
00001db0  25 2c 31 30 2c 68 25 3a  c8 93 20 c8 90 20 78 25  |%,10,h%:.. .. x%|
00001dc0  2c 28 79 25 2b 68 25 29  2c 77 25 2c 31 30 3a e6  |,(y%+h%),w%,10:.|
00001dd0  20 63 32 25 20 c8 9c 20  36 33 3a c8 93 20 c8 90  | c2% .. 63:.. ..|
00001de0  20 78 25 2b 31 30 2c 79  25 2c 77 25 2c 31 30 3a  | x%+10,y%,w%,10:|
00001df0  c8 93 20 c8 90 20 28 78  25 2b 77 25 29 2c 79 25  |.. .. (x%+w%),y%|
00001e00  2b 31 30 2c 31 30 2c 68  25 3a e6 20 63 33 25 20  |+10,10,h%:. c3% |
00001e10  c8 9c 20 31 39 32 3a c8  93 20 c8 90 20 28 78 25  |.. 192:.. .. (x%|
00001e20  2b 31 30 29 2c 28 79 25  2b 31 30 29 2c 28 77 25  |+10),(y%+10),(w%|
00001e30  2d 31 30 29 2c 28 68 25  2d 31 30 29 0d 03 0c 05  |-10),(h%-10)....|
00001e40  e1 0d 03 16 05 3a 0d 03  20 21 dd f2 66 6f 6e 74  |.....:.. !..font|
00001e50  28 74 24 2c 73 25 2c 78  25 2c 79 25 2c 6f 70 25  |(t$,s%,x%,y%,op%|
00001e60  2c 63 25 2c 6d 25 29 0d  03 2a 3a e7 20 6d 25 3d  |,c%,m%)..*:. m%=|
00001e70  31 20 8c 20 6d 61 73 6b  64 61 74 61 3f 30 3d 31  |1 . maskdata?0=1|
00001e80  3a 70 6c 75 73 78 25 3d  38 20 8b 20 6d 61 73 6b  |:plusx%=8 . mask|
00001e90  64 61 74 61 3f 30 3d 30  3a 70 6c 75 73 78 25 3d  |data?0=0:plusx%=|
00001ea0  30 0d 03 34 3e 74 69 6e  66 6f 3f 30 3d 73 25 3a  |0..4>tinfo?0=s%:|
00001eb0  74 69 6e 66 6f 3f 31 3d  6f 70 25 3a 74 69 6e 66  |tinfo?1=op%:tinf|
00001ec0  6f 3f 32 3d 63 25 3a e3  6d 25 3d 31 b8 a9 28 74  |o?2=c%:.m%=1..(t|
00001ed0  24 29 3a 73 24 3d c1 74  24 2c 6d 25 2c 31 29 0d  |$):s$=.t$,m%,1).|
00001ee0  03 3e 70 41 25 3d 74 65  78 74 25 3a 42 25 3d 74  |.>pA%=text%:B%=t|
00001ef0  69 6e 66 6f 3a 43 25 3d  a4 61 73 63 28 73 24 29  |info:C%=.asc(s$)|
00001f00  3a e7 20 43 25 3d 30 20  80 20 6d 61 73 6b 64 61  |:. C%=0 . maskda|
00001f10  74 61 3f 30 3d 31 20 8c  20 78 25 2d 3d 32 30 3a  |ta?0=1 . x%-=20:|
00001f20  44 25 3d 78 25 3a 45 25  3d 79 25 3a d6 20 62 69  |D%=x%:E%=y%:. bi|
00001f30  67 5f 74 65 78 74 20 8b  20 44 25 3d 78 25 3a 45  |g_text . D%=x%:E|
00001f40  25 3d 79 25 3a d6 20 62  69 67 5f 74 65 78 74 0d  |%=y%:. big_text.|
00001f50  03 48 1e 78 25 2b 3d 28  28 74 69 6e 66 6f 3f 30  |.H.x%+=((tinfo?0|
00001f60  29 2a 38 29 2b 70 6c 75  73 78 25 3a ed 0d 03 52  |)*8)+plusx%:...R|
00001f70  05 e1 0d 03 5c 05 3a 0d  03 66 0f dd f2 69 6e 69  |....\.:..f...ini|
00001f80  74 5f 66 6f 6e 74 0d 03  70 50 66 69 6c 65 25 3d  |t_font..pPfile%=|
00001f90  8e 28 22 3c 44 61 74 61  24 44 69 72 3e 2e 46 6f  |.("<Data$Dir>.Fo|
00001fa0  6e 74 22 29 3a e3 6c 6f  6f 70 25 3d 30 b8 36 35  |nt"):.loop%=0.65|
00001fb0  30 30 3a 63 25 3d 9a 23  66 69 6c 65 25 3a 74 65  |00:c%=.#file%:te|
00001fc0  78 74 25 3f 6c 6f 6f 70  25 3d 63 25 3a ed 3a d9  |xt%?loop%=c%:.:.|
00001fd0  23 66 69 6c 65 25 0d 03  7a 05 e1 0d 03 84 05 3a  |#file%..z......:|
00001fe0  0d 03 8e 0d dd a4 61 73  63 28 73 24 29 0d 03 98  |......asc(s$)...|
00001ff0  20 61 73 63 25 3d 97 28  73 24 29 3a 61 73 63 25  | asc%=.(s$):asc%|
00002000  3d 28 61 73 63 25 2d 33  32 29 2a 37 32 0d 03 a2  |=(asc%-32)*72...|
00002010  09 3d 61 73 63 25 0d 03  ac 05 3a 0d 03 b6 0a dd  |.=asc%....:.....|
00002020  f2 6c 6f 61 64 0d 03 c0  12 f2 6c 6f 61 64 5f 6e  |.load.....load_n|
00002030  65 77 6c 65 76 65 6c 0d  03 ca 05 e1 0d 03 d4 05  |ewlevel.........|
00002040  3a 0d 03 de 0d dd f2 64  69 73 70 6c 61 79 0d 03  |:......display..|
00002050  e8 15 e7 20 62 61 6e 6b  25 3d 32 20 8c 20 f2 73  |... bank%=2 . .s|
00002060  77 61 70 0d 03 f2 73 f2  64 72 61 77 5f 73 63 72  |wap...s.draw_scr|
00002070  65 65 6e 3a 41 25 3d 73  70 72 3a 42 25 3d 73 70  |een:A%=spr:B%=sp|
00002080  72 69 74 65 73 25 3a 43  25 3d 6d 63 6c 65 76 65  |rites%:C%=mcleve|
00002090  6c 3a d6 20 69 63 65 3a  f2 72 65 63 74 61 6e 67  |l:. ice:.rectang|
000020a0  6c 65 28 30 2c 39 30 30  2c 31 32 37 30 2c 31 32  |le(0,900,1270,12|
000020b0  33 2c b9 29 3a f2 66 6f  6e 74 28 22 53 63 6f 72  |3,.):.font("Scor|
000020c0  65 3a 22 2c 35 2c 31 35  30 2c 39 32 30 2c 32 2c  |e:",5,150,920,2,|
000020d0  31 30 31 2c 31 29 0d 03  fc 8c f2 66 6f 6e 74 28  |101,1).....font(|
000020e0  22 4c 69 76 65 73 3a 22  2c 35 2c 31 35 30 2c 39  |"Lives:",5,150,9|
000020f0  37 30 2c 32 2c 31 30 31  2c 31 29 3a f2 66 6f 6e  |70,2,101,1):.fon|
00002100  74 28 22 4c 65 76 65 6c  3a 22 2c 35 2c 37 38 30  |t("Level:",5,780|
00002110  2c 39 37 30 2c 32 2c 31  30 31 2c 31 29 3a f2 66  |,970,2,101,1):.f|
00002120  6f 6e 74 28 22 4c 65 66  74 3a 22 2c 35 2c 37 38  |ont("Left:",5,78|
00002130  30 2c 39 32 30 2c 32 2c  31 30 31 2c 31 29 3a f2  |0,920,2,101,1):.|
00002140  66 6f 6e 74 28 c3 28 67  73 63 6f 72 65 25 29 2c  |font(.(gscore%),|
00002150  35 2c 34 33 30 2c 39 32  30 2c 32 2c 31 32 34 2c  |5,430,920,2,124,|
00002160  31 29 0d 04 06 78 f2 66  6f 6e 74 28 c3 28 6c 65  |1)...x.font(.(le|
00002170  76 65 6c 25 29 2c 35 2c  31 30 38 30 2c 39 37 30  |vel%),5,1080,970|
00002180  2c 32 2c 31 32 34 2c 31  29 3a f2 66 6f 6e 74 28  |,2,124,1):.font(|
00002190  c3 28 73 6e 6f 77 25 29  2c 35 2c 31 30 38 30 2c  |.(snow%),5,1080,|
000021a0  39 32 30 2c 32 2c 31 32  34 2c 31 29 3a 64 69 72  |920,2,124,1):dir|
000021b0  25 3d 30 3a f2 64 69 73  70 6c 61 79 5f 74 69 6d  |%=0:.display_tim|
000021c0  65 28 6c 65 76 74 69 6d  65 25 29 3a f2 64 69 73  |e(levtime%):.dis|
000021d0  70 6c 61 79 5f 6c 69 76  65 73 0d 04 10 05 e1 0d  |play_lives......|
000021e0  04 1a 05 3a 0d 04 24 12  dd a4 6d 65 6d 5f 74 6f  |...:..$...mem_to|
000021f0  5f 61 72 72 61 79 0d 04  2e 54 ea 20 78 25 2c 79  |_array...T. x%,y|
00002200  25 2c 70 6f 25 3a 70 6f  25 3d 30 3a e3 79 25 3d  |%,po%:po%=0:.y%=|
00002210  30 b8 31 35 3a e3 78 25  3d 30 b8 32 30 3a 73 72  |0.15:.x%=0.20:sr|
00002220  25 3d 6c 65 76 65 6c 25  28 78 25 2c 79 25 29 3a  |%=level%(x%,y%):|
00002230  6d 63 6c 65 76 65 6c 3f  70 6f 25 3d 73 72 25 3a  |mclevel?po%=sr%:|
00002240  70 6f 25 2b 3d 31 3a ed  3a ed 0d 04 38 06 3d 30  |po%+=1:.:...8.=0|
00002250  0d 04 42 05 3a 0d 04 4c  0a dd f2 73 77 61 70 0d  |..B.:..L...swap.|
00002260  04 56 3f c8 99 20 22 4f  53 5f 42 79 74 65 22 2c  |.V?.. "OS_Byte",|
00002270  31 31 32 2c 62 61 6e 6b  25 3a 62 61 6e 6b 25 3d  |112,bank%:bank%=|
00002280  33 2d 62 61 6e 6b 25 3a  c8 99 20 22 4f 53 5f 42  |3-bank%:.. "OS_B|
00002290  79 74 65 22 2c 31 31 33  2c 62 61 6e 6b 25 0d 04  |yte",113,bank%..|
000022a0  60 05 e1 0d 04 6a 05 3a  0d 04 74 0a dd f2 67 61  |`....j.:..t...ga|
000022b0  6d 65 0d 04 7e f4 f2 64  69 73 70 6c 61 79 3a 66  |me..~..display:f|
000022c0  69 72 69 6e 67 25 3d a3  3a 77 61 79 25 3d 30 3a  |iring%=.:way%=0:|
000022d0  73 78 25 3d 30 3a 73 78  31 25 3d 30 3a 65 6c 65  |sx%=0:sx1%=0:ele|
000022e0  63 25 3d a3 3a 73 79 31  25 3d 30 3a 73 79 25 3d  |c%=.:sy1%=0:sy%=|
000022f0  30 3a 6c 65 66 74 25 3d  b9 3a 6f 6c 64 6c 25 3d  |0:left%=.:oldl%=|
00002300  31 3a 64 65 6c 25 3d a3  3a 73 63 63 25 3d a3 3a  |1:del%=.:scc%=.:|
00002310  6f 6c 64 64 69 72 25 3d  30 3a 64 69 72 25 3d 30  |olddir%=0:dir%=0|
00002320  3a 6e 6f 25 3d a3 3a 73  74 75 63 6b 25 3d a3 3a  |:no%=.:stuck%=.:|
00002330  70 74 78 25 3d 30 3a 70  66 78 25 3d 30 3a 74 77  |ptx%=0:pfx%=0:tw|
00002340  69 74 25 3d a3 3a 73 74  6c 6f 6f 70 25 3d 30 3a  |it%=.:stloop%=0:|
00002350  70 6c 61 79 69 6e 67 25  3d b9 3a 62 6f 6d 62 25  |playing%=.:bomb%|
00002360  3d 30 3a 6f 74 69 6d 65  25 3d 30 3a 62 6f 6d 62  |=0:otime%=0:bomb|
00002370  73 25 3d b9 3a 64 78 25  3d 30 3a 64 79 25 3d 30  |s%=.:dx%=0:dy%=0|
00002380  3a 64 72 6f 70 70 69 6e  67 25 3d a3 3a 6f 6c 64  |:dropping%=.:old|
00002390  78 25 3d 30 3a 6f 6c 64  79 25 3d 30 3a 72 75 62  |x%=0:oldy%=0:rub|
000023a0  62 65 64 25 3d a3 0d 04  88 aa c8 99 26 32 45 2c  |bed%=.......&2E,|
000023b0  26 31 31 30 2c 62 61 63  6b 5f 73 70 72 25 2c 22  |&110,back_spr%,"|
000023c0  62 6c 61 6e 6b 22 2c 2c  26 30 2c 26 30 2c 26 34  |blank",,&0,&0,&4|
000023d0  46 46 2c 26 33 46 46 3a  f2 73 77 61 70 3a c8 99  |FF,&3FF:.swap:..|
000023e0  26 32 45 2c 26 31 32 32  2c 62 61 63 6b 5f 73 70  |&2E,&122,back_sp|
000023f0  72 25 2c 22 62 6c 61 6e  6b 22 2c 30 2c 30 3a 6c  |r%,"blank",0,0:l|
00002400  61 64 25 3d a3 3a 71 75  69 74 25 3d a3 3a 79 6f  |ad%=.:quit%=.:yo|
00002410  75 25 3d 32 38 3a 78 25  3d 36 30 3a 79 25 3d 31  |u%=28:x%=60:y%=1|
00002420  32 30 3a 6f 6c 64 78 25  3d 78 25 3a c8 99 26 32  |20:oldx%=x%:..&2|
00002430  45 2c 26 32 32 32 2c 73  70 72 69 74 65 73 25 2c  |E,&222,sprites%,|
00002440  73 70 72 21 79 6f 75 25  2c 78 25 2c 79 25 2c 38  |spr!you%,x%,y%,8|
00002450  0d 04 92 b9 68 6f 25 3d  30 3a f5 3a 6b 65 79 25  |....ho%=0:.:key%|
00002460  3d a3 3a 6f 6c 64 74 69  6d 65 25 3d 91 3a c8 99  |=.:oldtime%=.:..|
00002470  20 26 36 2c 32 31 2c 30  3a c8 99 20 26 36 2c 31  | &6,21,0:.. &6,1|
00002480  35 2c 30 3a f2 6b 65 79  5f 63 68 65 63 6b 3a c8  |5,0:.key_check:.|
00002490  99 26 32 45 2c 26 31 32  32 2c 62 61 63 6b 5f 73  |.&2E,&122,back_s|
000024a0  70 72 25 2c 22 62 6c 61  6e 6b 22 2c 30 2c 30 3a  |pr%,"blank",0,0:|
000024b0  e7 20 73 63 63 25 3d b9  20 80 20 62 61 6e 6b 25  |. scc%=. . bank%|
000024c0  3d 31 20 8c 20 f2 75 70  64 61 74 65 5f 69 6e 66  |=1 . .update_inf|
000024d0  6f 62 61 72 3a 73 63 63  25 3d a3 3a c8 99 26 32  |obar:scc%=.:..&2|
000024e0  45 2c 26 31 31 30 2c 62  61 63 6b 5f 73 70 72 25  |E,&110,back_spr%|
000024f0  2c 22 62 6c 61 6e 6b 22  2c 2c 26 30 2c 26 30 2c  |,"blank",,&0,&0,|
00002500  26 34 46 46 2c 26 33 46  46 0d 04 9c 19 e7 20 6b  |&4FF,&3FF..... k|
00002510  65 79 25 3d a3 20 8c 20  f2 6b 65 79 5f 63 68 65  |ey%=. . .key_che|
00002520  63 6b 0d 04 a6 19 e7 20  64 72 6f 70 70 69 6e 67  |ck..... dropping|
00002530  25 3d b9 20 8c 20 f2 64  72 6f 70 0d 04 b0 23 c8  |%=. . .drop...#.|
00002540  99 20 26 36 2c 31 32 30  3a e7 20 6b 65 79 25 3d  |. &6,120:. key%=|
00002550  a3 20 8c 20 f2 6b 65 79  5f 63 68 65 63 6b 0d 04  |. . .key_check..|
00002560  ba 66 e7 20 64 65 6c 25  3d b9 20 8c 20 c8 99 26  |.f. del%=. . ..&|
00002570  32 45 2c 26 32 32 32 2c  73 70 72 69 74 65 73 25  |2E,&222,sprites%|
00002580  2c 73 70 72 21 33 32 2c  64 78 25 2c 64 79 25 3a  |,spr!32,dx%,dy%:|
00002590  c8 99 26 32 45 2c 26 31  31 30 2c 62 61 63 6b 5f  |..&2E,&110,back_|
000025a0  73 70 72 25 2c 22 62 6c  61 6e 6b 22 2c 2c 26 30  |spr%,"blank",,&0|
000025b0  2c 26 30 2c 26 34 46 46  2c 26 33 46 46 3a 64 65  |,&0,&4FF,&3FF:de|
000025c0  6c 25 3d a3 0d 04 c4 19  e7 20 6b 65 79 25 3d a3  |l%=...... key%=.|
000025d0  20 8c 20 f2 6b 65 79 5f  63 68 65 63 6b 0d 04 ce  | . .key_check...|
000025e0  31 f2 64 69 73 70 6c 61  79 5f 62 6f 6d 62 3a c8  |1.display_bomb:.|
000025f0  99 20 26 36 2c 31 32 30  3a e7 20 6b 65 79 25 3d  |. &6,120:. key%=|
00002600  a3 20 8c 20 f2 6b 65 79  5f 63 68 65 63 6b 0d 04  |. . .key_check..|
00002610  d8 10 e7 20 64 69 65 64  25 3e 3d 31 20 8c 0d 04  |... died%>=1 ...|
00002620  e2 32 e7 20 79 6f 75 5f  64 65 61 64 25 3d 38 30  |.2. you_dead%=80|
00002630  20 8c 20 79 6f 75 5f 64  65 61 64 25 3d 79 6f 75  | . you_dead%=you|
00002640  25 20 8b 20 79 6f 75 5f  64 65 61 64 25 3d 38 30  |% . you_dead%=80|
00002650  0d 04 ec 4c c8 99 26 32  45 2c 26 32 32 32 2c 73  |...L..&2E,&222,s|
00002660  70 72 69 74 65 73 25 2c  73 70 72 21 79 6f 75 5f  |prites%,spr!you_|
00002670  64 65 61 64 25 2c 78 25  2c 79 25 2c 38 3a 64 69  |dead%,x%,y%,8:di|
00002680  65 64 25 2b 3d 31 3a e7  20 64 69 65 64 25 3e 3d  |ed%+=1:. died%>=|
00002690  35 30 20 8c 20 64 69 65  64 25 3d 30 0d 04 f6 05  |50 . died%=0....|
000026a0  cc 0d 05 00 48 c8 99 20  26 36 2c 32 31 2c 30 3a  |....H.. &6,21,0:|
000026b0  c8 99 20 26 36 2c 31 35  2c 30 3a c8 99 20 26 36  |.. &6,15,0:.. &6|
000026c0  2c 31 32 30 3a c8 99 26  32 45 2c 26 32 32 32 2c  |,120:..&2E,&222,|
000026d0  73 70 72 69 74 65 73 25  2c 73 70 72 21 79 6f 75  |sprites%,spr!you|
000026e0  25 2c 78 25 2c 79 25 2c  38 0d 05 0a 05 cd 0d 05  |%,x%,y%,8.......|
000026f0  14 64 e7 20 77 61 79 3f  30 3e 31 20 8c 20 41 25  |.d. way?0>1 . A%|
00002700  3d 73 70 72 3a 42 25 3d  73 70 72 69 74 65 73 25  |=spr:B%=sprites%|
00002710  3a 43 25 3d 62 61 64 64  69 65 73 3a 44 25 3d 77  |:C%=baddies:D%=w|
00002720  61 79 3a d6 20 6d 6f 76  65 5f 62 61 64 64 69 65  |ay:. move_baddie|
00002730  73 3a 77 73 70 3f 30 3d  31 2d 77 73 70 3f 30 3a  |s:wsp?0=1-wsp?0:|
00002740  f2 63 68 65 63 6b 5f 68  69 74 5f 62 61 64 64 69  |.check_hit_baddi|
00002750  65 73 0d 05 1e 21 74 69  6d 65 25 3d 91 3a e7 20  |es...!time%=.:. |
00002760  6f 74 69 6d 65 25 3d 30  20 8c 20 6f 74 69 6d 65  |otime%=0 . otime|
00002770  25 3d 91 0d 05 28 48 e7  20 74 69 6d 65 25 3e 28  |%=...(H. time%>(|
00002780  6f 74 69 6d 65 25 2b 34  30 30 29 20 8c 20 65 6c  |otime%+400) . el|
00002790  65 63 25 3d b9 3a 41 25  3d 73 70 72 3a 42 25 3d  |ec%=.:A%=spr:B%=|
000027a0  73 70 72 69 74 65 73 25  3a 43 25 3d 65 6c 65 63  |sprites%:C%=elec|
000027b0  3a d6 20 65 6c 65 63 74  72 69 63 0d 05 32 35 e7  |:. electric..25.|
000027c0  20 65 6c 65 63 25 3d b9  20 80 20 74 69 6d 65 25  | elec%=. . time%|
000027d0  3e 28 6f 74 69 6d 65 25  2b 38 30 30 29 20 8c 20  |>(otime%+800) . |
000027e0  65 6c 65 63 25 3d a3 3a  6f 74 69 6d 65 25 3d 30  |elec%=.:otime%=0|
000027f0  0d 05 3c 4b e7 20 66 77  61 79 3f 30 3e 30 20 8c  |..<K. fway?0>0 .|
00002800  20 41 25 3d 73 70 72 3a  42 25 3d 73 70 72 69 74  | A%=spr:B%=sprit|
00002810  65 73 25 3a 43 25 3d 66  6c 6f 61 74 3a 44 25 3d  |es%:C%=float:D%=|
00002820  66 77 61 79 3a d6 20 66  6c 6f 61 74 65 72 3a f2  |fway:. floater:.|
00002830  63 68 65 63 6b 5f 66 6c  6f 61 74 0d 05 46 67 e7  |check_float..Fg.|
00002840  20 28 6c 65 76 65 6c 25  28 6c 78 25 2c 6c 79 25  | (level%(lx%,ly%|
00002850  2d 31 29 3d 32 30 20 84  20 6c 65 76 65 6c 25 28  |-1)=20 . level%(|
00002860  6c 78 25 2c 6c 79 25 29  3d 32 30 29 20 80 20 65  |lx%,ly%)=20) . e|
00002870  6c 65 63 25 3d b9 20 80  20 28 73 74 75 63 6b 25  |lec%=. . (stuck%|
00002880  3d a3 20 84 20 74 77 69  74 25 3d a3 29 20 80 20  |=. . twit%=.) . |
00002890  64 72 6f 70 70 69 6e 67  25 3d a3 20 8c 20 f2 64  |dropping%=. . .d|
000028a0  69 65 0d 05 50 1d e7 20  73 78 25 3c 3e 28 73 78  |ie..P.. sx%<>(sx|
000028b0  31 25 2d 36 30 29 20 8c  20 f2 73 68 6f 6f 74 0d  |1%-60) . .shoot.|
000028c0  05 5a 21 e7 20 73 6e 6f  77 25 3c 3d 63 68 65 61  |.Z!. snow%<=chea|
000028d0  74 25 20 8c 20 f2 66 6c  61 73 68 5f 68 6f 6d 65  |t% . .flash_home|
000028e0  0d 05 64 3e 6c 65 76 74  69 6d 65 25 2d 3d 31 3a  |..d>levtime%-=1:|
000028f0  e7 20 6c 65 76 74 69 6d  65 25 3d 35 30 20 8c 20  |. levtime%=50 . |
00002900  c8 99 20 22 53 6f 75 6e  64 5f 43 6f 6e 74 72 6f  |.. "Sound_Contro|
00002910  6c 22 2c 33 2c 2d 31 35  2c 31 35 30 2c 39 0d 05  |l",3,-15,150,9..|
00002920  6e 32 e7 20 6c 65 76 74  69 6d 65 25 3c 3d 30 20  |n2. levtime%<=0 |
00002930  8c 20 64 69 65 64 25 3d  30 3a 6c 65 76 74 69 6d  |. died%=0:levtim|
00002940  65 25 3d 64 65 66 74 69  6d 65 25 3a f2 64 69 65  |e%=deftime%:.die|
00002950  0d 05 78 2b f2 64 69 73  70 6c 61 79 5f 74 69 6d  |..x+.display_tim|
00002960  65 28 6c 65 76 74 69 6d  65 25 29 3a f2 73 77 61  |e(levtime%):.swa|
00002970  70 3a fd 20 71 75 69 74  25 3d b9 0d 05 82 05 e1  |p:. quit%=......|
00002980  0d 05 8c 05 3a 0d 05 96  0d dd f2 73 65 74 6d 61  |....:......setma|
00002990  73 6b 0d 05 a0 48 de 20  62 61 63 6b 5f 73 70 72  |sk...H. back_spr|
000029a0  25 20 34 31 2a 28 31 30  32 33 29 2a 34 3a 62 61  |% 41*(1023)*4:ba|
000029b0  63 6b 5f 73 70 72 25 21  34 3d 30 3a 62 61 63 6b  |ck_spr%!4=0:back|
000029c0  5f 73 70 72 25 21 38 3d  31 36 3a 62 61 63 6b 5f  |_spr%!8=16:back_|
000029d0  73 70 72 25 21 31 32 3d  31 36 0d 05 aa 05 e1 0d  |spr%!12=16......|
000029e0  05 b4 05 3a 0d 05 be 0f  dd f2 6b 65 79 5f 63 68  |...:......key_ch|
000029f0  65 63 6b 0d 05 c8 45 6c  78 25 3d 28 a4 78 63 6f  |eck...Elx%=(.xco|
00002a00  28 78 25 29 29 2b 31 3a  6c 79 25 3d 28 a4 79 63  |(x%))+1:ly%=(.yc|
00002a10  6f 28 79 25 29 29 2b 31  3a c8 99 20 26 36 2c 32  |o(y%))+1:.. &6,2|
00002a20  31 2c 30 3a c8 99 20 26  36 2c 31 35 2c 30 3a c8  |1,0:.. &6,15,0:.|
00002a30  99 20 26 36 2c 31 32 30  0d 05 d2 72 e7 20 a6 28  |. &6,120...r. .(|
00002a40  2d 39 38 29 20 80 20 6c  65 76 65 6c 25 28 6c 78  |-98) . level%(lx|
00002a50  25 2d 31 2c 6c 79 25 29  3c 3e 38 20 80 20 64 72  |%-1,ly%)<>8 . dr|
00002a60  6f 70 70 69 6e 67 25 3d  a3 20 8c 20 64 69 72 25  |opping%=. . dir%|
00002a70  3d 31 3a 73 74 75 63 6b  25 3d a3 3a 78 25 2d 3d  |=1:stuck%=.:x%-=|
00002a80  36 30 3a f2 70 6c 6f 74  3a e7 20 66 69 72 69 6e  |60:.plot:. firin|
00002a90  67 25 3d a3 20 8c 20 6c  65 66 74 25 3d a3 3a 6f  |g%=. . left%=.:o|
00002aa0  6c 64 6c 25 3d 6c 65 66  74 25 0d 05 dc 72 e7 20  |ldl%=left%...r. |
00002ab0  a6 28 2d 36 37 29 20 80  20 6c 65 76 65 6c 25 28  |.(-67) . level%(|
00002ac0  6c 78 25 2b 31 2c 6c 79  25 29 3c 3e 38 20 80 20  |lx%+1,ly%)<>8 . |
00002ad0  64 72 6f 70 70 69 6e 67  25 3d a3 20 8c 20 64 69  |dropping%=. . di|
00002ae0  72 25 3d 30 3a 73 74 75  63 6b 25 3d a3 3a 78 25  |r%=0:stuck%=.:x%|
00002af0  2b 3d 36 30 3a f2 70 6c  6f 74 3a e7 20 66 69 72  |+=60:.plot:. fir|
00002b00  69 6e 67 25 3d a3 20 8c  20 6c 65 66 74 25 3d 31  |ing%=. . left%=1|
00002b10  3a 6f 6c 64 6c 25 3d 6c  65 66 74 25 0d 05 e6 1a  |:oldl%=left%....|
00002b20  e7 20 a6 28 2d 37 34 29  20 80 20 66 69 72 69 6e  |. .(-74) . firin|
00002b30  67 25 3d a3 20 8c 0d 05  f0 3f 6b 65 79 25 3d b9  |g%=. ....?key%=.|
00002b40  3a e7 20 64 69 72 25 3d  30 20 8c 20 6c 65 66 74  |:. dir%=0 . left|
00002b50  25 3d b9 3a 6f 6c 64 6c  25 3d 6c 65 66 74 25 20  |%=.:oldl%=left% |
00002b60  8b 20 6c 65 66 74 25 3d  a3 3a 6f 6c 64 6c 25 3d  |. left%=.:oldl%=|
00002b70  6c 65 66 74 25 0d 05 fa  32 73 78 25 3d 78 25 3a  |left%...2sx%=x%:|
00002b80  73 79 25 3d 79 25 3a 73  78 31 25 3d 78 25 3a 73  |sy%=y%:sx1%=x%:s|
00002b90  79 31 25 3d 79 25 3a 66  69 72 69 6e 67 25 3d b9  |y1%=y%:firing%=.|
00002ba0  3a f2 73 68 6f 6f 74 0d  06 04 05 cd 0d 06 0e 57  |:.shoot........W|
00002bb0  e7 20 a6 28 2d 38 30 29  20 80 20 6c 65 76 65 6c  |. .(-80) . level|
00002bc0  25 28 6c 78 25 2c 6c 79  25 2b 31 29 3c 3e 38 20  |%(lx%,ly%+1)<>8 |
00002bd0  80 20 6c 65 76 65 6c 25  28 6c 78 25 2c 6c 79 25  |. level%(lx%,ly%|
00002be0  29 3d 31 32 20 8c 20 73  74 75 63 6b 25 3d a3 3a  |)=12 . stuck%=.:|
00002bf0  6c 61 64 25 3d b9 3a 79  25 2b 3d 36 30 3a f2 70  |lad%=.:y%+=60:.p|
00002c00  6c 6f 74 0d 06 18 43 e7  20 a6 28 2d 31 30 35 29  |lot...C. .(-105)|
00002c10  20 80 20 6c 65 76 65 6c  25 28 6c 78 25 2c 6c 79  | . level%(lx%,ly|
00002c20  25 2d 31 29 3c 3e 38 20  8c 20 73 74 75 63 6b 25  |%-1)<>8 . stuck%|
00002c30  3d a3 3a 6c 61 64 25 3d  b9 3a 79 25 2d 3d 36 30  |=.:lad%=.:y%-=60|
00002c40  3a f2 70 6c 6f 74 0d 06  22 37 6f 6c 64 78 25 3d  |:.plot.."7oldx%=|
00002c50  78 25 3a 6f 6c 64 79 25  3d 79 25 3a c8 99 20 26  |x%:oldy%=y%:.. &|
00002c60  36 2c 32 31 2c 30 3a c8  99 20 26 36 2c 31 35 2c  |6,21,0:.. &6,15,|
00002c70  30 3a c8 99 20 26 36 2c  31 32 30 2c 30 0d 06 2c  |0:.. &6,120,0..,|
00002c80  05 e1 0d 06 36 05 3a 0d  06 40 0a dd f2 70 6c 6f  |....6.:..@...plo|
00002c90  74 0d 06 4a 24 6b 65 79  25 3d b9 3a e7 20 78 25  |t..J$key%=.:. x%|
00002ca0  3d 6f 6c 64 78 25 20 80  20 79 25 3d 6f 6c 64 79  |=oldx% . y%=oldy|
00002cb0  25 20 8c 20 e1 0d 06 54  29 e7 20 6f 6c 64 64 69  |% . ...T). olddi|
00002cc0  72 25 3c 3e 64 69 72 25  20 8c 20 f2 66 6c 69 70  |r%<>dir% . .flip|
00002cd0  79 3a 6f 6c 64 64 69 72  25 3d 64 69 72 25 0d 06  |y:olddir%=dir%..|
00002ce0  5e 51 70 6c 6f 74 25 3d  b9 3a f2 63 68 65 63 6b  |^Qplot%=.:.check|
00002cf0  5f 66 6c 6f 61 74 3a 6c  78 25 3d 28 a4 78 63 6f  |_float:lx%=(.xco|
00002d00  28 78 25 29 29 2b 31 3a  6c 79 25 3d 28 a4 79 63  |(x%))+1:ly%=(.yc|
00002d10  6f 28 79 25 29 29 3a e7  20 73 74 75 63 6b 25 3d  |o(y%)):. stuck%=|
00002d20  b9 20 84 20 74 77 69 74  25 3d b9 20 8c 20 e1 0d  |. . twit%=. . ..|
00002d30  06 68 13 e7 20 6c 79 25  3c 30 20 8c 20 6c 79 25  |.h.. ly%<0 . ly%|
00002d40  3d 30 0d 06 72 22 e7 20  6c 78 25 3e 3d 32 32 20  |=0..r". lx%>=22 |
00002d50  8c 20 6c 78 25 3d 31 38  3a 78 25 3d 28 6c 78 25  |. lx%=18:x%=(lx%|
00002d60  2a 36 30 29 0d 06 7c b2  e7 20 6c 65 76 65 6c 25  |*60)..|.. level%|
00002d70  28 6c 78 25 2c 6c 79 25  2b 31 29 3c 3e 30 20 84  |(lx%,ly%+1)<>0 .|
00002d80  20 28 6c 65 76 65 6c 25  28 6c 78 25 2c 6c 79 25  | (level%(lx%,ly%|
00002d90  29 3d 37 36 20 84 20 6c  65 76 65 6c 25 28 6c 78  |)=76 . level%(lx|
00002da0  25 2c 6c 79 25 29 3d 38  30 20 84 20 6c 65 76 65  |%,ly%)=80 . leve|
00002db0  6c 25 28 6c 78 25 2c 6c  79 25 29 3d 38 34 20 84  |l%(lx%,ly%)=84 .|
00002dc0  20 6c 65 76 65 6c 25 28  6c 78 25 2c 6c 79 25 29  | level%(lx%,ly%)|
00002dd0  3d 38 38 20 84 20 6c 65  76 65 6c 25 28 6c 78 25  |=88 . level%(lx%|
00002de0  2c 6c 79 25 29 3d 39 32  20 84 20 6c 65 76 65 6c  |,ly%)=92 . level|
00002df0  25 28 6c 78 25 2c 6c 79  25 29 3d 39 32 20 84 20  |%(lx%,ly%)=92 . |
00002e00  6c 65 76 65 6c 25 28 6c  78 25 2c 6c 79 25 29 3d  |level%(lx%,ly%)=|
00002e10  31 30 30 29 20 8c 0d 06  86 3b e3 63 68 65 72 25  |100) ....;.cher%|
00002e20  3d 37 36 b8 31 30 30 88  34 3a e7 20 6c 65 76 65  |=76.100.4:. leve|
00002e30  6c 25 28 6c 78 25 2c 6c  79 25 29 3d 63 68 65 72  |l%(lx%,ly%)=cher|
00002e40  25 20 8c 20 6c 79 25 2d  3d 31 3a 79 25 2d 3d 36  |% . ly%-=1:y%-=6|
00002e50  30 0d 06 90 1c ed 3a c8  8e 20 6c 65 76 65 6c 25  |0.....:.. level%|
00002e60  28 6c 78 25 2c 6c 79 25  2b 31 29 20 ca 0d 06 9a  |(lx%,ly%+1) ....|
00002e70  31 c9 20 37 36 3a 20 62  6f 6d 62 73 25 3d a3 3a  |1. 76: bombs%=.:|
00002e80  c8 99 20 22 53 6f 75 6e  64 5f 43 6f 6e 74 72 6f  |.. "Sound_Contro|
00002e90  6c 22 2c 32 2c 2d 31 35  2c 31 35 30 2c 31 0d 06  |l",2,-15,150,1..|
00002ea0  a4 74 c9 20 38 34 3a 20  79 6f 75 5f 64 65 61 64  |.t. 84: you_dead|
00002eb0  25 3d 38 30 3a 64 69 65  64 25 3d 31 3a 6c 65 76  |%=80:died%=1:lev|
00002ec0  65 6c 25 28 6c 78 25 2c  6c 79 25 2b 31 29 3d 30  |el%(lx%,ly%+1)=0|
00002ed0  3a 64 78 25 3d 28 6c 78  25 2a 36 30 29 3a 64 79  |:dx%=(lx%*60):dy|
00002ee0  25 3d 28 6c 79 25 2b 31  29 2a 36 30 3a 64 65 6c  |%=(ly%+1)*60:del|
00002ef0  25 3d b9 3a c8 99 20 22  53 6f 75 6e 64 5f 43 6f  |%=.:.. "Sound_Co|
00002f00  6e 74 72 6f 6c 22 2c 32  2c 2d 31 35 2c 31 38 30  |ntrol",2,-15,180|
00002f10  2c 31 0d 06 ae 6b c9 20  38 38 3a 20 6c 65 76 65  |,1...k. 88: leve|
00002f20  6c 25 28 6c 78 25 2c 6c  79 25 2b 31 29 3d 30 3a  |l%(lx%,ly%+1)=0:|
00002f30  64 78 25 3d 28 6c 78 25  2a 36 30 29 3a 64 79 25  |dx%=(lx%*60):dy%|
00002f40  3d 28 6c 79 25 2b 31 29  2a 36 30 3a 64 65 6c 25  |=(ly%+1)*60:del%|
00002f50  3d b9 3a 67 73 63 6f 72  65 25 2b 3d 35 30 3a c8  |=.:gscore%+=50:.|
00002f60  99 20 22 53 6f 75 6e 64  5f 43 6f 6e 74 72 6f 6c  |. "Sound_Control|
00002f70  22 2c 32 2c 2d 31 35 2c  31 31 30 2c 31 0d 06 b8  |",2,-15,110,1...|
00002f80  80 c9 20 39 32 3a 20 6c  65 76 65 6c 25 28 6c 78  |.. 92: level%(lx|
00002f90  25 2c 6c 79 25 2b 31 29  3d 30 3a 64 78 25 3d 28  |%,ly%+1)=0:dx%=(|
00002fa0  6c 78 25 2a 36 30 29 3a  64 79 25 3d 28 6c 79 25  |lx%*60):dy%=(ly%|
00002fb0  2b 31 29 2a 36 30 3a 64  65 6c 25 3d b9 3a e3 73  |+1)*60:del%=.:.s|
00002fc0  6d 61 72 74 25 3d 31 b8  28 77 61 79 3f 30 29 3a  |mart%=1.(way?0):|
00002fd0  77 61 79 3f 73 6d 61 72  74 25 3d 32 3a ed 3a c8  |way?smart%=2:.:.|
00002fe0  99 20 22 53 6f 75 6e 64  5f 43 6f 6e 74 72 6f 6c  |. "Sound_Control|
00002ff0  22 2c 32 2c 2d 31 35 2c  31 37 30 2c 31 0d 06 c2  |",2,-15,170,1...|
00003000  70 c9 20 39 36 3a 20 6c  65 76 65 6c 25 28 6c 78  |p. 96: level%(lx|
00003010  25 2c 6c 79 25 2b 31 29  3d 30 3a 64 78 25 3d 28  |%,ly%+1)=0:dx%=(|
00003020  6c 78 25 2a 36 30 29 3a  64 79 25 3d 28 6c 79 25  |lx%*60):dy%=(ly%|
00003030  2b 31 29 2a 36 30 3a 64  65 6c 25 3d b9 3a 6c 69  |+1)*60:del%=.:li|
00003040  76 65 73 25 2b 3d 31 3a  73 63 63 25 3d b9 3a c8  |ves%+=1:scc%=.:.|
00003050  99 20 22 53 6f 75 6e 64  5f 43 6f 6e 74 72 6f 6c  |. "Sound_Control|
00003060  22 2c 32 2c 2d 31 35 2c  31 33 30 2c 31 0d 06 cc  |",2,-15,130,1...|
00003070  7d c9 20 31 30 30 3a 20  6c 65 76 65 6c 25 28 6c  |}. 100: level%(l|
00003080  78 25 2c 6c 79 25 2b 31  29 3d 30 3a 64 78 25 3d  |x%,ly%+1)=0:dx%=|
00003090  28 6c 78 25 2a 36 30 29  3a 64 79 25 3d 28 6c 79  |(lx%*60):dy%=(ly|
000030a0  25 2b 31 29 2a 36 30 3a  64 65 6c 25 3d b9 3a 79  |%+1)*60:del%=.:y|
000030b0  6f 75 5f 64 65 61 64 25  3d 38 30 3a 64 69 65 64  |ou_dead%=80:died|
000030c0  25 3d 31 3a f2 72 6e 64  5f 70 6f 73 3a c8 99 20  |%=1:.rnd_pos:.. |
000030d0  22 53 6f 75 6e 64 5f 43  6f 6e 74 72 6f 6c 22 2c  |"Sound_Control",|
000030e0  32 2c 2d 31 35 2c 38 30  2c 31 0d 06 d6 73 c9 20  |2,-15,80,1...s. |
000030f0  31 30 34 3a 20 6c 65 76  65 6c 25 28 6c 78 25 2c  |104: level%(lx%,|
00003100  6c 79 25 2b 31 29 3d 30  3a 64 78 25 3d 28 6c 78  |ly%+1)=0:dx%=(lx|
00003110  25 2a 36 30 29 3a 64 79  25 3d 28 6c 79 25 2b 31  |%*60):dy%=(ly%+1|
00003120  29 2a 36 30 3a 64 65 6c  25 3d b9 3a 6c 65 76 74  |)*60:del%=.:levt|
00003130  69 6d 65 25 3d 64 65 66  74 69 6d 65 25 3a 3a c8  |ime%=deftime%::.|
00003140  99 20 22 53 6f 75 6e 64  5f 43 6f 6e 74 72 6f 6c  |. "Sound_Control|
00003150  22 2c 32 2c 2d 31 35 2c  31 37 30 2c 31 0d 06 e0  |",2,-15,170,1...|
00003160  05 cb 0d 06 ea 8d cd 3a  e7 20 6c 65 76 65 6c 25  |.......:. level%|
00003170  28 6c 78 25 2c 6c 79 25  29 3d 30 20 80 20 6c 65  |(lx%,ly%)=0 . le|
00003180  76 65 6c 25 28 6c 78 25  2c 6c 79 25 29 3c 3e 35  |vel%(lx%,ly%)<>5|
00003190  32 20 84 20 6c 65 76 65  6c 25 28 6c 78 25 2c 6c  |2 . level%(lx%,l|
000031a0  79 25 29 3d 32 34 20 80  20 6c 65 76 65 6c 25 28  |y%)=24 . level%(|
000031b0  6c 78 25 2c 6c 79 25 29  3c 3e 35 32 20 84 20 6c  |lx%,ly%)<>52 . l|
000031c0  65 76 65 6c 25 28 6c 78  25 2c 6c 79 25 29 3d 32  |evel%(lx%,ly%)=2|
000031d0  30 20 80 20 6c 65 76 65  6c 25 28 6c 78 25 2c 6c  |0 . level%(lx%,l|
000031e0  79 25 29 3c 3e 35 32 20  8c 20 f2 64 72 6f 70 0d  |y%)<>52 . .drop.|
000031f0  06 f4 14 e7 20 6c 79 25  3d 30 20 8c 20 6c 79 25  |.... ly%=0 . ly%|
00003200  2b 3d 31 0d 06 fe 4c e7  20 6c 65 76 65 6c 25 28  |+=1...L. level%(|
00003210  6c 78 25 2c 6c 79 25 29  3c 3e 38 20 80 20 6c 65  |lx%,ly%)<>8 . le|
00003220  76 65 6c 25 28 6c 78 25  2c 6c 79 25 2d 31 29 3d  |vel%(lx%,ly%-1)=|
00003230  30 20 80 20 6c 65 76 65  6c 25 28 6c 78 25 2c 6c  |0 . level%(lx%,l|
00003240  79 25 29 3c 3e 31 32 20  8c 20 f2 64 72 6f 70 0d  |y%)<>12 . .drop.|
00003250  07 08 36 6c 78 25 3d 28  a4 78 63 6f 28 78 25 29  |..6lx%=(.xco(x%)|
00003260  29 2b 31 3a 6c 79 25 3d  28 a4 79 63 6f 28 79 25  |)+1:ly%=(.yco(y%|
00003270  29 29 2b 31 3a e7 20 6c  79 25 3d 30 20 8c 20 6c  |))+1:. ly%=0 . l|
00003280  79 25 2b 3d 31 0d 07 12  93 e7 20 6c 65 76 65 6c  |y%+=1..... level|
00003290  25 28 6c 78 25 2c 6c 79  25 2d 31 29 3d 34 20 8c  |%(lx%,ly%-1)=4 .|
000032a0  20 6c 65 76 65 6c 25 28  6c 78 25 2c 6c 79 25 2d  | level%(lx%,ly%-|
000032b0  31 29 3d 30 3a 64 78 25  3d 28 6c 78 25 2a 36 30  |1)=0:dx%=(lx%*60|
000032c0  29 3a 64 79 25 3d 28 6c  79 25 2d 31 29 2a 36 30  |):dy%=(ly%-1)*60|
000032d0  3a c8 99 20 22 53 6f 75  6e 64 5f 43 6f 6e 74 72  |:.. "Sound_Contr|
000032e0  6f 6c 22 2c 33 2c 2d 31  35 2c 31 30 30 2c 31 3a  |ol",3,-15,100,1:|
000032f0  64 65 6c 25 3d b9 3a 67  73 63 6f 72 65 25 2b 3d  |del%=.:gscore%+=|
00003300  35 30 3a 73 6e 6f 77 25  2d 3d 31 3a 73 63 63 25  |50:snow%-=1:scc%|
00003310  3d b9 3a f2 64 72 6f 70  0d 07 1c 87 e7 20 6c 65  |=.:.drop..... le|
00003320  76 65 6c 25 28 6c 78 25  2c 6c 79 25 29 3d 34 20  |vel%(lx%,ly%)=4 |
00003330  8c 20 6c 65 76 65 6c 25  28 6c 78 25 2c 6c 79 25  |. level%(lx%,ly%|
00003340  29 3d 30 3a 64 78 25 3d  28 6c 78 25 2a 36 30 29  |)=0:dx%=(lx%*60)|
00003350  3a 64 79 25 3d 28 6c 79  25 2a 36 30 29 3a 64 65  |:dy%=(ly%*60):de|
00003360  6c 25 3d b9 3a 67 73 63  6f 72 65 25 2b 3d 35 30  |l%=.:gscore%+=50|
00003370  3a 73 6e 6f 77 25 2d 3d  31 3a 73 63 63 25 3d b9  |:snow%-=1:scc%=.|
00003380  3a c8 99 20 22 53 6f 75  6e 64 5f 43 6f 6e 74 72  |:.. "Sound_Contr|
00003390  6f 6c 22 2c 33 2c 2d 31  35 2c 31 30 30 2c 31 0d  |ol",3,-15,100,1.|
000033a0  07 26 42 e7 20 28 6c 65  76 65 6c 25 28 6c 78 25  |.&B. (level%(lx%|
000033b0  2c 6c 79 25 2d 31 29 3d  32 30 20 84 20 6c 65 76  |,ly%-1)=20 . lev|
000033c0  65 6c 25 28 6c 78 25 2c  6c 79 25 29 3d 32 30 29  |el%(lx%,ly%)=20)|
000033d0  20 80 20 65 6c 65 63 25  3d b9 20 8c 20 f2 64 69  | . elec%=. . .di|
000033e0  65 0d 07 30 19 c8 99 20  26 36 2c 32 31 2c 30 3a  |e..0... &6,21,0:|
000033f0  c8 99 20 26 36 2c 31 35  2c 30 0d 07 3a 05 e1 0d  |.. &6,15,0..:...|
00003400  07 44 05 3a 0d 07 4e 0b  dd f2 66 6c 69 70 79 0d  |.D.:..N...flipy.|
00003410  07 58 41 c8 99 26 32 45  2c 35 31 32 2b 26 32 46  |.XA..&2E,512+&2F|
00003420  2c 73 70 72 69 74 65 73  25 2c 73 70 72 21 79 6f  |,sprites%,spr!yo|
00003430  75 25 3a c8 99 26 32 45  2c 35 31 32 2b 26 32 46  |u%:..&2E,512+&2F|
00003440  2c 73 70 72 69 74 65 73  25 2c 73 70 72 21 38 30  |,sprites%,spr!80|
00003450  0d 07 62 05 e1 0d 07 6c  05 3a 0d 07 76 0a dd f2  |..b....l.:..v...|
00003460  64 72 6f 70 0d 07 80 50  ea 20 6c 78 25 2c 6c 79  |drop...P. lx%,ly|
00003470  25 3a 6c 78 25 3d 28 a4  78 63 6f 28 78 25 29 29  |%:lx%=(.xco(x%))|
00003480  2b 31 3a 6c 79 25 3d 28  a4 79 63 6f 28 79 25 29  |+1:ly%=(.yco(y%)|
00003490  29 2b 31 3a 64 72 6f 70  70 69 6e 67 25 3d b9 3a  |)+1:dropping%=.:|
000034a0  e7 20 28 6c 79 25 2d 31  29 3c 3d 30 20 8c 20 6c  |. (ly%-1)<=0 . l|
000034b0  79 25 3d 31 0d 07 8a 3c  e7 20 6c 65 76 65 6c 25  |y%=1...<. level%|
000034c0  28 6c 78 25 2c 6c 79 25  2d 31 29 3d 38 20 8c 20  |(lx%,ly%-1)=8 . |
000034d0  64 72 6f 70 70 69 6e 67  25 3d a3 3a 79 25 3d 28  |dropping%=.:y%=(|
000034e0  6c 79 25 2a 36 30 29 20  8b 20 79 25 2d 3d 32 35  |ly%*60) . y%-=25|
000034f0  0d 07 94 20 e7 20 6c 65  76 65 6c 25 28 6c 78 25  |... . level%(lx%|
00003500  2c 6c 79 25 29 3c 3e 30  20 8c 20 f2 70 6c 6f 74  |,ly%)<>0 . .plot|
00003510  0d 07 9e 05 e1 0d 07 a8  05 3a 0d 07 b2 0d dd a4  |.........:......|
00003520  78 63 6f 28 78 25 29 0d  07 bc 12 61 6e 73 25 3d  |xco(x%)....ans%=|
00003530  78 25 20 81 20 33 31 2f  32 0d 07 c6 09 3d 61 6e  |x% . 31/2....=an|
00003540  73 25 0d 07 d0 05 3a 0d  07 da 0d dd a4 79 63 6f  |s%....:......yco|
00003550  28 79 25 29 0d 07 e4 11  61 6e 73 25 3d 79 25 20  |(y%)....ans%=y% |
00003560  81 35 37 2d 31 0d 07 ee  09 3d 61 6e 73 25 0d 07  |.57-1....=ans%..|
00003570  f8 05 3a 0d 08 02 16 dd  f2 64 69 73 70 6c 61 79  |..:......display|
00003580  5f 74 69 6d 65 28 74 25  29 0d 08 0c 38 ea 20 74  |_time(t%)...8. t|
00003590  24 2c 6c 6f 6f 70 25 2c  78 25 2c 73 25 2c 6c 25  |$,loop%,x%,s%,l%|
000035a0  3a 78 25 3d 30 3a 74 24  3d c3 28 74 25 29 3a 6c  |:x%=0:t$=.(t%):l|
000035b0  25 3d 28 a9 28 74 24 29  29 3a c8 8e 20 6c 25 20  |%=(.(t$)):.. l% |
000035c0  ca 0d 08 16 17 c9 20 31  3a 20 74 24 3d 22 30 30  |...... 1: t$="00|
000035d0  22 2b c2 74 24 2c 33 29  0d 08 20 16 c9 20 32 3a  |"+.t$,3).. .. 2:|
000035e0  20 74 24 3d 22 30 22 2b  c2 74 24 2c 32 29 0d 08  | t$="0"+.t$,2)..|
000035f0  2a 62 cb 3a e3 6c 6f 6f  70 25 3d 30 b8 32 3a 73  |*b.:.loop%=0.2:s|
00003600  25 3d 97 28 c1 74 24 2c  28 6c 6f 6f 70 25 2b 31  |%=.(.t$,(loop%+1|
00003610  29 2c 31 29 29 3a 73 25  3d 28 73 25 3c 3c 32 29  |),1)):s%=(s%<<2)|
00003620  2d 38 34 3a c8 99 26 32  45 2c 26 32 32 32 2c 73  |-84:..&2E,&222,s|
00003630  70 72 69 74 65 73 25 2c  73 70 72 21 73 25 2c 78  |prites%,spr!s%,x|
00003640  25 2c 38 35 30 2c 30 3a  78 25 2b 3d 34 30 3a ed  |%,850,0:x%+=40:.|
00003650  0d 08 34 05 e1 0d 08 3e  05 3a 0d 08 48 11 dd a4  |..4....>.:..H...|
00003660  72 6f 75 6e 64 28 6e 75  6d 25 29 0d 08 52 2e 72  |round(num%)..R.r|
00003670  6f 75 6e 64 25 3d 6e 75  6d 25 3e 3e 3e 36 3a 72  |ound%=num%>>>6:r|
00003680  6f 75 6e 64 25 2b 3d 31  3a 72 6f 75 6e 64 25 3d  |ound%+=1:round%=|
00003690  72 6f 75 6e 64 25 2a 36  30 0d 08 5c 0b 3d 72 6f  |round%*60..\.=ro|
000036a0  75 6e 64 25 0d 08 66 05  3a 0d 08 70 10 dd f2 66  |und%..f.:..p...f|
000036b0  6c 61 73 68 5f 68 6f 6d  65 0d 08 7a 4c c8 99 26  |lash_home..zL..&|
000036c0  32 45 2c 26 32 32 32 2c  73 70 72 69 74 65 73 25  |2E,&222,sprites%|
000036d0  2c 73 70 72 21 28 36 30  2d 68 6f 25 29 2c 68 6f  |,spr!(60-ho%),ho|
000036e0  6d 65 78 25 2c 68 6f 6d  65 79 25 2c 38 3a e7 20  |mex%,homey%,8:. |
000036f0  68 6f 25 3d 30 20 8c 20  68 6f 25 3d 34 20 8b 20  |ho%=0 . ho%=4 . |
00003700  68 6f 25 3d 30 0d 08 84  4e e7 20 78 25 3d 68 6f  |ho%=0...N. x%=ho|
00003710  6d 65 78 25 20 80 20 79  25 3d 68 6f 6d 65 79 25  |mex% . y%=homey%|
00003720  20 8c 20 c8 99 20 22 53  6f 75 6e 64 5f 43 6f 6e  | . .. "Sound_Con|
00003730  74 72 6f 6c 22 2c 33 2c  2d 31 35 2c 32 30 30 2c  |trol",3,-15,200,|
00003740  37 3a f2 69 6e 5f 62 65  74 77 65 65 6e 3a f2 67  |7:.in_between:.g|
00003750  61 6d 65 0d 08 8e 05 e1  0d 08 98 05 3a 0d 08 a2  |ame.........:...|
00003760  12 dd f2 64 69 73 70 6c  61 79 5f 62 6f 6d 62 0d  |...display_bomb.|
00003770  08 ac 2a ea 20 6c 6f 6f  70 25 2c 61 64 64 72 25  |..*. loop%,addr%|
00003780  3a e7 20 62 6f 6d 62 73  25 3d a3 20 80 20 72 75  |:. bombs%=. . ru|
00003790  62 62 65 64 25 3d a3 20  8c 0d 08 b6 8e 61 64 64  |bbed%=. .....add|
000037a0  72 25 3d 30 3a e3 6c 6f  6f 70 25 3d 31 b8 6d 65  |r%=0:.loop%=1.me|
000037b0  6d 21 30 3a 61 64 64 72  25 2b 3d 34 3a 73 64 25  |m!0:addr%+=4:sd%|
000037c0  3d a4 78 63 6f 28 6d 65  6d 21 28 61 64 64 72 25  |=.xco(mem!(addr%|
000037d0  29 29 3a 73 65 25 3d 28  a4 79 63 6f 28 6d 65 6d  |)):se%=(.yco(mem|
000037e0  31 21 61 64 64 72 25 29  29 3a 73 65 25 2b 3d 31  |1!addr%)):se%+=1|
000037f0  3a 73 64 25 2b 3d 32 3a  c8 99 26 32 45 2c 26 32  |:sd%+=2:..&2E,&2|
00003800  32 32 2c 73 70 72 69 74  65 73 25 2c 73 70 72 21  |22,sprites%,spr!|
00003810  33 32 2c 6d 65 6d 21 61  64 64 72 25 2c 6d 65 6d  |32,mem!addr%,mem|
00003820  31 21 61 64 64 72 25 0d  08 c0 f8 e7 20 6c 65 76  |1!addr%..... lev|
00003830  65 6c 25 28 73 64 25 2c  73 65 25 29 3d 32 34 20  |el%(sd%,se%)=24 |
00003840  84 20 6c 65 76 65 6c 25  28 73 64 25 2c 73 65 25  |. level%(sd%,se%|
00003850  29 3d 31 36 20 84 20 6c  65 76 65 6c 25 28 73 64  |)=16 . level%(sd|
00003860  25 2c 73 65 25 29 3d 35  32 20 8c 20 c8 99 26 32  |%,se%)=52 . ..&2|
00003870  45 2c 26 32 32 32 2c 73  70 72 69 74 65 73 25 2c  |E,&222,sprites%,|
00003880  73 70 72 21 33 32 2c 28  6d 65 6d 21 61 64 64 72  |spr!32,(mem!addr|
00003890  25 29 2b 36 30 2c 6d 65  6d 31 21 61 64 64 72 25  |%)+60,mem1!addr%|
000038a0  20 8b 20 c8 99 26 32 45  2c 26 32 32 32 2c 73 70  | . ..&2E,&222,sp|
000038b0  72 69 74 65 73 25 2c 73  70 72 21 33 32 2c 28 6d  |rites%,spr!32,(m|
000038c0  65 6d 21 61 64 64 72 25  29 2b 36 30 2c 6d 65 6d  |em!addr%)+60,mem|
000038d0  31 21 61 64 64 72 25 3a  c8 99 26 32 45 2c 26 32  |1!addr%:..&2E,&2|
000038e0  32 32 2c 73 70 72 69 74  65 73 25 2c 73 70 72 21  |22,sprites%,spr!|
000038f0  28 6c 65 76 65 6c 25 28  73 64 25 2c 73 65 25 29  |(level%(sd%,se%)|
00003900  29 2c 28 28 6d 65 6d 21  61 64 64 72 25 29 2b 36  |),((mem!addr%)+6|
00003910  30 29 2c 6d 65 6d 31 21  61 64 64 72 25 2c 38 0d  |0),mem1!addr%,8.|
00003920  08 ca 3d ed 3a c8 99 26  32 45 2c 26 31 31 30 2c  |..=.:..&2E,&110,|
00003930  62 61 63 6b 5f 73 70 72  25 2c 22 62 6c 61 6e 6b  |back_spr%,"blank|
00003940  22 2c 2c 26 30 2c 26 30  2c 26 34 46 46 2c 26 33  |",,&0,&0,&4FF,&3|
00003950  46 46 3a 72 75 62 62 65  64 25 3d b9 0d 08 d4 05  |FF:rubbed%=.....|
00003960  cd 0d 08 de 05 e1 0d 08  e8 05 3a 0d 08 f2 11 dd  |..........:.....|
00003970  f2 63 68 65 63 6b 5f 66  6c 6f 61 74 0d 08 fc 1b  |.check_float....|
00003980  ea 20 73 69 6c 6c 79 25  3a e7 20 66 77 61 79 3f  |. silly%:. fway?|
00003990  30 3d 31 20 8c 20 e1 0d  09 06 50 e7 20 73 74 75  |0=1 . ....P. stu|
000039a0  63 6b 25 3d a3 20 80 20  74 77 69 74 25 3d b9 20  |ck%=. . twit%=. |
000039b0  8c 20 73 72 25 3d 28 a4  78 63 6f 28 78 25 29 29  |. sr%=(.xco(x%))|
000039c0  2b 31 3a 73 79 25 3d 28  a4 79 63 6f 28 79 25 29  |+1:sy%=(.yco(y%)|
000039d0  29 2b 31 3a 78 25 3d 73  72 25 2a 36 30 3a 79 25  |)+1:x%=sr%*60:y%|
000039e0  3d 73 79 25 2a 36 30 0d  09 10 8f ea 20 64 6f 6e  |=sy%*60..... don|
000039f0  65 25 3a 64 6f 6e 65 25  3d a3 3a 61 64 64 25 3d  |e%:done%=.:add%=|
00003a00  34 3a 77 25 3d 31 3a 6c  6f 6f 70 25 3d 30 3a c8  |4:w%=1:loop%=0:.|
00003a10  95 20 64 6f 6e 65 25 3d  a3 3a e7 20 28 78 25 2b  |. done%=.:. (x%+|
00003a20  31 30 29 3e 3d 66 6c 6f  61 74 21 28 6c 6f 6f 70  |10)>=float!(loop|
00003a30  25 2b 61 64 64 25 29 20  80 20 78 25 3c 3d 66 6c  |%+add%) . x%<=fl|
00003a40  6f 61 74 21 28 6c 6f 6f  70 25 2b 61 64 64 25 29  |oat!(loop%+add%)|
00003a50  2b 35 30 20 80 20 79 25  3d 28 66 6c 6f 61 74 21  |+50 . y%=(float!|
00003a60  28 6c 6f 6f 70 25 2b 28  61 64 64 25 2b 34 29 29  |(loop%+(add%+4))|
00003a70  29 2b 36 30 20 8c 0d 09  1a 6a e7 20 73 74 75 63  |)+60 ....j. stuc|
00003a80  6b 25 3d a3 20 80 20 74  77 69 74 25 3d a3 20 8c  |k%=. . twit%=. .|
00003a90  20 70 66 78 25 3d 30 3a  70 74 78 25 3d 78 25 3a  | pfx%=0:ptx%=x%:|
00003aa0  78 25 3d 66 6c 6f 61 74  21 28 61 64 64 25 2b 6c  |x%=float!(add%+l|
00003ab0  6f 6f 70 25 29 3a c8 99  20 22 4f 53 5f 42 79 74  |oop%):.. "OS_Byt|
00003ac0  65 22 2c 31 35 2c 30 3a  c8 99 20 22 4f 53 5f 42  |e",15,0:.. "OS_B|
00003ad0  79 74 65 22 2c 32 31 2c  30 3a 6b 65 79 25 3d b9  |yte",21,0:key%=.|
00003ae0  0d 09 24 60 73 74 6c 6f  6f 70 25 3d 6c 6f 6f 70  |..$`stloop%=loop|
00003af0  25 3a 74 77 69 74 25 3d  b9 3a 73 74 75 63 6b 25  |%:twit%=.:stuck%|
00003b00  3d b9 3a 70 66 78 25 2b  3d 31 3a 74 6f 74 61 6c  |=.:pfx%+=1:total|
00003b10  25 3d 73 69 6c 6c 79 3f  28 77 25 2d 31 29 3a e7  |%=silly?(w%-1):.|
00003b20  20 74 6f 74 61 6c 25 3e  3d 34 20 8c 20 74 6f 74  | total%>=4 . tot|
00003b30  61 6c 25 3d 39 20 8b 20  74 6f 74 61 6c 25 3d 38  |al%=9 . total%=8|
00003b40  0d 09 2e 1f e7 20 66 77  61 79 3f 77 25 3d 30 20  |..... fway?w%=0 |
00003b50  8c 20 78 25 2b 3d 35 20  8b 20 78 25 2d 3d 35 0d  |. x%+=5 . x%-=5.|
00003b60  09 38 70 e7 20 70 66 78  25 3d 74 6f 74 61 6c 25  |.8p. pfx%=total%|
00003b70  20 80 20 66 77 61 79 3f  77 25 3d 30 20 8c 20 77  | . fway?w%=0 . w|
00003b80  61 79 25 3d 30 3a 70 66  78 25 3d 30 3a 70 74 78  |ay%=0:pfx%=0:ptx|
00003b90  25 2b 3d 36 30 20 8b 20  e7 20 70 66 78 25 3d 28  |%+=60 . . pfx%=(|
00003ba0  74 6f 74 61 6c 25 2b 32  29 20 80 20 66 77 61 79  |total%+2) . fway|
00003bb0  3f 77 25 3d 31 20 8c 20  70 66 78 25 3d 30 3a 70  |?w%=1 . pfx%=0:p|
00003bc0  74 78 25 2d 3d 36 30 3a  77 61 79 25 3d 36 30 0d  |tx%-=60:way%=60.|
00003bd0  09 42 05 cc 0d 09 4c a2  e7 20 28 28 78 25 2d 31  |.B....L.. ((x%-1|
00003be0  30 29 3c 28 66 6c 6f 61  74 21 28 6c 6f 6f 70 25  |0)<(float!(loop%|
00003bf0  2b 61 64 64 25 29 29 20  84 20 78 25 3e 3d 28 66  |+add%)) . x%>=(f|
00003c00  6c 6f 61 74 21 28 6c 6f  6f 70 25 2b 61 64 64 25  |loat!(loop%+add%|
00003c10  29 29 2b 35 30 29 20 80  20 79 25 3d 28 66 6c 6f  |))+50) . y%=(flo|
00003c20  61 74 21 28 6c 6f 6f 70  25 2b 28 34 2b 61 64 64  |at!(loop%+(4+add|
00003c30  25 29 29 2b 36 30 29 20  80 20 74 77 69 74 25 3d  |%))+60) . twit%=|
00003c40  b9 20 80 20 6c 6f 6f 70  25 3d 73 74 6c 6f 6f 70  |. . loop%=stloop|
00003c50  25 20 84 20 6c 61 64 25  3d b9 20 80 20 74 77 69  |% . lad%=. . twi|
00003c60  74 25 3d b9 20 80 20 6c  6f 6f 70 25 3d 73 74 6c  |t%=. . loop%=stl|
00003c70  6f 6f 70 25 20 8c 0d 09  56 24 e7 20 66 77 61 79  |oop% ...V$. fway|
00003c80  3f 30 3d 30 20 8c 20 73  69 6c 6c 79 25 3d 31 20  |?0=0 . silly%=1 |
00003c90  8b 20 73 69 6c 6c 79 25  3d 31 0d 09 60 5a 74 77  |. silly%=1..`Ztw|
00003ca0  69 74 25 3d a3 3a 73 74  75 63 6b 25 3d a3 3a 78  |it%=.:stuck%=.:x|
00003cb0  70 6f 73 25 3d a4 78 63  6f 28 78 25 29 3a 78 25  |pos%=.xco(x%):x%|
00003cc0  3d 28 78 70 6f 73 25 2b  73 69 6c 6c 79 25 29 2a  |=(xpos%+silly%)*|
00003cd0  36 30 3a 70 74 78 25 3d  30 3a 70 66 78 25 3d 30  |60:ptx%=0:pfx%=0|
00003ce0  3a c8 99 26 36 2c 31 35  2c 30 3a 73 74 6c 6f 6f  |:..&6,15,0:stloo|
00003cf0  70 25 3d 30 0d 09 6a 05  cd 0d 09 74 05 cd 0d 09  |p%=0..j....t....|
00003d00  7e 2d 77 25 2b 3d 31 3a  6c 6f 6f 70 25 2b 3d 31  |~-w%+=1:loop%+=1|
00003d10  36 3a e7 20 77 25 3e 28  66 77 61 79 3f 30 29 2d  |6:. w%>(fway?0)-|
00003d20  31 20 8c 20 64 6f 6e 65  25 3d b9 0d 09 88 05 ce  |1 . done%=......|
00003d30  0d 09 92 05 e1 0d 09 9c  05 3a 0d 09 a6 20 dd f2  |.........:... ..|
00003d40  72 65 63 74 61 6e 67 6c  65 28 78 25 2c 79 25 2c  |rectangle(x%,y%,|
00003d50  77 25 2c 68 25 2c 6f 70  25 29 0d 09 b0 be ea 20  |w%,h%,op%)..... |
00003d60  63 6f 6c 25 2c 6f 25 2c  6f 31 25 2c 6f 32 25 2c  |col%,o%,o1%,o2%,|
00003d70  6f 33 25 3a 6f 25 3d 30  3a 6f 31 25 3d 6f 25 3a  |o3%:o%=0:o1%=o%:|
00003d80  6f 32 25 3d 6f 25 3a 6f  33 25 3d 6f 25 3a e3 63  |o2%=o%:o3%=o%:.c|
00003d90  6f 6c 25 3d 30 b8 33 3a  e6 20 63 6f 6c 25 2a 34  |ol%=0.3:. col%*4|
00003da0  20 c8 9c 20 31 39 32 3a  c8 93 20 78 25 2b 6f 25  | .. 192:.. x%+o%|
00003db0  2c 79 25 2b 6f 31 25 2c  77 25 2d 6f 32 25 2c 68  |,y%+o1%,w%-o2%,h|
00003dc0  25 2d 6f 33 25 3a 6f 25  2b 3d 32 3a 6f 31 25 2b  |%-o3%:o%+=2:o1%+|
00003dd0  3d 33 3a 6f 32 25 2b 3d  34 3a 6f 33 25 2b 3d 36  |=3:o2%+=4:o3%+=6|
00003de0  3a ed 3a e7 20 6f 70 25  3d b9 20 8c 20 e6 20 30  |:.:. op%=. . . 0|
00003df0  2c 30 20 c8 9c 20 30 3a  c8 93 20 c8 90 20 78 25  |,0 .. 0:.. .. x%|
00003e00  2b 6f 25 2c 79 25 2b 6f  31 25 2c 77 25 2d 6f 32  |+o%,y%+o1%,w%-o2|
00003e10  25 2c 68 25 2d 6f 33 25  0d 09 ba 05 e1 0d 09 c4  |%,h%-o3%........|
00003e20  05 3a 0d 09 ce 13 dd f2  64 69 73 70 6c 61 79 5f  |.:......display_|
00003e30  6c 69 76 65 73 0d 09 d8  27 ea 20 6c 6f 6f 70 25  |lives...'. loop%|
00003e40  2c 78 25 3a 78 25 3d 34  33 30 3a e7 20 64 69 72  |,x%:x%=430:. dir|
00003e50  25 3d 31 20 8c 20 f2 66  6c 69 70 79 0d 09 e2 95  |%=1 . .flipy....|
00003e60  e6 20 30 2c 30 20 c8 9c  20 30 3a c8 93 20 c8 90  |. 0,0 .. 0:.. ..|
00003e70  20 34 33 30 2c 39 36 30  2c 28 34 30 2a 28 6c 69  | 430,960,(40*(li|
00003e80  76 65 73 25 2b 31 29 29  2c 35 30 3a e3 6c 6f 6f  |ves%+1)),50:.loo|
00003e90  70 25 3d 30 b8 28 6c 69  76 65 73 25 2d 31 29 3a  |p%=0.(lives%-1):|
00003ea0  f2 73 63 61 6c 65 28 32  38 2c 78 25 2c 39 36 30  |.scale(28,x%,960|
00003eb0  2c 31 2c 32 2c 32 2c 32  29 3a 78 25 2b 3d 34 30  |,1,2,2,2):x%+=40|
00003ec0  3a ed 3a f2 72 65 63 74  61 6e 67 6c 65 28 30 2c  |:.:.rectangle(0,|
00003ed0  39 30 30 2c 31 32 37 30  2c 31 32 33 2c a3 29 3a  |900,1270,123,.):|
00003ee0  e7 20 64 69 72 25 3d 31  20 8c 20 f2 66 6c 69 70  |. dir%=1 . .flip|
00003ef0  79 0d 09 ec 05 e1 0d 09  f6 05 3a 0d 0a 00 26 dd  |y.........:...&.|
00003f00  f2 73 63 61 6c 65 28 73  70 25 2c 78 25 2c 79 25  |.scale(sp%,x%,y%|
00003f10  2c 73 78 25 2c 73 79 25  2c 73 77 25 2c 73 68 25  |,sx%,sy%,sw%,sh%|
00003f20  29 0d 0a 0a 66 73 63 61  6c 65 25 21 30 3d 73 78  |)...fscale%!0=sx|
00003f30  25 3a 73 63 61 6c 65 25  21 34 3d 73 79 25 3a 73  |%:scale%!4=sy%:s|
00003f40  63 61 6c 65 25 21 38 3d  73 77 25 3a 73 63 61 6c  |cale%!8=sw%:scal|
00003f50  65 25 21 31 32 3d 73 68  25 3a c8 99 26 32 45 2c  |e%!12=sh%:..&2E,|
00003f60  26 33 34 2b 35 31 32 2c  73 70 72 69 74 65 73 25  |&34+512,sprites%|
00003f70  2c 73 70 72 21 73 70 25  2c 78 25 2c 79 25 2c 38  |,spr!sp%,x%,y%,8|
00003f80  2c 73 63 61 6c 65 25 0d  0a 14 05 e1 0d 0a 1e 05  |,scale%.........|
00003f90  3a 0d 0a 28 14 dd f2 75  70 64 61 74 65 5f 69 6e  |:..(...update_in|
00003fa0  66 6f 62 61 72 0d 0a 32  39 e6 20 30 2c 30 20 c8  |fobar..29. 0,0 .|
00003fb0  9c 20 30 3a c8 93 20 c8  90 20 34 33 30 2c 39 32  |. 0:.. .. 430,92|
00003fc0  30 2c 33 35 30 2c 38 30  3a c8 93 20 c8 90 20 31  |0,350,80:.. .. 1|
00003fd0  30 38 30 2c 39 32 30 2c  31 38 30 2c 38 30 0d 0a  |080,920,180,80..|
00003fe0  3c 7d f2 66 6f 6e 74 28  c3 28 67 73 63 6f 72 65  |<}.font(.(gscore|
00003ff0  25 29 2c 35 2c 34 33 30  2c 39 32 30 2c 32 2c 31  |%),5,430,920,2,1|
00004000  32 34 2c 31 29 3a f2 66  6f 6e 74 28 c3 28 6c 65  |24,1):.font(.(le|
00004010  76 65 6c 25 29 2c 35 2c  31 30 38 30 2c 39 37 30  |vel%),5,1080,970|
00004020  2c 32 2c 31 32 34 2c 31  29 3a f2 66 6f 6e 74 28  |,2,124,1):.font(|
00004030  c3 28 73 6e 6f 77 25 29  2c 35 2c 31 30 38 30 2c  |.(snow%),5,1080,|
00004040  39 32 30 2c 32 2c 31 32  34 2c 31 29 3a f2 64 69  |920,2,124,1):.di|
00004050  73 70 6c 61 79 5f 6c 69  76 65 73 0d 0a 46 05 e1  |splay_lives..F..|
00004060  0d 0a 50 05 3a 0d 0a 5a  0b dd f2 73 68 6f 6f 74  |..P.:..Z...shoot|
00004070  0d 0a 64 a7 73 78 25 3d  28 a4 78 63 6f 28 73 78  |..d.sx%=(.xco(sx|
00004080  31 25 29 29 2b 31 3a 73  79 25 3d 28 a4 79 63 6f  |1%))+1:sy%=(.yco|
00004090  28 73 79 31 25 29 29 2b  31 3a e7 20 6c 65 76 65  |(sy1%))+1:. leve|
000040a0  6c 25 28 73 78 25 2c 73  79 25 29 3d 38 20 80 20  |l%(sx%,sy%)=8 . |
000040b0  66 69 72 69 6e 67 25 3d  b9 20 84 20 6c 65 76 65  |firing%=. . leve|
000040c0  6c 25 28 28 73 78 25 2d  31 29 2c 73 79 25 29 3d  |l%((sx%-1),sy%)=|
000040d0  38 20 80 20 66 69 72 69  6e 67 25 3d b9 20 80 20  |8 . firing%=. . |
000040e0  6c 65 66 74 25 3d a3 20  8c 20 66 69 72 69 6e 67  |left%=. . firing|
000040f0  25 3d a3 3a 73 78 25 3d  30 3a 73 79 25 3d 30 3a  |%=.:sx%=0:sy%=0:|
00004100  73 78 31 25 3d 30 3a 73  79 31 25 3d 30 3a 6c 65  |sx1%=0:sy1%=0:le|
00004110  66 74 25 3d b9 3a e1 0d  0a 6e 27 e7 20 6c 65 66  |ft%=.:...n'. lef|
00004120  74 25 3d b9 20 80 20 66  69 72 69 6e 67 25 3d b9  |t%=. . firing%=.|
00004130  20 8c 20 6c 65 66 74 25  3d 6f 6c 64 6c 25 0d 0a  | . left%=oldl%..|
00004140  78 55 e7 20 66 69 72 69  6e 67 25 3d b9 20 80 20  |xU. firing%=. . |
00004150  73 78 25 3c 3e 73 78 31  25 20 8c 20 d4 20 33 2c  |sx%<>sx1% . . 3,|
00004160  2d 31 32 2c 31 38 30 2c  30 3a c8 99 26 32 45 2c  |-12,180,0:..&2E,|
00004170  26 32 32 32 2c 73 70 72  69 74 65 73 25 2c 73 70  |&222,sprites%,sp|
00004180  72 21 33 36 2c 73 78 31  25 2c 73 79 31 25 2b 32  |r!36,sx1%,sy1%+2|
00004190  30 2c 38 0d 0a 82 47 e7  20 6c 65 66 74 25 3d b9  |0,8...G. left%=.|
000041a0  20 80 20 66 69 72 69 6e  67 25 3d b9 20 8c 20 73  | . firing%=. . s|
000041b0  78 31 25 2b 3d 34 30 20  8b 20 e7 20 6c 65 66 74  |x1%+=40 . . left|
000041c0  25 3d a3 20 80 20 66 69  72 69 6e 67 25 3d b9 20  |%=. . firing%=. |
000041d0  8c 20 73 78 31 25 2d 3d  34 30 0d 0a 8c 4d e7 20  |. sx1%-=40...M. |
000041e0  77 61 79 3f 30 3e 31 20  8c 20 41 25 3d 62 61 64  |way?0>1 . A%=bad|
000041f0  64 69 65 73 3a 42 25 3d  73 78 31 25 3a 43 25 3d  |dies:B%=sx1%:C%=|
00004200  73 79 31 25 3a 44 25 3d  77 61 79 3a 64 62 61 64  |sy1%:D%=way:dbad|
00004210  25 3d ba 28 64 65 61 64  5f 62 61 64 29 20 8b 20  |%=.(dead_bad) . |
00004220  64 62 61 64 25 3d 30 0d  0a 96 8a e7 20 64 62 61  |dbad%=0..... dba|
00004230  64 25 3d 31 20 80 20 66  69 72 69 6e 67 25 3d b9  |d%=1 . firing%=.|
00004240  20 8c 20 ff 28 22 54 55  4e 49 4e 47 20 2d 31 30  | . .("TUNING -10|
00004250  30 30 22 29 3a c8 99 20  22 53 6f 75 6e 64 5f 43  |00"):.. "Sound_C|
00004260  6f 6e 74 72 6f 6c 22 2c  34 2c 2d 31 35 2c 31 30  |ontrol",4,-15,10|
00004270  30 2c 31 3a ff 28 22 54  55 4e 49 4e 47 20 2b 31  |0,1:.("TUNING +1|
00004280  30 30 30 22 29 3a 66 69  72 69 6e 67 25 3d a3 3a  |000"):firing%=.:|
00004290  6c 65 66 74 25 3d b9 3a  73 78 25 3d 30 3a 73 79  |left%=.:sx%=0:sy|
000042a0  25 3d 30 3a 73 78 31 25  3d 30 3a 73 79 31 25 3d  |%=0:sx1%=0:sy1%=|
000042b0  30 0d 0a a0 05 e1 0d 0a  aa 05 3a 0d 0a b4 17 dd  |0.........:.....|
000042c0  f2 63 68 65 63 6b 5f 68  69 74 5f 62 61 64 64 69  |.check_hit_baddi|
000042d0  65 73 0d 0a be c9 ea 20  64 78 25 2c 64 79 25 3a  |es..... dx%,dy%:|
000042e0  64 78 25 3d 28 a4 78 63  6f 28 78 25 29 29 2b 31  |dx%=(.xco(x%))+1|
000042f0  3a 64 79 25 3d 28 a4 79  63 6f 28 79 25 29 29 2b  |:dy%=(.yco(y%))+|
00004300  31 3a 41 25 3d 62 61 64  64 69 65 73 3a 42 25 3d  |1:A%=baddies:B%=|
00004310  78 25 3a 43 25 3d 79 25  3a 44 25 3d 77 61 79 3a  |x%:C%=y%:D%=way:|
00004320  64 62 61 64 25 3d ba 28  79 6f 75 5f 64 65 61 64  |dbad%=.(you_dead|
00004330  29 3a e7 20 64 62 61 64  25 3d 31 20 84 20 28 6c  |):. dbad%=1 . (l|
00004340  65 76 65 6c 25 28 64 78  25 2c 64 79 25 29 3d 37  |evel%(dx%,dy%)=7|
00004350  32 20 80 20 62 6f 6d 62  73 25 3d b9 29 20 8c 20  |2 . bombs%=.) . |
00004360  f2 64 69 65 20 8b 20 41  25 3d 62 61 64 64 69 65  |.die . A%=baddie|
00004370  73 3a 42 25 3d 28 78 25  2b 32 30 29 3a 43 25 3d  |s:B%=(x%+20):C%=|
00004380  79 25 3a 44 25 3d 77 61  79 3a 64 62 61 64 25 3d  |y%:D%=way:dbad%=|
00004390  ba 28 79 6f 75 5f 64 65  61 64 29 0d 0a c8 36 e7  |.(you_dead)...6.|
000043a0  20 64 62 61 64 25 3d 31  20 84 20 28 6c 65 76 65  | dbad%=1 . (leve|
000043b0  6c 25 28 64 78 25 2c 64  79 25 29 3d 37 32 20 80  |l%(dx%,dy%)=72 .|
000043c0  20 62 6f 6d 62 73 25 3d  b9 29 20 8c 20 f2 64 69  | bombs%=.) . .di|
000043d0  65 0d 0a d2 05 e1 0d 0a  dc 05 3a 0d 0a e6 09 dd  |e.........:.....|
000043e0  f2 64 69 65 0d 0a f0 2b  e7 20 64 69 65 64 25 3d  |.die...+. died%=|
000043f0  30 20 8c 20 6c 69 76 65  73 25 2d 3d 31 3a 6c 65  |0 . lives%-=1:le|
00004400  76 74 69 6d 65 25 3d 64  65 66 74 69 6d 65 25 0d  |vtime%=deftime%.|
00004410  0a fa 10 e7 20 6c 69 76  65 73 25 3d 30 20 8c 0d  |.... lives%=0 ..|
00004420  0b 04 20 70 6c 61 79 69  6e 67 25 3d a3 3a e7 20  |.. playing%=.:. |
00004430  62 61 6e 6b 25 3d 32 20  8c 20 f2 73 77 61 70 0d  |bank%=2 . .swap.|
00004440  0b 0e 72 c8 99 26 32 45  2c 26 31 32 32 2c 62 61  |..r..&2E,&122,ba|
00004450  63 6b 5f 73 70 72 25 2c  22 62 6c 61 6e 6b 22 2c  |ck_spr%,"blank",|
00004460  30 2c 30 3a e7 20 77 61  79 3f 30 3e 31 20 8c 20  |0,0:. way?0>1 . |
00004470  41 25 3d 73 70 72 3a 42  25 3d 73 70 72 69 74 65  |A%=spr:B%=sprite|
00004480  73 25 3a 43 25 3d 62 61  64 64 69 65 73 3a 44 25  |s%:C%=baddies:D%|
00004490  3d 77 61 79 3a d6 20 6d  6f 76 65 5f 62 61 64 64  |=way:. move_badd|
000044a0  69 65 73 3a 77 73 70 3f  30 3d 31 2d 77 73 70 3f  |ies:wsp?0=1-wsp?|
000044b0  30 0d 0b 18 26 e7 20 64  69 72 25 3d 31 20 8c 20  |0...&. dir%=1 . |
000044c0  f2 66 6c 69 70 79 3a 64  69 72 25 3d 30 3a 6f 6c  |.flipy:dir%=0:ol|
000044d0  64 64 69 72 25 3d 30 0d  0b 22 92 f2 72 65 63 74  |ddir%=0.."..rect|
000044e0  61 6e 67 6c 65 28 31 38  30 2c 35 30 30 2c 38 37  |angle(180,500,87|
000044f0  30 2c 32 30 30 2c b9 29  3a f2 66 6f 6e 74 28 22  |0,200,.):.font("|
00004500  47 61 6d 65 4f 76 65 72  22 2c 31 32 2c 32 32 30  |GameOver",12,220|
00004510  2c 35 35 30 2c 32 2c 31  33 32 2c 30 29 3a f2 73  |,550,2,132,0):.s|
00004520  77 61 70 3a d1 3d 30 3a  f5 20 fd 20 91 3e 3d 31  |wap:.=0:. . .>=1|
00004530  30 30 3a c8 99 20 22 4f  53 5f 42 79 74 65 22 2c  |00:.. "OS_Byte",|
00004540  31 35 2c 30 3a c8 99 20  22 4f 53 5f 42 79 74 65  |15,0:.. "OS_Byte|
00004550  22 2c 32 31 2c 30 3a f5  20 fd 20 a5 3a f2 73 63  |",21,0:. . .:.sc|
00004560  6f 72 65 5f 62 6f 61 72  64 0d 0b 2c 05 cc 0d 0b  |ore_board..,....|
00004570  36 0f e7 20 64 69 65 64  25 3d 30 20 8c 0d 0b 40  |6.. died%=0 ...@|
00004580  29 e7 20 64 69 72 25 3d  31 20 8c 20 64 69 72 25  |). dir%=1 . dir%|
00004590  3d 30 3a 6f 6c 64 64 69  72 25 3d 64 69 72 25 3a  |=0:olddir%=dir%:|
000045a0  f2 66 6c 69 70 79 0d 0b  4a 47 f2 72 6e 64 5f 70  |.flipy..JG.rnd_p|
000045b0  6f 73 3a 73 63 63 25 3d  b9 3a c8 99 20 22 53 6f  |os:scc%=.:.. "So|
000045c0  75 6e 64 5f 43 6f 6e 74  72 6f 6c 22 2c 31 2c 2d  |und_Control",1,-|
000045d0  31 35 2c 31 30 30 2c 31  3a 79 6f 75 5f 64 65 61  |15,100,1:you_dea|
000045e0  64 25 3d 38 30 3a 64 69  65 64 25 3d 31 0d 0b 54  |d%=80:died%=1..T|
000045f0  05 cd 0d 0b 5e 05 e1 0d  0b 68 05 3a 0d 0b 72 0d  |....^....h.:..r.|
00004600  dd f2 72 6e 64 5f 70 6f  73 0d 0b 7c 78 64 6f 6e  |..rnd_pos..|xdon|
00004610  65 25 3d a3 3a 74 25 3d  30 3a 64 75 6d 6d 79 25  |e%=.:t%=0:dummy%|
00004620  3d b3 28 2d 91 29 3a 74  72 79 73 25 3d 30 3a c8  |=.(-.):trys%=0:.|
00004630  95 20 64 6f 6e 65 25 3d  a3 3a 78 25 3d b3 28 31  |. done%=.:x%=.(1|
00004640  32 32 30 29 3a 79 25 3d  b3 28 38 30 30 29 3a 63  |220):y%=.(800):c|
00004650  78 25 3d 28 a4 78 63 6f  28 78 25 29 29 2b 32 3a  |x%=(.xco(x%))+2:|
00004660  63 79 25 3d 28 a4 79 63  6f 28 79 25 29 29 2b 31  |cy%=(.yco(y%))+1|
00004670  3a e7 20 63 79 25 3c 3d  30 20 8c 20 63 79 25 3d  |:. cy%<=0 . cy%=|
00004680  31 0d 0b 86 67 e7 20 6c  65 76 65 6c 25 28 63 78  |1...g. level%(cx|
00004690  25 2c 63 79 25 29 3d 30  20 80 20 6c 65 76 65 6c  |%,cy%)=0 . level|
000046a0  25 28 63 78 25 2c 63 79  25 2d 31 29 3d 38 20 8c  |%(cx%,cy%-1)=8 .|
000046b0  20 64 6f 6e 65 25 3d b9  20 8b 20 78 25 2b 3d 36  | done%=. . x%+=6|
000046c0  30 3a e7 20 78 25 3e 3d  31 32 32 30 20 8c 20 79  |0:. x%>=1220 . y|
000046d0  25 2b 3d 36 30 3a 78 25  3d 30 3a 74 25 3d 31 3a  |%+=60:x%=0:t%=1:|
000046e0  74 72 79 73 25 2b 3d 31  0d 0b 90 40 e7 20 79 25  |trys%+=1...@. y%|
000046f0  3e 3d 38 30 30 20 84 20  74 72 79 73 25 3d 35 20  |>=800 . trys%=5 |
00004700  8c 20 64 6f 6e 65 25 3d  b9 3a 78 25 3d 31 32 30  |. done%=.:x%=120|
00004710  3a 63 78 25 3d 31 3a 63  79 25 3d 32 3a 79 25 3d  |:cx%=1:cy%=2:y%=|
00004720  31 38 30 3a 74 25 3d 30  0d 0b 9a 1d ce 3a 78 25  |180:t%=0.....:x%|
00004730  3d 28 63 78 25 2a 36 30  29 3a 79 25 3d 28 63 79  |=(cx%*60):y%=(cy|
00004740  25 2a 36 30 29 0d 0b a4  05 e1 0d 0b ae 05 3a 0d  |%*60).........:.|
00004750  0b b8 13 dd f2 6c 6f 61  64 5f 6e 65 77 6c 65 76  |.....load_newlev|
00004760  65 6c 0d 0b c2 b3 ea 20  66 69 6c 65 25 2c 78 25  |el..... file%,x%|
00004770  2c 79 25 3a 66 69 6c 65  25 3d 8e 28 22 3c 4c 65  |,y%:file%=.("<Le|
00004780  76 65 6c 24 44 69 72 3e  2e 4c 65 76 65 6c 22 2b  |vel$Dir>.Level"+|
00004790  c3 28 6c 65 76 65 6c 25  29 29 3a e8 23 66 69 6c  |.(level%)):.#fil|
000047a0  65 25 2c 70 61 73 73 24  2c 6c 65 76 74 69 6d 65  |e%,pass$,levtime|
000047b0  25 3a 66 25 3d 30 3a 66  6e 25 3d 31 3a 73 6e 6f  |%:f%=0:fn%=1:sno|
000047c0  77 25 3d 30 3a 62 70 25  3d 31 3a 78 70 6f 73 25  |w%=0:bp%=1:xpos%|
000047d0  3d 30 3a 79 70 6f 73 25  3d 30 3a 62 25 3d 30 3a  |=0:ypos%=0:b%=0:|
000047e0  62 6f 25 3d 30 3a 62 6d  25 3d 30 3a 6f 70 25 3d  |bo%=0:bm%=0:op%=|
000047f0  30 3a 65 25 3d 38 3a 65  6c 25 3d 30 3a 73 69 6c  |0:e%=8:el%=0:sil|
00004800  6c 79 25 3d 30 3a 66 6c  6f 25 3d a3 3a 73 6c 6f  |ly%=0:flo%=.:slo|
00004810  77 25 3d 33 35 0d 0b cc  31 e3 79 25 3d 30 b8 31  |w%=35...1.y%=0.1|
00004820  35 3a e3 78 25 3d 30 b8  32 30 3a 73 25 3d 9a 23  |5:.x%=0.20:s%=.#|
00004830  66 69 6c 65 25 3a 6c 65  76 65 6c 25 28 78 25 2c  |file%:level%(x%,|
00004840  79 25 29 3d 73 25 0d 0b  d6 66 e7 20 66 6c 6f 25  |y%)=s%...f. flo%|
00004850  3d b9 20 80 20 6c 65 76  65 6c 25 28 78 25 2c 79  |=. . level%(x%,y|
00004860  25 29 3d 38 20 8c 20 73  69 6c 6c 79 3f 28 66 6e  |%)=8 . silly?(fn|
00004870  25 2d 32 29 3d 28 73 69  6c 6c 79 25 2d 31 29 3a  |%-2)=(silly%-1):|
00004880  66 6c 6f 61 74 21 66 25  3d 28 78 70 6f 73 25 2d  |float!f%=(xpos%-|
00004890  36 30 29 3a 66 25 2b 3d  34 3a 66 6c 6f 25 3d a3  |60):f%+=4:flo%=.|
000048a0  20 8b 20 73 69 6c 6c 79  25 2b 3d 31 0d 0b e0 16  | . silly%+=1....|
000048b0  c8 8e 20 6c 65 76 65 6c  25 28 78 25 2c 79 25 29  |.. level%(x%,y%)|
000048c0  20 ca 0d 0b ea 11 c9 20  34 3a 20 73 6e 6f 77 25  | ...... 4: snow%|
000048d0  2b 3d 31 0d 0b f4 5f c9  20 31 36 3a 20 62 61 64  |+=1..._. 16: bad|
000048e0  64 69 65 73 21 62 25 3d  78 70 6f 73 25 3a 62 61  |dies!b%=xpos%:ba|
000048f0  64 64 69 65 73 21 28 62  25 2b 34 29 3d 79 70 6f  |ddies!(b%+4)=ypo|
00004900  73 25 3a 62 25 2b 3d 38  3a 77 61 79 3f 62 70 25  |s%:b%+=8:way?bp%|
00004910  3d 30 3a 62 70 25 2b 3d  31 3a 73 6c 6f 77 25 2d  |=0:bp%+=1:slow%-|
00004920  3d 31 3a 6c 65 76 65 6c  25 28 78 25 2c 79 25 29  |=1:level%(x%,y%)|
00004930  3d 30 0d 0b fe 41 c9 20  32 30 3a 20 65 6c 65 63  |=0...A. 20: elec|
00004940  21 65 25 3d 78 70 6f 73  25 3a 65 25 2b 3d 34 3a  |!e%=xpos%:e%+=4:|
00004950  65 6c 65 63 21 65 25 3d  79 70 6f 73 25 3a 65 25  |elec!e%=ypos%:e%|
00004960  2b 3d 34 3a 65 6c 25 2b  3d 31 3a 73 6c 6f 77 25  |+=4:el%+=1:slow%|
00004970  2d 3d 31 0d 0c 08 29 c9  20 32 34 3a 20 62 61 64  |-=1...). 24: bad|
00004980  64 69 65 73 21 62 25 3d  78 70 6f 73 25 3a 62 25  |dies!b%=xpos%:b%|
00004990  2b 3d 34 3a 73 6c 6f 77  25 2d 3d 31 0d 0c 12 85  |+=4:slow%-=1....|
000049a0  c9 20 35 32 3a 20 66 6e  25 2b 3d 31 3a 73 69 6c  |. 52: fn%+=1:sil|
000049b0  6c 79 25 3d 30 3a 66 6c  6f 61 74 21 66 25 3d 28  |ly%=0:float!f%=(|
000049c0  a4 64 69 72 28 78 70 6f  73 25 2c 78 25 29 29 3a  |.dir(xpos%,x%)):|
000049d0  66 25 2b 3d 34 3a 66 6c  6f 61 74 21 66 25 3d 78  |f%+=4:float!f%=x|
000049e0  70 6f 73 25 3a 66 25 2b  3d 34 3a 66 6c 6f 61 74  |pos%:f%+=4:float|
000049f0  21 28 66 25 29 3d 79 70  6f 73 25 3a 66 25 2b 3d  |!(f%)=ypos%:f%+=|
00004a00  34 3a 66 6c 6f 25 3d b9  3a 73 6c 6f 77 25 2d 3d  |4:flo%=.:slow%-=|
00004a10  31 3a 6c 65 76 65 6c 25  28 78 25 2c 79 25 29 3d  |1:level%(x%,y%)=|
00004a20  30 0d 0c 1c 23 c9 20 35  36 3a 20 68 6f 6d 65 78  |0...#. 56: homex|
00004a30  25 3d 78 70 6f 73 25 3a  68 6f 6d 65 79 25 3d 79  |%=xpos%:homey%=y|
00004a40  70 6f 73 25 0d 0c 26 34  c9 20 37 32 3a 20 62 6d  |pos%..&4. 72: bm|
00004a50  25 2b 3d 34 3a 6d 65 6d  21 62 6d 25 3d 78 70 6f  |%+=4:mem!bm%=xpo|
00004a60  73 25 3a 6d 65 6d 31 21  62 6d 25 3d 79 70 6f 73  |s%:mem1!bm%=ypos|
00004a70  25 3a 62 6f 25 2b 3d 31  0d 0c 30 05 cb 0d 0c 3a  |%:bo%+=1..0....:|
00004a80  bc 6d 63 6c 65 76 65 6c  3f 6f 70 25 3d 73 25 3a  |.mclevel?op%=s%:|
00004a90  6f 70 25 2b 3d 31 3a 78  70 6f 73 25 2b 3d 36 30  |op%+=1:xpos%+=60|
00004aa0  3a ed 3a 78 70 6f 73 25  3d 30 3a 79 70 6f 73 25  |:.:xpos%=0:ypos%|
00004ab0  2b 3d 36 30 3a ed 3a 77  61 79 3f 30 3d 62 70 25  |+=60:.:way?0=bp%|
00004ac0  3a d9 23 66 69 6c 65 25  3a 65 6c 65 63 21 30 3d  |:.#file%:elec!0=|
00004ad0  65 6c 25 3a 65 6c 65 63  21 34 3d 30 3a 77 73 70  |el%:elec!4=0:wsp|
00004ae0  3f 30 3d 31 3a 6d 65 6d  21 30 3d 62 6f 25 3a 66  |?0=1:mem!0=bo%:f|
00004af0  77 61 79 3f 30 3d 66 6e  25 3a 6d 65 6d 21 30 3d  |way?0=fn%:mem!0=|
00004b00  62 6f 25 3a 6d 65 6d 25  3d 62 6d 25 3a e3 6c 6f  |bo%:mem%=bm%:.lo|
00004b10  6f 70 25 3d 31 b8 31 39  3a 66 77 61 79 3f 6c 6f  |op%=1.19:fway?lo|
00004b20  6f 70 25 3d 31 3a ed 3a  64 65 66 74 69 6d 65 25  |op%=1:.:deftime%|
00004b30  3d 6c 65 76 74 69 6d 65  25 0d 0c 44 29 e7 20 64  |=levtime%..D). d|
00004b40  69 72 25 3d 31 20 8c 20  64 69 72 25 3d 30 3a 6f  |ir%=1 . dir%=0:o|
00004b50  6c 64 64 69 72 25 3d 64  69 72 25 3a f2 66 6c 69  |lddir%=dir%:.fli|
00004b60  70 79 0d 0c 4e 05 e1 0d  0c 58 05 3a 0d 0c 62 13  |py..N....X.:..b.|
00004b70  dd a4 64 69 72 28 78 70  6f 73 25 2c 78 25 29 0d  |..dir(xpos%,x%).|
00004b80  0c 6c 4d 78 79 25 3d 78  25 3a 61 6e 73 25 3d 78  |.lMxy%=x%:ans%=x|
00004b90  70 6f 73 25 3a f5 3a 61  6e 73 25 2d 3d 36 30 3a  |pos%:.:ans%-=60:|
00004ba0  78 79 25 2d 3d 31 3a 73  69 6c 6c 79 25 2b 3d 31  |xy%-=1:silly%+=1|
00004bb0  3a fd 20 6c 65 76 65 6c  25 28 78 79 25 2c 79 25  |:. level%(xy%,y%|
00004bc0  29 3d 38 3a 61 6e 73 25  2b 3d 36 30 0d 0c 76 09  |)=8:ans%+=60..v.|
00004bd0  3d 61 6e 73 25 0d 0c 80  05 3a 0d 0c 8a 11 dd f2  |=ans%....:......|
00004be0  73 63 6f 72 65 5f 62 6f  61 72 64 0d 0c 94 9e 70  |score_board....p|
00004bf0  6c 61 79 69 6e 67 25 3d  a3 3a 87 3a db 3a 62 61  |laying%=.:.:.:ba|
00004c00  6e 6b 25 3d 31 3a 63 68  65 61 74 25 3d 30 3a ef  |nk%=1:cheat%=0:.|
00004c10  31 39 2c 30 2c 32 34 2c  30 2c 30 2c 30 3a f2 73  |19,0,24,0,0,0:.s|
00004c20  77 61 70 3a db 3a f2 73  77 61 70 3a db 3a f2 73  |wap:.:.swap:.:.s|
00004c30  77 61 70 3a db 3a f2 73  77 61 70 3a 62 61 6e 6b  |wap:.:.swap:bank|
00004c40  25 3d 32 3a db 3a f2 73  6e 6f 77 5f 62 6f 74 74  |%=2:.:.snow_bott|
00004c50  6f 6d 3a f2 63 68 6e 65  77 5f 73 63 6f 72 65 3a  |om:.chnew_score:|
00004c60  f2 64 72 73 63 6f 72 65  5f 62 6f 61 72 64 3a 41  |.drscore_board:A|
00004c70  25 3d 73 6e 6f 77 64 3a  42 25 3d 74 65 6d 70 3a  |%=snowd:B%=temp:|
00004c80  d6 20 73 65 74 73 6e 6f  77 0d 0c 9e 67 78 25 3d  |. setsnow...gx%=|
00004c90  a3 3a c8 99 26 32 45 2c  26 31 31 30 2c 62 61 63  |.:..&2E,&110,bac|
00004ca0  6b 5f 73 70 72 25 2c 22  62 6c 61 6e 6b 22 2c 2c  |k_spr%,"blank",,|
00004cb0  26 30 2c 26 30 2c 26 34  46 46 2c 26 33 46 46 3a  |&0,&0,&4FF,&3FF:|
00004cc0  f2 73 77 61 70 3a c8 99  26 32 45 2c 26 31 32 32  |.swap:..&2E,&122|
00004cd0  2c 62 61 63 6b 5f 73 70  72 25 2c 22 62 6c 61 6e  |,back_spr%,"blan|
00004ce0  6b 22 2c 30 2c 30 3a c8  99 26 36 2c 31 35 2c 30  |k",0,0:..&6,15,0|
00004cf0  0d 0c a8 45 f5 3a f2 73  77 61 70 3a c8 99 26 32  |...E.:.swap:..&2|
00004d00  45 2c 26 31 32 32 2c 62  61 63 6b 5f 73 70 72 25  |E,&122,back_spr%|
00004d10  2c 22 62 6c 61 6e 6b 22  2c 30 2c 30 3a 41 25 3d  |,"blank",0,0:A%=|
00004d20  73 6e 6f 77 64 3a 42 25  3d 74 65 6d 70 3a d6 20  |snowd:B%=temp:. |
00004d30  73 6e 6f 77 3a 0d 0c b2  18 e7 20 a6 28 2d 35 36  |snow:..... .(-56|
00004d40  29 20 8c 20 f2 70 61 73  73 77 6f 72 64 0d 0c bc  |) . .password...|
00004d50  79 e7 20 a6 28 2d 33 38  29 20 80 20 a6 28 2d 38  |y. .(-38) . .(-8|
00004d60  37 29 20 80 20 a6 28 2d  35 34 29 20 80 20 a6 28  |7) . .(-54) . .(|
00004d70  2d 31 30 30 29 20 80 20  a6 28 2d 31 30 32 29 20  |-100) . .(-102) |
00004d80  80 20 a6 28 2d 35 35 29  20 80 20 a6 28 2d 38 34  |. .(-55) . .(-84|
00004d90  29 20 80 20 a6 28 2d 38  32 29 20 8c 20 c8 99 20  |) . .(-82) . .. |
00004da0  22 53 6f 75 6e 64 5f 43  6f 6e 74 72 6f 6c 22 2c  |"Sound_Control",|
00004db0  34 2c 2d 31 35 2c 31 35  30 2c 32 3a 63 68 65 61  |4,-15,150,2:chea|
00004dc0  74 25 3d 31 30 30 0d 0c  c6 0c c8 96 3a f2 73 77  |t%=100......:.sw|
00004dd0  61 70 0d 0c d0 63 fd 20  bf 28 30 29 3d 22 20 22  |ap...c. .(0)=" "|
00004de0  3a db 3a f2 73 77 61 70  3a db 3a f2 73 77 61 70  |:.:.swap:.:.swap|
00004df0  3a 6c 65 76 65 6c 25 3d  31 3a 70 61 73 73 25 3d  |:level%=1:pass%=|
00004e00  a3 3a 64 69 65 64 25 3d  30 3a 6c 69 76 65 73 25  |.:died%=0:lives%|
00004e10  3d 33 3a e7 20 64 69 72  25 3d 31 20 8c 20 64 69  |=3:. dir%=1 . di|
00004e20  72 25 3d 30 3a 6f 6c 64  64 69 72 25 3d 30 3a f2  |r%=0:olddir%=0:.|
00004e30  66 6c 69 70 79 0d 0c da  19 f2 6c 6f 61 64 3a 67  |flipy.....load:g|
00004e40  73 63 6f 72 65 25 3d 30  3a f2 67 61 6d 65 0d 0c  |score%=0:.game..|
00004e50  e4 05 e1 0d 0c ee 05 3a  0d 0c f8 11 dd f2 73 6e  |.......:......sn|
00004e60  6f 77 5f 62 6f 74 74 6f  6d 0d 0d 02 48 e6 20 30  |ow_bottom...H. 0|
00004e70  2c 36 33 20 c8 9c 20 31  39 32 3a c8 93 20 c8 90  |,63 .. 192:.. ..|
00004e80  20 30 2c 30 2c 31 32 37  39 2c 33 30 3a e3 78 25  | 0,0,1279,30:.x%|
00004e90  3d 30 b8 31 32 37 39 88  31 30 3a c8 8f 20 c8 90  |=0.1279.10:.. ..|
00004ea0  20 78 25 2c b3 28 33 30  29 2c b3 28 32 30 29 3a  | x%,.(30),.(20):|
00004eb0  ed 0d 0d 0c 05 e1 0d 0d  16 05 3a 0d 0d 20 15 dd  |..........:.. ..|
00004ec0  f2 69 6e 69 74 5f 73 63  6f 72 65 62 6f 61 72 64  |.init_scoreboard|
00004ed0  0d 0d 2a 6d 66 69 6c 65  25 3d 8e 28 22 3c 44 61  |..*mfile%=.("<Da|
00004ee0  74 61 24 44 69 72 3e 2e  53 63 6f 72 65 73 22 29  |ta$Dir>.Scores")|
00004ef0  3a e3 6c 6f 6f 70 25 3d  30 b8 39 3a e8 23 66 69  |:.loop%=0.9:.#fi|
00004f00  6c 65 25 2c 6e 61 6d 65  24 2c 73 63 25 3a 73 63  |le%,name$,sc%:sc|
00004f10  6f 72 65 24 28 6c 6f 6f  70 25 29 3d 6e 61 6d 65  |ore$(loop%)=name|
00004f20  24 3a 73 63 6f 72 65 25  28 6c 6f 6f 70 25 29 3d  |$:score%(loop%)=|
00004f30  73 63 25 3a ed 3a d9 23  66 69 6c 65 25 0d 0d 34  |sc%:.:.#file%..4|
00004f40  05 e1 0d 0d 3e 05 3a 0d  0d 48 15 dd f2 73 61 76  |....>.:..H...sav|
00004f50  65 5f 73 63 6f 72 65 62  6f 61 72 64 0d 0d 52 6d  |e_scoreboard..Rm|
00004f60  66 69 6c 65 25 3d ae 28  22 3c 44 61 74 61 24 44  |file%=.("<Data$D|
00004f70  69 72 3e 2e 53 63 6f 72  65 73 22 29 3a e3 6c 6f  |ir>.Scores"):.lo|
00004f80  6f 70 25 3d 30 b8 39 3a  6e 61 6d 65 24 3d 73 63  |op%=0.9:name$=sc|
00004f90  6f 72 65 24 28 6c 6f 6f  70 25 29 3a 73 63 25 3d  |ore$(loop%):sc%=|
00004fa0  73 63 6f 72 65 25 28 6c  6f 6f 70 25 29 3a f1 23  |score%(loop%):.#|
00004fb0  66 69 6c 65 25 2c 6e 61  6d 65 24 2c 73 63 25 3a  |file%,name$,sc%:|
00004fc0  ed 3a d9 23 66 69 6c 65  25 0d 0d 5c 05 e1 0d 0d  |.:.#file%..\....|
00004fd0  66 05 3a 0d 0d 70 13 dd  f2 64 72 73 63 6f 72 65  |f.:..p...drscore|
00004fe0  5f 62 6f 61 72 64 0d 0d  7a cb f2 66 6f 6e 74 28  |_board..z..font(|
00004ff0  22 46 72 6f 73 74 79 20  54 68 65 20 53 6e 6f 77  |"Frosty The Snow|
00005000  6d 61 6e 21 22 2c 38 2c  31 30 2c 39 32 30 2c 32  |man!",8,10,920,2|
00005010  2c 31 36 30 2c 31 29 3a  f2 66 6f 6e 74 28 22 50  |,160,1):.font("P|
00005020  72 65 73 73 20 3c 53 70  61 63 65 3e 20 54 6f 20  |ress <Space> To |
00005030  50 6c 61 79 22 2c 36 2c  31 30 30 2c 31 30 30 2c  |Play",6,100,100,|
00005040  32 2c 31 30 30 2c 31 29  3a 79 25 3d 38 32 30 3a  |2,100,1):y%=820:|
00005050  e3 6c 6f 6f 70 25 3d 30  b8 39 3a f2 66 6f 6e 74  |.loop%=0.9:.font|
00005060  28 73 63 6f 72 65 24 28  6c 6f 6f 70 25 29 2c 35  |(score$(loop%),5|
00005070  2c 31 35 30 2c 79 25 2c  32 2c 33 32 2c 30 29 3a  |,150,y%,2,32,0):|
00005080  f2 66 6f 6e 74 28 c3 28  73 63 6f 72 65 25 28 6c  |.font(.(score%(l|
00005090  6f 6f 70 25 29 29 2c 35  2c 39 37 30 2c 79 25 2c  |oop%)),5,970,y%,|
000050a0  32 2c 32 33 37 2c 30 29  3a 79 25 2d 3d 36 35 3a  |2,237,0):y%-=65:|
000050b0  ed 0d 0d 84 37 e3 6c 6f  6f 70 25 3d 30 b8 32 3a  |....7.loop%=0.2:|
000050c0  c8 99 26 32 45 2c 26 32  32 32 2c 73 70 72 69 74  |..&2E,&222,sprit|
000050d0  65 73 25 2c 73 70 72 21  34 2c b3 28 31 32 32 30  |es%,spr!4,.(1220|
000050e0  29 2c 33 33 2c 38 3a ed  0d 0d 8e 05 e1 0d 0d 98  |),33,8:.........|
000050f0  05 3a 0d 0d a2 11 dd f2  63 68 6e 65 77 5f 73 63  |.:......chnew_sc|
00005100  6f 72 65 0d 0d ac 1a e7  20 67 73 63 6f 72 65 25  |ore..... gscore%|
00005110  3e 3d 73 63 6f 72 65 25  28 39 29 20 8c 0d 0d b6  |>=score%(9) ....|
00005120  46 73 63 6f 72 65 70 25  3d 32 3a 70 25 3d 39 3a  |Fscorep%=2:p%=9:|
00005130  e3 6c 6f 6f 70 25 3d 39  b8 30 88 2d 31 3a e7 20  |.loop%=9.0.-1:. |
00005140  67 73 63 6f 72 65 25 3e  3d 73 63 6f 72 65 25 28  |gscore%>=score%(|
00005150  6c 6f 6f 70 25 29 20 8c  20 73 63 6f 72 65 70 25  |loop%) . scorep%|
00005160  3d 70 25 0d 0d c0 17 70  25 2d 3d 31 3a ed 3a f2  |=p%....p%-=1:.:.|
00005170  69 6e 70 75 74 5f 6e 61  6d 65 0d 0d ca 05 cd 0d  |input_name......|
00005180  0d d4 05 e1 0d 0d de 05  3a 0d 0d e8 10 dd f2 69  |........:......i|
00005190  6e 70 75 74 5f 6e 61 6d  65 0d 0d f2 8f f2 66 6f  |nput_name.....fo|
000051a0  6e 74 28 22 46 72 6f 73  74 79 20 54 68 65 20 53  |nt("Frosty The S|
000051b0  6e 6f 77 6d 61 6e 21 22  2c 38 2c 31 30 2c 39 32  |nowman!",8,10,92|
000051c0  30 2c 32 2c 31 36 30 2c  31 29 3a f2 66 6f 6e 74  |0,2,160,1):.font|
000051d0  28 22 57 6f 21 2e 2e 41  20 4d 65 67 61 20 53 63  |("Wo!..A Mega Sc|
000051e0  6f 72 65 22 2c 38 2c 36  30 2c 38 30 30 2c 32 2c  |ore",8,60,800,2,|
000051f0  31 30 31 2c 31 29 3a f2  66 6f 6e 74 28 22 50 6c  |101,1):.font("Pl|
00005200  65 61 73 65 20 45 6e 74  65 72 20 59 6f 75 72 20  |ease Enter Your |
00005210  4e 61 6d 65 3a 22 2c 36  2c 34 30 2c 37 30 30 2c  |Name:",6,40,700,|
00005220  32 2c 32 33 37 2c 31 29  0d 0d fc a4 c8 99 26 32  |2,237,1)......&2|
00005230  45 2c 26 32 32 32 2c 73  70 72 69 74 65 73 25 2c  |E,&222,sprites%,|
00005240  73 70 72 21 36 34 2c 38  30 30 2c 30 2c 38 3a f2  |spr!64,800,0,8:.|
00005250  66 6f 6e 74 28 22 59 6f  75 72 20 50 6f 73 69 74  |font("Your Posit|
00005260  69 6f 6e 20 49 73 3a 20  20 22 2c 36 2c 33 30 2c  |ion Is:  ",6,30,|
00005270  34 30 30 2c 32 2c 31 32  30 2c 31 29 3a f2 66 6f  |400,2,120,1):.fo|
00005280  6e 74 28 c3 28 73 63 6f  72 65 70 25 2b 31 29 2c  |nt(.(scorep%+1),|
00005290  31 35 2c 32 35 30 2c 32  35 30 2c 32 2c 34 2c 31  |15,250,250,2,4,1|
000052a0  29 3a f2 66 6f 6e 74 28  28 a4 63 68 65 63 6b 5f  |):.font((.check_|
000052b0  62 69 74 29 2c 31 35 2c  34 30 30 2b 70 6c 75 73  |bit),15,400+plus|
000052c0  25 2c 32 35 30 2c 32 2c  34 2c 31 29 0d 0e 06 ab  |%,250,2,4,1)....|
000052d0  41 25 3d 73 6e 6f 77 64  3a 42 25 3d 74 65 6d 70  |A%=snowd:B%=temp|
000052e0  3a d6 20 73 65 74 73 6e  6f 77 3a 78 25 3d 35 30  |:. setsnow:x%=50|
000052f0  3a c8 99 26 32 45 2c 26  31 31 30 2c 62 61 63 6b  |:..&2E,&110,back|
00005300  5f 73 70 72 25 2c 22 62  6c 61 6e 6b 22 2c 2c 26  |_spr%,"blank",,&|
00005310  30 2c 26 30 2c 26 34 46  46 2c 26 33 46 46 3a f2  |0,&0,&4FF,&3FF:.|
00005320  73 77 61 70 3a c8 99 26  32 45 2c 26 31 32 32 2c  |swap:..&2E,&122,|
00005330  62 61 63 6b 5f 73 70 72  25 2c 22 62 6c 61 6e 6b  |back_spr%,"blank|
00005340  22 2c 30 2c 30 3a c8 99  26 36 2c 31 35 2c 30 3a  |",0,0:..&6,15,0:|
00005350  74 70 25 3d 31 3a 6e 61  6d 65 24 3d 22 20 22 3a  |tp%=1:name$=" ":|
00005360  6e 61 6d 65 24 3d a4 69  6e 70 75 74 28 35 30 2c  |name$=.input(50,|
00005370  35 35 30 2c 31 37 29 0d  0e 10 59 73 63 6f 72 65  |550,17)...Yscore|
00005380  24 28 73 63 6f 72 65 70  25 29 3d 6e 61 6d 65 24  |$(scorep%)=name$|
00005390  3a 73 63 6f 72 65 25 28  73 63 6f 72 65 70 25 29  |:score%(scorep%)|
000053a0  3d 67 73 63 6f 72 65 25  3a 67 73 63 6f 72 65 25  |=gscore%:gscore%|
000053b0  3d 30 3a f2 73 61 76 65  5f 73 63 6f 72 65 62 6f  |=0:.save_scorebo|
000053c0  61 72 64 3a f2 73 63 6f  72 65 5f 62 6f 61 72 64  |ard:.score_board|
000053d0  0d 0e 1a 05 e1 0d 0e 24  05 3a 0d 0e 2e 0f dd a4  |.......$.:......|
000053e0  63 68 65 63 6b 5f 62 69  74 0d 0e 38 14 c8 8e 20  |check_bit..8... |
000053f0  28 73 63 6f 72 65 70 25  2b 31 29 20 ca 0d 0e 42  |(scorep%+1) ...B|
00005400  1a c9 20 31 3a 20 70 6c  75 73 25 3d 30 3a 61 6e  |.. 1: plus%=0:an|
00005410  73 24 3d 22 73 74 22 0d  0e 4c 1a c9 20 32 3a 20  |s$="st"..L.. 2: |
00005420  70 6c 75 73 25 3d 30 3a  61 6e 73 24 3d 22 6e 64  |plus%=0:ans$="nd|
00005430  22 0d 0e 56 1a c9 20 33  3a 20 70 6c 75 73 25 3d  |"..V.. 3: plus%=|
00005440  30 3a 61 6e 73 24 3d 22  72 64 22 0d 0e 60 1d c9  |0:ans$="rd"..`..|
00005450  20 31 30 3a 20 70 6c 75  73 25 3d 31 32 30 3a 61  | 10: plus%=120:a|
00005460  6e 73 24 3d 22 74 68 22  0d 0e 6a 18 7f 3a 20 70  |ns$="th"..j..: p|
00005470  6c 75 73 25 3d 30 3a 61  6e 73 24 3d 22 74 68 22  |lus%=0:ans$="th"|
00005480  0d 0e 74 05 cb 0d 0e 7e  09 3d 61 6e 73 24 0d 0e  |..t....~.=ans$..|
00005490  88 05 3a 0d 0e 92 0e dd  f2 70 61 73 73 77 6f 72  |..:......passwor|
000054a0  64 0d 0e 9c 26 ea 20 85  3a ee 20 85 20 ea 20 66  |d...&. .:. . . f|
000054b0  6f 75 6e 64 25 3d b9 3a  6c 65 76 65 6c 25 3d 31  |ound%=.:level%=1|
000054c0  3a 65 72 72 25 3d b9 0d  0e a6 2c e7 20 65 72 72  |:err%=....,. err|
000054d0  25 20 8c 20 f7 20 85 3a  70 61 73 73 25 3d a3 3a  |% . . .:pass%=.:|
000054e0  65 72 72 25 3d a3 3a f2  73 63 6f 72 65 5f 62 6f  |err%=.:.score_bo|
000054f0  61 72 64 0d 0e b0 43 6c  25 3d 30 3a 70 61 73 73  |ard...Cl%=0:pass|
00005500  25 3d b9 3a 66 6f 75 6e  64 25 3d a3 3a 87 3a db  |%=.:found%=.:.:.|
00005510  3a 62 61 6e 6b 25 3d 31  3a f2 73 77 61 70 3a db  |:bank%=1:.swap:.|
00005520  3a f2 73 77 61 70 3a db  3a f2 73 77 61 70 3a db  |:.swap:.:.swap:.|
00005530  3a f2 73 77 61 70 0d 0e  ba bc 62 61 6e 6b 25 3d  |:.swap....bank%=|
00005540  32 3a db 3a f2 73 6e 6f  77 5f 62 6f 74 74 6f 6d  |2:.:.snow_bottom|
00005550  3a f2 66 6f 6e 74 28 22  46 72 6f 73 74 79 20 54  |:.font("Frosty T|
00005560  68 65 20 53 6e 6f 77 6d  61 6e 21 22 2c 38 2c 31  |he Snowman!",8,1|
00005570  30 2c 39 32 30 2c 32 2c  31 36 30 2c 31 29 3a f2  |0,920,2,160,1):.|
00005580  66 6f 6e 74 28 22 50 6c  65 61 73 65 20 45 6e 74  |font("Please Ent|
00005590  65 72 20 4c 65 76 65 6c  22 2c 36 2c 34 30 2c 37  |er Level",6,40,7|
000055a0  30 30 2c 32 2c 32 33 37  2c 31 29 3a f2 66 6f 6e  |00,2,237,1):.fon|
000055b0  74 28 22 50 61 73 73 77  6f 72 64 3a 20 22 2c 36  |t("Password: ",6|
000055c0  2c 34 30 2c 36 33 30 2c  32 2c 32 33 37 2c 31 29  |,40,630,2,237,1)|
000055d0  3a c8 99 26 32 45 2c 26  32 32 32 2c 73 70 72 69  |:..&2E,&222,spri|
000055e0  74 65 73 25 2c 73 70 72  21 36 38 2c 30 2c 34 30  |tes%,spr!68,0,40|
000055f0  2c 38 0d 0e c4 f5 c8 99  26 32 45 2c 26 32 32 32  |,8......&2E,&222|
00005600  2c 73 70 72 69 74 65 73  25 2c 73 70 72 21 36 34  |,sprites%,spr!64|
00005610  2c 38 30 30 2c 30 2c 38  3a 41 25 3d 73 6e 6f 77  |,800,0,8:A%=snow|
00005620  64 3a 42 25 3d 74 65 6d  70 3a d6 20 73 65 74 73  |d:B%=temp:. sets|
00005630  6e 6f 77 3a 78 25 3d 35  30 3a c8 99 26 32 45 2c  |now:x%=50:..&2E,|
00005640  26 31 31 30 2c 62 61 63  6b 5f 73 70 72 25 2c 22  |&110,back_spr%,"|
00005650  62 6c 61 6e 6b 22 2c 2c  26 30 2c 26 30 2c 26 34  |blank",,&0,&0,&4|
00005660  46 46 2c 26 33 46 46 3a  f2 73 77 61 70 3a c8 99  |FF,&3FF:.swap:..|
00005670  26 32 45 2c 26 31 32 32  2c 62 61 63 6b 5f 73 70  |&2E,&122,back_sp|
00005680  72 25 2c 22 62 6c 61 6e  6b 22 2c 30 2c 30 3a c8  |r%,"blank",0,0:.|
00005690  99 26 36 2c 31 35 2c 30  3a 74 70 25 3d 31 3a 6e  |.&6,15,0:tp%=1:n|
000056a0  61 6d 65 24 3d 22 20 22  3a 6c 25 3d 31 3a 6c 65  |ame$=" ":l%=1:le|
000056b0  76 65 6c 25 3d 31 3a 6e  61 6d 65 24 3d a4 69 6e  |vel%=1:name$=.in|
000056c0  70 75 74 28 35 35 30 2c  36 33 30 2c 31 32 29 3a  |put(550,630,12):|
000056d0  70 61 73 73 24 3d a4 65  6e 63 72 79 70 74 28 6e  |pass$=.encrypt(n|
000056e0  61 6d 65 24 2c 31 29 0d  0e ce a6 f5 3a f2 73 77  |ame$,1).....:.sw|
000056f0  61 70 3a c8 99 26 32 45  2c 26 31 32 32 2c 62 61  |ap:..&2E,&122,ba|
00005700  63 6b 5f 73 70 72 25 2c  22 62 6c 61 6e 6b 22 2c  |ck_spr%,"blank",|
00005710  30 2c 30 3a 41 25 3d 73  6e 6f 77 64 3a 42 25 3d  |0,0:A%=snowd:B%=|
00005720  74 65 6d 70 3a d6 20 73  6e 6f 77 3a 6c 25 2b 3d  |temp:. snow:l%+=|
00005730  31 3a 66 69 6c 65 25 3d  8e 28 22 3c 4c 65 76 65  |1:file%=.("<Leve|
00005740  6c 24 44 69 72 3e 2e 4c  65 76 65 6c 22 2b c3 28  |l$Dir>.Level"+.(|
00005750  6c 25 29 29 3a e8 23 66  69 6c 65 25 2c 6e 61 6d  |l%)):.#file%,nam|
00005760  65 24 3a d9 23 66 69 6c  65 25 3a e7 20 70 61 73  |e$:.#file%:. pas|
00005770  73 24 3d 6e 61 6d 65 24  20 8c 20 66 6f 75 6e 64  |s$=name$ . found|
00005780  25 3d b9 3a 6c 65 76 65  6c 25 3d 6c 25 0d 0e d8  |%=.:level%=l%...|
00005790  22 f2 73 77 61 70 3a fd  20 66 6f 75 6e 64 25 3a  |".swap:. found%:|
000057a0  e7 20 70 61 73 73 24 3d  6e 61 6d 65 24 20 8c 0d  |. pass$=name$ ..|
000057b0  0e e2 52 db 3a f2 73 77  61 70 3a db 3a f2 73 77  |..R.:.swap:.:.sw|
000057c0  61 70 3a 67 73 63 6f 72  65 25 3d 30 3a 70 61 73  |ap:gscore%=0:pas|
000057d0  73 25 3d b9 3a 6c 69 76  65 73 25 3d 33 3a 64 69  |s%=.:lives%=3:di|
000057e0  65 64 25 3d 30 3a f2 6c  6f 61 64 3a e7 20 6f 6c  |ed%=0:.load:. ol|
000057f0  64 64 69 72 25 3c 3e 30  20 8c 20 f2 66 6c 69 70  |ddir%<>0 . .flip|
00005800  79 0d 0e ec 0d f7 20 85  3a f2 67 61 6d 65 0d 0e  |y..... .:.game..|
00005810  f6 05 cc 0d 0f 00 34 6c  65 76 65 6c 25 3d 31 3a  |......4level%=1:|
00005820  3a c8 99 20 26 36 2c 31  35 2c 30 3a c8 99 20 26  |:.. &6,15,0:.. &|
00005830  36 2c 32 31 2c 30 3a f7  20 85 3a f2 73 63 6f 72  |6,21,0:. .:.scor|
00005840  65 5f 62 6f 61 72 64 0d  0f 0a 05 cd 0d 0f 14 05  |e_board.........|
00005850  e1 0d 0f 1e 05 3a 0d 0f  28 15 dd a4 65 6e 63 72  |.....:..(...encr|
00005860  79 70 74 28 70 24 2c 6f  70 25 29 0d 0f 32 0d e7  |ypt(p$,op%)..2..|
00005870  20 6f 70 25 3d 31 20 8c  0d 0f 3c 8c 61 64 64 25  | op%=1 ...<.add%|
00005880  3d 34 37 3a ea 20 6c 6f  6f 70 25 2c 74 24 3a 74  |=47:. loop%,t$:t|
00005890  24 3d 22 22 3a 61 6e 73  24 3d 22 22 3a e3 6c 6f  |$="":ans$="":.lo|
000058a0  6f 70 25 3d 31 b8 a9 28  70 24 29 3a 63 68 61 72  |op%=1..(p$):char|
000058b0  24 3d c1 70 24 2c 6c 6f  6f 70 25 2c 31 29 3a e7  |$=.p$,loop%,1):.|
000058c0  20 97 28 63 68 61 72 24  29 3e 3d 39 37 20 80 20  | .(char$)>=97 . |
000058d0  97 28 63 68 61 72 24 29  3c 3d 28 39 37 2b 32 36  |.(char$)<=(97+26|
000058e0  29 20 8c 20 74 24 3d bd  28 28 28 97 28 63 68 61  |) . t$=.(((.(cha|
000058f0  72 24 29 29 2d 33 32 29  29 20 8b 20 74 24 3d 63  |r$))-32)) . t$=c|
00005900  68 61 72 24 0d 0f 46 1d  61 6e 73 24 3d 61 6e 73  |har$..F.ans$=ans|
00005910  24 2b bd 28 97 28 74 24  29 2b 61 64 64 25 29 3a  |$+.(.(t$)+add%):|
00005920  ed 0d 0f 50 05 cc 0d 0f  5a 65 61 64 64 25 3d 34  |...P....Zeadd%=4|
00005930  37 3a ea 20 6c 6f 6f 70  25 2c 74 24 3a 74 24 3d  |7:. loop%,t$:t$=|
00005940  22 22 3a 61 6e 73 24 3d  22 22 3a e3 6c 6f 6f 70  |"":ans$="":.loop|
00005950  25 3d 31 b8 a9 28 70 24  29 3a 63 68 61 72 24 3d  |%=1..(p$):char$=|
00005960  c1 70 24 2c 6c 6f 6f 70  25 2c 31 29 3a 74 24 2b  |.p$,loop%,1):t$+|
00005970  3d bd 28 97 28 63 68 61  72 24 29 2d 61 64 64 25  |=.(.(char$)-add%|
00005980  29 3a ed 3a 61 6e 73 24  3d 74 24 0d 0f 64 05 cd  |):.:ans$=t$..d..|
00005990  0d 0f 6e 09 3d 61 6e 73  24 0d 0f 78 05 3a 0d 0f  |..n.=ans$..x.:..|
000059a0  82 18 dd a4 69 6e 70 75  74 28 78 25 2c 79 25 2c  |....input(x%,y%,|
000059b0  6c 65 6e 67 25 29 0d 0f  8c 90 ea 20 74 70 25 2c  |leng%)..... tp%,|
000059c0  6f 6c 64 78 25 2c 6e 6f  5f 70 6c 6f 74 25 2c 6b  |oldx%,no_plot%,k|
000059d0  65 79 25 2c 6b 65 79 24  3a 6e 61 6d 65 24 3d 22  |ey%,key$:name$="|
000059e0  20 22 3a 74 70 25 3d 31  3a 6f 6c 64 78 25 3d 78  | ":tp%=1:oldx%=x|
000059f0  25 3a f5 3a f2 73 77 61  70 3a c8 99 26 32 45 2c  |%:.:.swap:..&2E,|
00005a00  26 31 32 32 2c 62 61 63  6b 5f 73 70 72 25 2c 22  |&122,back_spr%,"|
00005a10  62 6c 61 6e 6b 22 2c 30  2c 30 3a 6b 65 79 24 3d  |blank",0,0:key$=|
00005a20  bf 28 30 29 3a 6b 65 79  25 3d 97 28 6b 65 79 24  |.(0):key%=.(key$|
00005a30  29 3a 6e 6f 5f 70 6c 6f  74 25 3d a3 3a c8 8e 20  |):no_plot%=.:.. |
00005a40  6b 65 79 25 20 ca 0d 0f  96 cb c9 20 31 32 37 2c  |key% ...... 127,|
00005a50  38 3a 20 e7 20 28 74 70  25 2d 31 29 3c 3d 30 20  |8: . (tp%-1)<=0 |
00005a60  8c 20 ef 37 3a 6e 6f 5f  70 6c 6f 74 25 3d b9 3a  |. .7:no_plot%=.:|
00005a70  78 25 3d 6f 6c 64 78 25  20 8b 20 74 70 25 2d 3d  |x%=oldx% . tp%-=|
00005a80  31 3a 78 25 2d 3d 37 30  3a 6e 6f 5f 70 6c 6f 74  |1:x%-=70:no_plot|
00005a90  25 3d b9 3a e6 20 30 2c  30 20 c8 9c 20 30 3a c8  |%=.:. 0,0 .. 0:.|
00005aa0  93 20 c8 90 20 28 78 25  29 2c 79 25 2c 35 30 2c  |. .. (x%),y%,50,|
00005ab0  35 30 3a f2 66 6f 6e 74  28 22 20 22 2c 37 2c 78  |50:.font(" ",7,x|
00005ac0  25 2c 79 25 2c 32 2c 30  2c 30 29 3a 6e 61 6d 65  |%,y%,2,0,0):name|
00005ad0  24 3d c1 6e 61 6d 65 24  2c 31 2c 28 74 70 25 2d  |$=.name$,1,(tp%-|
00005ae0  31 29 29 3a c8 99 26 32  45 2c 26 31 31 30 2c 62  |1)):..&2E,&110,b|
00005af0  61 63 6b 5f 73 70 72 25  2c 22 62 6c 61 6e 6b 22  |ack_spr%,"blank"|
00005b00  2c 2c 26 30 2c 26 30 2c  26 34 46 46 2c 26 33 46  |,,&0,&0,&4FF,&3F|
00005b10  46 0d 0f a0 17 c9 20 31  33 2c 2d 31 3a 20 6e 6f  |F..... 13,-1: no|
00005b20  5f 70 6c 6f 74 25 3d b9  0d 0f aa 27 7f 3a 74 70  |_plot%=....'.:tp|
00005b30  25 2b 3d 31 3a e7 20 c0  6e 61 6d 65 24 2c 31 29  |%+=1:. .name$,1)|
00005b40  3d 22 20 22 20 8c 20 6e  61 6d 65 24 3d 22 22 0d  |=" " . name$="".|
00005b50  0f b4 5f e7 20 74 70 25  3e 3d 6c 65 6e 67 25 20  |.._. tp%>=leng% |
00005b60  80 20 6b 65 79 25 3c 3e  31 33 20 80 20 6b 65 79  |. key%<>13 . key|
00005b70  25 3c 3e 2d 31 20 8c 20  ef 37 3a 74 70 25 2d 3d  |%<>-1 . .7:tp%-=|
00005b80  31 3a 6e 6f 5f 70 6c 6f  74 25 3d b9 20 8b 20 6e  |1:no_plot%=. . n|
00005b90  61 6d 65 24 3d c1 6e 61  6d 65 24 2c 31 2c 28 74  |ame$=.name$,1,(t|
00005ba0  70 25 2d 31 29 29 2b bd  28 6b 65 79 25 29 0d 0f  |p%-1))+.(key%)..|
00005bb0  be 64 cb 3a e7 20 6e 6f  5f 70 6c 6f 74 25 3d a3  |.d.:. no_plot%=.|
00005bc0  20 8c 20 f2 66 6f 6e 74  28 6b 65 79 24 2c 37 2c  | . .font(key$,7,|
00005bd0  78 25 2c 79 25 2c 32 2c  33 32 2c 31 29 3a 78 25  |x%,y%,2,32,1):x%|
00005be0  2b 3d 37 30 3a c8 99 26  32 45 2c 26 31 31 30 2c  |+=70:..&2E,&110,|
00005bf0  62 61 63 6b 5f 73 70 72  25 2c 22 62 6c 61 6e 6b  |back_spr%,"blank|
00005c00  22 2c 2c 26 30 2c 26 30  2c 26 34 46 46 2c 26 33  |",,&0,&0,&4FF,&3|
00005c10  46 46 0d 0f c8 24 41 25  3d 73 6e 6f 77 64 3a 42  |FF...$A%=snowd:B|
00005c20  25 3d 74 65 6d 70 3a d6  20 73 6e 6f 77 3a c8 96  |%=temp:. snow:..|
00005c30  3a f2 73 77 61 70 0d 0f  d2 0e fd 20 6b 65 79 24  |:.swap..... key$|
00005c40  3d bd 31 33 0d 0f dc 0a  3d 6e 61 6d 65 24 0d 0f  |=.13....=name$..|
00005c50  e6 05 3a 0d 0f f0 10 dd  f2 69 6e 5f 62 65 74 77  |..:......in_betw|
00005c60  65 65 6e 0d 0f fa 3c 87  3a db 3a 62 61 6e 6b 25  |een...<.:.:bank%|
00005c70  3d 31 3a f2 73 77 61 70  3a db 3a f2 73 77 61 70  |=1:.swap:.:.swap|
00005c80  3a db 3a f2 73 77 61 70  3a db 3a f2 73 77 61 70  |:.:.swap:.:.swap|
00005c90  3a e7 20 63 68 65 61 74  25 3d 31 30 30 20 8c 0d  |:. cheat%=100 ..|
00005ca0  10 04 29 e7 20 64 69 72  25 3d 31 20 8c 20 f2 66  |..). dir%=1 . .f|
00005cb0  6c 69 70 79 3a 64 69 72  25 3d 30 3a 6f 6c 64 64  |lipy:dir%=0:oldd|
00005cc0  69 72 25 3d 64 69 72 25  0d 10 0e 29 6c 65 76 65  |ir%=dir%...)leve|
00005cd0  6c 25 2b 3d 31 3a f2 6c  6f 61 64 3a db 3a f2 73  |l%+=1:.load:.:.s|
00005ce0  77 61 70 3a db 3a f2 73  77 61 70 3a f2 67 61 6d  |wap:.:.swap:.gam|
00005cf0  65 0d 10 18 d1 cd 3a 62  61 6e 6b 25 3d 32 3a db  |e.....:bank%=2:.|
00005d00  3a f2 73 6e 6f 77 5f 62  6f 74 74 6f 6d 3a f2 66  |:.snow_bottom:.f|
00005d10  6f 6e 74 28 22 46 72 6f  73 74 79 20 54 68 65 20  |ont("Frosty The |
00005d20  53 6e 6f 77 6d 61 6e 21  22 2c 38 2c 31 30 2c 39  |Snowman!",8,10,9|
00005d30  32 30 2c 32 2c 31 36 30  2c 31 29 3a f2 66 6f 6e  |20,2,160,1):.fon|
00005d40  74 28 22 50 61 73 73 77  6f 72 64 20 46 6f 72 20  |t("Password For |
00005d50  4e 65 78 74 20 4c 65 76  65 6c 22 2c 36 2c 34 30  |Next Level",6,40|
00005d60  2c 37 33 30 2c 32 2c 32  33 37 2c 31 29 3a 66 69  |,730,2,237,1):fi|
00005d70  6c 65 25 3d 8e 28 22 3c  4c 65 76 65 6c 24 44 69  |le%=.("<Level$Di|
00005d80  72 3e 2e 4c 65 76 65 6c  22 2b c3 28 6c 65 76 65  |r>.Level"+.(leve|
00005d90  6c 25 2b 31 29 29 3a e8  23 66 69 6c 65 25 2c 70  |l%+1)):.#file%,p|
00005da0  61 73 73 24 3a d9 23 66  69 6c 65 25 3a 74 65 24  |ass$:.#file%:te$|
00005db0  3d a4 65 6e 63 72 79 70  74 28 70 61 73 73 24 2c  |=.encrypt(pass$,|
00005dc0  30 29 0d 10 22 42 f2 66  6f 6e 74 28 74 65 24 2c  |0).."B.font(te$,|
00005dd0  31 32 2c 31 38 30 2c 36  30 30 2c 32 2c 33 32 2c  |12,180,600,2,32,|
00005de0  30 29 3a c8 99 26 32 45  2c 26 32 32 32 2c 73 70  |0):..&2E,&222,sp|
00005df0  72 69 74 65 73 25 2c 73  70 72 21 36 38 2c 30 2c  |rites%,spr!68,0,|
00005e00  34 30 2c 38 0d 10 2c a6  c8 99 26 32 45 2c 26 32  |40,8..,...&2E,&2|
00005e10  32 32 2c 73 70 72 69 74  65 73 25 2c 73 70 72 21  |22,sprites%,spr!|
00005e20  36 34 2c 39 30 30 2c 30  2c 38 3a 41 25 3d 73 6e  |64,900,0,8:A%=sn|
00005e30  6f 77 64 3a 42 25 3d 74  65 6d 70 3a d6 20 73 65  |owd:B%=temp:. se|
00005e40  74 73 6e 6f 77 3a 78 25  3d 35 30 3a c8 99 26 32  |tsnow:x%=50:..&2|
00005e50  45 2c 26 31 31 30 2c 62  61 63 6b 5f 73 70 72 25  |E,&110,back_spr%|
00005e60  2c 22 62 6c 61 6e 6b 22  2c 2c 26 30 2c 26 30 2c  |,"blank",,&0,&0,|
00005e70  26 34 46 46 2c 26 33 46  46 3a f2 73 77 61 70 3a  |&4FF,&3FF:.swap:|
00005e80  c8 99 26 32 45 2c 26 31  32 32 2c 62 61 63 6b 5f  |..&2E,&122,back_|
00005e90  73 70 72 25 2c 22 62 6c  61 6e 6b 22 2c 30 2c 30  |spr%,"blank",0,0|
00005ea0  3a c8 99 26 36 2c 31 35  2c 30 0d 10 36 57 f5 3a  |:..&6,15,0..6W.:|
00005eb0  f2 73 77 61 70 3a c8 99  26 32 45 2c 26 31 32 32  |.swap:..&2E,&122|
00005ec0  2c 62 61 63 6b 5f 73 70  72 25 2c 22 62 6c 61 6e  |,back_spr%,"blan|
00005ed0  6b 22 2c 30 2c 30 3a 41  25 3d 73 6e 6f 77 64 3a  |k",0,0:A%=snowd:|
00005ee0  42 25 3d 74 65 6d 70 3a  d6 20 73 6e 6f 77 3a c8  |B%=temp:. snow:.|
00005ef0  96 3a f2 73 77 61 70 3a  fd 20 bf 28 30 29 3e 22  |.:.swap:. .(0)>"|
00005f00  22 0d 10 40 29 e7 20 64  69 72 25 3d 31 20 8c 20  |"..@). dir%=1 . |
00005f10  f2 66 6c 69 70 79 3a 64  69 72 25 3d 30 3a 6f 6c  |.flipy:dir%=0:ol|
00005f20  64 64 69 72 25 3d 64 69  72 25 0d 10 4a 29 6c 65  |ddir%=dir%..J)le|
00005f30  76 65 6c 25 2b 3d 31 3a  f2 6c 6f 61 64 3a db 3a  |vel%+=1:.load:.:|
00005f40  f2 73 77 61 70 3a db 3a  f2 73 77 61 70 3a f2 67  |.swap:.:.swap:.g|
00005f50  61 6d 65 0d 10 54 05 e1  0d 10 5e 05 3a 0d 10 68  |ame..T....^.:..h|
00005f60  0b dd f2 65 72 72 6f 72  0d 10 72 29 e7 20 9f 3d  |...error..r). .=|
00005f70  31 37 20 80 20 70 6c 61  79 69 6e 67 25 3d b9 20  |17 . playing%=. |
00005f80  8c 20 ef 37 3a f2 73 63  6f 72 65 5f 62 6f 61 72  |. .7:.score_boar|
00005f90  64 0d 10 7c 1f e7 20 9f  3d 31 37 20 80 20 70 6c  |d..|.. .=17 . pl|
00005fa0  61 79 69 6e 67 25 3d a3  20 8c 20 f2 71 75 69 74  |aying%=. . .quit|
00005fb0  0d 10 86 24 e7 20 9f 3d  32 32 32 20 80 20 70 6c  |...$. .=222 . pl|
00005fc0  61 79 69 6e 67 25 3d b9  20 8c 20 f2 63 6f 6d 70  |aying%=. . .comp|
00005fd0  6c 65 74 65 0d 10 90 27  e7 20 9f 3d 32 32 32 20  |lete...'. .=222 |
00005fe0  80 20 70 6c 61 79 69 6e  67 25 3d a3 20 8c 20 ef  |. playing%=. . .|
00005ff0  37 3a f2 70 61 73 73 77  6f 72 64 0d 10 9a a8 e7  |7:.password.....|
00006000  20 9f 3d 31 39 33 20 8c  20 ef 37 3a eb 20 31 35  | .=193 . .7:. 15|
00006010  3a fb 20 38 3a f1 27 27  22 43 61 6e 6e 6f 74 20  |:. 8:.''"Cannot |
00006020  53 61 76 65 20 53 63 6f  72 65 20 42 6f 61 72 64  |Save Score Board|
00006030  2c 20 50 6c 65 61 73 65  20 43 68 65 63 6b 20 57  |, Please Check W|
00006040  72 69 74 65 20 50 72 6f  74 65 63 74 69 6f 6e 2c  |rite Protection,|
00006050  20 4f 72 20 4d 61 6b 65  20 41 6e 20 55 6e 2d 43  | Or Make An Un-C|
00006060  6f 6d 70 72 65 73 73 65  64 20 43 6f 70 79 20 4f  |ompressed Copy O|
00006070  66 20 54 68 69 73 20 47  61 6d 65 22 3a fb 33 3a  |f This Game":.3:|
00006080  f1 27 27 22 50 72 65 73  73 20 41 6e 79 20 4b 65  |.''"Press Any Ke|
00006090  79 22 3a f5 fd a5 3a f2  73 63 6f 72 65 5f 62 6f  |y":...:.score_bo|
000060a0  61 72 64 0d 10 a4 40 eb  20 30 3a f1 22 53 6f 72  |ard...@. 0:."Sor|
000060b0  72 79 20 49 20 48 61 76  65 20 53 75 66 66 65 72  |ry I Have Suffer|
000060c0  65 64 20 41 20 46 61 74  61 6c 20 45 72 72 6f 72  |ed A Fatal Error|
000060d0  2c 20 41 6e 64 20 4d 75  73 74 20 44 69 65 2e 2e  |, And Must Die..|
000060e0  2e 2e 22 0d 10 ae 31 f6  3a f1 3b 22 20 61 74 20  |.."...1.:.;" at |
000060f0  79 65 20 6c 69 6e 65 20  22 3b 9e 3b 22 20 20 20  |ye line ";.;"   |
00006100  45 72 72 6f 72 20 4e 75  6d 62 65 72 3a 20 20 22  |Error Number:  "|
00006110  3b 9f 3a e0 0d 10 b8 05  e1 0d 10 c2 05 3a 0d 10  |;.:..........:..|
00006120  cc 0e dd f2 63 6f 6d 70  6c 65 74 65 0d 10 d6 2d  |....complete...-|
00006130  87 3a db 3a 62 61 6e 6b  25 3d 31 3a f2 73 77 61  |.:.:bank%=1:.swa|
00006140  70 3a db 3a f2 73 77 61  70 3a db 3a f2 73 77 61  |p:.:.swap:.:.swa|
00006150  70 3a db 3a f2 73 77 61  70 0d 10 e0 8c 62 61 6e  |p:.:.swap....ban|
00006160  6b 25 3d 32 3a db 3a f2  73 6e 6f 77 5f 62 6f 74  |k%=2:.:.snow_bot|
00006170  74 6f 6d 3a f2 66 6f 6e  74 28 22 46 72 6f 73 74  |tom:.font("Frost|
00006180  79 20 54 68 65 20 53 6e  6f 77 6d 61 6e 22 2c 38  |y The Snowman",8|
00006190  2c 31 30 2c 37 30 30 2c  32 2c 31 36 30 2c 31 29  |,10,700,2,160,1)|
000061a0  3a c8 99 26 32 45 2c 26  32 32 32 2c 73 70 72 69  |:..&2E,&222,spri|
000061b0  74 65 73 25 2c 73 70 72  21 36 38 2c 30 2c 34 30  |tes%,spr!68,0,40|
000061c0  2c 38 3a c8 99 26 32 45  2c 26 32 32 32 2c 73 70  |,8:..&2E,&222,sp|
000061d0  72 69 74 65 73 25 2c 73  70 72 21 36 34 2c 38 30  |rites%,spr!64,80|
000061e0  30 2c 30 2c 38 0d 10 ea  57 f2 66 6f 6e 74 28 22  |0,0,8...W.font("|
000061f0  43 6f 6e 67 72 61 74 75  6c 61 74 69 6f 6e 73 21  |Congratulations!|
00006200  22 2c 39 2c 30 2c 39 32  30 2c 32 2c 38 39 2c 31  |",9,0,920,2,89,1|
00006210  29 3a f2 66 6f 6e 74 28  22 59 6f 75 20 48 61 76  |):.font("You Hav|
00006220  65 20 43 6f 6d 70 6c 65  74 65 64 22 2c 38 2c 30  |e Completed",8,0|
00006230  2c 38 30 30 2c 32 2c 32  38 2c 31 29 0d 10 f4 9f  |,800,2,28,1)....|
00006240  e7 20 70 61 73 73 25 3d  b9 20 84 20 63 68 65 61  |. pass%=. . chea|
00006250  74 25 3d 31 30 30 20 84  20 63 68 65 61 74 25 3d  |t%=100 . cheat%=|
00006260  31 30 31 20 8c 20 f2 66  6f 6e 74 28 22 4e 6f 77  |101 . .font("Now|
00006270  20 54 72 79 20 54 6f 20  44 6f 20 49 74 20 57 69  | Try To Do It Wi|
00006280  74 68 20 4f 75 74 22 2c  35 2c 35 30 2c 36 32 30  |th Out",5,50,620|
00006290  2c 32 2c 38 2c 31 29 3a  f2 66 6f 6e 74 28 22 50  |,2,8,1):.font("P|
000062a0  61 73 73 77 6f 72 64 73  2e 2e 2e 2e 2e 22 2c 35  |asswords.....",5|
000062b0  2c 34 30 30 2c 35 35 30  2c 32 2c 38 2c 31 29 20  |,400,550,2,8,1) |
000062c0  8b 20 f2 73 63 61 6c 65  28 32 38 2c 36 30 30 2c  |. .scale(28,600,|
000062d0  35 30 2c 35 2c 35 2c 31  2c 31 29 0d 10 fe 83 41  |50,5,5,1,1)....A|
000062e0  25 3d 73 6e 6f 77 64 3a  42 25 3d 74 65 6d 70 3a  |%=snowd:B%=temp:|
000062f0  d6 20 73 65 74 73 6e 6f  77 3a 78 25 3d 35 30 3a  |. setsnow:x%=50:|
00006300  c8 99 26 32 45 2c 26 31  31 30 2c 62 61 63 6b 5f  |..&2E,&110,back_|
00006310  73 70 72 25 2c 22 62 6c  61 6e 6b 22 2c 2c 26 30  |spr%,"blank",,&0|
00006320  2c 26 30 2c 26 34 46 46  2c 26 33 46 46 3a f2 73  |,&0,&4FF,&3FF:.s|
00006330  77 61 70 3a c8 99 26 32  45 2c 26 31 32 32 2c 62  |wap:..&2E,&122,b|
00006340  61 63 6b 5f 73 70 72 25  2c 22 62 6c 61 6e 6b 22  |ack_spr%,"blank"|
00006350  2c 30 2c 30 3a c8 99 26  36 2c 31 35 2c 30 0d 11  |,0,0:..&6,15,0..|
00006360  08 72 f5 3a f2 73 77 61  70 3a c8 99 26 32 45 2c  |.r.:.swap:..&2E,|
00006370  26 31 32 32 2c 62 61 63  6b 5f 73 70 72 25 2c 22  |&122,back_spr%,"|
00006380  62 6c 61 6e 6b 22 2c 30  2c 30 3a 41 25 3d 73 6e  |blank",0,0:A%=sn|
00006390  6f 77 64 3a 42 25 3d 74  65 6d 70 3a d6 20 73 6e  |owd:B%=temp:. sn|
000063a0  6f 77 3a c8 96 3a f2 73  77 61 70 3a fd 20 bf 28  |ow:..:.swap:. .(|
000063b0  30 29 3e 22 22 3a 67 73  63 6f 72 65 25 2b 3d 31  |0)>"":gscore%+=1|
000063c0  30 30 30 3a f2 73 63 6f  72 65 5f 62 6f 61 72 64  |000:.score_board|
000063d0  0d 11 12 05 e1 0d 11 1c  05 3a 0d 11 26 10 dd f2  |.........:..&...|
000063e0  73 6f 75 6e 64 5f 69 6e  69 74 0d 11 30 12 c8 a0  |sound_init..0...|
000063f0  20 34 3a 2a 54 75 6e 69  6e 67 20 30 0d 11 3a 12  | 4:*Tuning 0..:.|
00006400  2a 54 75 6e 69 6e 67 20  2d 31 36 30 30 30 0d 11  |*Tuning -16000..|
00006410  44 17 2a 43 68 61 6e 6e  65 6c 76 6f 69 63 65 20  |D.*Channelvoice |
00006420  31 20 44 69 65 0d 11 4e  1a 2a 43 68 61 6e 6e 65  |1 Die..N.*Channe|
00006430  6c 76 6f 69 63 65 20 32  20 53 65 6c 65 63 74 0d  |lvoice 2 Select.|
00006440  11 58 18 2a 43 68 61 6e  6e 65 6c 76 6f 69 63 65  |.X.*Channelvoice|
00006450  20 33 20 53 6e 6f 77 0d  11 62 19 2a 43 68 61 6e  | 3 Snow..b.*Chan|
00006460  6e 65 6c 76 6f 69 63 65  20 34 20 42 6f 6f 6d 31  |nelvoice 4 Boom1|
00006470  0d 11 6c 05 e1 0d 11 76  05 3a 0d 11 80 0a dd f2  |..l....v.:......|
00006480  71 75 69 74 0d 11 8a 2c  eb 20 31 35 3a fb 20 33  |quit...,. 15:. 3|
00006490  20 c8 9c 20 31 39 32 3a  77 68 24 3d c1 91 24 2c  | .. 192:wh$=..$,|
000064a0  31 37 2c 38 29 3a 74 24  3d c0 77 68 24 2c 32 29  |17,8):t$=.wh$,2)|
000064b0  0d 11 94 8c e7 20 bb 28  74 24 29 3e 31 37 20 8c  |..... .(t$)>17 .|
000064c0  20 f1 8a 30 2c 33 29 3b  22 4e 69 67 68 74 20 4e  | ..0,3);"Night N|
000064d0  69 67 68 74 20 46 72 6f  6d 20 46 72 6f 73 74 79  |ight From Frosty|
000064e0  21 2c 20 54 68 61 6e 6b  79 6f 75 20 46 6f 72 20  |!, Thankyou For |
000064f0  54 72 79 69 6e 67 20 54  6f 20 48 65 6c 70 20 48  |Trying To Help H|
00006500  69 6d 2e 2e 2e 2e 2e 2e  22 20 8b 20 f1 8a 30 2c  |im......" . ..0,|
00006510  33 29 3b 22 42 79 65 20  46 6f 72 20 4e 6f 77 2c  |3);"Bye For Now,|
00006520  20 48 6f 70 65 20 54 6f  20 53 65 65 20 59 6f 75  | Hope To See You|
00006530  20 4c 61 74 65 72 2e 2e  2e 2e 2e 22 0d 11 9e 0e  | Later....."....|
00006540  87 3a fb 20 31 39 3a d8  3a e0 0d 11 a8 05 3a 0d  |.:. 19:.:.....:.|
00006550  11 b2 29 f4 20 49 20 53  75 70 70 6f 73 65 20 59  |..). I Suppose Y|
00006560  6f 75 20 54 68 69 6e 6b  20 59 6f 75 20 41 72 65  |ou Think You Are|
00006570  20 43 6c 65 76 65 72 3f  0d ff f1 f1 f1 f1 00 00  | Clever?........|
00006580  2c 0f 00 00 0c 10 1f e5  0c 10 81 e0 14 10 0f e5  |,...............|
00006590  18 d0 4f e2 00 40 2d e9  20 00 1f e5 43 10 8f e2  |..O..@-. ...C...|
000065a0  09 20 a0 e3 d4 00 00 ef  24 00 9f e5 34 10 1f e5  |. ......$...4...|
000065b0  01 00 80 e0 34 10 8f e2  09 20 a0 e3 d4 00 00 ef  |....4.... ......|
000065c0  2c 00 a0 e3 23 00 cf e5  08 00 8f e2 05 00 00 ef  |,...#...........|
000065d0  00 80 bd e8 4e 65 00 00  2a 42 61 73 69 63 20 2d  |....Ne..*Basic -|
000065e0  71 75 69 74 20 20 40 00  00 00 00 00 00 00 00 00  |quit  @.........|
000065f0  00 00 00 00 00 00 00 00  00 00 00 00              |............|
000065fc