00000000  44 10 9f e5 3c 20 9f e5  34 30 9f e5 04 00 12 e4  |D...< ..40......|
00000010  04 00 03 e4 04 10 51 e2  fb ff ff 5a 00 00 8f e2  |......Q....Z....|
00000020  05 00 00 ef 42 41 53 49  43 20 2d 51 75 69 74 20  |....BASIC -Quit |
00000030  40 30 30 30 30 39 30 30  30 2c 30 30 30 30 42 34  |@00009000,0000B4|
00000040  34 34 00 00 44 b4 00 00  94 a4 00 00 44 24 00 00  |44..D.......D$..|
00000050  0d 00 0a 0c f4 20 3e 4b  72 65 65 70 0d 00 14 42  |..... >Kreep...B|
00000060  ee 20 85 20 eb 31 32 3a  f1 22 46 61 74 61 6c 20  |. . .12:."Fatal |
00000070  69 6e 74 65 72 6e 61 6c  20 65 72 72 6f 72 20 3a  |internal error :|
00000080  20 50 6c 65 61 73 65 20  72 65 73 65 74 20 63 6f  | Please reset co|
00000090  6d 70 75 74 65 72 2e 22  3a f5 3a fd 20 a3 0d 00  |mputer.":.:. ...|
000000a0  1e 0c f4 20 2a 46 58 32  30 30 0d 00 28 0e f4 20  |... *FX200..(.. |
000000b0  2a 46 58 32 32 39 2c 30  0d 00 32 13 f2 74 65 78  |*FX229,0..2..tex|
000000c0  74 69 6e 69 74 69 61 6c  69 73 65 0d 00 3c 0f 70  |tinitialise..<.p|
000000d0  72 69 6e 74 74 65 78 74  3d 30 0d 00 46 5d de 20  |rinttext=0..F]. |
000000e0  6e 61 6d 65 24 28 31 30  31 29 2c 6e 61 6d 65 25  |name$(101),name%|
000000f0  28 31 30 31 29 3a 41 3d  8e 22 3c 4f 62 65 79 24  |(101):A=."<Obey$|
00000100  44 69 72 3e 2e 53 43 4f  52 45 53 22 3a e3 20 4b  |Dir>.SCORES":. K|
00000110  3d 31 20 b8 20 31 30 30  3a e8 23 41 2c 6e 61 6d  |=1 . 100:.#A,nam|
00000120  65 24 28 4b 29 2c 6e 61  6d 65 25 28 4b 29 3a ed  |e$(K),name%(K):.|
00000130  20 4b 3a d9 20 23 30 0d  00 50 18 eb 31 33 3a ef  | K:. #0..P..13:.|
00000140  20 32 33 3b 38 32 30 32  3b 30 3b 30 3b 30 3b 0d  | 23;8202;0;0;0;.|
00000150  00 5a 08 c8 a0 20 38 0d  00 64 1b de 20 70 6f 73  |.Z... 8..d.. pos|
00000160  78 25 28 32 30 30 29 2c  70 6f 73 79 25 28 32 30  |x%(200),posy%(20|
00000170  30 29 0d 00 6e 1e f2 69  6e 73 74 72 75 63 74 3a  |0)..n..instruct:|
00000180  2a 53 43 48 4f 4f 53 45  20 43 52 43 52 41 57 4c  |*SCHOOSE CRCRAWL|
00000190  0d 00 78 05 db 0d 00 82  0f f0 20 26 45 44 2c 30  |..x....... &ED,0|
000001a0  2c 36 35 30 0d 00 8c 0d  2a 41 55 44 49 4f 20 4f  |,650....*AUDIO O|
000001b0  4e 0d 00 96 17 fb 34 33  3a f2 63 65 6e 28 22 4b  |N.....43:.cen("K|
000001c0  45 59 53 22 2c 31 33 29  0d 00 a0 29 fb 35 39 20  |EYS",13)...).59 |
000001d0  c8 9c 20 32 35 35 3a f2  63 65 6e 28 22 55 50 20  |.. 255:.cen("UP |
000001e0  2e 2e 2e 2e 2e 2e 2e 2e  2e 2e 20 27 22 2c 31 35  |.......... '",15|
000001f0  29 0d 00 aa 29 fb 35 39  20 c8 9c 20 32 35 35 3a  |)...).59 .. 255:|
00000200  f2 63 65 6e 28 22 44 4f  57 4e 2e 2e 2e 2e 2e 2e  |.cen("DOWN......|
00000210  2e 2e 2e 20 2f 22 2c 31  36 29 0d 00 b4 29 fb 35  |... /",16)...).5|
00000220  39 20 c8 9c 20 32 35 35  3a f2 63 65 6e 28 22 4c  |9 .. 255:.cen("L|
00000230  45 46 54 2e 2e 2e 2e 2e  2e 2e 2e 2e 20 5a 22 2c  |EFT......... Z",|
00000240  31 37 29 0d 00 be 29 fb  35 39 20 c8 9c 20 32 35  |17)...).59 .. 25|
00000250  35 3a f2 63 65 6e 28 22  52 49 47 48 54 2e 2e 2e  |5:.cen("RIGHT...|
00000260  2e 2e 2e 2e 2e 20 58 22  2c 31 38 29 0d 00 c8 29  |..... X",18)...)|
00000270  fb 33 39 20 c8 9c 20 32  35 35 3a f2 63 65 6e 28  |.39 .. 255:.cen(|
00000280  22 50 41 55 53 45 2e 2e  2e 2e 2e 2e 2e 2e 20 50  |"PAUSE........ P|
00000290  22 2c 32 30 29 0d 00 d2  29 fb 33 39 20 c8 9c 20  |",20)...).39 .. |
000002a0  32 35 35 3a f2 63 65 6e  28 22 55 4e 50 41 55 53  |255:.cen("UNPAUS|
000002b0  45 2e 2e 2e 2e 2e 2e 20  4f 22 2c 32 31 29 0d 00  |E...... O",21)..|
000002c0  dc 29 fb 32 33 20 c8 9c  20 32 35 35 3a f2 63 65  |.).23 .. 255:.ce|
000002d0  6e 28 22 53 4f 55 4e 44  20 4f 4e 2e 2e 2e 2e 2e  |n("SOUND ON.....|
000002e0  20 53 22 2c 32 33 29 0d  00 e6 29 fb 32 33 20 c8  | S",23)...).23 .|
000002f0  9c 20 32 35 35 3a f2 63  65 6e 28 22 53 4f 55 4e  |. 255:.cen("SOUN|
00000300  44 20 4f 46 46 2e 2e 2e  2e 20 51 22 2c 32 34 29  |D OFF.... Q",24)|
00000310  0d 00 f0 06 fb 33 0d 00  fa 19 e3 20 4b 3d 31 20  |.....3..... K=1 |
00000320  b8 20 31 30 30 3a ff 22  46 58 31 35 22 3a ed 0d  |. 100:."FX15":..|
00000330  01 04 23 f2 63 65 6e 28  22 50 72 65 73 73 20 53  |..#.cen("Press S|
00000340  50 41 43 45 20 74 6f 20  73 74 61 72 74 22 2c 33  |PACE to start",3|
00000350  30 29 0d 01 0e 1b fb 37  3a f2 74 65 78 74 28 22  |0).....7:.text("|
00000360  53 50 41 43 45 22 2c 31  35 2c 33 30 29 0d 01 18  |SPACE",15,30)...|
00000370  0e f5 3a fd 20 a6 28 2d  39 39 29 0d 01 22 08 c8  |..:. .(-99).."..|
00000380  a0 20 38 0d 01 2c 0d 2a  41 55 44 49 4f 20 4f 4e  |. 8..,.*AUDIO ON|
00000390  0d 01 36 0b f2 73 71 75  61 72 65 0d 01 40 18 2a  |..6..square..@.*|
000003a0  43 48 41 4e 4e 45 4c 56  4f 49 43 45 20 36 20 72  |CHANNELVOICE 6 r|
000003b0  6f 63 6b 0d 01 4a 1a 2a  43 48 41 4e 4e 45 4c 56  |ock..J.*CHANNELV|
000003c0  4f 49 43 45 20 37 20 65  78 70 6c 6f 33 0d 01 54  |OICE 7 explo3..T|
000003d0  24 2a 43 48 41 4e 4e 45  4c 56 4f 49 43 45 20 38  |$*CHANNELVOICE 8|
000003e0  20 50 65 72 63 75 73 73  69 6f 6e 2d 4e 6f 69 73  | Percussion-Nois|
000003f0  65 0d 01 5e 09 53 43 25  3d 30 0d 01 68 0c 4c 49  |e..^.SC%=0..h.LI|
00000400  56 45 53 25 3d 35 0d 01  72 0c 4c 45 56 45 4c 25  |VES%=5..r.LEVEL%|
00000410  3d 31 0d 01 7c 09 58 4c  25 3d 30 0d 01 86 05 f5  |=1..|.XL%=0.....|
00000420  0d 01 90 05 f5 0d 01 9a  25 78 25 3d b3 28 2d 28  |........%x%=.(-(|
00000430  4c 45 56 45 4c 25 29 29  3a 79 25 3d b3 28 2d 28  |LEVEL%)):y%=.(-(|
00000440  4c 45 56 45 4c 25 2b 35  29 29 0d 01 a4 08 73 25  |LEVEL%+5))....s%|
00000450  3d 30 0d 01 ae 1b 42 4f  4e 55 53 25 3d 32 35 30  |=0....BONUS%=250|
00000460  2b 28 4c 45 56 45 4c 25  2a 32 35 30 29 0d 01 b8  |+(LEVEL%*250)...|
00000470  1a 78 7a 25 3d 31 30 2b  28 a8 28 4c 45 56 45 4c  |.xz%=10+(.(LEVEL|
00000480  25 2f 32 29 2a 32 29 0d  01 c2 0b 6c 65 6e 25 3d  |%/2)*2)....len%=|
00000490  31 30 0d 01 cc 15 e3 20  69 25 3d 30 20 b8 20 28  |10..... i%=0 . (|
000004a0  6c 65 6e 25 2d 31 29 0d  01 d6 12 70 6f 73 78 25  |len%-1)....posx%|
000004b0  28 69 25 29 3d 69 25 2b  31 0d 01 e0 0f 70 6f 73  |(i%)=i%+1....pos|
000004c0  79 25 28 69 25 29 3d 31  0d 01 ea 05 ed 0d 01 f4  |y%(i%)=1........|
000004d0  0b 64 65 61 64 25 3d a3  0d 01 fe 13 54 25 3d 91  |.dead%=.....T%=.|
000004e0  3a f5 fd 20 91 3e 54 25  2b 35 30 0d 02 08 13 2a  |:.. .>T%+50....*|
000004f0  53 43 48 4f 4f 53 45 20  53 43 52 45 45 4e 0d 02  |SCHOOSE SCREEN..|
00000500  12 0f f0 20 26 45 44 2c  30 2c 31 32 30 0d 02 1c  |... &ED,0,120...|
00000510  36 f4 20 46 4f 52 20 4b  3d 31 20 54 4f 20 4c 49  |6. FOR K=1 TO LI|
00000520  56 45 53 25 3a 50 52 4f  43 70 72 69 6e 74 63 68  |VES%:PROCprintch|
00000530  72 28 32 32 34 2c 4b 2b  31 34 2c 33 31 29 3a 4e  |r(224,K+14,31):N|
00000540  45 58 54 0d 02 26 1e e3  20 69 25 3d 31 20 b8 20  |EXT..&.. i%=1 . |
00000550  a8 28 28 4c 45 56 45 4c  25 2d 31 29 2a 31 2e 35  |.((LEVEL%-1)*1.5|
00000560  29 0d 02 30 0e f2 72 70  72 74 28 32 32 36 29 0d  |)..0..rprt(226).|
00000570  02 3a 05 ed 0d 02 44 10  e3 20 69 25 3d 31 20 b8  |.:....D.. i%=1 .|
00000580  20 78 7a 25 0d 02 4e 0e  f2 72 70 72 74 28 32 32  | xz%..N..rprt(22|
00000590  37 29 0d 02 58 05 ed 0d  02 62 08 70 25 3d 39 0d  |7)..X....b.p%=9.|
000005a0  02 6c 08 64 25 3d 32 0d  02 76 0f e3 20 69 25 3d  |.l.d%=2..v.. i%=|
000005b0  30 20 b8 20 70 25 0d 02  80 0f f2 70 73 65 67 28  |0 . p%.....pseg(|
000005c0  69 25 2c 31 29 0d 02 8a  05 ed 0d 02 94 1e e7 20  |i%,1).......... |
000005d0  58 4c 25 3d 31 20 8c 20  58 4c 25 3d 30 3a f2 72  |XL%=1 . XL%=0:.r|
000005e0  70 72 74 28 32 32 39 29  0d 02 9e 2b 42 4e 25 3d  |prt(229)...+BN%=|
000005f0  b3 28 2d 91 29 3a 42 4e  25 3d b3 28 38 29 3a e7  |.(-.):BN%=.(8):.|
00000600  20 42 4e 25 3d 34 20 8c  20 f2 72 70 72 74 28 32  | BN%=4 . .rprt(2|
00000610  33 30 29 0d 02 a8 0b 74  69 6d 65 25 3d 91 0d 02  |30)....time%=...|
00000620  b2 bb 53 31 24 3d c3 28  42 4f 4e 55 53 25 29 3a  |..S1$=.(BONUS%):|
00000630  53 24 3d c4 37 2d a9 28  53 31 24 29 2c 22 30 22  |S$=.7-.(S1$),"0"|
00000640  29 2b 53 31 24 3a f2 74  65 78 74 28 22 42 4f 4e  |)+S1$:.text("BON|
00000650  55 53 20 3a 20 22 2b 53  24 2c 31 38 2c 32 39 29  |US : "+S$,18,29)|
00000660  3a 53 31 24 3d c3 28 53  43 25 29 3a 53 24 3d c4  |:S1$=.(SC%):S$=.|
00000670  37 2d a9 28 53 31 24 29  2c 22 30 22 29 2b 53 31  |7-.(S1$),"0")+S1|
00000680  24 3a f2 74 65 78 74 28  22 53 43 4f 52 45 20 3a  |$:.text("SCORE :|
00000690  20 22 2b 53 24 2c 30 2c  32 39 29 3a 53 31 24 3d  | "+S$,0,29):S1$=|
000006a0  c3 28 4c 45 56 45 4c 25  29 3a 53 24 3d c4 32 2d  |.(LEVEL%):S$=.2-|
000006b0  a9 28 53 31 24 29 2c 22  30 22 29 2b 53 31 24 3a  |.(S1$),"0")+S1$:|
000006c0  f2 74 65 78 74 28 22 4c  45 56 45 4c 20 3a 20 22  |.text("LEVEL : "|
000006d0  2b 53 24 2c 30 2c 33 30  29 0d 02 bc 40 53 24 3d  |+S$,0,30)...@S$=|
000006e0  c4 32 2d a9 28 c3 28 4c  49 56 45 53 25 29 29 2c  |.2-.(.(LIVES%)),|
000006f0  22 30 22 29 2b c3 28 4c  49 56 45 53 25 29 3a f2  |"0")+.(LIVES%):.|
00000700  74 65 78 74 28 22 4c 49  56 45 53 20 3a 20 22 2b  |text("LIVES : "+|
00000710  53 24 2c 31 38 2c 33 30  29 0d 02 c6 0e 53 50 44  |S$,18,30)....SPD|
00000720  25 3d 34 3a 51 3d 30 0d  02 d0 0d 54 58 25 3d 91  |%=4:Q=0....TX%=.|
00000730  2d 33 30 30 0d 02 da 05  f5 0d 02 e4 29 e7 20 91  |-300........). .|
00000740  3e 54 58 25 2b 33 30 30  20 8c 20 54 58 25 3d 91  |>TX%+300 . TX%=.|
00000750  3a f2 70 72 69 6e 74 74  65 78 74 3a e5 20 8d 64  |:.printtext:. .d|
00000760  78 42 0d 02 ee 17 20 54  25 3d 91 3a f5 20 fd 20  |xB.... T%=.:. . |
00000770  91 3e 54 25 2b 53 50 44  25 0d 02 f8 2a 20 51 3d  |.>T%+SPD%...* Q=|
00000780  51 2b 31 3a e7 20 51 3e  31 34 20 80 20 53 50 44  |Q+1:. Q>14 . SPD|
00000790  25 3e 34 20 53 50 44 25  3d 53 50 44 25 2d 31 3a  |%>4 SPD%=SPD%-1:|
000007a0  51 3d 30 0d 03 02 33 20  e7 20 4c 45 56 45 4c 25  |Q=0...3 . LEVEL%|
000007b0  3e 31 34 20 80 20 53 50  44 25 3e 33 20 80 20 53  |>14 . SPD%>3 . S|
000007c0  50 44 25 3c 35 20 20 53  50 44 25 3d 53 50 44 25  |PD%<5  SPD%=SPD%|
000007d0  2d 31 3a 51 3d 30 0d 03  0c 32 20 e7 20 4c 45 56  |-1:Q=0...2 . LEV|
000007e0  45 4c 25 3e 32 34 20 80  20 53 50 44 25 3e 32 20  |EL%>24 . SPD%>2 |
000007f0  80 20 53 50 44 25 3c 34  20 53 50 44 25 3d 53 50  |. SPD%<4 SPD%=SP|
00000800  44 25 2d 31 3a 51 3d 30  0d 03 16 32 20 e7 20 4c  |D%-1:Q=0...2 . L|
00000810  45 56 45 4c 25 3e 33 39  20 80 20 53 50 44 25 3e  |EVEL%>39 . SPD%>|
00000820  31 20 80 20 53 50 44 25  3c 33 20 53 50 44 25 3d  |1 . SPD%<3 SPD%=|
00000830  53 50 44 25 2d 31 3a 51  3d 30 0d 03 20 76 e7 20  |SPD%-1:Q=0.. v. |
00000840  28 a6 28 2d 39 38 29 20  80 20 ac 20 28 64 25 3d  |(.(-98) . . (d%=|
00000850  32 29 29 20 64 25 3d 34  20 8b 20 e7 20 28 a6 28  |2)) d%=4 . . (.(|
00000860  2d 36 37 29 20 80 20 ac  20 28 64 25 3d 34 29 29  |-67) . . (d%=4))|
00000870  20 64 25 3d 32 20 8b 20  e7 20 28 a6 28 2d 31 30  | d%=2 . . (.(-10|
00000880  35 29 20 80 20 ac 20 28  64 25 3d 31 29 29 20 64  |5) . . (d%=1)) d|
00000890  25 3d 33 20 8b 20 e7 20  28 a6 28 2d 38 30 29 20  |%=3 . . (.(-80) |
000008a0  80 20 ac 20 28 64 25 3d  33 29 29 20 64 25 3d 31  |. . (d%=3)) d%=1|
000008b0  0d 03 2a 68 e7 20 a6 28  2d 35 36 29 20 8c 20 ff  |..*h. .(-56) . .|
000008c0  22 41 55 44 49 4f 20 4f  46 46 22 3a fb 36 33 20  |"AUDIO OFF":.63 |
000008d0  c8 9c 20 31 37 30 3a f2  63 65 6e 28 22 50 61 75  |.. 170:.cen("Pau|
000008e0  73 65 64 21 21 21 21 22  2c 32 38 29 3a f5 3a fd  |sed!!!!",28):.:.|
000008f0  20 a6 28 2d 35 35 29 3a  f2 63 65 6e 28 22 20 20  | .(-55):.cen("  |
00000900  20 20 20 20 20 20 20 20  20 22 2c 32 38 29 3a 2a  |         ",28):*|
00000910  41 55 44 49 4f 20 4f 4e  0d 03 34 19 e7 20 a6 28  |AUDIO ON..4.. .(|
00000920  2d 31 37 29 20 8c 20 2a  41 55 44 49 4f 20 4f 46  |-17) . *AUDIO OF|
00000930  46 0d 03 3e 18 e7 20 a6  28 2d 38 32 29 20 8c 20  |F..>.. .(-82) . |
00000940  2a 41 55 44 49 4f 20 4f  4e 0d 03 48 1f 6e 78 25  |*AUDIO ON..H.nx%|
00000950  3d 70 6f 73 78 25 28 70  25 29 2d 28 64 25 3d 32  |=posx%(p%)-(d%=2|
00000960  29 2b 28 64 25 3d 34 29  0d 03 52 1f 6e 79 25 3d  |)+(d%=4)..R.ny%=|
00000970  70 6f 73 79 25 28 70 25  29 2d 28 64 25 3d 33 29  |posy%(p%)-(d%=3)|
00000980  2b 28 64 25 3d 31 29 0d  03 5c 14 63 25 3d a4 63  |+(d%=1)..\.c%=.c|
00000990  68 72 28 6e 78 25 2c 6e  79 25 29 0d 03 66 14 70  |hr(nx%,ny%)..f.p|
000009a0  25 3d 28 70 25 2b 31 29  20 83 20 6c 65 6e 25 0d  |%=(p%+1) . len%.|
000009b0  03 70 0f f2 70 73 65 67  28 70 25 2c 30 29 0d 03  |.p..pseg(p%,0)..|
000009c0  7a 11 70 6f 73 78 25 28  70 25 29 3d 6e 78 25 0d  |z.posx%(p%)=nx%.|
000009d0  03 84 11 70 6f 73 79 25  28 70 25 29 3d 6e 79 25  |...posy%(p%)=ny%|
000009e0  0d 03 8e 0f f2 70 73 65  67 28 70 25 2c 31 29 0d  |.....pseg(p%,1).|
000009f0  03 98 6a e7 20 63 25 3d  32 32 39 20 8c 20 4c 49  |..j. c%=229 . LI|
00000a00  56 45 53 25 3d 4c 49 56  45 53 25 2b 31 3a 53 24  |VES%=LIVES%+1:S$|
00000a10  3d c4 32 2d a9 28 c3 28  4c 49 56 45 53 25 29 29  |=.2-.(.(LIVES%))|
00000a20  2c 22 30 22 29 2b c3 28  4c 49 56 45 53 25 29 3a  |,"0")+.(LIVES%):|
00000a30  f2 74 65 78 74 28 22 4c  49 56 45 53 20 3a 20 22  |.text("LIVES : "|
00000a40  2b 53 24 2c 31 38 2c 33  30 29 3a d4 20 38 2c 2d  |+S$,18,30):. 8,-|
00000a50  31 32 2c 32 35 35 2c 35  30 0d 03 a2 70 e7 20 63  |12,255,50...p. c|
00000a60  25 3d 32 33 30 20 8c 20  53 43 25 3d 53 43 25 2b  |%=230 . SC%=SC%+|
00000a70  28 31 30 30 30 2b 28 b3  28 33 29 2a 35 30 29 29  |(1000+(.(3)*50))|
00000a80  3a 53 31 24 3d c3 28 53  43 25 29 3a 53 24 3d c4  |:S1$=.(SC%):S$=.|
00000a90  37 2d a9 28 53 31 24 29  2c 22 30 22 29 2b 53 31  |7-.(S1$),"0")+S1|
00000aa0  24 3a f2 74 65 78 74 28  22 53 43 4f 52 45 20 3a  |$:.text("SCORE :|
00000ab0  20 22 2b 53 24 2c 30 2c  32 39 29 3a d4 20 36 2c  | "+S$,0,29):. 6,|
00000ac0  2d 31 33 2c 32 35 36 2c  31 0d 03 ac 5c e7 20 63  |-13,256,1...\. c|
00000ad0  25 3d 32 32 36 20 64 65  61 64 25 3d b9 20 8b 20  |%=226 dead%=. . |
00000ae0  e7 20 63 25 3d 32 32 37  20 f2 73 63 6f 72 65 3a  |. c%=227 .score:|
00000af0  e7 20 28 73 25 2f 78 7a  25 29 3d a8 28 73 25 2f  |. (s%/xz%)=.(s%/|
00000b00  78 7a 25 29 20 8c 20 4c  45 56 45 4c 25 3d 4c 45  |xz%) . LEVEL%=LE|
00000b10  56 45 4c 25 2b 31 3a f2  42 4f 4e 55 53 3a fd 20  |VEL%+1:.BONUS:. |
00000b20  b9 3a fd 20 30 0d 03 b6  31 e7 20 91 3e 74 69 6d  |.:. 0...1. .>tim|
00000b30  65 25 2b 33 30 20 8c 20  74 69 6d 65 25 3d 91 3a  |e%+30 . time%=.:|
00000b40  42 4f 4e 55 53 25 3d 42  4f 4e 55 53 25 2d 31 30  |BONUS%=BONUS%-10|
00000b50  3a f2 42 4f 4e 50 0d 03  c0 0b fd 20 64 65 61 64  |:.BONP..... dead|
00000b60  25 0d 03 ca 13 4c 49 56  45 53 25 3d 4c 49 56 45  |%....LIVES%=LIVE|
00000b70  53 25 2d 31 0d 03 d4 13  20 d4 20 37 2c 2d 31 35  |S%-1.... . 7,-15|
00000b80  2c 32 35 36 2c 33 30 0d  03 de 0b f2 73 71 75 61  |,256,30.....squa|
00000b90  72 65 0d 03 e8 05 db 0d  03 f2 0e fd 20 4c 49 56  |re.......... LIV|
00000ba0  45 53 25 3d 30 0d 03 fc  0d 2a 41 55 44 49 4f 20  |ES%=0....*AUDIO |
00000bb0  4f 4e 0d 04 06 19 e3 20  4b 3d 31 20 b8 20 32 30  |ON..... K=1 . 20|
00000bc0  30 3a ff 22 46 58 31 35  22 3a ed 0d 04 10 11 d4  |0:."FX15":......|
00000bd0  20 37 2c 2d 31 35 2c 32  35 36 2c 31 0d 04 1a 15  | 7,-15,256,1....|
00000be0  2a 53 43 48 4f 4f 53 45  20 47 41 4d 45 4f 56 45  |*SCHOOSE GAMEOVE|
00000bf0  52 0d 04 24 0f f0 20 26  45 44 2c 30 2c 35 30 30  |R..$.. &ED,0,500|
00000c00  0d 04 2e 19 e3 20 4b 3d  31 20 b8 20 37 30 30 3a  |..... K=1 . 700:|
00000c10  ff 22 46 58 31 35 22 3a  ed 0d 04 38 08 c8 a0 20  |."FX15":...8... |
00000c20  38 0d 04 42 16 db 3a 2a  53 43 48 4f 4f 53 45 20  |8..B..:*SCHOOSE |
00000c30  43 52 43 52 41 57 4c 0d  04 4c 0f f0 20 26 45 44  |CRCRAWL..L.. &ED|
00000c40  2c 30 2c 36 35 30 0d 04  56 2b fb 36 31 3a f2 63  |,0,650..V+.61:.c|
00000c50  65 6e 28 22 59 6f 75 72  20 53 63 6f 72 65 20 77  |en("Your Score w|
00000c60  61 73 20 3a 20 22 2b c3  28 53 43 25 29 2c 31 36  |as : "+.(SC%),16|
00000c70  29 0d 04 60 0b f2 72 61  74 69 6e 67 0d 04 6a 18  |)..`..rating..j.|
00000c80  e3 20 4b 3d 31 20 b8 20  38 30 3a ff 22 46 58 31  |. K=1 . 80:."FX1|
00000c90  35 22 3a ed 0d 04 74 41  fb 33 3a f2 63 65 6e 28  |5":...tA.3:.cen(|
00000ca0  22 50 72 65 73 73 20 53  50 41 43 45 20 74 6f 20  |"Press SPACE to |
00000cb0  63 6f 6e 74 69 6e 75 65  22 2c 33 30 29 3a fb 37  |continue",30):.7|
00000cc0  3a f2 74 65 78 74 28 22  53 50 41 43 45 22 2c 31  |:.text("SPACE",1|
00000cd0  33 2c 33 30 29 0d 04 7e  0e f5 3a fd 20 a6 28 2d  |3,30)..~..:. .(-|
00000ce0  39 39 29 0d 04 88 24 e7  20 53 43 25 3e 6e 61 6d  |99)...$. SC%>nam|
00000cf0  65 25 28 31 30 30 29 20  8c 20 f2 6f 6e 73 63 6f  |e%(100) . .onsco|
00000d00  72 65 74 61 62 6c 65 0d  04 92 05 db 0d 04 9c 55  |retable........U|
00000d10  e3 20 4b 3d 31 20 b8 20  38 30 3a ff 22 46 58 31  |. K=1 . 80:."FX1|
00000d20  35 22 3a ed 3a fb 33 3a  f2 63 65 6e 28 22 50 72  |5":.:.3:.cen("Pr|
00000d30  65 73 73 20 53 50 41 43  45 20 74 6f 20 72 65 73  |ess SPACE to res|
00000d40  74 61 72 74 22 2c 33 30  29 3a fb 37 3a f2 74 65  |tart",30):.7:.te|
00000d50  78 74 28 22 53 50 41 43  45 22 2c 31 34 2c 33 30  |xt("SPACE",14,30|
00000d60  29 0d 04 a6 16 2a 53 43  48 4f 4f 53 45 20 48 49  |)....*SCHOOSE HI|
00000d70  47 48 53 43 4f 52 45 0d  04 b0 0f f0 20 26 45 44  |GHSCORE..... &ED|
00000d80  2c 30 2c 38 35 30 0d 04  ba 1a 74 61 62 6c 65 3d  |,0,850....table=|
00000d90  31 3a d1 3d 34 30 30 3a  6b 65 79 25 3d a3 3a f5  |1:.=400:key%=.:.|
00000da0  0d 04 c4 3b e7 20 91 3e  33 39 39 20 8c 20 f2 74  |...;. .>399 . .t|
00000db0  61 62 6c 65 3a d1 3d 30  3a 74 61 62 6c 65 3d 74  |able:.=0:table=t|
00000dc0  61 62 6c 65 2b 32 30 3a  e7 20 74 61 62 6c 65 3e  |able+20:. table>|
00000dd0  31 30 30 20 74 61 62 6c  65 3d 31 0d 04 ce 13 e7  |100 table=1.....|
00000de0  20 a6 28 2d 39 39 29 20  6b 65 79 25 3d b9 0d 04  | .(-99) key%=...|
00000df0  d8 0c fd 20 6b 65 79 25  3d b9 0d 04 e2 0a e5 20  |... key%=...... |
00000e00  8d 44 6e 40 0d 04 ec 0c  dd 20 f2 73 63 6f 72 65  |.Dn@..... .score|
00000e10  0d 04 f6 0b 73 25 3d 73  25 2b 31 0d 05 00 11 70  |....s%=s%+1....p|
00000e20  6f 73 78 25 28 6c 65 6e  25 29 3d 31 0d 05 0a 11  |osx%(len%)=1....|
00000e30  70 6f 73 79 25 28 6c 65  6e 25 29 3d 31 0d 05 14  |posy%(len%)=1...|
00000e40  0f 6c 65 6e 25 3d 6c 65  6e 25 2b 31 0d 05 1e 17  |.len%=len%+1....|
00000e50  53 43 25 3d 53 43 25 2b  28 31 30 2a 4c 45 56 45  |SC%=SC%+(10*LEVE|
00000e60  4c 25 29 0d 05 28 24 53  31 24 3d c3 28 53 43 25  |L%)..($S1$=.(SC%|
00000e70  29 3a 53 24 3d c4 37 2d  a9 28 53 31 24 29 2c 22  |):S$=.7-.(S1$),"|
00000e80  30 22 29 2b 53 31 24 0d  05 32 1d f2 74 65 78 74  |0")+S1$..2..text|
00000e90  28 22 53 43 4f 52 45 20  3a 20 22 2b 53 24 2c 30  |("SCORE : "+S$,0|
00000ea0  2c 32 39 29 0d 05 3c 13  d4 20 36 2c 2d 31 35 2c  |,29)..<.. 6,-15,|
00000eb0  38 30 30 30 2c 31 30 0d  05 46 05 e1 0d 05 50 0e  |8000,10..F....P.|
00000ec0  dd 20 f2 72 70 72 74 28  41 29 0d 05 5a 0b ea 20  |. .rprt(A)..Z.. |
00000ed0  78 25 2c 79 25 0d 05 64  05 f5 0d 05 6e 0c 78 25  |x%,y%..d....n.x%|
00000ee0  3d b3 28 31 38 29 0d 05  78 0e 79 25 3d b3 28 32  |=.(18)..x.y%=.(2|
00000ef0  36 29 2b 31 0d 05 82 16  fd 20 a4 63 68 72 28 78  |6)+1..... .chr(x|
00000f00  25 2c 79 25 29 3d 97 22  2e 22 0d 05 8c 16 f2 70  |%,y%)=.".".....p|
00000f10  72 69 6e 74 63 68 72 28  41 2c 78 25 2c 79 25 29  |rintchr(A,x%,y%)|
00000f20  0d 05 96 05 e1 0d 05 a0  12 dd 20 f2 70 73 65 67  |.......... .pseg|
00000f30  28 6a 25 2c 6b 25 29 0d  05 aa ca e7 20 6a 25 3d  |(j%,k%)..... j%=|
00000f40  70 25 20 80 20 6b 25 3d  31 20 f2 70 72 69 6e 74  |p% . k%=1 .print|
00000f50  63 68 72 28 32 32 34 2c  70 6f 73 78 25 28 6a 25  |chr(224,posx%(j%|
00000f60  29 2c 70 6f 73 79 25 28  6a 25 29 29 3a f2 70 72  |),posy%(j%)):.pr|
00000f70  69 6e 74 63 68 72 28 32  32 35 2c 70 6f 73 78 25  |intchr(225,posx%|
00000f80  28 6a 25 29 2d 28 64 25  3d 34 29 2b 28 64 25 3d  |(j%)-(d%=4)+(d%=|
00000f90  32 29 2c 70 6f 73 79 25  28 6a 25 29 2d 28 64 25  |2),posy%(j%)-(d%|
00000fa0  3d 31 29 2b 28 64 25 3d  33 29 29 3a e1 20 8b 20  |=1)+(d%=3)):. . |
00000fb0  e7 20 6b 25 3d 31 20 f2  70 72 69 6e 74 63 68 72  |. k%=1 .printchr|
00000fc0  28 32 32 35 2c 70 6f 73  78 25 28 6a 25 29 2c 70  |(225,posx%(j%),p|
00000fd0  6f 73 79 25 28 6a 25 29  29 3a e1 20 8b 20 f2 70  |osy%(j%)):. . .p|
00000fe0  72 69 6e 74 63 68 72 28  97 22 2e 22 2c 70 6f 73  |rintchr(.".",pos|
00000ff0  78 25 28 6a 25 29 2c 70  6f 73 79 25 28 6a 25 29  |x%(j%),posy%(j%)|
00001000  29 0d 05 b4 05 e1 0d 05  be 10 dd a4 63 68 72 28  |)...........chr(|
00001010  70 25 2c 71 25 29 0d 05  c8 23 5a 25 3d b0 28 70  |p%,q%)...#Z%=.(p|
00001020  25 2a 36 34 29 2b 33 32  2c 31 30 32 34 2d 28 71  |%*64)+32,1024-(q|
00001030  25 2a 33 32 29 2d 31 36  29 0d 05 d2 25 51 25 3d  |%*32)-16)...%Q%=|
00001040  c8 9c 28 28 70 25 2a 36  34 29 2b 33 32 2c 31 30  |..((p%*64)+32,10|
00001050  32 34 2d 28 71 25 2a 33  32 29 2d 31 36 29 0d 05  |24-(q%*32)-16)..|
00001060  dc 11 e7 20 5a 25 3d 32  20 8c 20 3d 32 32 36 0d  |... Z%=2 . =226.|
00001070  05 e6 19 e7 20 5a 25 3d  38 20 80 20 51 25 3d 36  |.... Z%=8 . Q%=6|
00001080  34 20 8c 20 3d 32 32 37  0d 05 f0 1a e7 20 5a 25  |4 . =227..... Z%|
00001090  3d 31 35 20 80 20 51 25  3d 36 34 20 8c 20 3d 32  |=15 . Q%=64 . =2|
000010a0  32 39 0d 05 fa 1a e7 20  5a 25 3d 34 32 20 80 20  |29..... Z%=42 . |
000010b0  51 25 3d 36 34 20 8c 20  3d 32 33 30 0d 06 04 11  |Q%=64 . =230....|
000010c0  e7 20 5a 25 3d 38 20 8c  20 3d 32 32 36 0d 06 0e  |. Z%=8 . =226...|
000010d0  09 3d 97 22 2e 22 0d 06  18 06 20 e1 0d 06 22 19  |.=.".".... ...".|
000010e0  dd 20 f2 70 72 69 6e 74  63 68 72 28 61 25 2c 62  |. .printchr(a%,b|
000010f0  25 2c 63 25 29 0d 06 2c  15 ff 22 53 43 48 4f 4f  |%,c%)..,.."SCHOO|
00001100  53 45 20 22 2b c3 28 61  25 29 0d 06 36 1b f0 20  |SE "+.(a%)..6.. |
00001110  26 45 44 2c 62 25 2a 36  34 2c 39 39 32 2d 28 63  |&ED,b%*64,992-(c|
00001120  25 2a 33 32 29 0d 06 40  05 e1 0d 06 4a 13 dd 20  |%*32)..@....J.. |
00001130  f2 74 65 78 74 28 41 24  2c 58 2c 59 29 0d 06 54  |.text(A$,X,Y)..T|
00001140  20 e7 20 c0 41 24 2c 35  29 3d 22 53 43 4f 52 45  | . .A$,5)="SCORE|
00001150  22 20 8c 20 fb 33 20 c8  9c 20 32 35 35 0d 06 5e  |" . .3 .. 255..^|
00001160  21 e7 20 c0 41 24 2c 35  29 3d 22 42 4f 4e 55 53  |!. .A$,5)="BONUS|
00001170  22 20 8c 20 fb 31 31 20  c8 9c 20 32 35 35 0d 06  |" . .11 .. 255..|
00001180  68 20 e7 20 c0 41 24 2c  35 29 3d 22 4c 45 56 45  |h . .A$,5)="LEVE|
00001190  4c 22 20 8c 20 fb 38 20  c8 9c 20 32 35 35 0d 06  |L" . .8 .. 255..|
000011a0  72 21 e7 20 c0 41 24 2c  35 29 3d 22 4c 49 56 45  |r!. .A$,5)="LIVE|
000011b0  53 22 20 8c 20 fb 35 37  20 c8 9c 20 32 35 35 0d  |S" . .57 .. 255.|
000011c0  06 7c 2b ef 20 33 31 2c  58 2c 59 3a e3 20 49 3d  |.|+. 31,X,Y:. I=|
000011d0  31 20 b8 20 a9 20 41 24  3a ef 20 97 28 c1 41 24  |1 . . A$:. .(.A$|
000011e0  2c 49 2c 31 29 29 3a ed  3a e1 0d 06 86 2f dd 20  |,I,1)):.:..../. |
000011f0  f2 63 65 6e 28 41 24 2c  59 29 3a 58 3d 31 39 2d  |.cen(A$,Y):X=19-|
00001200  28 a9 28 41 24 29 2f 32  29 3a f2 74 65 78 74 28  |(.(A$)/2):.text(|
00001210  41 24 2c 58 2c 59 29 3a  e1 0d 06 90 0b dd 20 f2  |A$,X,Y):...... .|
00001220  42 4f 4e 50 0d 06 9a 17  e7 20 42 4f 4e 55 53 25  |BONP..... BONUS%|
00001230  3c 30 20 42 4f 4e 55 53  25 3d 30 0d 06 a4 27 53  |<0 BONUS%=0...'S|
00001240  31 24 3d c3 28 42 4f 4e  55 53 25 29 3a 53 24 3d  |1$=.(BONUS%):S$=|
00001250  c4 37 2d a9 28 53 31 24  29 2c 22 30 22 29 2b 53  |.7-.(S1$),"0")+S|
00001260  31 24 0d 06 ae 1e f2 74  65 78 74 28 22 42 4f 4e  |1$.....text("BON|
00001270  55 53 20 3a 20 22 2b 53  24 2c 31 38 2c 32 39 29  |US : "+S$,18,29)|
00001280  0d 06 b8 05 e1 0d 06 c2  0c dd 20 f2 42 4f 4e 55  |.......... .BONU|
00001290  53 0d 06 cc 4c e6 20 30  2c 30 20 c8 9c 20 30 3a  |S...L. 0,0 .. 0:|
000012a0  e3 20 4b 3d 30 20 b8 20  36 34 30 20 88 20 34 3a  |. K=0 . 640 . 4:|
000012b0  ec 20 4b 2c 31 30 30 3a  df 20 4b 2c 31 30 32 34  |. K,100:. K,1024|
000012c0  3a ec 20 31 32 38 34 2d  4b 2c 31 30 30 3a df 20  |:. 1284-K,100:. |
000012d0  31 32 38 34 2d 4b 2c 31  30 32 34 3a ed 0d 06 d6  |1284-K,1024:....|
000012e0  19 e7 20 42 4f 4e 55 53  25 3c 30 20 42 4f 4e 55  |.. BONUS%<0 BONU|
000012f0  53 25 3d 30 3a e0 0d 06  e0 18 e3 20 4c 3d 42 4f  |S%=0:...... L=BO|
00001300  4e 55 53 25 20 b8 20 30  20 88 20 2d 31 30 0d 06  |NUS% . 0 . -10..|
00001310  ea 14 20 d4 20 38 2c 2d  31 31 2c 32 35 35 2c 32  |.. . 8,-11,255,2|
00001320  35 35 0d 06 f4 22 e7 20  91 3e 54 58 25 2b 33 30  |55...". .>TX%+30|
00001330  30 20 8c 20 54 58 25 3d  91 3a f2 70 72 69 6e 74  |0 . TX%=.:.print|
00001340  74 65 78 74 0d 06 fe 11  20 e7 20 4c 3d 30 20 e5  |text.... . L=0 .|
00001350  20 8d 54 52 47 0d 07 08  99 42 4f 4e 55 53 25 3d  | .TRG....BONUS%=|
00001360  42 4f 4e 55 53 25 2d 31  30 3a 53 31 24 3d c3 28  |BONUS%-10:S1$=.(|
00001370  42 4f 4e 55 53 25 29 3a  53 24 3d c4 37 2d a9 28  |BONUS%):S$=.7-.(|
00001380  53 31 24 29 2c 22 30 22  29 2b 53 31 24 3a f2 74  |S1$),"0")+S1$:.t|
00001390  65 78 74 28 22 42 4f 4e  55 53 20 3a 20 22 2b 53  |ext("BONUS : "+S|
000013a0  24 2c 31 38 2c 32 39 29  3a 53 43 25 3d 53 43 25  |$,18,29):SC%=SC%|
000013b0  2b 31 30 3a 53 31 24 3d  c3 28 53 43 25 29 3a 53  |+10:S1$=.(SC%):S|
000013c0  24 3d c4 37 2d a9 28 53  31 24 29 2c 22 30 22 29  |$=.7-.(S1$),"0")|
000013d0  2b 53 31 24 3a f2 74 65  78 74 28 22 53 43 4f 52  |+S1$:.text("SCOR|
000013e0  45 20 3a 20 22 2b 53 24  2c 30 2c 32 39 29 0d 07  |E : "+S$,0,29)..|
000013f0  12 07 ed 20 4c 0d 07 1c  22 e7 20 4c 45 56 45 4c  |... L...". LEVEL|
00001400  25 20 83 20 34 3d 30 20  8c 20 58 4c 25 3d 31 20  |% . 4=0 . XL%=1 |
00001410  8b 20 58 4c 25 3d 30 0d  07 26 05 e1 0d 07 30 0d  |. XL%=0..&....0.|
00001420  dd 20 f2 73 71 75 61 72  65 0d 07 3a 0d 58 3d 2d  |. .square..:.X=-|
00001430  34 3a 59 3d 2d 34 0d 07  44 11 f5 3a 58 3d 58 2b  |4:Y=-4..D..:X=X+|
00001440  34 3a 59 3d 59 2b 34 0d  07 4e 0e e6 20 30 2c 30  |4:Y=Y+4..N.. 0,0|
00001450  20 c8 9c 20 30 0d 07 58  12 ec 20 58 2c 30 3a df  | .. 0..X.. X,0:.|
00001460  20 58 2c 31 30 32 34 0d  07 62 12 ec 20 30 2c 59  | X,1024..b.. 0,Y|
00001470  3a df 20 31 32 38 30 2c  59 0d 07 6c 1c ec 20 31  |:. 1280,Y..l.. 1|
00001480  32 38 34 2d 58 2c 30 3a  df 20 31 32 38 34 2d 58  |284-X,0:. 1284-X|
00001490  2c 31 30 32 34 0d 07 76  1c ec 20 30 2c 31 30 32  |,1024..v.. 0,102|
000014a0  38 2d 59 3a df 20 31 32  38 30 2c 31 30 32 38 2d  |8-Y:. 1280,1028-|
000014b0  59 0d 07 80 0b fd 20 58  3e 36 34 30 0d 07 8a 05  |Y..... X>640....|
000014c0  e1 0d 07 94 0d dd 20 f2  72 61 74 69 6e 67 0d 07  |...... .rating..|
000014d0  9e 09 41 3d 53 43 25 0d  07 a8 5a e7 20 41 3e 2d  |..A=SC%...Z. A>-|
000014e0  31 20 80 20 41 3c 33 30  30 3a 41 24 3d 22 59 6f  |1 . A<300:A$="Yo|
000014f0  75 72 20 73 63 6f 72 65  20 69 73 20 75 73 65 6c  |ur score is usel|
00001500  65 73 73 2e 22 3a 42 24  3d 22 41 20 66 72 69 65  |ess.":B$="A frie|
00001510  64 20 73 6e 61 69 6c 20  63 6f 75 6c 64 20 68 61  |d snail could ha|
00001520  76 65 20 64 6f 6e 65 20  62 65 74 74 65 72 20 21  |ve done better !|
00001530  22 0d 07 b2 58 e7 20 41  3e 32 39 39 20 80 20 41  |"...X. A>299 . A|
00001540  3c 38 30 30 3a 41 24 3d  22 59 6f 75 72 20 73 63  |<800:A$="Your sc|
00001550  6f 72 65 20 69 73 20 68  6f 70 65 6c 65 73 73 2e  |ore is hopeless.|
00001560  22 3a 42 24 3d 22 54 72  79 20 61 20 64 69 66 66  |":B$="Try a diff|
00001570  65 72 65 6e 74 20 67 61  6d 65 20 2e 2e 20 65 67  |erent game .. eg|
00001580  3a 20 53 6e 61 70 20 21  22 0d 07 bc 5c e7 20 41  |: Snap !"...\. A|
00001590  3e 37 39 39 20 80 20 41  3c 31 35 30 30 3a 41 24  |>799 . A<1500:A$|
000015a0  3d 22 59 6f 75 72 20 73  63 6f 72 65 20 69 73 20  |="Your score is |
000015b0  6a 75 73 74 20 61 62 6f  75 74 20 68 6f 70 65 6c  |just about hopel|
000015c0  65 73 73 2e 22 3a 42 24  3d 22 57 68 79 20 6e 6f  |ess.":B$="Why no|
000015d0  74 20 67 6f 20 62 61 63  6b 20 74 6f 20 73 6c 65  |t go back to sle|
000015e0  65 70 20 3f 22 0d 07 c6  52 e7 20 41 3e 31 34 39  |ep ?"...R. A>149|
000015f0  39 20 80 20 41 3c 35 30  30 30 3a 41 24 3d 22 59  |9 . A<5000:A$="Y|
00001600  6f 75 72 20 73 63 6f 72  65 20 69 73 20 62 65 6c  |our score is bel|
00001610  6f 77 20 61 76 65 72 61  67 65 22 3a 42 24 3d 22  |ow average":B$="|
00001620  54 72 79 20 68 61 72 64  65 72 20 6e 65 78 74 20  |Try harder next |
00001630  74 69 6d 65 20 21 22 0d  07 d0 5c e7 20 41 3e 34  |time !"...\. A>4|
00001640  39 39 39 20 80 20 41 3c  31 35 30 30 30 3a 41 24  |999 . A<15000:A$|
00001650  3d 22 59 6f 75 72 20 73  63 6f 72 65 20 69 73 20  |="Your score is |
00001660  61 76 65 72 61 67 65 22  3a 42 24 3d 22 2e 2e 2e  |average":B$="...|
00001670  41 76 65 72 61 67 65 20  73 68 6f 75 6c 64 20 6e  |Average should n|
00001680  6f 74 20 62 65 20 67 6f  6f 64 20 65 6e 6f 75 67  |ot be good enoug|
00001690  68 21 22 0d 07 da 48 e7  20 41 3e 31 34 39 39 39  |h!"...H. A>14999|
000016a0  20 80 20 41 3c 32 30 30  30 30 3a 41 24 3d 22 59  | . A<20000:A$="Y|
000016b0  6f 75 72 20 73 63 6f 72  65 20 69 73 20 67 6f 6f  |our score is goo|
000016c0  64 2c 20 66 6f 72 20 61  20 62 65 67 69 6e 6e 65  |d, for a beginne|
000016d0  72 20 21 21 22 3a 42 24  3d 22 22 0d 07 e4 56 e7  |r !!":B$=""...V.|
000016e0  20 41 3e 31 39 39 39 39  20 80 20 41 3c 33 35 30  | A>19999 . A<350|
000016f0  30 30 3a 41 24 3d 22 59  6f 75 72 20 73 63 6f 72  |00:A$="Your scor|
00001700  65 20 69 73 20 76 65 72  79 20 67 6f 6f 64 2e 22  |e is very good."|
00001710  3a 42 24 3d 22 54 72 79  20 67 6f 69 6e 67 20 66  |:B$="Try going f|
00001720  6f 72 20 74 68 65 20 74  6f 70 20 21 21 21 21 21  |or the top !!!!!|
00001730  22 0d 07 ee 45 e7 20 41  3e 32 33 39 39 39 20 80  |"...E. A>23999 .|
00001740  20 41 3c 35 35 30 30 30  3a 41 24 3d 22 59 6f 75  | A<55000:A$="You|
00001750  72 20 73 63 6f 72 65 20  69 73 20 65 78 63 65 6c  |r score is excel|
00001760  6c 65 6e 74 2e 57 65 6c  6c 20 44 6f 6e 65 2e 22  |lent.Well Done."|
00001770  3a 42 24 3d 22 22 0d 07  f8 5d e7 20 41 3e 35 34  |:B$=""...]. A>54|
00001780  39 39 39 20 41 24 3d 22  59 6f 75 72 20 73 63 6f  |999 A$="Your sco|
00001790  72 65 20 69 73 20 61 62  73 6f 6c 75 74 65 6c 79  |re is absolutely|
000017a0  20 62 72 69 6c 6c 69 61  6e 74 2e 2e 2e 2e 2e 22  | brilliant....."|
000017b0  3a 42 24 3d 22 2e 2e 2e  2e 2e 2e 2e 42 75 74 20  |:B$=".......But |
000017c0  64 69 64 20 79 6f 75 20  63 68 65 61 74 20 3f 3f  |did you cheat ??|
000017d0  3f 3f 22 0d 08 02 13 fb  34 37 3a f2 63 65 6e 28  |??".....47:.cen(|
000017e0  41 24 2c 32 30 29 0d 08  0c 1e e7 20 42 24 3c 3e  |A$,20)..... B$<>|
000017f0  22 22 20 8c 20 fb 34 36  3a f2 63 65 6e 28 42 24  |"" . .46:.cen(B$|
00001800  2c 32 32 29 0d 08 16 05  e1 0d 08 20 0c dd 20 f2  |,22)....... .. .|
00001810  74 61 62 6c 65 0d 08 2a  18 e3 20 4b 3d 74 61 62  |table..*.. K=tab|
00001820  6c 65 20 b8 20 74 61 62  6c 65 2b 31 39 0d 08 34  |le . table+19..4|
00001830  1c 63 3d 4b 20 83 20 32  3a e7 20 63 3d 31 20 fb  |.c=K . 2:. c=1 .|
00001840  20 35 32 20 8b 20 fb 35  36 0d 08 3e 69 45 24 3d  | 52 . .56..>iE$=|
00001850  c4 33 2d a9 28 c3 28 4b  29 29 2c 22 20 22 29 2b  |.3-.(.(K))," ")+|
00001860  c3 28 4b 29 2b 22 20 20  20 20 22 2b 6e 61 6d 65  |.(K)+"    "+name|
00001870  24 28 4b 29 2b c4 32 30  2d a9 28 6e 61 6d 65 24  |$(K)+.20-.(name$|
00001880  28 4b 29 29 2c 22 20 22  29 2b 22 20 20 20 22 2b  |(K))," ")+"   "+|
00001890  c4 37 2d a9 28 c3 28 6e  61 6d 65 25 28 4b 29 29  |.7-.(.(name%(K))|
000018a0  29 2c 22 20 22 29 2b c3  28 6e 61 6d 65 25 28 4b  |)," ")+.(name%(K|
000018b0  29 29 0d 08 48 13 e7 20  a6 28 2d 39 39 29 20 6b  |))..H.. .(-99) k|
000018c0  65 79 25 3d b9 0d 08 52  1e f2 63 65 6e 28 45 24  |ey%=...R..cen(E$|
000018d0  2c 28 4b 2d 74 61 62 6c  65 29 2b 37 29 3a ed 20  |,(K-table)+7):. |
000018e0  4b 3a e1 0d 08 5c 13 dd  20 f2 6f 6e 73 63 6f 72  |K:...\.. .onscor|
000018f0  65 74 61 62 6c 65 0d 08  66 1b db 3a e3 20 49 3d  |etable..f..:. I=|
00001900  30 20 b8 20 31 30 30 3a  ff 22 46 58 31 35 22 3a  |0 . 100:."FX15":|
00001910  ed 0d 08 70 05 db 0d 08  7a 16 2a 53 43 48 4f 4f  |...p....z.*SCHOO|
00001920  53 45 20 48 49 47 48 53  43 4f 52 45 0d 08 84 0f  |SE HIGHSCORE....|
00001930  f0 20 26 45 44 2c 30 2c  38 35 30 0d 08 8e 07 fb  |. &ED,0,850.....|
00001940  36 31 0d 08 98 2f f2 63  65 6e 28 22 59 6f 75 20  |61.../.cen("You |
00001950  61 72 65 20 6f 6e 20 74  68 65 20 68 69 67 68 20  |are on the high |
00001960  73 63 6f 72 65 20 74 61  62 6c 65 2e 22 2c 31 30  |score table.",10|
00001970  29 0d 08 a2 2a fb 32 38  3a f2 63 65 6e 28 22 50  |)...*.28:.cen("P|
00001980  6c 65 61 73 65 20 65 6e  74 65 72 20 79 6f 75 72  |lease enter your|
00001990  20 6e 61 6d 65 2e 22 2c  31 33 29 0d 08 ac 07 fb  | name.",13).....|
000019a0  34 37 0d 08 b6 27 64 24  3d 22 22 3a 65 24 3d c4  |47...'d$="":e$=.|
000019b0  32 30 2d a9 28 64 24 29  2c 22 2e 22 29 3a f2 63  |20-.(d$),"."):.c|
000019c0  65 6e 28 65 24 2c 31 37  29 0d 08 c0 07 d1 3d 30  |en(e$,17).....=0|
000019d0  0d 08 ca 27 fb 33 3a f2  63 65 6e 28 22 54 68 65  |...'.3:.cen("The|
000019e0  6e 20 50 72 65 73 73 20  52 45 54 55 52 4e 22 2c  |n Press RETURN",|
000019f0  32 35 29 3a fb 31 31 0d  08 d4 20 fb 37 3a f2 74  |25):.11... .7:.t|
00001a00  65 78 74 28 22 52 45 54  55 52 4e 22 2c 32 31 2c  |ext("RETURN",21,|
00001a10  32 35 29 3a fb 34 37 0d  08 de 05 f5 0d 08 e8 0a  |25):.47.........|
00001a20  41 3d a6 28 30 29 0d 08  f2 64 e7 20 41 3e 33 31  |A=.(0)...d. A>31|
00001a30  20 80 20 41 3c 39 31 20  80 20 a9 28 64 24 29 3c  | . A<91 . .(d$)<|
00001a40  32 30 20 84 20 41 3e 39  35 20 80 20 41 3c 31 32  |20 . A>95 . A<12|
00001a50  37 20 80 20 a9 28 64 24  29 3c 32 30 20 8c 20 64  |7 . .(d$)<20 . d|
00001a60  24 3d 64 24 2b bd 28 41  29 3a 65 24 3d 64 24 2b  |$=d$+.(A):e$=d$+|
00001a70  c4 32 30 2d a9 28 64 24  29 2c 22 2e 22 29 3a f2  |.20-.(d$),"."):.|
00001a80  63 65 6e 28 65 24 2c 31  37 29 0d 08 fc 48 e7 20  |cen(e$,17)...H. |
00001a90  41 3d 31 32 37 20 80 20  a9 28 64 24 29 3e 30 20  |A=127 . .(d$)>0 |
00001aa0  8c 20 64 24 3d c0 64 24  2c a9 28 64 24 29 2d 31  |. d$=.d$,.(d$)-1|
00001ab0  29 3a 65 24 3d 64 24 2b  c4 32 30 2d a9 28 64 24  |):e$=d$+.20-.(d$|
00001ac0  29 2c 22 2e 22 29 3a f2  63 65 6e 28 65 24 2c 31  |),"."):.cen(e$,1|
00001ad0  37 29 0d 09 06 46 e7 20  41 3d 38 20 80 20 a9 28  |7)...F. A=8 . .(|
00001ae0  64 24 29 3e 30 20 8c 20  64 24 3d c0 64 24 2c a9  |d$)>0 . d$=.d$,.|
00001af0  28 64 24 29 2d 31 29 3a  65 24 3d 64 24 2b c4 32  |(d$)-1):e$=d$+.2|
00001b00  30 2d a9 28 64 24 29 2c  22 2e 22 29 3a f2 63 65  |0-.(d$),"."):.ce|
00001b10  6e 28 65 24 2c 31 37 29  0d 09 10 13 fd 20 41 3d  |n(e$,17)..... A=|
00001b20  31 33 20 84 20 91 3e 36  30 30 30 0d 09 1a 20 6e  |13 . .>6000... n|
00001b30  61 6d 65 24 28 31 30 31  29 3d 64 24 3a 6e 61 6d  |ame$(101)=d$:nam|
00001b40  65 25 28 31 30 31 29 3d  53 43 25 0d 09 24 05 db  |e%(101)=SC%..$..|
00001b50  0d 09 2e 14 e3 20 49 3d  31 30 30 20 b8 20 31 20  |..... I=100 . 1 |
00001b60  88 20 2d 31 0d 09 38 49  e7 20 6e 61 6d 65 25 28  |. -1..8I. name%(|
00001b70  49 29 3c 6e 61 6d 65 25  28 49 2b 31 29 20 8c 20  |I)<name%(I+1) . |
00001b80  c8 94 20 6e 61 6d 65 25  28 49 29 2c 6e 61 6d 65  |.. name%(I),name|
00001b90  25 28 49 2b 31 29 3a c8  94 20 6e 61 6d 65 24 28  |%(I+1):.. name$(|
00001ba0  49 2b 31 29 2c 6e 61 6d  65 24 28 49 29 0d 09 42  |I+1),name$(I)..B|
00001bb0  05 ed 0d 09 4c 83 ff 22  41 43 43 45 53 53 20 3c  |....L.."ACCESS <|
00001bc0  4f 62 65 79 24 44 69 72  3e 2e 53 43 4f 52 45 53  |Obey$Dir>.SCORES|
00001bd0  20 57 52 22 3a 41 3d ae  22 3c 4f 62 65 79 24 44  | WR":A=."<Obey$D|
00001be0  69 72 3e 2e 53 63 6f 72  65 73 22 3a e3 20 4b 3d  |ir>.Scores":. K=|
00001bf0  31 20 b8 20 31 30 30 3a  f1 23 41 2c 6e 61 6d 65  |1 . 100:.#A,name|
00001c00  24 28 4b 29 2c 6e 61 6d  65 25 28 4b 29 3a ed 20  |$(K),name%(K):. |
00001c10  4b 3a d9 20 23 30 3a ff  22 41 43 43 45 53 53 20  |K:. #0:."ACCESS |
00001c20  3c 4f 62 65 79 24 44 69  72 3e 2e 53 43 4f 52 45  |<Obey$Dir>.SCORE|
00001c30  53 20 52 4c 22 0d 09 56  05 db 0d 09 60 05 e1 0d  |S RL"..V....`...|
00001c40  09 6a 0f dd 20 f2 69 6e  73 74 72 75 63 74 0d 09  |.j.. .instruct..|
00001c50  74 05 db 0d 09 7e 31 f2  63 28 22 43 72 65 65 70  |t....~1.c("Creep|
00001c60  69 65 20 43 72 61 77 6c  69 65 20 2d 20 49 6e 73  |ie Crawlie - Ins|
00001c70  74 72 75 63 74 69 6f 6e  73 22 2c 30 2c 34 33 2c  |tructions",0,43,|
00001c80  31 39 32 29 0d 09 88 37  f2 63 28 22 59 6f 75 20  |192)...7.c("You |
00001c90  68 61 76 65 20 62 65 65  6e 20 6c 65 66 74 20 74  |have been left t|
00001ca0  6f 20 66 69 67 68 74 20  79 6f 75 72 20 6f 77 6e  |o fight your own|
00001cb0  22 2c 33 2c 34 34 2c 31  32 38 29 0d 09 92 38 f2  |",3,44,128)...8.|
00001cc0  63 28 22 6c 69 66 65 20  69 6e 20 74 68 65 20 77  |c("life in the w|
00001cd0  69 6c 64 20 62 79 20 79  6f 75 72 20 70 61 72 65  |ild by your pare|
00001ce0  6e 74 73 2e 20 20 54 6f  22 2c 35 2c 34 34 2c 31  |nts.  To",5,44,1|
00001cf0  32 38 29 0d 09 9c 37 f2  63 28 22 64 6f 20 74 68  |28)...7.c("do th|
00001d00  69 73 2c 20 79 6f 75 20  6d 75 73 74 20 62 65 20  |is, you must be |
00001d10  61 62 6c 65 20 74 6f 20  63 6f 6c 6c 65 63 74 22  |able to collect"|
00001d20  2c 37 2c 34 34 2c 31 32  38 29 0d 09 a6 1f f2 63  |,7,44,128).....c|
00001d30  28 22 66 6f 6f 64 20 74  6f 20 65 61 74 2e 22 2c  |("food to eat.",|
00001d40  39 2c 34 34 2c 31 32 38  29 0d 09 b0 38 f2 63 28  |9,44,128)...8.c(|
00001d50  22 54 68 65 20 6f 62 6a  65 63 74 20 6f 66 20 74  |"The object of t|
00001d60  68 65 20 67 61 6d 65 20  69 73 20 74 6f 20 63 6f  |he game is to co|
00001d70  6c 6c 65 63 74 22 2c 31  32 2c 36 31 2c 31 39 32  |llect",12,61,192|
00001d80  29 0d 09 ba 38 f2 63 28  22 61 63 6f 72 6e 73 20  |)...8.c("acorns |
00001d90  66 72 6f 6d 20 61 72 6f  75 6e 64 20 74 68 65 20  |from around the |
00001da0  67 61 72 64 65 6e 20 74  6f 20 65 61 74 22 2c 31  |garden to eat",1|
00001db0  34 2c 36 31 2c 31 39 32  29 0d 09 c4 3a f2 63 28  |4,61,192)...:.c(|
00001dc0  22 61 6e 64 20 61 76 6f  69 64 20 74 68 65 20 64  |"and avoid the d|
00001dd0  65 61 64 6c 79 20 66 75  6e 67 69 20 73 75 72 72  |eadly fungi surr|
00001de0  6f 75 6e 64 69 6e 67 22  2c 31 36 2c 36 31 2c 31  |ounding",16,61,1|
00001df0  39 32 29 0d 09 ce 2b f2  63 28 22 61 6e 64 20 61  |92)...+.c("and a|
00001e00  6d 6f 6e 67 73 74 20 74  68 65 20 67 61 72 64 65  |mongst the garde|
00001e10  6e 2e 22 2c 31 38 2c 36  31 2c 31 39 32 29 0d 09  |n.",18,61,192)..|
00001e20  d8 37 f2 63 28 22 45 78  74 72 61 73 20 61 72 65  |.7.c("Extras are|
00001e30  20 61 76 61 69 6c 61 62  6c 65 20 69 6e 20 74 68  | available in th|
00001e40  65 20 66 6f 72 6d 20 6f  66 22 2c 32 31 2c 34 37  |e form of",21,47|
00001e50  2c 31 39 32 29 0d 09 e2  37 f2 63 28 22 54 69 6d  |,192)...7.c("Tim|
00001e60  65 20 62 6f 6e 75 73 65  73 20 61 74 20 74 68 65  |e bonuses at the|
00001e70  20 65 6e 64 20 6f 66 20  61 20 6c 65 76 65 6c 2c  | end of a level,|
00001e80  22 2c 32 33 2c 34 37 2c  31 39 32 29 0d 09 ec 32  |",23,47,192)...2|
00001e90  f2 63 28 22 65 78 74 72  61 20 6c 69 76 65 73 20  |.c("extra lives |
00001ea0  61 6e 64 20 73 63 6f 72  65 20 62 6f 6e 75 73 65  |and score bonuse|
00001eb0  73 2e 22 2c 32 35 2c 34  37 2c 31 39 32 29 0d 09  |s.",25,47,192)..|
00001ec0  f6 18 e3 20 49 3d 31 20  b8 20 33 35 3a ff 22 46  |... I=1 . 35:."F|
00001ed0  58 31 35 22 3a ed 0d 0a  00 4a f2 63 28 22 20 20  |X15":....J.c("  |
00001ee0  20 20 50 72 65 73 73 20  22 2b bd 28 31 37 29 2b  |  Press "+.(17)+|
00001ef0  bd 28 37 29 2b 22 53 50  41 43 45 20 22 2b bd 28  |.(7)+"SPACE "+.(|
00001f00  31 37 29 2b bd 28 33 29  2b 22 74 6f 20 63 6f 6e  |17)+.(3)+"to con|
00001f10  74 69 6e 75 65 22 2c 33  30 2c 33 2c 31 39 32 29  |tinue",30,3,192)|
00001f20  0d 0a 0a 2f f5 3a fd 20  a6 28 2d 39 39 29 3a db  |.../.:. .(-99):.|
00001f30  3a ff 22 53 43 48 4f 4f  53 45 20 43 52 43 52 41  |:."SCHOOSE CRCRA|
00001f40  57 4c 22 3a f0 20 26 45  44 2c 30 2c 36 35 30 0d  |WL":. &ED,0,650.|
00001f50  0a 14 23 f2 63 28 22 47  61 6d 65 20 43 68 61 72  |..#.c("Game Char|
00001f60  61 63 74 65 72 73 22 2c  31 33 2c 34 33 2c 31 39  |acters",13,43,19|
00001f70  32 29 0d 0a 1e 27 f2 63  28 22 59 6f 75 20 3a 20  |2)...'.c("You : |
00001f80  20 20 20 20 20 20 20 20  20 20 20 20 20 22 2c 31  |             ",1|
00001f90  36 2c 34 37 2c 31 39 32  29 0d 0a 28 27 f2 63 28  |6,47,192)..('.c(|
00001fa0  22 41 63 6f 72 6e 20 3a  20 20 20 20 20 20 20 20  |"Acorn :        |
00001fb0  20 20 20 20 22 2c 31 38  2c 34 37 2c 31 39 32 29  |    ",18,47,192)|
00001fc0  0d 0a 32 27 f2 63 28 22  46 75 6e 67 69 20 3a 20  |..2'.c("Fungi : |
00001fd0  20 20 20 20 20 20 20 20  20 20 20 22 2c 32 30 2c  |           ",20,|
00001fe0  34 37 2c 31 39 32 29 0d  0a 3c 27 f2 63 28 22 45  |47,192)..<'.c("E|
00001ff0  78 74 72 61 20 6c 69 66  65 20 3a 20 20 20 20 20  |xtra life :     |
00002000  20 20 22 2c 32 32 2c 34  37 2c 31 39 32 29 0d 0a  |  ",22,47,192)..|
00002010  46 28 f2 63 28 22 53 63  6f 72 65 20 62 6f 6e 75  |F(.c("Score bonu|
00002020  73 20 3a 20 20 20 20 20  20 20 22 2c 32 34 2c 34  |s :       ",24,4|
00002030  37 2c 31 39 32 29 0d 0a  50 2b e3 20 4b 3d 38 20  |7,192)..P+. K=8 |
00002040  b8 20 31 31 3a f2 70 28  32 32 35 2c 4b 2c 31 36  |. 11:.p(225,K,16|
00002050  29 3a ed 3a f2 70 28 32  32 34 2c 31 32 2c 31 36  |):.:.p(224,12,16|
00002060  29 0d 0a 5a 11 f2 70 28  32 32 37 2c 31 32 2c 31  |)..Z..p(227,12,1|
00002070  38 29 0d 0a 64 11 f2 70  28 32 32 36 2c 31 32 2c  |8)..d..p(226,12,|
00002080  32 30 29 0d 0a 6e 11 f2  70 28 32 32 39 2c 31 32  |20)..n..p(229,12|
00002090  2c 32 32 29 0d 0a 78 11  f2 70 28 32 33 30 2c 31  |,22)..x..p(230,1|
000020a0  32 2c 32 34 29 0d 0a 82  6c e3 20 49 3d 31 20 b8  |2,24)...l. I=1 .|
000020b0  20 33 35 3a ff 22 46 58  31 35 22 3a ed 3a f2 63  | 35:."FX15":.:.c|
000020c0  28 22 20 20 20 20 50 72  65 73 73 20 22 2b bd 28  |("    Press "+.(|
000020d0  31 37 29 2b bd 28 37 29  2b 22 53 50 41 43 45 20  |17)+.(7)+"SPACE |
000020e0  22 2b bd 28 31 37 29 2b  bd 28 33 29 2b 22 74 6f  |"+.(17)+.(3)+"to|
000020f0  20 63 6f 6e 74 69 6e 75  65 22 2c 33 30 2c 33 2c  | continue",30,3,|
00002100  31 39 32 29 3a f5 3a fd  20 a6 28 2d 39 39 29 3a  |192):.:. .(-99):|
00002110  db 0d 0a 8c 05 e1 0d 0a  96 17 dd 20 f2 63 28 41  |........... .c(A|
00002120  24 2c 79 2c 63 6f 6c 2c  74 69 6e 74 29 0d 0a a0  |$,y,col,tint)...|
00002130  11 fb 20 63 6f 6c 20 c8  9c 20 74 69 6e 74 0d 0a  |.. col .. tint..|
00002140  aa 1b 78 3d 32 30 2d 28  a9 28 41 24 29 2f 32 29  |..x=20-(.(A$)/2)|
00002150  3a ef 20 33 31 2c 78 2c  79 0d 0a b4 25 e3 20 4b  |:. 31,x,y...%. K|
00002160  3d 31 20 b8 20 a9 28 41  24 29 3a ef 20 97 28 c1  |=1 . .(A$):. .(.|
00002170  41 24 2c 4b 2c 31 29 29  3a ed 20 4b 3a e1 0d 0a  |A$,K,1)):. K:...|
00002180  be 42 dd 20 f2 70 28 63  2c 78 2c 79 29 3a 78 3d  |.B. .p(c,x,y):x=|
00002190  78 2a 36 34 3a 79 3d 31  30 32 34 2d 28 79 2a 33  |x*64:y=1024-(y*3|
000021a0  32 29 2d 33 32 3a ff 22  53 43 48 4f 4f 53 45 20  |2)-32:."SCHOOSE |
000021b0  22 2b c3 28 63 29 3a f0  20 26 45 44 2c 78 2c 79  |"+.(c):. &ED,x,y|
000021c0  0d 0a c8 05 e1 0d 0a d2  30 dc 20 43 72 65 65 70  |........0. Creep|
000021d0  69 65 20 43 72 61 77 6c  69 65 20 77 72 69 74 74  |ie Crawlie writt|
000021e0  65 6e 20 62 79 20 4d 61  72 6b 20 4a 6f 68 6e 73  |en by Mark Johns|
000021f0  6f 6e 2c 34 33 0d 0a dc  2d dc 20 53 6f 75 6e 64  |on,43...-. Sound|
00002200  20 54 72 61 63 6b 65 72  20 6d 6f 64 75 6c 65 20  | Tracker module |
00002210  62 79 20 48 75 67 6f 20  46 69 65 6e 6e 65 73 2c  |by Hugo Fiennes,|
00002220  36 31 0d 0a e6 22 dc 20  54 68 69 73 20 69 73 20  |61...". This is |
00002230  50 55 42 4c 49 43 20 44  4f 4d 41 49 4e 21 21 21  |PUBLIC DOMAIN!!!|
00002240  21 2c 31 35 0d 0a f0 2d  dc 20 54 68 69 73 20 73  |!,15...-. This s|
00002250  68 6f 75 6c 64 20 6e 6f  74 20 62 65 20 73 6f 6c  |hould not be sol|
00002260  64 20 66 6f 72 20 61 20  70 72 6f 66 69 74 2c 36  |d for a profit,6|
00002270  33 0d 0a fa 2c dc 20 57  72 69 74 74 65 6e 20 62  |3...,. Written b|
00002280  65 74 77 65 65 6e 20 32  30 2f 39 2f 39 30 20 61  |etween 20/9/90 a|
00002290  6e 64 20 35 2f 31 30 2f  39 30 2c 33 30 0d 0b 04  |nd 5/10/90,30...|
000022a0  2b dc 20 48 65 6c 6c 6f  20 74 6f 20 74 68 65 20  |+. Hello to the |
000022b0  66 6f 6c 6c 6f 77 69 6e  67 20 70 65 6f 70 6c 65  |following people|
000022c0  2e 2e 2e 2e 2e 2c 34 31  0d 0b 0e 1d dc 20 43 68  |.....,41..... Ch|
000022d0  72 69 73 20 27 42 6f 6e  67 6f 27 20 48 75 6e 74  |ris 'Bongo' Hunt|
000022e0  65 72 2c 35 30 0d 0b 18  15 dc 20 41 6e 64 72 65  |er,50..... Andre|
000022f0  77 20 42 72 6f 77 6e 2c  35 30 0d 0b 22 1e dc 20  |w Brown,50..".. |
00002300  4d 79 20 42 72 6f 74 68  65 72 20 61 6e 64 20 53  |My Brother and S|
00002310  69 73 74 65 72 2c 35 30  0d 0b 2c 1c dc 20 54 68  |ister,50..,.. Th|
00002320  65 20 4d 49 43 52 4f 20  55 53 45 52 20 74 65 61  |e MICRO USER tea|
00002330  6d 2c 35 30 0d 0b 36 31  dc 20 61 6e 64 20 66 69  |m,50..61. and fi|
00002340  6e 61 6c 6c 79 20 74 6f  20 59 4f 55 20 66 6f 72  |nally to YOU for|
00002350  20 70 6c 61 79 69 6e 67  20 74 68 69 73 20 67 61  | playing this ga|
00002360  6d 65 2c 36 33 0d 0b 40  0f dc 20 66 69 6e 69 73  |me,63..@.. finis|
00002370  68 2c 2d 31 0d 0b 4a 15  dd 20 f2 74 65 78 74 69  |h,-1..J.. .texti|
00002380  6e 69 74 69 61 6c 69 73  65 0d 0b 54 12 de 20 74  |nitialise..T.. t|
00002390  24 28 31 35 29 2c 63 28  31 35 29 0d 0b 5e 0a f7  |$(15),c(15)..^..|
000023a0  20 8d 64 52 4a 0d 0b 68  0a 74 65 78 74 3d 30 0d  | .dRJ..h.text=0.|
000023b0  0b 72 0a f3 20 74 24 2c  63 0d 0b 7c 45 e7 20 74  |.r.. t$,c..|E. t|
000023c0  24 3c 3e 22 66 69 6e 69  73 68 22 20 80 20 63 3c  |$<>"finish" . c<|
000023d0  3e 2d 31 20 8c 20 74 65  78 74 3d 74 65 78 74 2b  |>-1 . text=text+|
000023e0  31 3a 74 24 28 74 65 78  74 29 3d 74 24 3a 63 28  |1:t$(text)=t$:c(|
000023f0  74 65 78 74 29 3d 63 3a  e5 20 8d 44 72 4b 0d 0b  |text)=c:. .DrK..|
00002400  86 05 e1 0d 0b 90 10 dd  20 f2 70 72 69 6e 74 74  |........ .printt|
00002410  65 78 74 0d 0b 9a 38 70  72 69 6e 74 74 65 78 74  |ext...8printtext|
00002420  3d 70 72 69 6e 74 74 65  78 74 2b 31 3a e7 20 70  |=printtext+1:. p|
00002430  72 69 6e 74 74 65 78 74  3e 74 65 78 74 20 8c 20  |rinttext>text . |
00002440  70 72 69 6e 74 74 65 78  74 3d 31 0d 0b a4 17 f2  |printtext=1.....|
00002450  63 28 c4 34 30 2c 22 20  22 29 2c 33 31 2c 30 2c  |c(.40," "),31,0,|
00002460  30 29 0d 0b ae 29 f2 63  28 74 24 28 70 72 69 6e  |0)...).c(t$(prin|
00002470  74 74 65 78 74 29 2c 33  31 2c 63 28 70 72 69 6e  |ttext),31,c(prin|
00002480  74 74 65 78 74 29 2c 32  35 35 29 0d 0b b8 05 e1  |ttext),255).....|
00002490  0d ff                                             |..|
00002492