00000000  00 00 00 00 00 00 00 00  00 00 00 00 00 00 00 00  |................|
00000010  1c 00 00 00 28 00 00 00  48 00 00 00 42 75 72 73  |....(...H...Burs|
00000020  74 55 74 69 6c 73 00 20  42 75 72 73 74 55 74 69  |tUtils. BurstUti|
00000030  6c 73 09 30 2e 30 36 20  28 30 34 20 4a 75 6e 20  |ls.0.06 (04 Jun |
00000040  31 39 39 31 29 00 6f 6e  a0 00 3e 34 6c 00 00 00  |1991).on..>4l...|
00000050  00 00 00 00 66 00 00 00  60 00 00 00 00 00 00 00  |....f...`.......|
00000060  2a 1b 00 20 a0 0d 1b 01  20 00 6d 65 5c 00 8f e2  |*.. .... .me\...|
00000070  43 10 8f e2 09 20 a0 e3  d4 00 00 ef 2c 00 a0 e3  |C.... ......,...|
00000080  01 00 c1 e4 44 00 8f e2  00 00 80 e2 3a 0c 80 e2  |....D.......:...|
00000090  71 00 80 e2 09 20 a0 e3  d4 00 00 ef 15 01 00 ef  |q.... ..........|
000000a0  04 00 8f e2 05 00 00 ef  0e f0 a0 e1 2a 42 61 73  |............*Bas|
000000b0  69 63 20 2d 63 68 61 69  6e 20 40 00 00 00 00 00  |ic -chain @.....|
000000c0  00 00 00 00 00 00 00 00  00 00 00 00 00 0d 01 04  |................|
000000d0  0d 00 0a 0e f4 3e 4d 61  69 6e 50 72 6f 67 0d 00  |.....>MainProg..|
000000e0  14 07 ef 20 36 0d 00 1e  61 ee 20 85 20 eb 20 30  |... 6...a. . . 0|
000000f0  3a f1 22 46 61 74 61 6c  20 65 72 72 6f 72 20 3a  |:."Fatal error :|
00000100  20 50 6c 65 61 73 65 20  72 65 73 65 74 20 61 6e  | Please reset an|
00000110  64 20 72 75 6e 20 61 67  61 69 6e 20 28 73 6f 72  |d run again (sor|
00000120  72 79 20 21 20 49 20 64  69 64 20 6e 6f 74 20 65  |ry ! I did not e|
00000130  78 70 65 63 74 20 74 68  69 73 20 21 21 21 29 22  |xpect this !!!)"|
00000140  3a f5 3a fd 20 a3 0d 00  28 12 de 20 73 63 72 6f  |:.:. ...(.. scro|
00000150  6c 6c 25 20 33 30 30 30  0d 00 32 0a 74 76 61 6c  |ll% 3000..2.tval|
00000160  3d 34 0d 00 3c 53 de 20  68 69 24 28 31 31 29 2c  |=4..<S. hi$(11),|
00000170  68 69 25 28 31 31 29 3a  e3 20 49 3d 31 20 b8 20  |hi%(11):. I=1 . |
00000180  35 3a 68 69 24 28 49 29  3d 22 4d 61 72 6b 20 4a  |5:hi$(I)="Mark J|
00000190  6f 68 6e 73 6f 6e 22 3a  68 69 25 28 49 29 3d 33  |ohnson":hi%(I)=3|
000001a0  30 30 30 30 2d 28 28 49  2d 31 29 2a 33 30 30 30  |0000-((I-1)*3000|
000001b0  29 3a ed 20 49 0d 00 46  44 e3 20 49 3d 36 20 b8  |):. I..FD. I=6 .|
000001c0  20 31 30 3a 68 69 24 28  49 29 3d 22 54 68 65 20  | 10:hi$(I)="The |
000001d0  4d 69 63 72 6f 20 55 73  65 72 22 3a 68 69 25 28  |Micro User":hi%(|
000001e0  49 29 3d 33 30 30 30 30  2d 28 28 49 2d 31 29 2a  |I)=30000-((I-1)*|
000001f0  33 30 30 30 29 3a ed 20  49 0d 00 50 0e de 20 63  |3000):. I..P.. c|
00000200  79 63 6c 65 28 34 29 0d  00 5a 10 63 79 63 6c 65  |ycle(4)..Z.cycle|
00000210  28 31 29 3d 32 35 35 0d  00 64 10 63 79 63 6c 65  |(1)=255..d.cycle|
00000220  28 32 29 3d 32 30 30 0d  00 6e 10 63 79 63 6c 65  |(2)=200..n.cycle|
00000230  28 33 29 3d 31 32 30 0d  00 78 0f 63 79 63 6c 65  |(3)=120..x.cycle|
00000240  28 34 29 3d 35 30 0d 00  82 2e de 20 73 70 72 69  |(4)=50..... spri|
00000250  74 65 24 28 32 30 35 29  2c 73 63 72 65 65 6e 28  |te$(205),screen(|
00000260  32 30 35 29 2c 73 78 28  32 30 35 29 2c 73 79 28  |205),sx(205),sy(|
00000270  32 30 35 29 0d 00 8c 10  de 20 67 72 69 64 28 31  |205)..... grid(1|
00000280  32 2c 38 29 0d 00 96 61  41 3d 8e 22 3c 42 75 72  |2,8)...aA=."<Bur|
00000290  73 74 24 44 69 72 3e 2e  44 61 74 61 2e 44 61 74  |st$Dir>.Data.Dat|
000002a0  61 33 22 3a e8 20 23 41  2c 73 70 3a e3 20 48 3d  |a3":. #A,sp:. H=|
000002b0  31 20 b8 20 73 70 3a e8  20 23 41 2c 73 70 72 69  |1 . sp:. #A,spri|
000002c0  74 65 24 28 48 29 2c 73  63 72 65 65 6e 28 48 29  |te$(H),screen(H)|
000002d0  2c 73 78 28 48 29 2c 73  79 28 48 29 3a ed 20 48  |,sx(H),sy(H):. H|
000002e0  3a d9 20 23 41 0d 00 a0  2d de 20 63 6f 6d 70 6c  |:. #A...-. compl|
000002f0  65 74 65 28 37 29 3a e3  20 4b 3d 31 20 b8 20 37  |ete(7):. K=1 . 7|
00000300  3a 63 6f 6d 70 6c 65 74  65 28 4b 29 3d 30 3a ed  |:complete(K)=0:.|
00000310  20 4b 0d 00 aa 0f de 20  63 6f 64 65 20 35 30 30  | K..... code 500|
00000320  30 0d 00 b4 08 f2 61 73  73 0d 00 be 0c f2 72 75  |0.....ass.....ru|
00000330  6e 70 72 6f 67 0d 00 c8  0a dd 20 f2 61 73 73 0d  |nprog..... .ass.|
00000340  00 d2 14 e3 20 70 61 73  73 3d 30 20 b8 20 32 20  |.... pass=0 . 2 |
00000350  88 20 32 0d 00 dc 0b 50  25 3d 63 6f 64 65 0d 00  |. 2....P%=code..|
00000360  e6 0d 5b 4f 50 54 20 70  61 73 73 0d 00 f0 0a 2e  |..[OPT pass.....|
00000370  62 65 67 69 6e 0d 00 fa  0e 53 57 49 20 32 35 36  |begin....SWI 256|
00000380  2b 32 32 0d 01 04 0e 53  57 49 20 32 35 36 2b 31  |+22....SWI 256+1|
00000390  33 0d 01 0e 1a 53 57 49  20 22 4f 53 5f 52 65 6d  |3....SWI "OS_Rem|
000003a0  6f 76 65 43 75 72 73 6f  72 73 22 0d 01 18 0e 41  |oveCursors"....A|
000003b0  44 52 20 52 30 2c 76 76  62 0d 01 22 0e 41 44 52  |DR R0,vvb..".ADR|
000003c0  20 52 31 2c 76 76 62 0d  01 2c 1d 53 57 49 20 22  | R1,vvb..,.SWI "|
000003d0  4f 53 5f 52 65 61 64 56  64 75 56 61 72 69 61 62  |OS_ReadVduVariab|
000003e0  6c 65 73 22 0d 01 36 0e  4d 4f 56 20 50 43 2c 52  |les"..6.MOV PC,R|
000003f0  31 34 0d 01 40 08 2e 76  73 6c 0d 01 4a 0e 4d 4f  |14..@..vsl..J.MO|
00000400  56 20 52 30 2c 23 31 39  0d 01 54 11 53 57 49 20  |V R0,#19..T.SWI |
00000410  22 4f 53 5f 42 79 74 65  22 0d 01 5e 0f 41 44 52  |"OS_Byte"..^.ADR|
00000420  20 52 31 32 2c 73 6f 73  0d 01 68 0e 4c 44 52 20  | R12,sos..h.LDR |
00000430  52 31 31 2c 6e 73 0d 01  72 0f 4c 44 52 20 52 31  |R11,ns..r.LDR R1|
00000440  30 2c 76 76 62 0d 01 7c  07 2e 73 6c 0d 01 86 10  |0,vvb..|..sl....|
00000450  4c 44 52 20 52 30 2c 5b  52 31 32 5d 0d 01 90 13  |LDR R0,[R12]....|
00000460  4c 44 52 20 52 31 2c 5b  52 31 32 2c 23 34 5d 0d  |LDR R1,[R12,#4].|
00000470  01 9a 13 4c 44 52 20 52  32 2c 5b 52 31 32 2c 23  |...LDR R2,[R12,#|
00000480  38 5d 0d 01 a4 14 4c 44  52 20 52 33 2c 5b 52 31  |8]....LDR R3,[R1|
00000490  32 2c 23 31 32 5d 0d 01  ae 17 41 44 44 20 52 34  |2,#12]....ADD R4|
000004a0  2c 52 31 2c 52 31 2c 4c  53 4c 20 23 32 0d 01 b8  |,R1,R1,LSL #2...|
000004b0  17 41 44 44 20 52 34 2c  52 30 2c 52 34 2c 4c 53  |.ADD R4,R0,R4,LS|
000004c0  4c 20 23 36 0d 01 c2 0d  4d 4f 56 20 52 35 2c 23  |L #6....MOV R5,#|
000004d0  30 0d 01 cc 13 4c 44 52  20 52 36 2c 5b 52 31 30  |0....LDR R6,[R10|
000004e0  2c 52 34 5d 0d 01 d6 0d  43 4d 50 20 52 36 2c 52  |,R4]....CMP R6,R|
000004f0  33 0d 01 e0 0e 42 4e 45  20 6e 6f 77 69 70 65 0d  |3....BNE nowipe.|
00000500  01 ea 14 53 54 52 42 20  52 35 2c 5b 52 31 30 2c  |...STRB R5,[R10,|
00000510  52 34 5d 0d 01 f4 0b 2e  6e 6f 77 69 70 65 0d 01  |R4].....nowipe..|
00000520  fe 10 41 44 44 20 52 30  2c 52 30 2c 52 32 0d 02  |..ADD R0,R0,R2..|
00000530  08 0f 43 4d 50 20 52 30  2c 23 33 32 30 0d 02 12  |..CMP R0,#320...|
00000540  14 53 55 42 47 45 20 52  30 2c 52 30 2c 23 33 32  |.SUBGE R0,R0,#32|
00000550  30 0d 02 1c 10 53 54 52  20 52 30 2c 5b 52 31 32  |0....STR R0,[R12|
00000560  5d 0d 02 26 17 41 44 44  20 52 34 2c 52 31 2c 52  |]..&.ADD R4,R1,R|
00000570  31 2c 4c 53 4c 20 23 32  0d 02 30 17 41 44 44 20  |1,LSL #2..0.ADD |
00000580  52 34 2c 52 30 2c 52 34  2c 4c 53 4c 20 23 36 0d  |R4,R0,R4,LSL #6.|
00000590  02 3a 13 4c 44 52 20 52  36 2c 5b 52 31 30 2c 52  |.:.LDR R6,[R10,R|
000005a0  34 5d 0d 02 44 0d 43 4d  50 20 52 36 2c 23 30 0d  |4]..D.CMP R6,#0.|
000005b0  02 4e 0e 42 4e 45 20 6e  6f 70 6c 6f 74 0d 02 58  |.N.BNE noplot..X|
000005c0  14 53 54 52 42 20 52 33  2c 5b 52 31 30 2c 52 34  |.STRB R3,[R10,R4|
000005d0  5d 0d 02 62 0b 2e 6e 6f  70 6c 6f 74 0d 02 6c 13  |]..b..noplot..l.|
000005e0  41 44 44 20 52 31 32 2c  52 31 32 2c 23 31 36 0d  |ADD R12,R12,#16.|
000005f0  02 76 13 53 55 42 53 20  52 31 31 2c 52 31 31 2c  |.v.SUBS R11,R11,|
00000600  23 31 0d 02 80 0a 42 47  54 20 73 6c 0d 02 8a 0e  |#1....BGT sl....|
00000610  4d 4f 56 20 50 43 2c 52  31 34 0d 02 94 10 2e 76  |MOV PC,R14.....v|
00000620  76 62 20 44 43 44 20 31  34 39 0d 02 9e 0f 20 20  |vb DCD 149....  |
00000630  20 20 20 44 43 44 20 2d  31 0d 02 a8 0f 2e 6e 73  |   DCD -1.....ns|
00000640  20 44 43 44 20 31 38 30  0d 02 b2 08 2e 73 6f 73  | DCD 180.....sos|
00000650  0d 02 bc 05 5d 0d 02 c6  0f e3 20 54 3d 31 20 b8  |....]..... T=1 .|
00000660  20 21 6e 73 0d 02 d0 12  63 6f 6c 6f 75 72 3d b3  | !ns....colour=.|
00000670  28 31 36 29 2d 31 0d 02  da 13 73 63 3d 63 6f 6c  |(16)-1....sc=col|
00000680  6f 75 72 20 80 20 25 31  31 0d 02 e4 1a 62 63 3d  |our . %11....bc=|
00000690  28 63 6f 6c 6f 75 72 20  80 20 25 31 31 30 30 29  |(colour . %1100)|
000006a0  3e 3e 32 0d 02 ee 10 21  50 25 3d b3 28 33 32 30  |>>2....!P%=.(320|
000006b0  29 2d 31 0d 02 f8 14 21  28 50 25 2b 34 29 3d b3  |)-1....!(P%+4)=.|
000006c0  28 32 34 36 29 2d 31 0d  03 02 17 21 28 50 25 2b  |(246)-1....!(P%+|
000006d0  38 29 3d 63 6f 6c 6f 75  72 20 81 32 2b 31 0d 03  |8)=colour .2+1..|
000006e0  0c 5d 21 28 50 25 2b 31  32 29 3d 28 28 62 63 20  |.]!(P%+12)=((bc |
000006f0  80 20 25 31 30 29 3c 3c  36 29 20 84 20 28 62 63  |. %10)<<6) . (bc|
00000700  3c 3c 35 29 20 84 20 28  28 62 63 20 80 20 25 31  |<<5) . ((bc . %1|
00000710  30 29 3c 3c 33 29 20 84  20 28 28 62 63 20 80 20  |0)<<3) . ((bc . |
00000720  31 29 3c 3c 33 29 20 84  20 28 28 62 63 20 80 20  |1)<<3) . ((bc . |
00000730  31 29 3c 3c 32 29 20 84  20 73 63 0d 03 16 0c 50  |1)<<2) . sc....P|
00000740  25 3d 50 25 2b 31 36 0d  03 20 07 ed 20 54 0d 03  |%=P%+16.. .. T..|
00000750  2a 0a ed 20 70 61 73 73  0d 03 34 05 e1 0d 03 3e  |*.. pass..4....>|
00000760  05 e0 0d 03 48 27 dd 20  f2 74 65 78 74 28 61 24  |....H'. .text(a$|
00000770  2c 79 29 3a 79 3d 28 31  30 32 33 2d 28 79 2a 33  |,y):y=(1023-(y*3|
00000780  32 29 29 3a d6 20 76 73  6c 0d 03 52 1a 78 3d 31  |2)):. vsl..R.x=1|
00000790  39 2e 35 2d 28 a9 28 61  24 29 2f 32 29 3a d6 20  |9.5-(.(a$)/2):. |
000007a0  76 73 6c 0d 03 5c 10 78  3d 78 2a 33 32 3a d6 20  |vsl..\.x=x*32:. |
000007b0  76 73 6c 0d 03 66 11 e3  20 4a 3d 31 20 b8 20 a9  |vsl..f.. J=1 . .|
000007c0  28 61 24 29 0d 03 70 09  d6 20 76 73 6c 0d 03 7a  |(a$)..p.. vsl..z|
000007d0  11 61 3d 97 28 c1 61 24  2c 4a 2c 31 29 29 0d 03  |.a=.(.a$,J,1))..|
000007e0  84 14 ff 22 53 43 48 4f  4f 53 45 20 22 2b c3 28  |..."SCHOOSE "+.(|
000007f0  61 29 0d 03 8e 0e f4 20  43 41 4c 4c 20 76 73 6c  |a)..... CALL vsl|
00000800  0d 03 98 16 f0 20 26 45  44 2c 28 78 2b 28 4a 2a  |..... &ED,(x+(J*|
00000810  33 32 29 29 2c 79 0d 03  a2 07 ed 20 4a 0d 03 ac  |32)),y..... J...|
00000820  09 d6 20 76 73 6c 0d 03  b6 05 e1 0d 03 c0 0e dd  |.. vsl..........|
00000830  20 f2 72 75 6e 70 72 6f  67 0d 03 ca 0b d6 20 62  | .runprog..... b|
00000840  65 67 69 6e 0d 03 d4 0d  f2 74 65 78 74 69 6e 69  |egin.....textini|
00000850  74 0d 03 de 0f 74 65 78  74 73 70 65 65 64 3d 33  |t....textspeed=3|
00000860  0d 03 e8 2e f2 74 65 78  74 28 22 57 65 6c 63 6f  |.....text("Welco|
00000870  6d 65 20 74 6f 20 27 54  68 65 20 43 72 61 7a 79  |me to 'The Crazy|
00000880  20 49 6e 76 65 6e 74 6f  72 27 22 2c 32 29 0d 03  | Inventor'",2)..|
00000890  f2 29 f2 74 65 78 74 28  22 7b 73 74 61 72 72 69  |.).text("{starri|
000008a0  6e 67 20 69 6e 20 42 75  72 73 74 20 50 69 70 65  |ng in Burst Pipe|
000008b0  20 21 7d 22 2c 34 29 0d  03 fc 2b f2 74 65 78 74  | !}",4)...+.text|
000008c0  28 22 28 50 75 62 6c 69  63 20 44 6f 6d 61 69 6e  |("(Public Domain|
000008d0  20 76 65 72 73 69 6f 6e  20 30 2e 30 31 29 22 2c  | version 0.01)",|
000008e0  38 29 0d 04 06 24 f2 74  65 78 74 28 22 57 72 69  |8)...$.text("Wri|
000008f0  74 74 65 6e 20 62 79 20  4d 2e 4a 6f 68 6e 73 6f  |tten by M.Johnso|
00000900  6e 22 2c 31 36 29 0d 04  10 2b f2 74 65 78 74 28  |n",16)...+.text(|
00000910  22 50 72 65 73 73 20 27  49 27 20 66 6f 72 20 69  |"Press 'I' for i|
00000920  6e 73 74 72 75 63 74 69  6f 6e 73 2c 22 2c 32 32  |nstructions,",22|
00000930  29 0d 04 1a 31 f2 74 65  78 74 28 22 27 4b 27 20  |)...1.text("'K' |
00000940  66 6f 72 20 6b 65 79 73  2c 20 27 48 27 20 66 6f  |for keys, 'H' fo|
00000950  72 20 73 63 6f 72 65 20  74 61 62 6c 65 22 2c 32  |r score table",2|
00000960  34 29 0d 04 24 22 f2 74  65 78 74 28 22 6f 72 20  |4)..$".text("or |
00000970  27 50 27 20 74 6f 20 70  6c 61 79 20 2e 2e 2e 22  |'P' to play ..."|
00000980  2c 32 36 29 0d 04 2e 0a  2a 46 58 20 31 35 0d 04  |,26)....*FX 15..|
00000990  38 0d f5 3a 41 24 3d bf  28 30 29 0d 04 42 12 c8  |8..:A$=.(0)..B..|
000009a0  8e 20 74 65 78 74 73 70  65 65 64 20 ca 0d 04 4c  |. textspeed ...L|
000009b0  17 c9 20 31 3a f2 73 63  72 6f 6c 6c 74 65 78 74  |.. 1:.scrolltext|
000009c0  73 6c 6f 77 0d 04 56 19  c9 20 32 3a f2 73 63 72  |slow..V.. 2:.scr|
000009d0  6f 6c 6c 74 65 78 74 6d  65 64 69 75 6d 0d 04 60  |olltextmedium..`|
000009e0  17 c9 20 33 3a f2 73 63  72 6f 6c 6c 74 65 78 74  |.. 3:.scrolltext|
000009f0  66 61 73 74 0d 04 6a 05  cb 0d 04 74 4b fd 20 41  |fast..j....tK. A|
00000a00  24 3d 22 49 22 20 84 20  41 24 3d 22 69 22 20 84  |$="I" . A$="i" .|
00000a10  20 41 24 3d 22 6b 22 20  84 20 41 24 3d 22 4b 22  | A$="k" . A$="K"|
00000a20  20 84 20 41 24 3d 22 48  22 20 84 20 41 24 3d 22  | . A$="H" . A$="|
00000a30  68 22 20 84 20 41 24 3d  22 50 22 20 84 20 41 24  |h" . A$="P" . A$|
00000a40  3d 22 70 22 0d 04 7e 17  e7 20 41 24 3d 22 49 22  |="p"..~.. A$="I"|
00000a50  20 84 20 41 24 3d 22 69  22 20 8c 0d 04 88 09 d6  | . A$="i" ......|
00000a60  20 76 73 6c 0d 04 92 1b  f2 63 6c 65 61 72 3a f2  | vsl.....clear:.|
00000a70  69 6e 73 74 72 75 63 74  3a f2 63 6c 65 61 72 0d  |instruct:.clear.|
00000a80  04 9c 05 cd 0d 04 a6 17  e7 20 41 24 3d 22 4b 22  |......... A$="K"|
00000a90  20 84 20 41 24 3d 22 6b  22 20 8c 0d 04 b0 09 d6  | . A$="k" ......|
00000aa0  20 76 73 6c 0d 04 ba 17  f2 63 6c 65 61 72 3a f2  | vsl.....clear:.|
00000ab0  6b 65 79 73 3a f2 63 6c  65 61 72 0d 04 c4 05 cd  |keys:.clear.....|
00000ac0  0d 04 ce 17 e7 20 41 24  3d 22 48 22 20 84 20 41  |..... A$="H" . A|
00000ad0  24 3d 22 68 22 20 8c 0d  04 d8 09 d6 20 76 73 6c  |$="h" ...... vsl|
00000ae0  0d 04 e2 19 f2 63 6c 65  61 72 3a f2 73 63 6f 72  |.....clear:.scor|
00000af0  65 73 3a f2 63 6c 65 61  72 0d 04 ec 05 cd 0d 04  |es:.clear.......|
00000b00  f6 17 e7 20 41 24 3d 22  50 22 20 84 20 41 24 3d  |... A$="P" . A$=|
00000b10  22 70 22 20 8c 0d 05 00  12 f2 63 6c 65 61 72 3a  |"p" ......clear:|
00000b20  db 3a f2 70 6c 61 79 0d  05 0a 09 d6 20 76 73 6c  |.:.play..... vsl|
00000b30  0d 05 14 05 cd 0d 05 1e  0a e5 20 8d 64 54 43 0d  |.......... .dTC.|
00000b40  05 28 05 e1 0d 05 32 0c  dd 20 f2 63 6c 65 61 72  |.(....2.. .clear|
00000b50  0d 05 3c 09 d6 20 76 73  6c 0d 05 46 0e e6 20 30  |..<.. vsl..F.. 0|
00000b60  2c 30 20 c8 9c 20 30 0d  05 50 13 e3 20 49 3d 30  |,0 .. 0..P.. I=0|
00000b70  20 b8 20 36 34 30 20 88  20 34 0d 05 5a 09 d6 20  | . 640 . 4..Z.. |
00000b80  76 73 6c 0d 05 64 27 86  20 30 2c 49 2c 31 32 38  |vsl..d'. 0,I,128|
00000b90  30 2c 49 3a 86 20 30 2c  31 30 32 34 2d 49 2c 31  |0,I:. 0,1024-I,1|
00000ba0  32 38 30 2c 31 30 32 34  2d 49 0d 05 6e 07 ed 20  |280,1024-I..n.. |
00000bb0  49 0d 05 78 05 e1 0d 05  82 0f dd 20 f2 69 6e 73  |I..x....... .ins|
00000bc0  74 72 75 63 74 0d 05 8c  25 f2 74 65 78 74 28 22  |truct...%.text("|
00000bd0  42 75 72 73 74 20 50 69  70 65 20 69 6e 73 74 72  |Burst Pipe instr|
00000be0  75 63 74 6f 6e 73 22 2c  31 29 0d 05 96 33 f2 74  |uctons",1)...3.t|
00000bf0  65 78 74 28 22 41 20 63  72 61 7a 79 20 69 6e 76  |ext("A crazy inv|
00000c00  65 6e 74 6f 72 20 63 6c  61 69 6d 65 64 20 74 68  |entor claimed th|
00000c10  61 74 20 68 65 20 68 61  64 22 2c 33 29 0d 05 a0  |at he had",3)...|
00000c20  31 f2 74 65 78 74 28 22  63 72 65 61 74 65 64 20  |1.text("created |
00000c30  74 68 65 20 75 6c 74 69  6d 61 74 65 20 77 61 74  |the ultimate wat|
00000c40  65 72 20 70 69 70 65 2c  20 61 22 2c 34 29 0d 05  |er pipe, a",4)..|
00000c50  aa 2c f2 74 65 78 74 28  22 72 65 76 6f 6c 75 74  |.,.text("revolut|
00000c60  69 6f 6e 61 72 79 20 70  69 70 65 20 74 68 61 74  |ionary pipe that|
00000c70  20 77 6f 75 6c 64 22 2c  35 29 0d 05 b4 2e f2 74  | would",5).....t|
00000c80  65 78 74 28 22 72 65 70  6c 61 63 65 20 61 6c 6c  |ext("replace all|
00000c90  20 65 78 69 73 74 69 6e  67 20 77 61 74 65 72 20  | existing water |
00000ca0  6f 6e 65 73 22 2c 36 29  0d 05 be 2f f2 74 65 78  |ones",6).../.tex|
00000cb0  74 28 22 55 6e 66 6f 72  74 75 6e 61 74 65 6c 79  |t("Unfortunately|
00000cc0  2c 20 61 20 66 65 77 20  68 6f 75 72 73 20 61 66  |, a few hours af|
00000cd0  74 65 72 22 2c 38 29 0d  05 c8 2f f2 74 65 78 74  |ter",8).../.text|
00000ce0  28 22 69 6e 73 74 61 6c  6c 69 6e 67 20 74 68 65  |("installing the|
00000cf0  73 65 20 70 69 70 65 73  2c 20 64 69 73 61 73 74  |se pipes, disast|
00000d00  65 72 22 2c 39 29 0d 05  d2 34 f2 74 65 78 74 28  |er",9)...4.text(|
00000d10  22 73 74 72 75 63 6b 20  2d 20 74 68 65 20 54 69  |"struck - the Ti|
00000d20  74 61 6c 63 69 75 6d 20  68 79 64 72 6f 63 68 6c  |talcium hydrochl|
00000d30  6f 72 69 64 65 22 2c 31  30 29 0d 05 dc 35 f2 74  |oride",10)...5.t|
00000d40  65 78 74 28 22 73 61 6c  74 73 20 6d 61 6b 69 6e  |ext("salts makin|
00000d50  67 20 75 70 20 74 68 65  20 77 61 6c 6c 73 20 6f  |g up the walls o|
00000d60  66 20 74 68 65 20 70 69  70 65 22 2c 31 31 29 0d  |f the pipe",11).|
00000d70  05 e6 36 f2 74 65 78 74  28 22 64 69 73 69 6e 74  |..6.text("disint|
00000d80  69 67 72 61 74 65 64 2c  20 61 6e 64 20 69 74 20  |igrated, and it |
00000d90  69 73 20 6e 6f 77 20 75  70 20 74 6f 20 79 6f 75  |is now up to you|
00000da0  22 2c 31 32 29 0d 05 f0  34 f2 74 65 78 74 28 22  |",12)...4.text("|
00000db0  61 73 20 74 68 65 20 69  6e 76 65 6e 74 6f 72 20  |as the inventor |
00000dc0  74 6f 20 70 75 74 20 61  6c 6c 20 74 68 65 20 70  |to put all the p|
00000dd0  69 70 65 73 22 2c 31 33  29 0d 05 fa 30 f2 74 65  |ipes",13)...0.te|
00000de0  78 74 28 22 62 61 63 6b  20 74 6f 20 6e 6f 72 6d  |xt("back to norm|
00000df0  61 6c 20 62 65 66 6f 72  65 20 74 68 65 20 68 6f  |al before the ho|
00000e00  75 73 65 73 22 2c 31 34  29 0d 06 04 26 f2 74 65  |uses",14)...&.te|
00000e10  78 74 28 22 62 65 63 6f  6d 65 20 66 6c 6f 6f 64  |xt("become flood|
00000e20  65 64 20 2e 2e 2e 2e 2e  2e 2e 22 2c 31 35 29 0d  |ed .......",15).|
00000e30  06 0e 32 f2 74 65 78 74  28 22 54 68 65 20 6c 65  |..2.text("The le|
00000e40  76 65 6c 73 20 63 61 6e  20 62 65 20 63 6f 6d 70  |vels can be comp|
00000e50  6c 65 74 65 64 20 69 6e  20 61 6e 79 22 2c 31 37  |leted in any",17|
00000e60  29 0d 06 18 32 f2 74 65  78 74 28 22 6f 72 64 65  |)...2.text("orde|
00000e70  72 2c 20 6c 65 76 65 6c  20 31 20 69 73 20 65 61  |r, level 1 is ea|
00000e80  73 79 2c 20 37 20 69 73  20 68 61 72 64 2c 22 2c  |sy, 7 is hard,",|
00000e90  31 38 29 0d 06 22 34 f2  74 65 78 74 28 22 62 75  |18).."4.text("bu|
00000ea0  74 20 41 4c 4c 20 74 68  65 20 6c 65 76 65 6c 73  |t ALL the levels|
00000eb0  20 6d 75 73 74 20 62 65  20 63 6f 6d 70 6c 65 74  | must be complet|
00000ec0  65 64 22 2c 31 39 29 0d  06 2c 22 f2 74 65 78 74  |ed",19)..,".text|
00000ed0  28 22 74 6f 20 66 69 6e  69 73 68 20 74 68 65 20  |("to finish the |
00000ee0  67 61 6d 65 22 2c 32 30  29 0d 06 36 1b f2 74 65  |game",20)..6..te|
00000ef0  78 74 28 22 47 4f 4f 44  20 4c 55 43 4b 20 21 22  |xt("GOOD LUCK !"|
00000f00  2c 32 35 29 0d 06 40 27  f2 74 65 78 74 28 22 50  |,25)..@'.text("P|
00000f10  72 65 73 73 20 53 50 41  43 45 20 74 6f 20 63 6f  |ress SPACE to co|
00000f20  6e 74 69 6e 75 65 22 2c  33 30 29 0d 06 4a 14 f5  |ntinue",30)..J..|
00000f30  3a d6 20 76 73 6c 3a fd  20 a6 28 2d 39 39 29 0d  |:. vsl:. .(-99).|
00000f40  06 54 09 d6 20 76 73 6c  0d 06 5e 05 e1 0d 06 68  |.T.. vsl..^....h|
00000f50  0b dd 20 f2 6b 65 79 73  0d 06 72 1e f2 74 65 78  |.. .keys..r..tex|
00000f60  74 28 22 42 75 72 73 74  20 50 69 70 65 20 6b 65  |t("Burst Pipe ke|
00000f70  79 73 22 2c 31 29 0d 06  7c 21 f2 74 65 78 74 28  |ys",1)..|!.text(|
00000f80  22 4c 65 76 65 6c 20 73  65 6c 65 63 74 69 6f 6e  |"Level selection|
00000f90  20 3a 20 22 2c 34 29 0d  06 86 21 f2 74 65 78 74  | : ",4)...!.text|
00000fa0  28 22 5a 20 2e 2e 2e 2e  2e 2e 2e 2e 2e 2e 2e 20  |("Z ........... |
00000fb0  4c 65 66 74 22 2c 36 29  0d 06 90 21 f2 74 65 78  |Left",6)...!.tex|
00000fc0  74 28 22 58 20 2e 2e 2e  2e 2e 2e 2e 2e 2e 2e 20  |t("X .......... |
00000fd0  52 69 67 68 74 22 2c 38  29 0d 06 9a 22 f2 74 65  |Right",8)...".te|
00000fe0  78 74 28 22 52 45 54 55  52 4e 20 2e 2e 2e 2e 2e  |xt("RETURN .....|
00000ff0  2e 2e 2e 20 49 6e 22 2c  31 30 29 0d 06 a4 1e f2  |... In",10).....|
00001000  74 65 78 74 28 22 50 69  70 65 20 4c 61 79 69 6e  |text("Pipe Layin|
00001010  67 20 3a 20 22 2c 31 34  29 0d 06 ae 2f f2 74 65  |g : ",14).../.te|
00001020  78 74 28 22 5a 20 2e 2e  2e 2e 2e 2e 2e 2e 2e 2e  |xt("Z ..........|
00001030  2e 20 4d 6f 76 65 20 70  6f 69 6e 74 65 72 20 6c  |. Move pointer l|
00001040  65 66 74 22 2c 31 36 29  0d 06 b8 2f f2 74 65 78  |eft",16).../.tex|
00001050  74 28 22 58 20 2e 2e 2e  2e 2e 2e 2e 2e 2e 2e 20  |t("X .......... |
00001060  4d 6f 76 65 20 70 6f 69  6e 74 65 72 20 72 69 67  |Move pointer rig|
00001070  68 74 22 2c 31 38 29 0d  06 c2 2f f2 74 65 78 74  |ht",18).../.text|
00001080  28 22 27 20 2e 2e 2e 2e  2e 2e 2e 2e 2e 2e 2e 2e  |("' ............|
00001090  2e 20 4d 6f 76 65 20 70  6f 69 6e 74 65 72 20 75  |. Move pointer u|
000010a0  70 22 2c 32 30 29 0d 06  cc 2f f2 74 65 78 74 28  |p",20).../.text(|
000010b0  22 2f 20 2e 2e 2e 2e 2e  2e 2e 2e 2e 2e 2e 20 4d  |"/ ........... M|
000010c0  6f 76 65 20 70 6f 69 6e  74 65 72 20 64 6f 77 6e  |ove pointer down|
000010d0  22 2c 32 32 29 0d 06 d6  2f f2 74 65 78 74 28 22  |",22).../.text("|
000010e0  52 45 54 55 52 4e 20 2e  2e 2e 2e 2e 2e 20 4c 61  |RETURN ...... La|
000010f0  79 20 70 69 65 63 65 20  6f 66 20 70 69 70 65 22  |y piece of pipe"|
00001100  2c 32 34 29 0d 06 d7 2f  f2 74 65 78 74 28 22 53  |,24).../.text("S|
00001110  50 41 43 45 20 2e 2e 2e  2e 2e 2e 2e 2e 2e 2e 2e  |PACE ...........|
00001120  53 70 65 65 64 20 75 70  20 77 61 74 65 72 22 2c  |Speed up water",|
00001130  32 36 29 0d 06 e0 27 f2  74 65 78 74 28 22 50 72  |26)...'.text("Pr|
00001140  65 73 73 20 53 50 41 43  45 20 74 6f 20 63 6f 6e  |ess SPACE to con|
00001150  74 69 6e 75 65 22 2c 33  30 29 0d 06 ea 14 f5 3a  |tinue",30).....:|
00001160  d6 20 76 73 6c 3a fd 20  a6 28 2d 39 39 29 0d 06  |. vsl:. .(-99)..|
00001170  f4 05 e1 0d 06 fe 0d dd  20 f2 73 63 6f 72 65 73  |........ .scores|
00001180  0d 07 08 2e f2 74 65 78  74 28 22 54 6f 64 61 79  |.....text("Today|
00001190  73 20 27 42 75 72 73 74  20 50 69 70 65 27 20 62  |s 'Burst Pipe' b|
000011a0  65 73 74 20 73 63 6f 72  65 73 22 2c 31 29 0d 07  |est scores",1)..|
000011b0  12 0e e3 20 51 3d 31 20  b8 20 31 30 0d 07 1c 09  |... Q=1 . 10....|
000011c0  d6 20 76 73 6c 0d 07 26  22 e7 20 51 3c 31 30 20  |. vsl..&". Q<10 |
000011d0  8c 20 70 24 3d 22 30 22  2b c3 28 51 29 20 8b 20  |. p$="0"+.(Q) . |
000011e0  70 24 3d c3 28 51 29 0d  07 30 17 70 24 3d 70 24  |p$=.(Q)..0.p$=p$|
000011f0  2b 22 20 2e 2e 2e 20 22  3a d6 20 76 73 6c 0d 07  |+" ... ":. vsl..|
00001200  3a 2f 70 24 3d 70 24 2b  68 69 24 28 51 29 3a 70  |:/p$=p$+hi$(Q):p|
00001210  24 3d 70 24 2b c4 32 31  2d a9 28 68 69 24 28 51  |$=p$+.21-.(hi$(Q|
00001220  29 29 2c 22 2e 22 29 3a  d6 20 76 73 6c 0d 07 44  |)),"."):. vsl..D|
00001230  4d 70 24 3d 70 24 2b 22  20 22 3a 73 63 24 3d c3  |Mp$=p$+" ":sc$=.|
00001240  28 68 69 25 28 51 29 29  3a e7 20 a9 28 73 63 24  |(hi%(Q)):. .(sc$|
00001250  29 3c 37 20 8c 20 70 24  3d 70 24 2b c4 37 2d a9  |)<7 . p$=p$+.7-.|
00001260  28 73 63 24 29 2c 22 30  22 29 2b 73 63 24 20 8b  |(sc$),"0")+sc$ .|
00001270  20 70 24 3d 70 24 2b 73  63 24 0d 07 4e 09 d6 20  | p$=p$+sc$..N.. |
00001280  76 73 6c 0d 07 58 1b f2  74 65 78 74 28 70 24 2c  |vsl..X..text(p$,|
00001290  28 51 2a 32 29 2b 34 29  3a 70 24 3d 22 22 0d 07  |(Q*2)+4):p$=""..|
000012a0  62 07 ed 20 51 0d 07 6c  38 f2 74 65 78 74 28 22  |b.. Q..l8.text("|
000012b0  50 72 65 73 73 20 53 50  41 43 45 20 74 6f 20 63  |Press SPACE to c|
000012c0  6f 6e 74 69 6e 75 65 22  2c 33 30 29 3a f5 3a d6  |ontinue",30):.:.|
000012d0  20 76 73 6c 3a fd 20 a6  28 2d 39 39 29 0d 07 76  | vsl:. .(-99)..v|
000012e0  05 e1 0d 07 80 10 dd 20  f2 62 6c 61 6e 6b 63 6f  |....... .blankco|
000012f0  6c 73 0d 07 8a 1b e3 20  55 3d 31 20 b8 20 31 35  |ls..... U=1 . 15|
00001300  3a fb 55 2c 30 2c 30 2c  30 3a ed 20 55 0d 07 94  |:.U,0,0,0:. U...|
00001310  05 e1 0d 07 9e 0e dd 20  f2 63 6f 6c 73 28 6e 29  |....... .cols(n)|
00001320  0d 07 a8 0e fb 31 2c 32  35 35 2c 30 2c 30 0d 07  |.....1,255,0,0..|
00001330  b2 11 fb 32 2c 32 32 32  2c 31 37 34 2c 34 37 0d  |...2,222,174,47.|
00001340  07 bc 11 fb 33 2c 32 30  36 2c 32 30 36 2c 36 33  |....3,206,206,63|
00001350  0d 07 c6 10 fb 34 2c 37  39 2c 31 37 34 2c 37 39  |.....4,79,174,79|
00001360  0d 07 d0 10 fb 35 2c 30  2c 31 39 30 2c 32 35 35  |.....5,0,190,255|
00001370  0d 07 da 12 fb 36 2c 32  35 35 2c 32 35 35 2c 32  |.....6,255,255,2|
00001380  35 35 0d 07 e4 12 fb 37  2c 31 39 30 2c 31 39 30  |55.....7,190,190|
00001390  2c 31 39 30 0d 07 ee 12  fb 38 2c 31 31 31 2c 31  |,190.....8,111,1|
000013a0  31 31 2c 31 31 31 0d 07  f8 0f fb 39 2c 31 34 33  |11,111.....9,143|
000013b0  2c 39 35 2c 30 0d 08 02  11 fb 31 30 2c 31 37 34  |,95,0.....10,174|
000013c0  2c 31 32 36 2c 30 0d 08  0c 27 e7 20 6e 3d 30 20  |,126,0...'. n=0 |
000013d0  8c 20 fb 31 31 2c 30 2c  30 2c 32 33 38 20 8b 20  |. .11,0,0,238 . |
000013e0  fb 31 31 2c 30 2c 32 35  35 2c 31 37 30 0d 08 16  |.11,0,255,170...|
000013f0  0b e7 20 6e 3d 30 20 8c  0d 08 20 0f fb 31 32 2c  |.. n=0 ... ..12,|
00001400  30 2c 31 32 37 2c 30 0d  08 2a 13 fb 31 33 2c 32  |0,127,0..*..13,2|
00001410  35 35 2c 32 30 36 2c 32  30 36 0d 08 34 13 fb 31  |55,206,206..4..1|
00001420  34 2c 32 33 38 2c 32 33  38 2c 31 39 30 0d 08 3e  |4,238,238,190..>|
00001430  11 fb 31 35 2c 31 35 39  2c 30 2c 31 37 34 0d 08  |..15,159,0,174..|
00001440  48 05 cd 0d 08 52 05 e1  0d 08 5c 0b dd 20 f2 70  |H....R....\.. .p|
00001450  6c 61 79 0d 08 66 1d e3  20 49 3d 31 20 b8 20 37  |lay..f.. I=1 . 7|
00001460  3a 63 6f 6d 70 6c 65 74  65 28 49 29 3d 30 3a ed  |:complete(I)=0:.|
00001470  0d 08 70 0c 73 63 6f 72  65 25 3d 30 0d 08 7a 0e  |..p.score%=0..z.|
00001480  69 6e 63 66 72 61 6d 65  3d 30 0d 08 84 0c 73 63  |incframe=0....sc|
00001490  72 65 65 6e 3d 31 0d 08  8e 1c 72 69 67 68 74 3d  |reen=1....right=|
000014a0  b9 3a 66 72 61 6d 65 3d  31 3a 6d 61 6e 78 3d 31  |.:frame=1:manx=1|
000014b0  32 38 0d 08 98 0a eb 20  31 35 3a 87 0d 08 a2 0d  |28..... 15:.....|
000014c0  2a 53 48 41 44 4f 57 20  32 0d 08 ac 07 eb 20 39  |*SHADOW 2..... 9|
000014d0  0d 08 b6 05 87 0d 08 c0  08 42 25 3d 32 0d 08 ca  |.........B%=2...|
000014e0  0d 65 78 69 74 73 63 25  3d a3 0d 08 d4 0e f2 62  |.exitsc%=......b|
000014f0  6c 61 6e 6b 63 6f 6c 73  0d 08 de 1e e6 20 30 2c  |lankcols..... 0,|
00001500  35 3a c8 93 20 c8 90 20  30 2c 31 32 38 2c 31 32  |5:.. .. 0,128,12|
00001510  38 30 2c 36 34 30 0d 08  e8 09 e6 20 38 2c 30 0d  |80,640..... 8,0.|
00001520  08 f2 0e e3 20 49 3d 31  20 b8 20 73 70 0d 08 fc  |.... I=1 . sp...|
00001530  41 e7 20 73 63 72 65 65  6e 28 49 29 3d 73 63 72  |A. screen(I)=scr|
00001540  65 65 6e 20 8c 20 ff 22  53 43 48 4f 4f 53 45 20  |een . ."SCHOOSE |
00001550  22 2b 73 70 72 69 74 65  24 28 49 29 3a f0 20 26  |"+sprite$(I):. &|
00001560  45 44 2c 73 78 28 49 29  2c 73 79 28 49 29 0d 09  |ED,sx(I),sy(I)..|
00001570  06 4c e7 20 73 63 72 65  65 6e 28 49 29 3d 73 63  |.L. screen(I)=sc|
00001580  72 65 65 6e 20 80 20 73  70 72 69 74 65 24 28 49  |reen . sprite$(I|
00001590  29 3d 22 44 4f 4f 52 22  20 8c 20 64 6f 6f 72 78  |)="DOOR" . doorx|
000015a0  6c 3d 73 78 28 49 29 2b  33 32 3a 64 6f 6f 72 78  |l=sx(I)+32:doorx|
000015b0  72 3d 73 78 28 49 29 2b  36 34 0d 09 10 64 e7 20  |r=sx(I)+64...d. |
000015c0  73 63 72 65 65 6e 28 49  29 3d 73 63 72 65 65 6e  |screen(I)=screen|
000015d0  20 80 20 73 70 72 69 74  65 24 28 49 29 3d 22 44  | . sprite$(I)="D|
000015e0  4f 4f 52 22 20 80 20 63  6f 6d 70 6c 65 74 65 28  |OOR" . complete(|
000015f0  73 63 72 65 65 6e 29 3d  31 20 8c 20 ff 22 53 43  |screen)=1 . ."SC|
00001600  48 4f 4f 53 45 20 44 4f  4f 52 32 22 3a f0 20 26  |HOOSE DOOR2":. &|
00001610  45 44 2c 73 78 28 49 29  2c 73 79 28 49 29 0d 09  |ED,sx(I),sy(I)..|
00001620  1a 07 ed 20 49 0d 09 24  09 e6 20 30 2c 30 0d 09  |... I..$.. 0,0..|
00001630  2e 22 ec 20 30 2c 30 3a  ec 20 31 32 38 30 2c 31  |.". 0,0:. 1280,1|
00001640  30 32 34 3a 2a 53 47 45  54 20 73 63 72 65 65 6e  |024:*SGET screen|
00001650  0d 09 38 19 42 25 3d 42  25 20 82 20 31 3a c8 99  |..8.B%=B% . 1:..|
00001660  20 36 2c 31 31 32 2c 42  25 0d 09 42 13 2a 53 43  | 6,112,B%..B.*SC|
00001670  48 4f 4f 53 45 20 73 63  72 65 65 6e 0d 09 4c 26  |HOOSE screen..L&|
00001680  e3 20 49 3d 30 20 b8 20  33 3a c8 99 20 36 2c 31  |. I=0 . 3:.. 6,1|
00001690  31 32 2c 49 3a f0 20 26  45 44 2c 30 2c 30 3a ed  |12,I:. &ED,0,0:.|
000016a0  20 49 0d 09 56 0f c8 99  20 36 2c 31 31 32 2c 42  | I..V... 6,112,B|
000016b0  25 0d 09 60 09 e6 20 30  2c 37 0d 09 6a 0d f0 20  |%..`.. 0,7..j.. |
000016c0  26 45 44 2c 30 2c 30 0d  09 74 0f c8 99 20 36 2c  |&ED,0,0..t... 6,|
000016d0  31 31 33 2c 42 25 0d 09  7e 0d f0 20 26 45 44 2c  |113,B%..~.. &ED,|
000016e0  30 2c 30 0d 09 88 2b ec  20 6d 61 6e 78 2d 31 36  |0,0...+. manx-16|
000016f0  2c 31 36 30 3a ec 20 6d  61 6e 78 2b 31 33 30 2c  |,160:. manx+130,|
00001700  33 30 30 3a 2a 53 47 45  54 20 74 65 6d 70 0d 09  |300:*SGET temp..|
00001710  92 0c 70 6c 78 3d 6d 61  6e 78 0d 09 9c 3f e7 20  |..plx=manx...?. |
00001720  72 69 67 68 74 3d b9 20  8c 20 ff 22 53 43 48 4f  |right=. . ."SCHO|
00001730  4f 53 45 20 4d 52 22 2b  c3 28 66 72 61 6d 65 29  |OSE MR"+.(frame)|
00001740  20 8b 20 ff 22 53 43 48  4f 4f 53 45 20 4d 4c 22  | . ."SCHOOSE ML"|
00001750  2b c3 28 66 72 61 6d 65  29 0d 09 a6 09 e6 20 38  |+.(frame)..... 8|
00001760  2c 37 0d 09 b0 12 f0 20  26 45 44 2c 6d 61 6e 78  |,7..... &ED,manx|
00001770  2c 31 36 30 0d 09 ba 06  c8 96 0d 09 c4 0c f2 63  |,160...........c|
00001780  6f 6c 73 28 30 29 0d 09  ce 05 f5 0d 09 d8 0e 6b  |ols(0).........k|
00001790  65 79 70 72 65 73 73 3d  a3 0d 09 e2 0e e7 20 a6  |eypress=...... .|
000017a0  28 2d 39 38 29 20 8c 0d  09 ec 19 42 25 3d 42 25  |(-98) .....B%=B%|
000017b0  20 82 20 31 3a c8 99 20  36 2c 31 31 32 2c 42 25  | . 1:.. 6,112,B%|
000017c0  0d 09 f6 11 2a 53 43 48  4f 4f 53 45 20 54 45 4d  |....*SCHOOSE TEM|
000017d0  50 0d 0a 00 09 e6 20 30  2c 30 0d 0a 0a 15 f0 20  |P..... 0,0..... |
000017e0  26 45 44 2c 6d 61 6e 78  2d 31 36 2c 31 36 30 0d  |&ED,manx-16,160.|
000017f0  0a 14 1b e7 20 6d 61 6e  78 3e 30 20 8c 20 6d 61  |.... manx>0 . ma|
00001800  6e 78 3d 6d 61 6e 78 2d  31 32 0d 0a 1e 15 e7 20  |nx=manx-12..... |
00001810  6d 61 6e 78 3c 30 20 8c  20 6d 61 6e 78 3d 30 0d  |manx<0 . manx=0.|
00001820  0a 28 2b ec 20 6d 61 6e  78 2d 31 36 2c 31 36 30  |.(+. manx-16,160|
00001830  3a ec 20 6d 61 6e 78 2b  31 33 30 2c 33 30 30 3a  |:. manx+130,300:|
00001840  2a 53 47 45 54 20 74 65  6d 70 0d 0a 32 4c 69 6e  |*SGET temp..2Lin|
00001850  63 66 72 61 6d 65 3d 28  69 6e 63 66 72 61 6d 65  |cframe=(incframe|
00001860  2b 31 29 20 83 20 33 3a  e7 20 69 6e 63 66 72 61  |+1) . 3:. incfra|
00001870  6d 65 3d 30 20 8c 20 66  72 61 6d 65 3d 66 72 61  |me=0 . frame=fra|
00001880  6d 65 2b 31 3a e7 20 66  72 61 6d 65 3d 35 20 66  |me+1:. frame=5 f|
00001890  72 61 6d 65 3d 31 0d 0a  3c 0b 72 69 67 68 74 3d  |rame=1..<.right=|
000018a0  a3 0d 0a 46 1a ff 22 53  43 48 4f 4f 53 45 20 4d  |...F.."SCHOOSE M|
000018b0  4c 22 2b c3 28 66 72 61  6d 65 29 0d 0a 50 09 e6  |L"+.(frame)..P..|
000018c0  20 38 2c 37 0d 0a 5a 12  f0 20 26 45 44 2c 6d 61  | 8,7..Z.. &ED,ma|
000018d0  6e 78 2c 31 36 30 0d 0a  64 06 c8 96 0d 0a 6e 0e  |nx,160..d.....n.|
000018e0  6b 65 79 70 72 65 73 73  3d b9 0d 0a 78 0f c8 99  |keypress=...x...|
000018f0  20 36 2c 31 31 33 2c 42  25 0d 0a 82 05 cd 0d 0a  | 6,113,B%.......|
00001900  8c 1b e7 20 a6 28 2d 36  37 29 20 80 20 6b 65 79  |... .(-67) . key|
00001910  70 72 65 73 73 3d a3 20  8c 0d 0a 96 19 42 25 3d  |press=. .....B%=|
00001920  42 25 20 82 20 31 3a c8  99 20 36 2c 31 31 32 2c  |B% . 1:.. 6,112,|
00001930  42 25 0d 0a a0 09 e6 20  30 2c 30 0d 0a aa 11 2a  |B%..... 0,0....*|
00001940  53 43 48 4f 4f 53 45 20  54 45 4d 50 0d 0a b4 15  |SCHOOSE TEMP....|
00001950  f0 20 26 45 44 2c 6d 61  6e 78 2d 31 36 2c 31 36  |. &ED,manx-16,16|
00001960  30 0d 0a be 1e e7 20 6d  61 6e 78 3c 31 31 35 30  |0..... manx<1150|
00001970  20 8c 20 6d 61 6e 78 3d  6d 61 6e 78 2b 31 32 0d  | . manx=manx+12.|
00001980  0a c8 2b ec 20 6d 61 6e  78 2d 31 36 2c 31 36 30  |..+. manx-16,160|
00001990  3a ec 20 6d 61 6e 78 2b  31 33 30 2c 33 30 30 3a  |:. manx+130,300:|
000019a0  2a 53 47 45 54 20 74 65  6d 70 0d 0a d2 4c 69 6e  |*SGET temp...Lin|
000019b0  63 66 72 61 6d 65 3d 28  69 6e 63 66 72 61 6d 65  |cframe=(incframe|
000019c0  2b 31 29 20 83 20 33 3a  e7 20 69 6e 63 66 72 61  |+1) . 3:. incfra|
000019d0  6d 65 3d 30 20 8c 20 66  72 61 6d 65 3d 66 72 61  |me=0 . frame=fra|
000019e0  6d 65 2b 31 3a e7 20 66  72 61 6d 65 3d 35 20 66  |me+1:. frame=5 f|
000019f0  72 61 6d 65 3d 31 0d 0a  dc 0b 72 69 67 68 74 3d  |rame=1....right=|
00001a00  b9 0d 0a e6 1a ff 22 53  43 48 4f 4f 53 45 20 4d  |......"SCHOOSE M|
00001a10  52 22 2b c3 28 66 72 61  6d 65 29 0d 0a f0 09 e6  |R"+.(frame).....|
00001a20  20 38 2c 30 0d 0a fa 12  f0 20 26 45 44 2c 6d 61  | 8,0..... &ED,ma|
00001a30  6e 78 2c 31 36 30 0d 0b  04 06 c8 96 0d 0b 0e 0f  |nx,160..........|
00001a40  c8 99 20 36 2c 31 31 33  2c 42 25 0d 0b 18 05 cd  |.. 6,113,B%.....|
00001a50  0d 0b 22 18 e7 20 6d 61  6e 78 3c 38 20 8c 20 65  |..".. manx<8 . e|
00001a60  78 69 74 73 63 25 3d b9  0d 0b 2c 1b e7 20 6d 61  |xitsc%=...,.. ma|
00001a70  6e 78 3e 31 31 34 38 20  8c 20 65 78 69 74 73 63  |nx>1148 . exitsc|
00001a80  25 3d b9 0d 0b 36 49 e7  20 a6 28 2d 37 34 29 20  |%=...6I. .(-74) |
00001a90  80 20 6d 61 6e 78 3e 64  6f 6f 72 78 6c 20 80 20  |. manx>doorxl . |
00001aa0  6d 61 6e 78 3c 64 6f 6f  72 78 72 20 80 20 63 6f  |manx<doorxr . co|
00001ab0  6d 70 6c 65 74 65 28 73  63 72 65 65 6e 29 3d 30  |mplete(screen)=0|
00001ac0  20 8c 20 65 78 69 74 73  63 25 3d b9 0d 0b 40 0d  | . exitsc%=...@.|
00001ad0  fd 20 65 78 69 74 73 63  25 0d 0b 4a 33 e7 20 6d  |. exitsc%..J3. m|
00001ae0  61 6e 78 3c 38 20 80 20  73 63 72 65 65 6e 3d 31  |anx<8 . screen=1|
00001af0  20 8c 20 73 63 72 65 65  6e 3d 37 3a 6d 61 6e 78  | . screen=7:manx|
00001b00  3d 31 31 32 38 3a e5 20  8d 64 4a 48 0d 0b 54 34  |=1128:. .dJH..T4|
00001b10  e7 20 6d 61 6e 78 3e 31  31 34 38 20 80 20 73 63  |. manx>1148 . sc|
00001b20  72 65 65 6e 3d 37 20 8c  20 73 63 72 65 65 6e 3d  |reen=7 . screen=|
00001b30  31 3a 6d 61 6e 78 3d 33  32 3a e5 20 8d 64 4a 48  |1:manx=32:. .dJH|
00001b40  0d 0b 5e 2f e7 20 6d 61  6e 78 3c 38 20 8c 20 73  |..^/. manx<8 . s|
00001b50  63 72 65 65 6e 3d 73 63  72 65 65 6e 2d 31 3a 6d  |creen=screen-1:m|
00001b60  61 6e 78 3d 31 31 32 38  3a e5 20 8d 64 4a 48 0d  |anx=1128:. .dJH.|
00001b70  0b 68 30 e7 20 6d 61 6e  78 3e 31 31 34 38 20 8c  |.h0. manx>1148 .|
00001b80  20 73 63 72 65 65 6e 3d  73 63 72 65 65 6e 2b 31  | screen=screen+1|
00001b90  3a 6d 61 6e 78 3d 33 32  3a e5 20 8d 64 4a 48 0d  |:manx=32:. .dJH.|
00001ba0  0b 72 09 2a 46 61 64 65  0d 0b 7c 10 f2 62 6c 61  |.r.*Fade..|..bla|
00001bb0  6e 6b 63 6f 6c 73 3a db  0d 0b 86 09 e6 20 38 2c  |nkcols:...... 8,|
00001bc0  30 0d 0b 90 0e 2a 53 43  48 4f 4f 53 45 20 30 0d  |0....*SCHOOSE 0.|
00001bd0  0b 9a 18 e3 20 49 3d 31  20 b8 20 31 30 3a e3 20  |.... I=1 . 10:. |
00001be0  4a 3d 31 20 b8 20 37 0d  0b a4 21 67 72 69 64 28  |J=1 . 7...!grid(|
00001bf0  49 2c 4a 29 3d 30 3a f0  20 26 45 44 2c 49 2a 31  |I,J)=0:. &ED,I*1|
00001c00  30 34 2c 4a 2a 31 30 34  0d 0b ae 07 ed 20 4a 0d  |04,J*104..... J.|
00001c10  0b b8 07 ed 20 49 0d 0b  c2 17 64 65 6c 61 79 3d  |.... I....delay=|
00001c20  31 36 2d 28 73 63 72 65  65 6e 2a 32 29 0d 0b cc  |16-(screen*2)...|
00001c30  11 6e 65 78 74 74 69 6c  65 3d b3 28 36 29 0d 0b  |.nexttile=.(6)..|
00001c40  d6 0e 2a 53 43 48 4f 4f  53 45 20 35 0d 0b e0 0f  |..*SCHOOSE 5....|
00001c50  f0 20 26 45 44 2c 30 2c  31 30 34 0d 0b ea 0e 2a  |. &ED,0,104....*|
00001c60  53 43 48 4f 4f 53 45 20  31 0d 0b f4 1f e3 20 49  |SCHOOSE 1..... I|
00001c70  3d 32 20 b8 20 37 3a f0  20 26 45 44 2c 30 2c 49  |=2 . 7:. &ED,0,I|
00001c80  2a 31 30 34 3a ed 20 49  0d 0b fe 0e 2a 53 43 48  |*104:. I....*SCH|
00001c90  4f 4f 53 45 20 33 0d 0c  08 16 f0 20 26 45 44 2c  |OOSE 3..... &ED,|
00001ca0  31 30 34 2a 31 31 2c 31  30 34 2a 37 0d 0c 12 0e  |104*11,104*7....|
00001cb0  2a 53 43 48 4f 4f 53 45  20 31 0d 0c 1c 24 e3 20  |*SCHOOSE 1...$. |
00001cc0  49 3d 31 20 b8 20 36 3a  f0 20 26 45 44 2c 31 31  |I=1 . 6:. &ED,11|
00001cd0  2a 31 30 34 2c 49 2a 31  30 34 3a ed 20 49 0d 0c  |*104,I*104:. I..|
00001ce0  26 1b ff 22 53 43 48 4f  4f 53 45 20 22 2b c3 28  |&.."SCHOOSE "+.(|
00001cf0  6e 65 78 74 74 69 6c 65  29 0d 0c 30 13 f0 20 26  |nexttile)..0.. &|
00001d00  45 44 2c 30 2c 38 2e 35  2a 31 30 34 0d 0c 3a 34  |ED,0,8.5*104..:4|
00001d10  e6 20 30 2c 38 3a c8 93  20 c8 90 20 30 2c 38 38  |. 0,8:.. .. 0,88|
00001d20  2c 31 32 38 30 2c 38 3a  c8 93 20 c8 90 20 30 2c  |,1280,8:.. .. 0,|
00001d30  28 31 30 34 2a 38 29 2b  34 2c 31 32 38 30 2c 38  |(104*8)+4,1280,8|
00001d40  0d 0c 44 0f fb 20 31 31  3a f2 73 63 6f 72 65 0d  |..D.. 11:.score.|
00001d50  0c 4e 0c f2 63 6f 6c 73  28 31 29 0d 0c 58 18 78  |.N..cols(1)..X.x|
00001d60  70 6f 73 3d 31 3a 79 70  6f 73 3d 31 3a e6 20 30  |pos=1:ypos=1:. 0|
00001d70  2c 31 31 0d 0c 62 27 e6  20 33 2c 31 31 3a c8 93  |,11..b'. 3,11:..|
00001d80  20 78 70 6f 73 2a 31 30  34 2c 79 70 6f 73 2a 31  | xpos*104,ypos*1|
00001d90  30 34 2c 31 30 30 2c 31  30 30 0d 0c 6c 2b 66 6c  |04,100,100..l+fl|
00001da0  6f 6f 7a 65 78 3d 28 31  31 2a 31 30 34 29 2b 35  |oozex=(11*104)+5|
00001db0  32 3a 66 6c 6f 6f 7a 65  79 3d 31 32 38 3a 64 65  |2:floozey=128:de|
00001dc0  61 64 25 3d a3 0d 0c 76  09 64 69 72 3d 31 0d 0c  |ad%=...v.dir=1..|
00001dd0  80 10 66 6c 6f 6f 7a 65  63 6f 6c 3d 31 31 0d 0c  |..floozecol=11..|
00001de0  8a 0f 66 6c 6f 6f 7a 65  69 6e 63 3d 31 0d 0c 94  |..floozeinc=1...|
00001df0  09 6b 65 79 3d 30 0d 0c  9e 0f 73 74 61 72 74 74  |.key=0....startt|
00001e00  69 6d 65 3d 91 0d 0c a8  0d 66 69 6e 69 73 68 25  |ime=.....finish%|
00001e10  3d a3 0d 0c b2 05 f5 0d  0c bc 27 e6 20 33 2c 31  |=.........'. 3,1|
00001e20  31 3a c8 93 20 78 70 6f  73 2a 31 30 34 2c 79 70  |1:.. xpos*104,yp|
00001e30  6f 73 2a 31 30 34 2c 31  30 30 2c 31 30 30 0d 0c  |os*104,100,100..|
00001e40  c6 19 e7 20 91 3e 73 74  61 72 74 74 69 6d 65 2b  |... .>starttime+|
00001e50  64 65 6c 61 79 20 8c 0d  0c d0 23 73 63 6f 72 65  |delay ....#score|
00001e60  25 3d 73 63 6f 72 65 25  2b 28 32 2a 73 63 72 65  |%=score%+(2*scre|
00001e70  65 6e 29 3a f2 73 63 6f  72 65 0d 0c da 69 66 6c  |en):.score...ifl|
00001e80  6f 6f 7a 65 69 6e 63 3d  66 6c 6f 6f 7a 65 69 6e  |oozeinc=floozein|
00001e90  63 2b 31 3a e7 20 66 6c  6f 6f 7a 65 69 6e 63 3d  |c+1:. floozeinc=|
00001ea0  32 20 8c 20 66 6c 6f 6f  7a 65 69 6e 63 3d 30 3a  |2 . floozeinc=0:|
00001eb0  66 6c 6f 6f 7a 65 63 6f  6c 3d 66 6c 6f 6f 7a 65  |floozecol=flooze|
00001ec0  63 6f 6c 2b 31 3a e7 20  66 6c 6f 6f 7a 65 63 6f  |col+1:. floozeco|
00001ed0  6c 3d 31 36 20 8c 20 66  6c 6f 6f 7a 65 63 6f 6c  |l=16 . floozecol|
00001ee0  3d 31 32 0d 0c e4 0e f2  63 6f 6c 6f 75 72 63 79  |=12.....colourcy|
00001ef0  63 0d 0c ee 0f 73 74 61  72 74 74 69 6d 65 3d 91  |c....starttime=.|
00001f00  0d 0c f8 0c c8 8e 20 64  69 72 20 ca 0d 0d 02 07  |...... dir .....|
00001f10  c9 20 31 0d 0d 0c 15 66  6c 6f 6f 7a 65 79 3d 66  |. 1....floozey=f|
00001f20  6c 6f 6f 7a 65 79 2b 34  0d 0d 16 11 e6 20 30 2c  |loozey+4..... 0,|
00001f30  66 6c 6f 6f 7a 65 63 6f  6c 0d 0d 20 18 c8 8f 20  |floozecol.. ... |
00001f40  66 6c 6f 6f 7a 65 78 2c  66 6c 6f 6f 7a 65 79 2c  |floozex,floozey,|
00001f50  36 0d 0d 2a 3e e7 20 b0  66 6c 6f 6f 7a 65 78 2c  |6..*>. .floozex,|
00001f60  66 6c 6f 6f 7a 65 79 2b  38 29 3e 31 20 80 20 b0  |floozey+8)>1 . .|
00001f70  66 6c 6f 6f 7a 65 78 2c  66 6c 6f 6f 7a 65 79 2b  |floozex,floozey+|
00001f80  38 29 3c 31 30 20 8c 20  64 65 61 64 25 3d b9 0d  |8)<10 . dead%=..|
00001f90  0d 34 1d e7 20 b0 66 6c  6f 6f 7a 65 78 2c 66 6c  |.4.. .floozex,fl|
00001fa0  6f 6f 7a 65 79 2b 38 29  3d 31 20 8c 0d 0d 3e 2c  |oozey+8)=1 ...>,|
00001fb0  e7 20 b0 66 6c 6f 6f 7a  65 78 2d 32 34 2c 66 6c  |. .floozex-24,fl|
00001fc0  6f 6f 7a 65 79 29 3d 30  20 8c 20 64 69 72 3d 33  |oozey)=0 . dir=3|
00001fd0  20 8b 20 64 69 72 3d 34  0d 0d 48 05 cd 0d 0d 52  | . dir=4..H....R|
00001fe0  07 c9 20 32 0d 0d 5c 15  66 6c 6f 6f 7a 65 79 3d  |.. 2..\.floozey=|
00001ff0  66 6c 6f 6f 7a 65 79 2d  34 0d 0d 66 11 e6 20 30  |floozey-4..f.. 0|
00002000  2c 66 6c 6f 6f 7a 65 63  6f 6c 0d 0d 70 18 c8 8f  |,floozecol..p...|
00002010  20 66 6c 6f 6f 7a 65 78  2c 66 6c 6f 6f 7a 65 79  | floozex,floozey|
00002020  2c 36 0d 0d 7a 3e e7 20  b0 66 6c 6f 6f 7a 65 78  |,6..z>. .floozex|
00002030  2c 66 6c 6f 6f 7a 65 79  2d 38 29 3e 31 20 80 20  |,floozey-8)>1 . |
00002040  b0 66 6c 6f 6f 7a 65 78  2c 66 6c 6f 6f 7a 65 79  |.floozex,floozey|
00002050  2d 38 29 3c 31 30 20 8c  20 64 65 61 64 25 3d b9  |-8)<10 . dead%=.|
00002060  0d 0d 84 1d e7 20 b0 66  6c 6f 6f 7a 65 78 2c 66  |..... .floozex,f|
00002070  6c 6f 6f 7a 65 79 2d 38  29 3d 31 20 8c 0d 0d 8e  |loozey-8)=1 ....|
00002080  2c e7 20 b0 66 6c 6f 6f  7a 65 78 2d 32 34 2c 66  |,. .floozex-24,f|
00002090  6c 6f 6f 7a 65 79 29 3d  30 20 8c 20 64 69 72 3d  |loozey)=0 . dir=|
000020a0  33 20 8b 20 64 69 72 3d  34 0d 0d 98 05 cd 0d 0d  |3 . dir=4.......|
000020b0  a2 07 c9 20 33 0d 0d ac  15 66 6c 6f 6f 7a 65 78  |... 3....floozex|
000020c0  3d 66 6c 6f 6f 7a 65 78  2d 34 0d 0d b6 11 e6 20  |=floozex-4..... |
000020d0  30 2c 66 6c 6f 6f 7a 65  63 6f 6c 0d 0d c0 18 c8  |0,floozecol.....|
000020e0  8f 20 66 6c 6f 6f 7a 65  78 2c 66 6c 6f 6f 7a 65  |. floozex,flooze|
000020f0  79 2c 36 0d 0d ca 3e e7  20 b0 66 6c 6f 6f 7a 65  |y,6...>. .flooze|
00002100  78 2d 38 2c 66 6c 6f 6f  7a 65 79 29 3e 31 20 80  |x-8,floozey)>1 .|
00002110  20 b0 66 6c 6f 6f 7a 65  78 2d 38 2c 66 6c 6f 6f  | .floozex-8,floo|
00002120  7a 65 79 29 3c 31 30 20  8c 20 64 65 61 64 25 3d  |zey)<10 . dead%=|
00002130  b9 0d 0d d4 1d e7 20 b0  66 6c 6f 6f 7a 65 78 2d  |...... .floozex-|
00002140  38 2c 66 6c 6f 6f 7a 65  79 29 3d 31 20 8c 0d 0d  |8,floozey)=1 ...|
00002150  de 2c e7 20 b0 66 6c 6f  6f 7a 65 78 2c 66 6c 6f  |.,. .floozex,flo|
00002160  6f 7a 65 79 2b 32 34 29  3d 30 20 8c 20 64 69 72  |ozey+24)=0 . dir|
00002170  3d 31 20 8b 20 64 69 72  3d 32 0d 0d e8 05 cd 0d  |=1 . dir=2......|
00002180  0d f2 07 c9 20 34 0d 0d  fc 15 66 6c 6f 6f 7a 65  |.... 4....flooze|
00002190  78 3d 66 6c 6f 6f 7a 65  78 2b 34 0d 0e 06 11 e6  |x=floozex+4.....|
000021a0  20 30 2c 66 6c 6f 6f 7a  65 63 6f 6c 0d 0e 10 18  | 0,floozecol....|
000021b0  c8 8f 20 66 6c 6f 6f 7a  65 78 2c 66 6c 6f 6f 7a  |.. floozex,flooz|
000021c0  65 79 2c 36 0d 0e 1a 3e  e7 20 b0 66 6c 6f 6f 7a  |ey,6...>. .flooz|
000021d0  65 78 2b 38 2c 66 6c 6f  6f 7a 65 79 29 3e 31 20  |ex+8,floozey)>1 |
000021e0  80 20 b0 66 6c 6f 6f 7a  65 78 2b 38 2c 66 6c 6f  |. .floozex+8,flo|
000021f0  6f 7a 65 79 29 3c 31 30  20 8c 20 64 65 61 64 25  |ozey)<10 . dead%|
00002200  3d b9 0d 0e 24 1d e7 20  b0 66 6c 6f 6f 7a 65 78  |=...$.. .floozex|
00002210  2b 38 2c 66 6c 6f 6f 7a  65 79 29 3d 31 20 8c 0d  |+8,floozey)=1 ..|
00002220  0e 2e 2c e7 20 b0 66 6c  6f 6f 7a 65 78 2c 66 6c  |..,. .floozex,fl|
00002230  6f 6f 7a 65 79 2b 32 34  29 3d 30 20 8c 20 64 69  |oozey+24)=0 . di|
00002240  72 3d 31 20 8b 20 64 69  72 3d 32 0d 0e 38 05 cd  |r=1 . dir=2..8..|
00002250  0d 0e 42 05 cb 0d 0e 4c  43 74 69 6c 65 78 3d 28  |..B....LCtilex=(|
00002260  66 6c 6f 6f 7a 65 78 20  81 20 31 30 34 29 3a 74  |floozex . 104):t|
00002270  69 6c 65 79 3d 28 66 6c  6f 6f 7a 65 79 20 81 20  |iley=(floozey . |
00002280  31 30 34 29 3a 67 72 69  64 28 74 69 6c 65 78 2c  |104):grid(tilex,|
00002290  74 69 6c 65 79 29 3d 31  0d 0e 56 05 cd 0d 0e 60  |tiley)=1..V....`|
000022a0  0d e7 20 6b 65 79 3d 30  20 8c 0d 0e 6a 2c e7 20  |.. key=0 ...j,. |
000022b0  a6 28 2d 39 38 29 20 80  20 78 70 6f 73 3e 31 20  |.(-98) . xpos>1 |
000022c0  8c 20 78 70 6f 73 3d 78  70 6f 73 2d 31 3a 6b 65  |. xpos=xpos-1:ke|
000022d0  79 3d 74 76 61 6c 0d 0e  74 2d e7 20 a6 28 2d 36  |y=tval..t-. .(-6|
000022e0  37 29 20 80 20 78 70 6f  73 3c 31 30 20 8c 20 78  |7) . xpos<10 . x|
000022f0  70 6f 73 3d 78 70 6f 73  2b 31 3a 6b 65 79 3d 74  |pos=xpos+1:key=t|
00002300  76 61 6c 0d 0e 7e 2d e7  20 a6 28 2d 31 30 35 29  |val..~-. .(-105)|
00002310  20 80 20 79 70 6f 73 3e  31 20 8c 20 79 70 6f 73  | . ypos>1 . ypos|
00002320  3d 79 70 6f 73 2d 31 3a  6b 65 79 3d 74 76 61 6c  |=ypos-1:key=tval|
00002330  0d 0e 88 2c e7 20 a6 28  2d 38 30 29 20 80 20 79  |...,. .(-80) . y|
00002340  70 6f 73 3c 37 20 8c 20  79 70 6f 73 3d 79 70 6f  |pos<7 . ypos=ypo|
00002350  73 2b 31 3a 6b 65 79 3d  74 76 61 6c 0d 0e 89 1f  |s+1:key=tval....|
00002360  e7 20 a6 28 2d 39 39 29  20 8c 20 64 65 6c 61 79  |. .(-99) . delay|
00002370  3d 32 3a 6b 65 79 3d 74  76 61 6c 0d 0e 92 22 e7  |=2:key=tval...".|
00002380  20 a6 28 2d 37 34 29 20  80 20 67 72 69 64 28 78  | .(-74) . grid(x|
00002390  70 6f 73 2c 79 70 6f 73  29 3d 30 20 8c 0d 0e 9c  |pos,ypos)=0 ....|
000023a0  39 e6 20 30 2c 30 3a ff  22 53 43 48 4f 4f 53 45  |9. 0,0:."SCHOOSE|
000023b0  20 22 2b c3 28 6e 65 78  74 74 69 6c 65 29 3a f0  | "+.(nexttile):.|
000023c0  20 26 45 44 2c 78 70 6f  73 2a 31 30 34 2c 79 70  | &ED,xpos*104,yp|
000023d0  6f 73 2a 31 30 34 0d 0e  a6 56 f5 3a 74 69 6c 65  |os*104...V.:tile|
000023e0  3d b3 28 36 29 3a fd 20  74 69 6c 65 3c 3e 6e 65  |=.(6):. tile<>ne|
000023f0  78 74 74 69 6c 65 3a 6e  65 78 74 74 69 6c 65 3d  |xttile:nexttile=|
00002400  74 69 6c 65 3a ff 22 53  43 48 4f 4f 53 45 20 22  |tile:."SCHOOSE "|
00002410  2b c3 28 6e 65 78 74 74  69 6c 65 29 3a f0 20 26  |+.(nexttile):. &|
00002420  45 44 2c 30 2c 38 2e 35  2a 31 30 34 0d 0e b0 0c  |ED,0,8.5*104....|
00002430  6b 65 79 3d 74 76 61 6c  0d 0e ba 39 73 63 6f 72  |key=tval...9scor|
00002440  65 25 3d 73 63 6f 72 65  25 2d 28 73 63 72 65 65  |e%=score%-(scree|
00002450  6e 2a 35 29 3a e7 20 73  63 6f 72 65 25 3c 30 20  |n*5):. score%<0 |
00002460  8c 20 73 63 6f 72 65 25  3d 30 3a f2 73 63 6f 72  |. score%=0:.scor|
00002470  65 0d 0e c4 05 cd 0d 0e  ce 27 e6 20 33 2c 31 31  |e........'. 3,11|
00002480  3a c8 93 20 78 70 6f 73  2a 31 30 34 2c 79 70 6f  |:.. xpos*104,ypo|
00002490  73 2a 31 30 34 2c 31 30  30 2c 31 30 30 0d 0e d8  |s*104,100,100...|
000024a0  05 cc 0d 0e e2 0d 6b 65  79 3d 6b 65 79 2d 31 0d  |......key=key-1.|
000024b0  0e ec 05 cd 0d 0e f6 06  c8 96 0d 0f 00 2b e7 20  |.............+. |
000024c0  66 6c 6f 6f 7a 65 78 3c  31 30 30 20 80 20 66 6c  |floozex<100 . fl|
000024d0  6f 6f 7a 65 79 3e 38 30  30 20 8c 20 66 69 6e 69  |oozey>800 . fini|
000024e0  73 68 25 3d b9 0d 0f 0a  15 fd 20 64 65 61 64 25  |sh%=...... dead%|
000024f0  20 84 20 66 69 6e 69 73  68 25 0d 0f 14 15 e7 20  | . finish%..... |
00002500  64 65 61 64 25 20 8c 20  f2 64 65 61 64 3a e1 0d  |dead% . .dead:..|
00002510  0f 1e 09 2a 46 61 64 65  0d 0f 28 21 63 6f 6d 70  |...*Fade..(!comp|
00002520  6c 65 74 65 28 73 63 72  65 65 6e 29 3d 31 3a f2  |lete(screen)=1:.|
00002530  62 6c 61 6e 6b 63 6f 6c  73 0d 0f 32 32 6e 6f 74  |blankcols..22not|
00002540  63 3d 30 3a e3 20 49 3d  31 20 b8 20 37 3a e7 20  |c=0:. I=1 . 7:. |
00002550  63 6f 6d 70 6c 65 74 65  28 49 29 3d 31 20 8c 20  |complete(I)=1 . |
00002560  6e 6f 74 63 3d 6e 6f 74  63 2b 31 0d 0f 3c 1f ed  |notc=notc+1..<..|
00002570  20 49 3a e7 20 6e 6f 74  63 3d 37 20 8c 20 f2 63  | I:. notc=7 . .c|
00002580  6f 6d 70 6c 65 74 65 64  3a e1 0d 0f 46 0c db 3a  |ompleted:...F..:|
00002590  e5 20 8d 64 4a 48 0d 0f  50 0b dd 20 f2 64 65 61  |. .dJH..P.. .dea|
000025a0  64 0d 0f 5a 4f e3 20 49  3d 30 20 b8 20 35 31 32  |d..ZO. I=0 . 512|
000025b0  20 88 20 34 3a e6 20 30  2c 30 3a 86 20 30 2c 49  | . 4:. 0,0:. 0,I|
000025c0  2c 31 32 38 30 2c 49 3a  86 20 30 2c 31 30 32 34  |,1280,I:. 0,1024|
000025d0  2d 49 2c 31 32 38 30 2c  31 30 32 34 2d 49 3a c8  |-I,1280,1024-I:.|
000025e0  96 3a ed 20 49 3a f2 62  6c 61 6e 6b 63 6f 6c 73  |.:. I:.blankcols|
000025f0  0d 0f 64 0d 2a 53 48 41  44 4f 57 20 30 0d 0f 6e  |..d.*SHADOW 0..n|
00002600  05 db 0d 0f 78 17 eb 20  31 33 3a 87 3a f2 61 73  |....x.. 13:.:.as|
00002610  73 3a d6 20 62 65 67 69  6e 0d 0f 82 30 f2 74 65  |s:. begin...0.te|
00002620  78 74 28 22 4f 68 20 64  65 61 72 20 21 20 49 74  |xt("Oh dear ! It|
00002630  20 61 70 70 65 61 72 73  20 74 68 61 74 20 79 6f  | appears that yo|
00002640  75 20 64 69 64 22 2c 34  29 0d 0f 8c 29 f2 74 65  |u did",4)...).te|
00002650  78 74 28 22 6e 6f 74 20  73 75 63 63 65 65 64 20  |xt("not succeed |
00002660  69 6e 20 79 6f 75 72 20  74 61 73 6b 20 21 22 2c  |in your task !",|
00002670  36 29 0d 0f 96 28 f2 74  65 78 74 28 22 42 65 74  |6)...(.text("Bet|
00002680  74 65 72 20 6c 75 63 6b  20 6e 65 78 74 20 74 69  |ter luck next ti|
00002690  6d 65 20 21 21 22 2c 31  30 29 0d 0f a0 28 f2 74  |me !!",10)...(.t|
000026a0  65 78 74 28 22 50 72 65  73 73 20 53 50 41 43 45  |ext("Press SPACE|
000026b0  20 74 6f 20 63 6f 6e 74  69 6e 75 65 20 22 2c 32  | to continue ",2|
000026c0  30 29 0d 0f aa 1b f5 3a  d6 20 76 73 6c 3a fd 20  |0).....:. vsl:. |
000026d0  a6 28 2d 39 39 29 3a f2  63 6c 65 61 72 0d 0f b4  |.(-99):.clear...|
000026e0  0c f2 68 69 73 63 6f 72  65 0d 0f be 05 e1 0d 0f  |..hiscore.......|
000026f0  c8 10 dd 20 f2 63 6f 6c  6f 75 72 63 79 63 0d 0f  |... .colourcyc..|
00002700  d2 27 e3 20 49 3d 31 32  20 b8 20 31 35 3a fb 49  |.'. I=12 . 15:.I|
00002710  2c 30 2c 36 30 2c 63 79  63 6c 65 28 49 2d 31 31  |,0,60,cycle(I-11|
00002720  29 3a ed 20 49 0d 0f dc  35 71 3d 63 79 63 6c 65  |):. I...5q=cycle|
00002730  28 34 29 3a e3 20 49 3d  33 20 b8 20 31 20 88 20  |(4):. I=3 . 1 . |
00002740  2d 31 3a 63 79 63 6c 65  28 49 2b 31 29 3d 63 79  |-1:cycle(I+1)=cy|
00002750  63 6c 65 28 49 29 3a ed  20 49 0d 0f e6 0e 63 79  |cle(I):. I....cy|
00002760  63 6c 65 28 31 29 3d 71  0d 0f f0 05 e1 0d 0f fa  |cle(1)=q........|
00002770  59 dd 20 f2 73 63 6f 72  65 3a 77 24 3d c3 28 73  |Y. .score:w$=.(s|
00002780  63 6f 72 65 25 29 3a 73  63 24 3d c4 37 2d 28 a9  |core%):sc$=.7-(.|
00002790  28 77 24 29 29 2c 22 30  22 29 2b 77 24 3a ef 20  |(w$)),"0")+w$:. |
000027a0  33 31 2c 31 36 2c 33 3a  e3 20 52 3d 31 20 b8 20  |31,16,3:. R=1 . |
000027b0  37 3a ef 20 97 28 c1 73  63 24 2c 52 2c 31 29 29  |7:. .(.sc$,R,1))|
000027c0  3a ed 20 52 3a e1 0d 10  04 10 dd 20 f2 63 6f 6d  |:. R:...... .com|
000027d0  70 6c 65 74 65 64 0d 10  0e 05 db 0d 10 18 0d 2a  |pleted.........*|
000027e0  53 48 41 44 4f 57 20 30  0d 10 22 17 eb 20 31 33  |SHADOW 0..".. 13|
000027f0  3a 87 3a f2 61 73 73 3a  d6 20 62 65 67 69 6e 0d  |:.:.ass:. begin.|
00002800  10 2c 1a f2 74 65 78 74  28 22 57 65 6c 6c 20 44  |.,..text("Well D|
00002810  6f 6e 65 20 21 22 2c 34  29 0d 10 36 2b f2 74 65  |one !",4)..6+.te|
00002820  78 74 28 22 59 6f 75 20  73 61 76 65 64 20 61 6c  |xt("You saved al|
00002830  6c 20 74 68 65 20 72 6f  6f 6d 73 20 66 72 6f 6d  |l the rooms from|
00002840  22 2c 38 29 0d 10 40 2e  f2 74 65 78 74 28 22 62  |",8)..@..text("b|
00002850  65 69 6e 67 20 66 6c 6f  6f 64 65 64 20 2d 20 59  |eing flooded - Y|
00002860  6f 75 20 64 6f 6e 27 74  20 68 61 76 65 22 2c 31  |ou don't have",1|
00002870  30 29 0d 10 4a 2b f2 74  65 78 74 28 22 74 6f 20  |0)..J+.text("to |
00002880  70 61 79 20 66 6f 72 20  61 6c 6c 20 74 68 65 20  |pay for all the |
00002890  64 61 6d 61 67 65 20 21  22 2c 31 32 29 0d 10 54  |damage !",12)..T|
000028a0  28 f2 74 65 78 74 28 22  50 72 65 73 73 20 53 50  |(.text("Press SP|
000028b0  41 43 45 20 74 6f 20 63  6f 6e 74 69 6e 75 65 20  |ACE to continue |
000028c0  22 2c 32 30 29 0d 10 5e  1b f5 3a d6 20 76 73 6c  |",20)..^..:. vsl|
000028d0  3a fd 20 a6 28 2d 39 39  29 3a f2 63 6c 65 61 72  |:. .(-99):.clear|
000028e0  0d 10 68 0c f2 68 69 73  63 6f 72 65 0d 10 72 05  |..h..hiscore..r.|
000028f0  e1 0d 10 7c 0e dd 20 f2  68 69 73 63 6f 72 65 0d  |...|.. .hiscore.|
00002900  10 86 1c e7 20 73 63 6f  72 65 25 3e 68 69 25 28  |.... score%>hi%(|
00002910  31 30 29 20 8c 20 f2 6e  61 6d 65 0d 10 90 05 e1  |10) . .name.....|
00002920  0d 10 9a 0b dd 20 f2 6e  61 6d 65 0d 10 a4 30 f2  |..... .name...0.|
00002930  74 65 78 74 28 22 59 6f  75 20 73 63 6f 72 65 64  |text("You scored|
00002940  20 65 6e 6f 75 67 68 20  70 6f 69 6e 74 73 20 74  | enough points t|
00002950  6f 20 67 6f 20 6f 6e 22  2c 32 29 0d 10 ae 20 f2  |o go on",2)... .|
00002960  74 65 78 74 28 22 74 6f  64 61 79 73 20 73 63 6f  |text("todays sco|
00002970  72 65 62 6f 61 72 64 22  2c 34 29 0d 10 b8 25 f2  |reboard",4)...%.|
00002980  74 65 78 74 28 22 50 6c  65 61 73 65 20 65 6e 74  |text("Please ent|
00002990  65 72 20 79 6f 75 72 20  6e 61 6d 65 22 2c 38 29  |er your name",8)|
000029a0  0d 10 c2 0a 2a 46 58 20  31 35 0d 10 cc 0f d6 20  |....*FX 15..... |
000029b0  76 73 6c 3a 6e 24 3d 22  22 0d 10 d6 05 f5 0d 10  |vsl:n$="".......|
000029c0  e0 10 d6 20 76 73 6c 3a  41 3d a6 28 30 29 0d 10  |... vsl:A=.(0)..|
000029d0  ea 1f e7 20 41 3e 33 31  20 80 20 41 3c 31 32 37  |... A>31 . A<127|
000029e0  20 80 20 a9 28 6e 24 29  3c 32 30 20 8c 0d 10 f4  | . .(n$)<20 ....|
000029f0  1a d6 20 76 73 6c 3a ff  22 53 43 48 4f 4f 53 45  |.. vsl:."SCHOOSE|
00002a00  20 22 2b c3 28 41 29 0d  10 fe 22 d6 20 76 73 6c  | "+.(A)...". vsl|
00002a10  3a f0 20 26 45 44 2c 33  32 30 2b 28 a9 28 6e 24  |:. &ED,320+(.(n$|
00002a20  29 2a 33 32 29 2c 32 35  36 0d 11 08 14 d6 20 76  |)*32),256..... v|
00002a30  73 6c 3a 6e 24 3d 6e 24  2b bd 28 41 29 0d 11 12  |sl:n$=n$+.(A)...|
00002a40  05 cd 0d 11 1c 17 e7 20  41 3d 31 32 37 20 80 20  |....... A=127 . |
00002a50  a9 28 6e 24 29 3e 30 20  8c 0d 11 26 09 d6 20 76  |.(n$)>0 ...&.. v|
00002a60  73 6c 0d 11 30 11 ff 22  53 43 48 4f 4f 53 45 20  |sl..0.."SCHOOSE |
00002a70  33 32 22 0d 11 3a 19 d6  20 76 73 6c 3a 6e 24 3d  |32"..:.. vsl:n$=|
00002a80  c0 6e 24 2c a9 28 6e 24  29 2d 31 29 0d 11 44 22  |.n$,.(n$)-1)..D"|
00002a90  d6 20 76 73 6c 3a f0 20  26 45 44 2c 33 32 30 2b  |. vsl:. &ED,320+|
00002aa0  28 a9 28 6e 24 29 2a 33  32 29 2c 32 35 36 0d 11  |(.(n$)*32),256..|
00002ab0  4e 05 cd 0d 11 58 0a fd  20 41 3d 31 33 0d 11 62  |N....X.. A=13..b|
00002ac0  09 d6 20 76 73 6c 0d 11  6c 0a f2 63 6c 65 61 72  |.. vsl..l..clear|
00002ad0  0d 11 76 1d 68 69 25 28  31 31 29 3d 73 63 6f 72  |..v.hi%(11)=scor|
00002ae0  65 25 3a 68 69 24 28 31  31 29 3d 6e 24 0d 11 80  |e%:hi$(11)=n$...|
00002af0  13 e3 20 54 3d 31 31 20  b8 20 32 20 88 20 2d 31  |.. T=11 . 2 . -1|
00002b00  0d 11 8a 09 d6 20 76 73  6c 0d 11 94 17 e7 20 68  |..... vsl..... h|
00002b10  69 25 28 54 29 3e 68 69  25 28 54 2d 31 29 20 8c  |i%(T)>hi%(T-1) .|
00002b20  0d 11 9e 16 c8 94 20 68  69 25 28 54 29 2c 68 69  |...... hi%(T),hi|
00002b30  25 28 54 2d 31 29 0d 11  a8 16 c8 94 20 68 69 24  |%(T-1)...... hi$|
00002b40  28 54 29 2c 68 69 24 28  54 2d 31 29 0d 11 b2 05  |(T),hi$(T-1)....|
00002b50  cc 0d 11 bc 07 54 3d 32  0d 11 c6 05 cd 0d 11 d0  |.....T=2........|
00002b60  07 ed 20 54 0d 11 da 05  e1 0d 11 e4 15 dd 20 f2  |.. T.......... .|
00002b70  73 63 72 6f 6c 6c 74 65  78 74 66 61 73 74 0d 11  |scrolltextfast..|
00002b80  ee 2f 74 65 78 74 25 3d  74 65 78 74 25 2b 31 3a  |./text%=text%+1:|
00002b90  e7 20 74 65 78 74 25 3d  73 65 6e 64 25 20 8c 20  |. text%=send% . |
00002ba0  74 65 78 74 25 3d 73 63  72 6f 6c 6c 25 0d 11 f8  |text%=scroll%...|
00002bb0  18 e7 20 a4 63 68 61 6e  67 65 73 70 65 65 64 3d  |.. .changespeed=|
00002bc0  31 20 8c 20 e1 0d 12 02  19 c8 93 20 31 36 2c 30  |1 . ....... 16,0|
00002bd0  2c 31 32 37 36 2c 32 38  20 b8 20 30 2c 30 0d 12  |,1276,28 . 0,0..|
00002be0  0c 19 ff 22 53 43 48 4f  4f 53 45 20 22 2b c3 28  |..."SCHOOSE "+.(|
00002bf0  3f 74 65 78 74 25 29 0d  12 16 09 d6 20 76 73 6c  |?text%)..... vsl|
00002c00  0d 12 20 19 c8 93 20 31  36 2c 30 2c 31 32 37 36  |.. ... 16,0,1276|
00002c10  2c 32 38 20 b8 20 30 2c  30 0d 12 2a 10 f0 20 26  |,28 . 0,0..*.. &|
00002c20  45 44 2c 31 32 34 38 2c  30 0d 12 34 09 d6 20 76  |ED,1248,0..4.. v|
00002c30  73 6c 0d 12 3e 05 e1 0d  12 48 43 dd 20 f2 73 63  |sl..>....HC. .sc|
00002c40  72 6f 6c 6c 74 65 78 74  6d 65 64 69 75 6d 3a 74  |rolltextmedium:t|
00002c50  65 78 74 25 3d 74 65 78  74 25 2b 31 3a e7 20 74  |ext%=text%+1:. t|
00002c60  65 78 74 25 3d 73 65 6e  64 25 20 8c 20 74 65 78  |ext%=send% . tex|
00002c70  74 25 3d 73 63 72 6f 6c  6c 25 0d 12 52 18 e7 20  |t%=scroll%..R.. |
00002c80  a4 63 68 61 6e 67 65 73  70 65 65 64 3d 31 20 8c  |.changespeed=1 .|
00002c90  20 e1 0d 12 5c 94 c8 93  20 38 2c 30 2c 31 32 38  | ...\... 8,0,128|
00002ca0  30 2c 32 38 20 b8 20 30  2c 30 3a ff 22 53 43 48  |0,28 . 0,0:."SCH|
00002cb0  4f 4f 53 45 20 22 2b c3  28 3f 74 65 78 74 25 29  |OOSE "+.(?text%)|
00002cc0  3a d6 20 76 73 6c 3a c8  93 20 38 2c 30 2c 31 32  |:. vsl:.. 8,0,12|
00002cd0  38 30 2c 32 38 20 b8 20  30 2c 30 3a d6 20 76 73  |80,28 . 0,0:. vs|
00002ce0  6c 3a c8 93 20 38 2c 30  2c 31 32 38 30 2c 32 38  |l:.. 8,0,1280,28|
00002cf0  20 b8 20 30 2c 30 3a d6  20 76 73 6c 3a c8 93 20  | . 0,0:. vsl:.. |
00002d00  38 2c 30 2c 31 32 38 30  2c 32 38 20 b8 20 30 2c  |8,0,1280,28 . 0,|
00002d10  30 3a f0 20 26 45 44 2c  31 32 34 38 2c 30 3a d6  |0:. &ED,1248,0:.|
00002d20  20 76 73 6c 3a e1 0d 12  66 41 dd 20 f2 73 63 72  | vsl:...fA. .scr|
00002d30  6f 6c 6c 74 65 78 74 73  6c 6f 77 3a 74 65 78 74  |olltextslow:text|
00002d40  25 3d 74 65 78 74 25 2b  31 3a e7 20 74 65 78 74  |%=text%+1:. text|
00002d50  25 3d 73 65 6e 64 25 20  8c 20 74 65 78 74 25 3d  |%=send% . text%=|
00002d60  73 63 72 6f 6c 6c 25 0d  12 70 18 e7 20 a4 63 68  |scroll%..p.. .ch|
00002d70  61 6e 67 65 73 70 65 65  64 3d 31 20 8c 20 e1 0d  |angespeed=1 . ..|
00002d80  12 7a 87 c8 93 20 34 2c  30 2c 31 32 38 30 2c 32  |.z... 4,0,1280,2|
00002d90  38 20 b8 20 30 2c 30 3a  ff 22 53 43 48 4f 4f 53  |8 . 0,0:."SCHOOS|
00002da0  45 20 22 2b c3 28 3f 74  65 78 74 25 29 3a d6 20  |E "+.(?text%):. |
00002db0  76 73 6c 3a e3 20 49 3d  31 20 b8 20 36 3a c8 93  |vsl:. I=1 . 6:..|
00002dc0  20 34 2c 30 2c 31 32 38  30 2c 32 38 20 b8 20 30  | 4,0,1280,28 . 0|
00002dd0  2c 30 3a d6 20 76 73 6c  3a ed 20 49 3a c8 93 20  |,0:. vsl:. I:.. |
00002de0  34 2c 30 2c 31 32 38 30  2c 32 38 20 b8 20 30 2c  |4,0,1280,28 . 0,|
00002df0  30 3a f0 20 26 45 44 2c  31 32 34 38 2c 30 3a d6  |0:. &ED,1248,0:.|
00002e00  20 76 73 6c 3a e1 0d 12  84 2d dd 20 a4 63 68 61  | vsl:....-. .cha|
00002e10  6e 67 65 73 70 65 65 64  3a e7 20 3f 74 65 78 74  |ngespeed:. ?text|
00002e20  25 3d 31 36 39 20 8c 20  74 65 78 74 73 70 65 65  |%=169 . textspee|
00002e30  64 3d 31 0d 12 8e 1e e7  20 3f 74 65 78 74 25 3d  |d=1..... ?text%=|
00002e40  31 37 30 20 8c 20 74 65  78 74 73 70 65 65 64 3d  |170 . textspeed=|
00002e50  32 0d 12 98 1e e7 20 3f  74 65 78 74 25 3d 31 37  |2..... ?text%=17|
00002e60  31 20 8c 20 74 65 78 74  73 70 65 65 64 3d 33 0d  |1 . textspeed=3.|
00002e70  12 a2 2b e7 20 3f 74 65  78 74 25 3e 31 36 38 20  |..+. ?text%>168 |
00002e80  80 20 3f 74 65 78 74 25  3c 31 37 32 20 8c 20 65  |. ?text%<172 . e|
00002e90  25 3d 31 20 8b 20 65 25  3d 30 0d 12 ac 07 3d 65  |%=1 . e%=0....=e|
00002ea0  25 0d 12 b6 0f dd 20 f2  74 65 78 74 69 6e 69 74  |%..... .textinit|
00002eb0  0d 12 c0 11 73 65 6e 64  25 3d 73 63 72 6f 6c 6c  |....send%=scroll|
00002ec0  25 0d 12 ca dd 41 24 3d  22 20 20 20 20 20 20 57  |%....A$="      W|
00002ed0  65 6c 63 6f 6d 65 20 74  6f 20 21 42 75 72 73 74  |elcome to !Burst|
00002ee0  50 69 70 65 20 2e 2e 2e  2e 2e 2e 2e 20 57 72 69  |Pipe ....... Wri|
00002ef0  74 74 65 6e 20 62 79 22  2b bd 28 31 36 39 29 2b  |tten by"+.(169)+|
00002f00  22 20 4d 61 72 6b 20 4a  6f 68 6e 73 6f 6e 20 22  |" Mark Johnson "|
00002f10  2b bd 28 31 37 31 29 2b  22 6f 6e 20 4a 75 6e 65  |+.(171)+"on June|
00002f20  20 31 73 74 2d 33 72 64  20 31 39 39 31 20 2e 2e  | 1st-3rd 1991 ..|
00002f30  2e 2e 2e 2e 2e 20 20 20  53 6f 75 6e 64 74 72 61  |.....   Soundtra|
00002f40  63 6b 20 50 6c 61 79 72  6f 75 74 69 6e 65 20 62  |ck Playroutine b|
00002f50  79 20 41 4c 54 5f 4d 61  6e 20 61 6e 64 20 46 61  |y ALT_Man and Fa|
00002f60  62 72 69 63 65 20 4d 65  72 63 69 65 72 20 2e 2e  |brice Mercier ..|
00002f70  2e 2e 2e 2e 2e 20 20 20  20 20 20 22 3a 24 73 65  |.....      ":$se|
00002f80  6e 64 25 3d 41 24 3a 73  65 6e 64 25 3d 73 65 6e  |nd%=A$:send%=sen|
00002f90  64 25 2b a9 28 41 24 29  3a d6 20 76 73 6c 0d 12  |d%+.(A$):. vsl..|
00002fa0  d4 d4 41 24 3d 22 20 20  20 20 48 65 6c 6c 6f 20  |..A$="    Hello |
00002fb0  74 6f 20 4d 61 74 74 20  48 6f 6c 74 20 61 6e 64  |to Matt Holt and|
00002fc0  20 43 68 72 69 73 20 48  75 6e 74 65 72 2c 20 6d  | Chris Hunter, m|
00002fd0  79 20 65 76 65 72 20 66  61 69 74 68 66 75 6c 20  |y ever faithful |
00002fe0  70 6c 61 79 20 74 65 73  74 65 72 73 20 20 20 20  |play testers    |
00002ff0  20 20 20 28 4c 65 76 65  6c 20 37 20 49 53 20 63  |   (Level 7 IS c|
00003000  6f 6d 70 6c 65 74 65 61  62 6c 65 20 21 21 21 21  |ompleteable !!!!|
00003010  20 20 2d 20 20 70 6c 61  79 20 74 68 65 20 67 61  |  -  play the ga|
00003020  6d 65 20 61 6e 64 20 73  65 65 20 68 6f 77 20 68  |me and see how h|
00003030  61 72 64 20 69 74 20 69  73 20 74 68 6f 75 67 68  |ard it is though|
00003040  20 21 21 21 21 29 20 20  20 20 20 20 20 20 20 22  | !!!!)         "|
00003050  3a 24 73 65 6e 64 25 3d  41 24 3a 73 65 6e 64 25  |:$send%=A$:send%|
00003060  3d 73 65 6e 64 25 2b a9  28 41 24 29 3a d6 20 76  |=send%+.(A$):. v|
00003070  73 6c 0d 12 de ec 41 24  3d 22 20 20 20 20 20 20  |sl....A$="      |
00003080  48 65 6c 6c 6f 27 73 20  61 6c 73 6f 20 67 6f 20  |Hello's also go |
00003090  74 6f 20 74 68 65 20 66  6f 6c 6c 6f 77 69 6e 67  |to the following|
000030a0  20 2e 2e 2e 2e 2e 2e 2e  2e 2e 2e 2e 2e 2e 20 41  | ............. A|
000030b0  6e 64 72 65 77 20 57 61  74 73 6f 6e 2c 20 41 6e  |ndrew Watson, An|
000030c0  64 72 65 77 20 42 72 6f  77 6e 2c 20 54 68 65 20  |drew Brown, The |
000030d0  42 72 6f 74 68 65 72 73  20 69 6e 20 41 52 4d 2c  |Brothers in ARM,|
000030e0  20 54 68 65 20 4d 69 63  72 6f 20 55 73 65 72 20  | The Micro User |
000030f0  43 72 65 77 2c 20 41 6c  65 78 20 4b 72 75 73 6f  |Crew, Alex Kruso|
00003100  77 73 6b 69 20 61 74 20  41 43 4d 45 20 50 44 53  |wski at ACME PDS|
00003110  4c 20 61 6e 64 20 74 6f  20 61 6e 79 6f 6e 65 20  |L and to anyone |
00003120  77 68 6f 20 49 20 68 61  76 65 20 65 76 65 72 20  |who I have ever |
00003130  6b 6e 6f 77 6e 2c 20 6f  72 20 61 72 65 20 6c 69  |known, or are li|
00003140  6b 65 6c 79 20 74 6f 20  6b 6e 6f 77 2c 20 48 45  |kely to know, HE|
00003150  4c 4c 4f 20 21 21 21 21  20 20 2e 2e 2e 22 0d 12  |LLO !!!!  ..."..|
00003160  e8 25 24 73 65 6e 64 25  3d 41 24 3a 73 65 6e 64  |.%$send%=A$:send|
00003170  25 3d 73 65 6e 64 25 2b  a9 28 41 24 29 3a d6 20  |%=send%+.(A$):. |
00003180  76 73 6c 0d 12 f2 c7 41  24 3d 22 2e 2e 2e 2e 2e  |vsl....A$=".....|
00003190  2e 2e 2e 2e 2e 2e 20 20  57 65 6c 6c 20 64 6f 20  |......  Well do |
000031a0  79 6f 75 20 6c 69 6b 65  20 74 68 69 73 20 73 63  |you like this sc|
000031b0  72 65 65 6e 20 3f 20 6f  72 20 64 6f 20 79 6f 75  |reen ? or do you|
000031c0  20 6c 69 6b 65 20 72 65  61 64 69 6e 67 20 73 63  | like reading sc|
000031d0  72 6f 6c 6c 69 6e 67 20  74 65 78 74 20 6d 65 73  |rolling text mes|
000031e0  73 61 67 65 73 20 3f 3f  20 2e 2e 2e 2e 2e 2e 20  |sages ?? ...... |
000031f0  77 65 6c 6c 2c 20 49 66  20 79 6f 75 20 61 72 65  |well, If you are|
00003200  20 66 65 64 20 75 70 2c  20 70 72 65 73 73 20 27  | fed up, press '|
00003210  50 27 20 74 6f 20 70 6c  61 79 20 74 68 65 20 67  |P' to play the g|
00003220  61 6d 65 2c 20 20 20 22  3a 24 73 65 6e 64 25 3d  |ame,   ":$send%=|
00003230  41 24 3a 73 65 6e 64 25  3d 73 65 6e 64 25 2b a9  |A$:send%=send%+.|
00003240  28 41 24 29 3a d6 20 76  73 6c 0d 12 fc be 41 24  |(A$):. vsl....A$|
00003250  3d 22 27 48 27 20 74 6f  20 73 65 65 20 74 68 65  |="'H' to see the|
00003260  20 68 69 67 68 20 73 63  6f 72 65 20 74 61 62 6c  | high score tabl|
00003270  65 2c 20 20 20 27 4b 27  20 74 6f 20 76 69 65 77  |e,   'K' to view|
00003280  20 74 68 65 20 6b 65 79  73 20 20 20 6f 72 20 20  | the keys   or  |
00003290  27 49 27 20 66 6f 72 20  74 68 65 20 69 6e 73 74  |'I' for the inst|
000032a0  72 75 63 74 69 6f 6e 73  20 2e 2e 2e 2e 2e 2e 2e  |ructions .......|
000032b0  2e 2e 2e 2e 20 20 20 20  20 20 20 20 20 20 20 20  |....            |
000032c0  20 20 20 20 20 20 20 20  20 54 6f 64 61 79 27 73  |         Today's|
000032d0  20 68 69 67 68 65 73 74  20 73 63 6f 72 65 20 69  | highest score i|
000032e0  73 20 3a 20 20 22 3a 24  73 65 6e 64 25 3d 41 24  |s :  ":$send%=A$|
000032f0  3a 73 65 6e 64 25 3d 73  65 6e 64 25 2b a9 28 41  |:send%=send%+.(A|
00003300  24 29 3a d6 20 76 73 6c  0d 13 06 55 41 24 3d c3  |$):. vsl...UA$=.|
00003310  28 68 69 25 28 31 29 29  2b 22 20 20 20 77 68 69  |(hi%(1))+"   whi|
00003320  63 68 20 77 61 73 20 73  63 6f 72 65 64 20 62 79  |ch was scored by|
00003330  20 20 20 22 2b 68 69 24  28 31 29 3a 24 73 65 6e  |   "+hi$(1):$sen|
00003340  64 25 3d 41 24 3a 73 65  6e 64 25 3d 73 65 6e 64  |d%=A$:send%=send|
00003350  25 2b a9 28 41 24 29 3a  d6 20 76 73 6c 0d 13 10  |%+.(A$):. vsl...|
00003360  e8 41 24 3d 22 20 20 20  20 20 20 20 20 20 20 20  |.A$="           |
00003370  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00003380  20 20 20 20 20 20 20 20  20 41 64 20 3a 20 20 20  |         Ad :   |
00003390  41 20 63 6f 75 70 6c 65  20 6f 66 20 66 72 69 65  |A couple of frie|
000033a0  6e 64 73 2c 20 61 6e 64  20 49 20 68 61 76 65 20  |nds, and I have |
000033b0  6a 75 73 74 20 73 65 74  20 75 70 20 61 20 50 75  |just set up a Pu|
000033c0  62 6c 69 63 20 44 6f 6d  61 69 6e 20 6d 61 67 61  |blic Domain maga|
000033d0  7a 69 6e 65 20 61 6e 64  20 6d 6f 6e 74 68 6c 79  |zine and monthly|
000033e0  20 64 69 73 63 2c 20 63  6f 6e 74 61 69 6e 69 6e  | disc, containin|
000033f0  67 20 6d 61 6e 79 20 75  73 65 66 75 6c 20 61 70  |g many useful ap|
00003400  70 6c 69 63 61 74 69 6f  6e 73 2c 20 6d 75 73 69  |plications, musi|
00003410  78 20 28 38 20 63 68 61  6e 6e 65 6c 20 53 54 45  |x (8 channel STE|
00003420  52 45 4f 20 21 29 2c 20  75 74 69 6c 69 74 69 65  |REO !), utilitie|
00003430  73 2c 20 64 65 6d 6f 73  20 65 74 63 20 2e 2e 2e  |s, demos etc ...|
00003440  2e 2e 2e 20 22 0d 13 1a  25 24 73 65 6e 64 25 3d  |... "...%$send%=|
00003450  41 24 3a 73 65 6e 64 25  3d 73 65 6e 64 25 2b a9  |A$:send%=send%+.|
00003460  28 41 24 29 3a d6 20 76  73 6c 0d 13 24 dc 41 24  |(A$):. vsl..$.A$|
00003470  3d 22 20 20 22 2b bd 28  31 37 30 29 2b 22 49 74  |="  "+.(170)+"It|
00003480  20 69 73 20 63 61 6c 6c  65 64 20 27 53 54 41 54  | is called 'STAT|
00003490  45 20 4f 46 20 54 48 45  20 41 52 43 27 20 61 6e  |E OF THE ARC' an|
000034a0  64 20 77 69 6c 6c 20 63  6f 73 74 20 a3 39 2e 30  |d will cost .9.0|
000034b0  30 20 66 6f 72 20 36 20  6d 6f 6e 74 68 73 20 6f  |0 for 6 months o|
000034c0  72 20 a3 35 2e 30 30 20  66 6f 72 20 33 20 6d 6f  |r .5.00 for 3 mo|
000034d0  6e 74 68 73 2e 20 20 20  20 22 2b bd 28 31 37 31  |nths.    "+.(171|
000034e0  29 2b 22 20 20 20 20 54  68 65 20 66 69 72 73 74  |)+"    The first|
000034f0  20 69 73 73 75 65 20 77  69 6c 6c 20 62 65 20 73  | issue will be s|
00003500  65 6e 74 20 6f 75 74 20  6f 6e 20 74 68 65 20 31  |ent out on the 1|
00003510  53 54 20 53 45 50 54 45  4d 42 45 52 20 31 39 39  |ST SEPTEMBER 199|
00003520  31 2c 20 22 3a 24 73 65  6e 64 25 3d 41 24 3a 73  |1, ":$send%=A$:s|
00003530  65 6e 64 25 3d 73 65 6e  64 25 2b a9 28 41 24 29  |end%=send%+.(A$)|
00003540  3a d6 20 76 73 6c 0d 13  2e 62 41 24 3d 22 20 61  |:. vsl...bA$=" a|
00003550  6e 64 20 73 6f 20 61 6e  79 20 6f 72 64 65 72 73  |nd so any orders|
00003560  20 72 65 63 69 65 76 65  64 20 6d 75 73 74 20 72  | recieved must r|
00003570  65 61 63 68 20 75 73 20  62 65 66 6f 72 65 20 74  |each us before t|
00003580  68 61 74 20 64 61 74 65  20 74 6f 20 65 6e 73 75  |hat date to ensu|
00003590  72 65 20 79 6f 75 20 67  65 74 20 74 68 65 20 53  |re you get the S|
000035a0  45 50 54 45 4d 42 45 22  0d 13 38 25 24 73 65 6e  |EPTEMBE"..8%$sen|
000035b0  64 25 3d 41 24 3a 73 65  6e 64 25 3d 73 65 6e 64  |d%=A$:send%=send|
000035c0  25 2b a9 28 41 24 29 3a  d6 20 76 73 6c 0d 13 42  |%+.(A$):. vsl..B|
000035d0  41 41 24 3d 22 52 20 69  73 73 75 65 20 2e 2e 2e  |AA$="R issue ...|
000035e0  2e 2e 2e 2e 2e 2e 2e 2e  2e 2e 20 22 3a 24 73 65  |.......... ":$se|
000035f0  6e 64 25 3d 41 24 3a 73  65 6e 64 25 3d 73 65 6e  |nd%=A$:send%=sen|
00003600  64 25 2b a9 28 41 24 29  3a d6 20 76 73 6c 0d 13  |d%+.(A$):. vsl..|
00003610  4c ed 41 24 3d 22 20 49  66 20 79 6f 75 20 77 61  |L.A$=" If you wa|
00003620  6e 74 20 74 6f 20 74 61  6b 65 20 6f 75 74 20 61  |nt to take out a|
00003630  20 73 75 62 73 63 72 69  70 74 69 6f 6e 20 77 68  | subscription wh|
00003640  69 63 68 20 73 74 61 72  74 73 20 6f 6e 20 61 20  |ich starts on a |
00003650  6c 61 74 65 72 20 69 73  73 75 65 2c 20 74 68 65  |later issue, the|
00003660  6e 20 79 6f 75 20 63 61  6e 20 64 6f 20 74 68 69  |n you can do thi|
00003670  73 20 61 6c 73 6f 20 62  79 20 73 70 65 63 69 66  |s also by specif|
00003680  79 69 6e 67 20 74 68 65  20 31 73 74 20 69 73 73  |ying the 1st iss|
00003690  75 65 20 77 68 65 6e 20  79 6f 75 20 77 61 6e 74  |ue when you want|
000036a0  20 74 68 65 20 6d 61 67  61 7a 69 6e 65 20 64 65  | the magazine de|
000036b0  6c 69 76 65 72 65 64 20  20 20 28 54 68 65 20 73  |livered   (The s|
000036c0  6f 6f 6e 65 72 20 79 6f  75 20 74 61 6b 65 20 6f  |ooner you take o|
000036d0  75 74 20 61 20 73 75 62  73 63 72 69 70 74 69 6f  |ut a subscriptio|
000036e0  6e 20 74 68 65 20 66 61  73 74 65 72 20 79 6f 75  |n the faster you|
000036f0  20 77 69 6c 6c 20 67 65  74 20 22 0d 13 56 25 24  | will get "..V%$|
00003700  73 65 6e 64 25 3d 41 24  3a 73 65 6e 64 25 3d 73  |send%=A$:send%=s|
00003710  65 6e 64 25 2b a9 28 41  24 29 3a d6 20 76 73 6c  |end%+.(A$):. vsl|
00003720  0d 13 60 d7 41 24 3d 22  79 6f 75 72 20 6d 61 67  |..`.A$="your mag|
00003730  61 7a 69 6e 65 20 61 6e  64 20 64 69 73 63 2c 20  |azine and disc, |
00003740  62 65 63 61 75 73 65 20  74 68 65 79 20 77 69 6c  |because they wil|
00003750  6c 20 62 65 20 73 65 6e  74 20 6f 75 74 20 6f 6e  |l be sent out on|
00003760  20 61 20 66 69 72 73 74  20 63 6f 6d 65 20 66 69  | a first come fi|
00003770  72 73 74 20 73 65 72 76  65 64 20 62 61 73 69 73  |rst served basis|
00003780  2c 20 61 6e 64 20 77 65  20 68 61 76 65 20 61 6c  |, and we have al|
00003790  72 65 61 64 79 20 67 6f  74 20 71 75 69 74 65 20  |ready got quite |
000037a0  61 20 66 65 77 20 6f 72  64 65 72 73 20 66 72 6f  |a few orders fro|
000037b0  6d 20 61 72 6f 75 6e 64  20 6f 75 72 20 61 72 65  |m around our are|
000037c0  61 20 21 20 29 20 2e 2e  2e 2e 2e 2e 2e 2e 2e 2e  |a ! ) ..........|
000037d0  2e 2e 2e 20 22 3a 24 73  65 6e 64 25 3d 41 24 3a  |... ":$send%=A$:|
000037e0  73 65 6e 64 25 3d 73 65  6e 64 25 2b a9 28 41 24  |send%=send%+.(A$|
000037f0  29 3a d6 20 76 73 6c 0d  13 6a e6 41 24 3d bd 28  |):. vsl..j.A$=.(|
00003800  31 37 30 29 2b 22 57 65  20 61 6c 73 6f 20 77 61  |170)+"We also wa|
00003810  6e 74 20 50 44 20 70 72  6f 67 72 61 6d 73 20 66  |nt PD programs f|
00003820  6f 72 20 69 6e 63 6c 75  73 69 6f 6e 20 6f 6e 20  |or inclusion on |
00003830  6f 75 72 20 6d 61 67 61  7a 69 6e 65 20 64 69 73  |our magazine dis|
00003840  63 2e 20 20 49 66 20 79  6f 75 20 68 61 76 65 20  |c.  If you have |
00003850  77 72 69 74 74 65 6e 20  61 6e 79 20 50 44 20 73  |written any PD s|
00003860  6f 66 74 77 61 72 65 20  74 68 61 74 20 79 6f 75  |oftware that you|
00003870  20 77 61 6e 74 20 69 6e  63 6c 75 64 69 6e 67 20  | want including |
00003880  6f 6e 20 74 68 65 20 64  69 73 63 20 28 38 30 30  |on the disc (800|
00003890  6b 20 41 44 46 53 20 66  6f 72 6d 61 74 20 70 6c  |k ADFS format pl|
000038a0  65 61 73 65 20 21 29 2c  73 65 6e 64 20 69 74 20  |ease !),send it |
000038b0  74 6f 20 74 68 65 20 66  6f 6c 6c 6f 77 69 6e 67  |to the following|
000038c0  20 61 64 64 72 65 73 73  20 28 20 41 4c 4c 20 64  | address ( ALL d|
000038d0  69 73 63 73 20 77 69 6c  6c 20 62 65 22 0d 13 74  |iscs will be"..t|
000038e0  4a 24 73 65 6e 64 25 3d  41 24 3a 73 65 6e 64 25  |J$send%=A$:send%|
000038f0  3d 73 65 6e 64 25 2b a9  28 41 24 29 3a d6 20 76  |=send%+.(A$):. v|
00003900  73 6c 3a 41 24 3d 22 20  72 65 74 75 72 6e 65 64  |sl:A$=" returned|
00003910  20 29 20 2e 2e 2e 2e 2e  2e 20 20 20 20 20 20 22  | ) ......      "|
00003920  2b bd 28 31 36 39 29 0d  13 7e 25 24 73 65 6e 64  |+.(169)..~%$send|
00003930  25 3d 41 24 3a 73 65 6e  64 25 3d 73 65 6e 64 25  |%=A$:send%=send%|
00003940  2b a9 28 41 24 29 3a d6  20 76 73 6c 0d 13 88 2b  |+.(A$):. vsl...+|
00003950  41 24 3d 22 53 54 41 54  45 20 4f 46 20 54 48 45  |A$="STATE OF THE|
00003960  20 41 52 43 20 50 44 20  44 49 53 43 2c 20 20 38  | ARC PD DISC,  8|
00003970  20 55 50 50 45 52 22 0d  13 92 25 24 73 65 6e 64  | UPPER"...%$send|
00003980  25 3d 41 24 3a 73 65 6e  64 25 3d 73 65 6e 64 25  |%=A$:send%=send%|
00003990  2b a9 28 41 24 29 3a d6  20 76 73 6c 0d 13 9c ee  |+.(A$):. vsl....|
000039a0  41 24 3d 22 20 47 52 45  45 4e 20 57 41 59 2c 20  |A$=" GREEN WAY, |
000039b0  20 54 49 4e 47 4c 45 59  2c 20 20 57 41 4b 45 46  | TINGLEY,  WAKEF|
000039c0  49 45 4c 44 2c 20 20 57  46 33 20 31 54 41 20 2e  |IELD,  WF3 1TA .|
000039d0  2e 2e 2e 2e 2e 2e 2e 2e  2e 2e 2e 2e 2e 2e 2e 20  |............... |
000039e0  54 6f 20 74 61 6b 65 20  6f 75 74 20 61 20 73 75  |To take out a su|
000039f0  62 73 63 72 69 70 74 69  6f 6e 2c 20 73 65 6e 64  |bscription, send|
00003a00  20 61 20 63 68 65 71 75  65 20 6d 61 64 65 20 70  | a cheque made p|
00003a10  61 79 61 62 6c 65 20 74  6f 20 27 4d 61 72 6b 20  |ayable to 'Mark |
00003a20  4a 6f 68 6e 73 6f 6e 27  20 74 6f 20 3a 20 53 54  |Johnson' to : ST|
00003a30  41 54 45 20 4f 46 20 54  48 45 20 41 52 43 20 53  |ATE OF THE ARC S|
00003a40  55 42 53 43 52 49 50 54  49 4f 4e 53 2c 20 20 22  |UBSCRIPTIONS,  "|
00003a50  22 54 48 45 20 48 4f 4c  54 22 22 2c 20 20 32 39  |"THE HOLT"",  29|
00003a60  20 57 45 53 54 20 4c 45  41 20 44 52 49 56 45 2c  | WEST LEA DRIVE,|
00003a70  20 20 54 49 4e 47 4c 45  59 2c 20 20 57 41 4b 45  |  TINGLEY,  WAKE|
00003a80  46 49 45 4c 44 2c 20 20  57 22 0d 13 a6 25 24 73  |FIELD,  W"...%$s|
00003a90  65 6e 64 25 3d 41 24 3a  73 65 6e 64 25 3d 73 65  |end%=A$:send%=se|
00003aa0  6e 64 25 2b a9 28 41 24  29 3a d6 20 76 73 6c 0d  |nd%+.(A$):. vsl.|
00003ab0  13 b0 7a 41 24 3d 22 46  33 20 31 44 48 20 2e 2e  |..zA$="F3 1DH ..|
00003ac0  2e 2e 2e 2e 2e 2e 2e 2e  2e 2e 2e 20 22 2b bd 28  |........... "+.(|
00003ad0  31 37 31 29 2b 22 20 20  20 20 20 20 20 20 20 20  |171)+"          |
00003ae0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
*
00003b00  20 20 20 20 20 20 22 3a  24 73 65 6e 64 25 3d 41  |      ":$send%=A|
00003b10  24 3a 73 65 6e 64 25 3d  73 65 6e 64 25 2b a9 28  |$:send%=send%+.(|
00003b20  41 24 29 3a d6 20 76 73  6c 0d 13 ba 11 74 65 78  |A$):. vsl....tex|
00003b30  74 25 3d 73 63 72 6f 6c  6c 25 0d 13 c4 05 e1 0d  |t%=scroll%......|
00003b40  ff                                                |.|
00003b41