00000000  0d 00 00 cc f4 20 56 44  55 36 2c 32 32 2c 37 3b  |..... VDU6,22,7;|
00000010  32 33 3b 31 30 2c 31 3b  30 3b 30 3b 30 3b 32 33  |23;10,1;0;0;0;23|
00000020  3b 38 2c 31 34 34 2c 30  3b 30 3b 30 3b 32 33 3b  |;8,144,0;0;0;23;|
00000030  39 2c 39 2c 30 3b 30 3b  30 3b 32 33 3b 31 30 2c  |9,9,0;0;0;23;10,|
00000040  26 36 39 2c 30 3b 30 3b  30 3b 31 32 3a 4d 25 3d  |&69,0;0;0;12:M%=|
00000050  46 41 4c 53 45 3a 42 25  3d 30 3a 78 25 3d 30 3a  |FALSE:B%=0:x%=0:|
00000060  79 25 3d 30 3a 6e 25 3d  30 3a 4f 25 3d 46 41 4c  |y%=0:n%=0:O%=FAL|
00000070  53 45 3a 43 24 3d 22 22  3a 46 25 3d 33 32 3a 4b  |SE:C$="":F%=32:K|
00000080  25 3d 30 3a 4c 25 3d 30  3a 48 25 3d 31 32 38 3a  |%=0:L%=0:H%=128:|
00000090  46 24 3d 53 54 52 49 4e  47 24 28 33 39 2c 22 20  |F$=STRING$(39," |
000000a0  22 29 3a 4f 4e 45 52 52  4f 52 56 44 55 32 33 3b  |"):ONERRORVDU23;|
000000b0  31 30 2c 31 32 38 3b 30  3b 30 3b 30 3b 3a 50 52  |10,128;0;0;0;:PR|
000000c0  4f 43 56 28 45 52 4c 2c  45 52 52 29 0d 00 28 05  |OCV(ERL,ERR)..(.|
000000d0  20 0d 00 32 27 f2 43 3a  de 41 24 28 33 32 29 3a  | ..2'.C:.A$(32):|
000000e0  f7 8d 44 46 40 3a e3 47  25 3d 30 b8 33 31 3a f3  |..DF@:.G%=0.31:.|
000000f0  41 24 28 47 25 29 3a ed  0d 00 46 65 dc 20 4e 43  |A$(G%):...Fe. NC|
00000100  2c 41 52 2c 41 47 2c 41  59 2c 41 42 2c 41 4d 2c  |,AR,AG,AY,AB,AM,|
00000110  41 43 2c 41 57 2c 46 43  2c 53 43 2c 4e 43 2c 4e  |AC,AW,FC,SC,NC,N|
00000120  43 2c 4e 48 2c 44 48 2c  4e 43 2c 4e 43 2c 4e 43  |C,NH,DH,NC,NC,NC|
00000130  2c 47 52 2c 47 47 2c 47  59 2c 47 42 2c 47 4d 2c  |,GR,GG,GY,GB,GM,|
00000140  47 43 2c 47 57 2c 43 44  2c 43 47 2c 53 47 2c 4e  |GC,GW,CD,CG,SG,N|
00000150  43 2c 42 42 2c 4e 42 2c  48 47 2c 52 47 0d 00 50  |C,BB,NB,HG,RG..P|
00000160  ab ef 36 2c 32 32 2c 37  3b 32 33 3b 31 30 2c 31  |..6,22,7;23;10,1|
00000170  3b 30 3b 30 3b 30 3b 32  33 3b 38 2c 31 34 34 2c  |;0;0;0;23;8,144,|
00000180  30 3b 30 3b 30 3b 32 33  3b 39 2c 39 2c 30 3b 30  |0;0;0;23;9,9,0;0|
00000190  3b 30 3b 32 33 3b 31 30  2c 26 36 39 2c 30 3b 30  |;0;23;10,&69,0;0|
000001a0  3b 30 3b 31 32 3a 4d 25  3d a3 3a 42 25 3d 30 3a  |;0;12:M%=.:B%=0:|
000001b0  78 25 3d 30 3a 79 25 3d  30 3a 6e 25 3d 30 3a 4f  |x%=0:y%=0:n%=0:O|
000001c0  25 3d a3 3a 43 24 3d 22  22 3a 46 25 3d 33 32 3a  |%=.:C$="":F%=32:|
000001d0  4b 25 3d 30 3a 4c 25 3d  30 3a 48 25 3d 31 32 38  |K%=0:L%=0:H%=128|
000001e0  3a 46 24 3d c4 33 39 2c  22 20 22 29 3a ee 85 ef  |:F$=.39," "):...|
000001f0  32 33 3b 31 30 2c 31 32  38 3b 30 3b 30 3b 30 3b  |23;10,128;0;0;0;|
00000200  3a f2 56 28 9e 2c 9f 29  0d 00 64 14 ef 33 31 2c  |:.V(.,.)..d..31,|
00000210  30 2c 30 3a f5 2a 46 58  32 31 2c 30 0d 00 78 6b  |0,0:.*FX21,0..xk|
00000220  78 25 3d b1 3a 79 25 3d  bc 3a f2 48 28 42 25 2c  |x%=.:y%=.:.H(B%,|
00000230  78 25 2c 79 25 29 3a e7  ac 4d 25 3a f2 41 28 22  |x%,y%):..M%:.A("|
00000240  20 20 20 43 68 61 72 61  63 74 65 72 20 20 20 20  |   Character    |
00000250  20 22 2c 31 33 31 2c 31  33 32 2c 78 25 2c 79 25  | ",131,132,x%,y%|
00000260  29 8b f2 41 28 22 20 20  20 51 57 41 53 5a 58 20  |)..A("   QWASZX |
00000270  63 6f 70 79 20 20 20 22  2c 31 33 31 2c 31 33 32  |copy   ",131,132|
00000280  2c 78 25 2c 79 25 29 0d  00 8c 1d 42 25 3d a5 3a  |,x%,y%)....B%=.:|
00000290  e7 42 25 3d 31 3a 4d 25  3d ac 4d 25 3a 42 25 3d  |.B%=1:M%=.M%:B%=|
000002a0  30 3a ef 37 0d 00 96 19  e7 4d 25 3d b9 3a f2 49  |0:.7.....M%=.:.I|
000002b0  28 42 25 2c 78 25 2c 79  25 2c 4c 25 29 0d 00 a0  |(B%,x%,y%,L%)...|
000002c0  1f e7 42 25 3e 32 34 31  80 42 25 3c 32 34 36 3a  |..B%>241.B%<246:|
000002d0  f2 4a 28 42 25 2c 78 25  2c 79 25 29 0d 00 aa 0e  |.J(B%,x%,y%)....|
000002e0  e7 42 25 3d 31 32 38 3a  f2 57 0d 00 b4 1f e7 42  |.B%=128:.W.....B|
000002f0  25 3e 31 35 36 80 42 25  3c 31 36 31 3a f2 4b 28  |%>156.B%<161:.K(|
00000300  42 25 2c 78 25 2c 79 25  29 0d 00 be 0e e7 42 25  |B%,x%,y%).....B%|
00000310  3d 32 33 39 3a f2 50 0d  00 c8 19 e7 42 25 3d 31  |=239:.P.....B%=1|
00000320  33 3a 78 25 3d 30 3a 79  25 3d 30 3a 42 25 3d 30  |3:x%=0:y%=0:B%=0|
00000330  0d 00 d2 0e e7 42 25 3d  32 34 31 3a f2 4c 0d 00  |.....B%=241:.L..|
00000340  dc 15 e7 42 25 3d 32 33  37 3a f2 59 28 78 25 2c  |...B%=237:.Y(x%,|
00000350  79 25 29 0d 00 e6 0e e7  42 25 3d 32 33 38 3a f2  |y%).....B%=238:.|
00000360  51 0d 00 f0 13 e7 42 25  3d 32 31 39 3a 4f 25 3d  |Q.....B%=219:O%=|
00000370  b9 3a f2 52 0d 00 fa 22  e7 42 25 3e 31 33 39 80  |.:.R...".B%>139.|
00000380  42 25 3c 31 34 34 3a f2  4d 28 42 25 2c 78 25 2c  |B%<144:.M(B%,x%,|
00000390  79 25 2c 4c 25 29 0d 01  04 1f e7 42 25 3d 32 31  |y%,L%).....B%=21|
000003a0  36 84 42 25 3d 32 31 37  3a f2 44 28 42 25 2c 78  |6.B%=217:.D(B%,x|
000003b0  25 2c 79 25 29 0d 01 0e  1f e7 42 25 3d 32 32 32  |%,y%).....B%=222|
000003c0  84 42 25 3d 32 32 33 3a  f2 44 28 42 25 2c 78 25  |.B%=223:.D(B%,x%|
000003d0  2c 79 25 29 0d 01 18 17  e7 42 25 3e 32 31 30 80  |,y%).....B%>210.|
000003e0  42 25 3c 32 31 36 3a 42  25 3d 30 0d 01 22 1f e7  |B%<216:B%=0.."..|
000003f0  42 25 3d 32 32 34 84 42  25 3d 32 32 35 3a f2 46  |B%=224.B%=225:.F|
00000400  28 42 25 2c 78 25 2c 79  25 29 0d 01 2c 0e e7 42  |(B%,x%,y%)..,..B|
00000410  25 3d 32 31 30 3a f2 47  0d 01 36 0e e7 42 25 3d  |%=210:.G..6..B%=|
00000420  32 31 38 3a f2 53 0d 01  40 18 e7 42 25 3d 32 33  |218:.S..@..B%=23|
00000430  36 3a f2 5a 28 42 25 2c  78 25 2c 79 25 29 0d 01  |6:.Z(B%,x%,y%)..|
00000440  4a 14 e7 42 25 3d 32 30  3a f2 54 28 78 25 2c 79  |J..B%=20:.T(x%,y|
00000450  25 29 0d 01 54 13 e7 42  25 3d 34 3a f2 55 28 78  |%)..T..B%=4:.U(x|
00000460  25 2c 79 25 29 0d 01 5e  19 e7 42 25 3e 32 32 39  |%,y%)..^..B%>229|
00000470  80 42 25 3c 32 33 36 3a  f2 58 28 42 25 29 0d 01  |.B%<236:.X(B%)..|
00000480  68 13 f2 4e 28 42 25 2c  78 25 2c 79 25 29 3a fd  |h..N(B%,x%,y%):.|
00000490  a3 0d 01 7c 1d dd f2 4e  28 43 25 2c 45 25 2c 44  |...|...N(C%,E%,D|
000004a0  25 29 3a e7 43 25 3c 33  32 3a 43 25 3d 30 0d 01  |%):.C%<32:C%=0..|
000004b0  86 23 e7 45 25 3d 33 39  80 44 25 3d 32 33 80 43  |.#.E%=39.D%=23.C|
000004c0  25 3c 3e 31 32 37 3a ef  43 25 2c 38 3a 43 25 3d  |%<>127:.C%,8:C%=|
000004d0  30 0d 01 90 1a e7 45 25  3d 30 80 44 25 3d 30 80  |0.....E%=0.D%=0.|
000004e0  43 25 3d 31 32 37 3a 43  25 3d 30 0d 01 9a 12 ef  |C%=127:C%=0.....|
000004f0  33 31 2c 78 25 2c 79 25  2c 43 25 3a e1 0d 01 ae  |31,x%,y%,C%:....|
00000500  21 dd f2 4a 28 43 25 2c  45 25 2c 44 25 29 3a e7  |!..J(C%,E%,D%):.|
00000510  43 25 3d 32 34 35 3a 44  25 3d 44 25 2d 31 0d 01  |C%=245:D%=D%-1..|
00000520  c2 13 e7 43 25 3d 32 34  34 3a 44 25 3d 44 25 2b  |...C%=244:D%=D%+|
00000530  31 0d 01 cc 13 e7 43 25  3d 32 34 32 3a 45 25 3d  |1.....C%=242:E%=|
00000540  45 25 2d 31 0d 01 d6 13  e7 43 25 3d 32 34 33 3a  |E%-1.....C%=243:|
00000550  45 25 3d 45 25 2b 31 0d  01 e0 1f e7 43 25 3d 32  |E%=E%+1.....C%=2|
00000560  34 32 20 80 45 25 3c 30  20 45 25 3d 33 39 3a 44  |42 .E%<0 E%=39:D|
00000570  25 3d 44 25 2d 31 0d 01  ea 1f e7 43 25 3d 32 34  |%=D%-1.....C%=24|
00000580  33 20 80 45 25 3e 33 39  3a 45 25 3d 30 3a 44 25  |3 .E%>39:E%=0:D%|
00000590  3d 44 25 2b 31 0d 01 f4  1a e7 44 25 3e 32 33 3a  |=D%+1.....D%>23:|
000005a0  44 25 3d 32 33 8b e7 44  25 3c 30 3a 42 3d 30 0d  |D%=23..D%<0:B=0.|
000005b0  01 fe 1b 78 25 3d 45 25  3a 79 25 3d 44 25 3a 43  |...x%=E%:y%=D%:C|
000005c0  25 3d 30 3a 42 25 3d 30  3a e1 0d 02 12 1e dd f2  |%=0:B%=0:.......|
000005d0  4b 28 43 25 2c 45 25 2c  44 25 29 3a e7 43 25 3d  |K(C%,E%,D%):.C%=|
000005e0  31 36 30 3a 44 25 3d 30  0d 02 26 11 e7 43 25 3d  |160:D%=0..&..C%=|
000005f0  31 35 39 3a 44 25 3d 32  33 0d 02 30 10 e7 43 25  |159:D%=23..0..C%|
00000600  3d 31 35 37 3a 45 25 3d  30 0d 02 3a 11 e7 43 25  |=157:E%=0..:..C%|
00000610  3d 31 35 38 3a 45 25 3d  33 39 0d 02 44 1b 78 25  |=158:E%=39..D.x%|
00000620  3d 45 25 3a 79 25 3d 44  25 3a 43 25 3d 30 3a 42  |=E%:y%=D%:C%=0:B|
00000630  25 3d 30 3a e1 0d 02 58  41 dd f2 4d 28 43 25 2c  |%=0:...XA..M(C%,|
00000640  45 25 2c 44 25 2c 46 25  29 3a e7 43 25 3d 31 34  |E%,D%,F%):.C%=14|
00000650  32 80 44 25 3d 32 33 3a  ef 46 25 2c 38 20 8b e7  |2.D%=23:.F%,8 ..|
00000660  43 25 3d 31 34 32 80 44  25 3c 3e 32 33 3a ef 31  |C%=142.D%<>23:.1|
00000670  30 2c 46 25 2c 38 0d 02  6c 2e e7 43 25 3d 31 34  |0,F%,8..l..C%=14|
00000680  33 80 44 25 3d 30 3a ef  46 25 2c 38 20 8b e7 43  |3.D%=0:.F%,8 ..C|
00000690  25 3d 31 34 33 80 44 25  3c 3e 30 3a ef 31 31 2c  |%=143.D%<>0:.11,|
000006a0  46 25 2c 38 0d 02 76 2c  e7 43 25 3d 31 34 30 80  |F%,8..v,.C%=140.|
000006b0  44 25 3d 30 80 45 25 3d  30 3a ef 46 25 2c 38 20  |D%=0.E%=0:.F%,8 |
000006c0  8b e7 43 25 3d 31 34 30  3a ef 38 2c 46 25 2c 38  |..C%=140:.8,F%,8|
000006d0  0d 02 80 2e e7 43 25 3d  31 34 31 80 45 25 3d 33  |.....C%=141.E%=3|
000006e0  39 80 44 25 3d 32 33 3a  ef 46 25 2c 38 20 8b e7  |9.D%=23:.F%,8 ..|
000006f0  43 25 3d 31 34 31 3a ef  39 2c 46 25 2c 38 0d 02  |C%=141:.9,F%,8..|
00000700  8a 19 43 25 3d 30 3a 42  25 3d 30 3a 78 25 3d b1  |..C%=0:B%=0:x%=.|
00000710  3a 79 25 3d bc 3a e1 0d  02 94 4e dd f2 48 28 43  |:y%=.:....N..H(C|
00000720  25 2c 45 25 2c 44 25 29  3a 41 25 3d 26 38 37 3a  |%,E%,D%):A%=&87:|
00000730  46 25 3d ba 26 46 46 46  34 3a 46 25 3d 46 25 80  |F%=.&FFF4:F%=F%.|
00000740  26 46 46 46 46 3a 46 25  3d 46 25 81 26 31 30 30  |&FFFF:F%=F%.&100|
00000750  3a e7 46 25 3d 33 32 84  46 25 3d 31 36 30 3a 43  |:.F%=32.F%=160:C|
00000760  24 3d 22 20 22 0d 02 a8  11 e7 46 25 3d 31 36 30  |$=" ".....F%=160|
00000770  3a 43 24 3d 22 22 0d 02  b2 27 e7 46 25 3e 3d 31  |:C$=""...'.F%>=1|
00000780  32 38 80 46 25 3c 31 36  30 3a 6e 25 3d 46 25 2d  |28.F%<160:n%=F%-|
00000790  31 32 38 3a 43 24 3d 41  24 28 6e 25 29 0d 02 bc  |128:C$=A$(n%)...|
000007a0  19 e7 46 25 3e 33 32 80  46 25 3c 3d 31 32 36 3a  |..F%>32.F%<=126:|
000007b0  43 24 3d bd 46 25 0d 02  c6 19 e7 46 25 3e 31 36  |C$=.F%.....F%>16|
000007c0  30 80 46 25 3c 32 35 36  3a 43 24 3d bd 46 25 0d  |0.F%<256:C$=.F%.|
000007d0  02 d0 13 e7 46 25 3c 33  32 3a 43 24 3d 22 49 43  |....F%<32:C$="IC|
000007e0  50 22 0d 02 da 8d ef 32  33 3b 38 32 30 32 3b 30  |P".....23;8202;0|
000007f0  3b 30 3b 30 3b 3a f1 8a  30 2c 32 34 29 3b bd 31  |;0;0;:..0,24);.1|
00000800  33 32 3b bd 31 35 37 3b  bd 31 33 35 3b c2 22 20  |32;.157;.135;." |
00000810  30 30 22 2b c3 28 78 25  29 2c 32 29 2b 22 20 22  |00"+.(x%),2)+" "|
00000820  2b c2 22 20 30 30 22 2b  c3 28 79 25 29 2c 32 29  |+." 00"+.(y%),2)|
00000830  3b 8a 31 30 2c 32 34 29  3b c2 22 20 20 20 20 22  |;.10,24);."    "|
00000840  2b 43 24 2c 33 29 3b 22  20 20 22 3b c2 22 20 20  |+C$,3);"  ";."  |
00000850  20 20 22 2b c3 28 46 25  29 2c 33 29 3b 3a ef 33  |  "+.(F%),3);:.3|
00000860  31 2c 78 25 2c 79 25 3a  4c 25 3d 46 25 3a e1 0d  |1,x%,y%:L%=F%:..|
00000870  02 f8 3f dd f2 49 28 43  25 2c 45 25 2c 44 25 2c  |..?..I(C%,E%,D%,|
00000880  46 25 29 3a 46 25 3d 46  25 84 31 32 38 3a 4b 25  |F%):F%=F%.128:K%|
00000890  3d a7 22 51 57 41 53 5a  52 58 22 2c bd 28 43 25  |=."QWASZRX",.(C%|
000008a0  80 26 44 46 29 29 3a e7  4b 25 3d 30 3a e1 0d 03  |.&DF)):.K%=0:...|
000008b0  16 1c 43 25 3d 30 3a 42  25 3d 30 3a e7 4b 25 3d  |..C%=0:B%=0:.K%=|
000008c0  36 80 46 25 3c 31 32 36  3a e1 0d 03 20 30 e7 4b  |6.F%<126:... 0.K|
000008d0  25 3d 36 80 b1 2a bc 3c  38 37 39 3a 46 25 3d 28  |%=6..*.<879:F%=(|
000008e0  46 25 82 39 35 29 3a ef  46 25 3a 45 25 3d 45 25  |F%.95):.F%:E%=E%|
000008f0  2b 31 3a 78 25 3d 45 25  3a e1 0d 03 2a 20 4b 25  |+1:x%=E%:...* K%|
00000900  3d 32 5e 4b 25 2f 32 3a  46 25 3d 28 46 25 82 4b  |=2^K%/2:F%=(F%.K|
00000910  25 29 3a ef 46 25 2c 38  3a e1 0d 03 3e 5d dd f2  |%):.F%,8:...>]..|
00000920  44 28 43 25 2c 45 25 2c  44 25 29 3a e7 43 25 3d  |D(C%,E%,D%):.C%=|
00000930  32 31 36 3a ef 37 3a f2  41 28 22 45 72 61 73 65  |216:.7:.A("Erase|
00000940  20 75 70 20 3f 20 20 20  20 22 2c 31 32 39 2c 31  | up ?    ",129,1|
00000950  33 31 2c 45 25 2c 44 25  29 3a 41 24 3d be 3a e7  |31,E%,D%):A$=.:.|
00000960  41 24 3d 22 59 22 3a ef  32 38 2c 30 2c 44 25 2c  |A$="Y":.28,0,D%,|
00000970  33 39 2c 30 2c 31 32 0d  03 52 52 e7 43 25 3d 32  |39,0,12..RR.C%=2|
00000980  31 37 3a f2 41 28 22 45  72 61 73 65 20 64 6f 77  |17:.A("Erase dow|
00000990  6e 20 3f 20 20 20 20 22  2c 31 32 39 2c 31 33 31  |n ?    ",129,131|
000009a0  2c 45 25 2c 44 25 29 3a  ef 37 3a 41 24 3d be 3a  |,E%,D%):.7:A$=.:|
000009b0  e7 41 24 3d 22 59 22 3a  ef 32 38 2c 30 2c 32 33  |.A$="Y":.28,0,23|
000009c0  2c 33 39 2c 44 25 2c 31  32 0d 03 5c 26 e7 43 25  |,39,D%,12..\&.C%|
000009d0  3d 32 32 32 3a ef 33 31  2c 30 2c 44 25 3a f1 c4  |=222:.31,0,D%:..|
000009e0  45 25 2c 22 20 22 29 3b  bd 33 32 3b bd 38 3b 0d  |E%," ");.32;.8;.|
000009f0  03 66 1c e7 43 25 3d 32  32 33 3a f1 c4 34 30 2d  |.f..C%=223:..40-|
00000a00  45 25 2c 22 20 22 29 3b  bd 30 3b 0d 03 70 1c 43  |E%," ");.0;..p.C|
00000a10  25 3d 30 3a 42 25 3d 30  3a ef 32 36 2c 33 31 2c  |%=0:B%=0:.26,31,|
00000a20  45 25 2c 44 25 3a e1 0d  03 7a 4e dd f2 41 28 61  |E%,D%:...zN..A(a|
00000a30  24 2c 48 25 2c 4e 25 2c  45 25 2c 44 25 29 3a f1  |$,H%,N%,E%,D%):.|
00000a40  8a 31 39 2c 32 34 29 3b  bd 48 25 3b bd 31 35 37  |.19,24);.H%;.157|
00000a50  3b bd 4e 25 3b 61 24 3b  3a ef 33 31 2c 45 25 2c  |;.N%;a$;:.31,E%,|
00000a60  44 25 3b 32 33 3b 31 30  2c 31 32 38 3b 30 3b 30  |D%;23;10,128;0;0|
00000a70  3b 30 3b 3a e1 0d 03 a2  5c dd f2 47 3a ef 37 3a  |;0;:....\..G:.7:|
00000a80  f2 41 28 22 43 68 61 6e  67 65 3a 20 20 20 20 20  |.A("Change:     |
00000a90  20 20 22 2c 31 32 39 2c  31 33 31 2c 33 31 2c 32  |  ",129,131,31,2|
00000aa0  34 29 3a f2 42 28 33 31  2c b9 2c 33 29 3a 61 25  |4):.B(31,.,3):a%|
00000ab0  3d bb 42 24 3a e7 61 25  3c 33 32 84 61 25 3e 32  |=.B$:.a%<32.a%>2|
00000ac0  35 35 3a 43 25 3d 30 3a  42 25 3d 30 3a ef 37 3a  |55:C%=0:B%=0:.7:|
00000ad0  e1 0d 03 ca 53 f2 41 28  22 43 6f 64 65 3a 20 20  |....S.A("Code:  |
00000ae0  20 20 20 20 20 22 2c 31  32 39 2c 31 33 31 2c 32  |     ",129,131,2|
00000af0  37 2c 32 34 29 3a f2 42  28 32 37 2c b9 2c 33 29  |7,24):.B(27,.,3)|
00000b00  3a 62 25 3d bb 42 24 3a  e7 62 25 3c 33 32 84 62  |:b%=.B$:.b%<32.b|
00000b10  25 3e 32 35 35 3a 43 25  3d 30 3a 42 25 3d 30 3a  |%>255:C%=0:B%=0:|
00000b20  ef 37 3a e1 0d 03 e8 44  f2 41 28 22 45 78 63 68  |.7:....D.A("Exch|
00000b30  61 6e 67 69 6e 67 2e 2e  2e 22 2c 31 32 39 2c 31  |anging...",129,1|
00000b40  33 31 2c 33 35 2c 32 34  29 3a e3 49 25 3d 26 37  |31,35,24):.I%=&7|
00000b50  43 30 30 b8 26 37 46 42  46 3a e7 3f 49 25 3d 61  |C00.&7FBF:.?I%=a|
00000b60  25 3a 3f 49 25 3d 62 25  0d 03 fc 1b ed 49 25 3a  |%:?I%=b%.....I%:|
00000b70  ef 33 31 2c 30 2c 30 3a  43 25 3d 30 3a 42 25 3d  |.31,0,0:C%=0:B%=|
00000b80  30 3a e1 0d 04 10 32 dd  f2 42 28 45 25 2c 50 25  |0:....2..B(E%,P%|
00000b90  2c 52 25 29 3a 42 24 3d  22 22 3a f5 41 3d a5 3a  |,R%):B$="":.A=.:|
00000ba0  e7 41 3d 31 33 3a e5 8d  54 64 44 8b e7 41 3c 33  |.A=13:..TdD..A<3|
00000bb0  32 3a 41 3d 30 0d 04 24  16 41 24 3d bd 41 3a e7  |2:A=0..$.A$=.A:.|
00000bc0  41 24 3d bd 33 32 41 24  3d 22 22 0d 04 38 2b e7  |A$=.32A$=""..8+.|
00000bd0  41 24 3d bd 31 32 37 42  24 3d c0 42 24 2c a9 42  |A$=.127B$=.B$,.B|
00000be0  24 2d 31 29 3a 41 24 3d  22 22 3a e7 42 24 3d 22  |$-1):A$="":.B$="|
00000bf0  22 42 24 3d 22 22 0d 04  42 11 e7 41 24 3d bd 31  |"B$=""..B..A$=.1|
00000c00  33 3a e5 8d 44 60 44 0d  04 4c 1f e7 50 25 3d b9  |3:..D`D..L..P%=.|
00000c10  3a e7 41 24 3c bd 34 38  20 84 41 24 3e bd 35 37  |:.A$<.48 .A$>.57|
00000c20  3a 41 24 3d 22 22 0d 04  56 19 42 24 3d 42 24 2b  |:A$=""..V.B$=B$+|
00000c30  41 24 3a f1 8a 45 25 2c  32 34 29 3b 42 24 3b 0d  |A$:..E%,24);B$;.|
00000c40  04 60 25 fd a9 42 24 3d  52 25 20 84 41 24 3d bd  |.`%..B$=R% .A$=.|
00000c50  31 33 3a 41 24 3d 22 22  3a 43 25 3d 30 3a 42 25  |13:A$="":C%=0:B%|
00000c60  3d 30 3a e1 0d 04 7e 58  dd f2 53 3a f2 41 28 22  |=0:...~X..S:.A("|
00000c70  57 69 70 65 20 3f 20 20  20 20 20 20 20 22 2c 31  |Wipe ?       ",1|
00000c80  32 39 2c 31 33 31 2c 32  38 2c 32 34 29 3a f2 42  |29,131,28,24):.B|
00000c90  28 32 38 2c a3 2c 33 29  3a 45 24 3d 42 24 3a e7  |(28,.,3):E$=B$:.|
00000ca0  45 24 3d 22 59 45 53 22  3a ef 32 38 2c 30 2c 32  |E$="YES":.28,0,2|
00000cb0  33 2c 33 39 2c 30 2c 31  32 2c 32 36 0d 04 88 1f  |3,39,0,12,26....|
00000cc0  78 25 3d 30 3a 79 25 3d  30 3a 42 25 3d 30 3a 43  |x%=0:y%=0:B%=0:C|
00000cd0  25 3d 30 3a 45 24 3d 22  22 3a e1 0d 04 9c 48 dd  |%=0:E$="":....H.|
00000ce0  f2 50 3a ef 37 3a f2 41  28 22 53 61 76 65 20 28  |.P:.7:.A("Save (|
00000cf0  59 2f 4e 29 3f 20 20 22  2c 31 32 39 2c 31 33 31  |Y/N)?  ",129,131|
00000d00  2c 33 34 2c 32 34 29 3a  f2 42 28 33 35 2c a3 2c  |,34,24):.B(35,.,|
00000d10  31 29 3a 45 24 3d 42 24  3a e7 45 24 3c 3e 22 59  |1):E$=B$:.E$<>"Y|
00000d20  22 3a e1 0d 04 a6 93 f2  41 28 22 54 69 74 6c 65  |":......A("Title|
00000d30  3a 20 20 20 20 20 20 20  20 22 2c 31 32 39 2c 31  |:        ",129,1|
00000d40  33 31 2c 33 30 2c 32 34  29 3a f2 42 28 32 39 2c  |31,30,24):.B(29,|
00000d50  a3 2c 37 29 3a 24 26 39  30 30 3d 22 53 41 56 45  |.,7):$&900="SAVE|
00000d60  20 22 2b 42 24 2b 22 20  37 43 30 30 2b 33 43 30  | "+B$+" 7C00+3C0|
00000d70  20 37 43 30 30 22 3a f2  41 28 22 53 61 76 69 6e  | 7C00":.A("Savin|
00000d80  67 20 22 2b 42 24 2c 31  32 39 2c 31 33 31 2c 33  |g "+B$,129,131,3|
00000d90  38 2c 32 34 29 3a 58 25  3d 26 39 30 30 83 32 35  |8,24):X%=&900.25|
00000da0  36 3a 59 25 3d 26 39 30  30 81 32 35 36 3a d6 26  |6:Y%=&900.256:.&|
00000db0  46 46 46 37 3a e1 0d 04  ba 49 dd f2 51 3a ef 37  |FFF7:....I..Q:.7|
00000dc0  3a f2 41 28 22 4c 6f 61  64 20 28 59 2f 4e 29 3f  |:.A("Load (Y/N)?|
00000dd0  20 20 20 22 2c 31 32 39  2c 31 33 31 2c 33 34 2c  |   ",129,131,34,|
00000de0  32 34 29 3a f2 42 28 33  34 2c a3 2c 31 29 3a 45  |24):.B(34,.,1):E|
00000df0  24 3d 42 24 3a e7 45 24  3c 3e 22 59 22 3a e1 0d  |$=B$:.E$<>"Y":..|
00000e00  04 c4 97 f2 41 28 22 54  69 74 6c 65 3a 20 20 20  |....A("Title:   |
00000e10  20 20 20 20 20 22 2c 31  32 39 2c 31 33 31 2c 32  |     ",129,131,2|
00000e20  38 2c 32 34 29 3a f2 42  28 32 38 2c a3 2c 37 29  |8,24):.B(28,.,7)|
00000e30  3a f2 41 28 22 4c 6f 61  64 69 6e 67 20 22 2b 42  |:.A("Loading "+B|
00000e40  24 2c 31 32 39 2c 31 33  31 2c 33 38 2c 32 34 29  |$,129,131,38,24)|
00000e50  3a 24 26 39 30 30 3d 22  4c 4f 41 44 20 22 2b 42  |:$&900="LOAD "+B|
00000e60  24 2b 22 20 37 43 30 30  22 3a 58 25 3d 26 39 30  |$+" 7C00":X%=&90|
00000e70  30 83 32 35 36 3a 59 25  3d 26 39 30 30 81 32 35  |0.256:Y%=&900.25|
00000e80  36 3a d6 26 46 46 46 37  3a f1 8a 30 2c 32 34 29  |6:.&FFF7:..0,24)|
00000e90  3b 46 24 3b 3a e1 0d 04  d8 38 dd f2 54 28 45 25  |;F$;:....8..T(E%|
00000ea0  2c 44 25 29 3a e7 44 25  3d 32 33 20 80 45 25 3e  |,D%):.D%=23 .E%>|
00000eb0  33 32 3a ef 37 3a e1 20  8b f1 8a 45 25 2c 44 25  |32:.7:. ...E%,D%|
00000ec0  29 3b c2 91 24 2c 38 29  3b bd 38 3b 3a e1 0d 04  |);..$,8);.8;:...|
00000ed0  e2 39 dd f2 55 28 45 25  2c 44 25 29 3a e7 44 25  |.9..U(E%,D%):.D%|
00000ee0  3d 32 33 20 80 45 25 3e  32 35 3a ef 37 3a e1 20  |=23 .E%>25:.7:. |
00000ef0  8b f1 8a 45 25 2c 44 25  29 3b c0 91 24 2c 31 35  |...E%,D%);..$,15|
00000f00  29 3b bd 38 3b 3a e1 0d  04 ec 34 dd f2 46 28 43  |);.8;:....4..F(C|
00000f10  25 2c 45 25 2c 44 25 29  3a e7 43 25 3d 32 32 35  |%,E%,D%):.C%=225|
00000f20  3a e3 47 25 3d 44 25 b8  30 88 2d 31 3a f1 8a 45  |:.G%=D%.0.-1:..E|
00000f30  25 2c 47 25 29 22 20 22  3b 3a ed 0d 04 f6 24 e7  |%,G%)" ";:....$.|
00000f40  43 25 3d 32 32 34 3a e3  47 25 3d 44 25 b8 32 33  |C%=224:.G%=D%.23|
00000f50  3a f1 8a 45 25 2c 47 25  29 22 20 22 3b 3a ed 0d  |:..E%,G%)" ";:..|
00000f60  05 00 19 45 25 3d 30 3a  44 25 3d 30 3a 42 25 3d  |...E%=0:D%=0:B%=|
00000f70  30 3a 43 25 3d 30 3a e1  0d 05 14 1c dd f2 59 28  |0:C%=0:.......Y(|
00000f80  45 25 2c 44 25 29 3a e7  45 25 3e 3d 33 39 3a e5  |E%,D%):.E%>=39:.|
00000f90  8d 54 7c 45 0d 05 1e 21  53 25 3d 31 35 37 3a 48  |.T|E...!S%=157:H|
00000fa0  25 3d 48 25 2b 31 3a e7  48 25 3e 31 33 36 3a 48  |%=H%+1:.H%>136:H|
00000fb0  25 3d 31 32 39 0d 05 28  18 e7 48 25 3d 31 33 36  |%=129..(..H%=136|
00000fc0  3a 48 25 3d 31 35 36 3a  53 25 3d 33 32 0d 05 32  |:H%=156:S%=32..2|
00000fd0  21 e3 51 25 3d 44 25 b8  32 33 3a f1 8a 45 25 2c  |!.Q%=D%.23:..E%,|
00000fe0  51 25 29 3b bd 48 25 3b  bd 53 25 3b 3a ed 0d 05  |Q%);.H%;.S%;:...|
00000ff0  3c 0f 43 25 3d 30 3a 42  25 3d 30 3a e1 0d 05 50  |<.C%=0:B%=0:...P|
00001000  48 dd f2 58 28 43 25 29  3a e7 43 25 3d 32 33 30  |H..X(C%):.C%=230|
00001010  84 43 25 3d 32 33 31 3a  43 25 3d 43 25 2d 39 30  |.C%=231:C%=C%-90|
00001020  20 8b e7 43 25 3e 32 33  31 3a 43 25 3d 43 25 2d  | ..C%>231:C%=C%-|
00001030  37 36 20 8b e7 43 25 3d  31 34 31 80 bc 3d 32 33  |76 ..C%=141..=23|
00001040  3a 43 25 3d 30 0d 05 5a  0b 42 25 3d 43 25 3a e1  |:C%=0..Z.B%=C%:.|
00001050  0d 05 6e 4e dd f2 57 3a  ef 37 3a f2 41 28 22 52  |..nN..W:.7:.A("R|
00001060  65 76 65 61 6c 69 6e 67  20 20 20 20 20 20 20 22  |evealing       "|
00001070  2c 31 32 39 2c 31 33 31  2c 33 37 2c 32 34 29 3a  |,129,131,37,24):|
00001080  e3 41 25 3d 26 37 43 30  30 b8 26 37 46 42 46 3a  |.A%=&7C00.&7FBF:|
00001090  e7 3f 41 25 3d 31 35 32  3a 3f 41 25 3d 38 0d 05  |.?A%=152:?A%=8..|
000010a0  78 4e ed 3a f2 41 28 22  50 72 65 73 73 20 61 6e  |xN.:.A("Press an|
000010b0  79 20 6b 65 79 20 20 20  22 2c 31 32 39 2c 31 33  |y key   ",129,13|
000010c0  31 2c 33 39 2c 32 34 29  3a 41 25 3d a5 3a e3 41  |1,39,24):A%=.:.A|
000010d0  25 3d 26 37 43 30 30 b8  26 37 46 42 46 3a e7 3f  |%=&7C00.&7FBF:.?|
000010e0  41 25 3d 38 3a 3f 41 25  3d 31 35 32 0d 05 82 0c  |A%=8:?A%=152....|
000010f0  ed 3a 42 25 3d 30 3a e1  0d 05 96 25 dd f2 5a 28  |.:B%=0:....%..Z(|
00001100  43 25 2c 45 25 2c 44 25  29 3a e7 44 25 3e 32 32  |C%,E%,D%):.D%>22|
00001110  84 45 25 3e 33 37 3a 42  25 3d 30 3a e1 0d 05 a0  |.E%>37:B%=0:....|
00001120  92 ef 37 3a f2 41 28 22  44 6f 75 62 6c 65 20 68  |..7:.A("Double h|
00001130  65 69 67 68 74 20 20 20  22 2c 31 32 39 2c 31 33  |eight   ",129,13|
00001140  31 2c 33 39 2c 32 34 29  3a ef 33 31 2c 45 25 2c  |1,39,24):.31,E%,|
00001150  44 25 2c 31 34 31 2c 31  30 2c 38 2c 31 34 31 3a  |D%,141,10,8,141:|
00001160  f5 4a 25 3d a5 3a e7 4a  25 3d 31 32 37 80 b1 3d  |.J%=.:.J%=127..=|
00001170  45 25 2b 31 3a 4a 25 3d  30 8b e7 4a 25 3d 31 32  |E%+1:J%=0..J%=12|
00001180  37 3a ef 31 32 37 2c 39  2c 31 31 2c 31 32 37 2c  |7:.127,9,11,127,|
00001190  31 30 8b e7 4a 25 3e 33  31 80 4a 25 3c 31 32 37  |10..J%>31.J%<127|
000011a0  3a ef 4a 25 2c 38 2c 31  31 2c 4a 25 2c 31 30 0d  |:.J%,8,11,J%,10.|
000011b0  05 aa 33 fd b1 3e 33 38  84 4a 25 3d 32 33 36 3a  |..3..>38.J%=236:|
000011c0  45 25 3d 30 3a 44 25 3d  30 3a 78 25 3d 30 3a 79  |E%=0:D%=0:x%=0:y|
000011d0  25 3d bc 2b 31 3a e7 79  25 3d 32 34 3a 79 25 3d  |%=.+1:.y%=24:y%=|
000011e0  32 33 0d 05 b4 0f 42 25  3d 30 3a 43 25 3d 30 3a  |23....B%=0:C%=0:|
000011f0  e1 0d 05 c8 70 dd f2 56  28 54 25 2c 55 25 29 e7  |....p..V(T%,U%).|
00001200  4f 25 3d b9 3a f6 3a ef  37 3a f1 27 27 22 48 69  |O%=.:.:.7:.''"Hi|
00001210  74 20 61 6e 79 20 6b 65  79 2e 2e 2e 22 3b 3a 44  |t any key...";:D|
00001220  3d a5 3a 4f 25 3d a3 3a  f2 45 3a f2 43 3a e1 8b  |=.:O%=.:.E:.C:..|
00001230  24 26 37 46 43 31 3d 46  24 3a ef 33 31 2c 30 2c  |$&7FC1=F$:.31,0,|
00001240  32 33 2c 37 3a f6 3a 57  3d a6 31 35 30 3a 24 26  |23,7:.:W=.150:$&|
00001250  37 46 43 31 3d 46 24 3a  ef 33 31 2c 30 2c 30 3a  |7FC1=F$:.31,0,0:|
00001260  e1 0d 05 dc 23 dd f2 4c  3a e7 78 25 3d 33 39 20  |....#..L:.x%=39 |
00001270  80 79 25 3d 32 33 3a ef  32 35 35 2c 38 3a 42 25  |.y%=23:.255,8:B%|
00001280  3d 30 3a e1 0d 05 f0 17  ef 32 35 35 3a 78 25 3d  |=0:......255:x%=|
00001290  78 25 2b 31 3a 42 25 3d  30 3a e1 0d 05 fa 2b dd  |x%+1:B%=0:....+.|
000012a0  f2 52 3a f2 4f 3a db 3a  ef 37 3a f1 22 4f 53 20  |.R:.O:.:.7:."OS |
000012b0  63 6d 64 20 73 79 73 74  65 6d 22 27 27 3a 2a 46  |cmd system"'':*F|
000012c0  58 32 32 35 2c 31 0d 06  0e 0a 2a 46 58 34 2c 30  |X225,1....*FX4,0|
000012d0  0d 06 18 37 58 25 3d 26  39 30 30 83 32 35 36 3a  |...7X%=&900.256:|
000012e0  59 25 3d 26 39 30 30 81  32 35 36 3a f5 f1 3a e8  |Y%=&900.256:..:.|
000012f0  22 2a 22 44 24 3a e7 44  24 3d 22 54 54 58 22 3a  |"*"D$:.D$="TTX":|
00001300  e5 8d 54 76 46 8b f1 0d  06 2c 1c 24 26 39 30 30  |..TvF....,.$&900|
00001310  3d 44 24 3a d6 26 46 46  46 37 3a 24 26 39 30 30  |=D$:.&FFF7:$&900|
00001320  3d 22 22 0d 06 36 1f fd  44 24 3d 22 54 54 58 22  |=""..6..D$="TTX"|
00001330  3a f2 45 3a 42 25 3d 30  3a 4f 25 3d a3 3a f2 43  |:.E:B%=0:O%=.:.C|
00001340  3a e1 0d 06 4a 2c dd f2  4f 3a e3 49 25 3d 30 b8  |:...J,..O:.I%=0.|
00001350  26 33 43 30 88 34 3a 49  25 21 26 35 30 30 30 3d  |&3C0.4:I%!&5000=|
00001360  49 25 21 26 37 43 30 30  3a ed 49 25 3a e1 0d 06  |I%!&7C00:.I%:...|
00001370  54 2e dd f2 45 3a db 3a  e3 49 25 3d 30 b8 26 33  |T...E:.:.I%=0.&3|
00001380  43 30 88 34 3a 49 25 21  26 37 43 30 30 3d 49 25  |C0.4:I%!&7C00=I%|
00001390  21 26 35 30 30 30 3a ed  49 25 3a e1 0d 06 5e 10  |!&5000:.I%:...^.|
000013a0  dd f2 43 3a ef 36 3a 2a  4f 50 54 30 0d 06 72 0c  |..C:.6:*OPT0..r.|
000013b0  2a 46 58 32 30 30 2c 33  0d 06 7c 0c 2a 46 58 32  |*FX200,3..|.*FX2|
000013c0  31 34 2c 31 0d 06 86 0d  2a 46 58 32 31 33 2c 34  |14,1....*FX213,4|
000013d0  30 0d 06 90 0c 2a 46 58  32 31 39 2c 31 0d 06 9a  |0....*FX219,1...|
000013e0  0c 2a 46 58 32 32 39 2c  31 0d 06 a4 0a 2a 46 58  |.*FX229,1....*FX|
000013f0  34 2c 32 0d 06 ae 0e 2a  46 58 32 35 35 20 32 30  |4,2....*FX255 20|
00001400  37 0d 06 b8 0e 2a 46 58  32 32 35 2c 32 33 30 0d  |7....*FX225,230.|
00001410  06 c2 0e 2a 46 58 32 32  36 2c 31 32 38 0d 06 cc  |...*FX226,128...|
00001420  0e 2a 46 58 32 32 37 2c  31 34 35 0d 06 d6 0e 2a  |.*FX227,145....*|
00001430  46 58 32 32 38 2c 32 31  30 0d 06 e0 05 e1 0d e1  |FX228,210.......|
00001440