Coal ]&]&!_&CCOAL COLLECTOR By Craig Cole  Sinclair Programs, Nov 84  $a=0 7:s:"a"+a,s:a O255,170,255,60<,66B,129,129,129 $a=0 7:s:"b"+a,s:a O255,129,129,231,231,102f,36$,60< $a=0 7:s:"c"+a,s:a #M86V,170,86V,170,86V,170,86V,170 ($a=0 7:s:"d"+a,s:a -M0,16,16,144,144,146,146,146 2$a=0 7:s:"e"+a,s:a 7M24,62>,127,255,255,126~,62>,12 <$a=0 7:s:"f"+a,s:a AM85U,255,85U,255,85U,255,85U,255 F$a=0 7:s:"g"+a,s:a KQ128,132,140,159,191,159,140,132 P$a=0 7:s:"h"+a,s:a UG0,0,0,248,248,248,0,0 Z$a=0 7:s:"i"+a,s:a _Q128,128,159,159,159,128,128,128 d$a=0 7:s:"j"+a,s:a iK32 ,480,248,252,248,480,32 ,0 n$a=0 7:s:"k"+a,s:a sE2,2,3,125},31,15,6,5 x$a=0 7:s:"l"+a,s:a }N64@,64@,192,190,248,240,96`,160 $a=0 7:s:"m"+a,s:a Q192,224,176,184,248,248,216,236 $a=0 7:s:"n"+a,s:a G3,7,13 ,29,31,31,27,25 $a=0 7:s:"u"+a,s:a M126~,118v,247,251,60<,568,568,568 $a=0 7:s:"o"+a,s:a L0,60<,126~,102f,254,14,124|,60< $a=0 7:s:"p"+a,s:a O126~,118v,247,251,60<,119w,99c,231 $a=0 7:s:"q"+a,s:a P126~,110n,239,223,60<,110n,102f,238 $a=0 7:s:"r"+a,s:a L0,60<,126~,102f,127,112p,62>,60< $a=0 7:s:"s"+a,s:a P126~,118v,239,223,60<,118v,102f,119w $a=0 7:s:"t"+a,s:a P126~,118v,247,251,60<,118v,102f,119w 'score=0:lives=3 ,Bbat 1=28:bat 2=25:bat 3=28 -number=0 /.ghost 1=6:ghost 2=5 2coal 1=0:coal 2=0:coal 3=0:coal 4=0:coal 5=0:coal 6=0:coal 7=0 4 level=19:across=0 6h$="":l$="" K0,8:0,160:248,0:0,-160 1a=0 30:6,a;2;"":a M11 ,0;3;" ";2;"";"" 16,4;1;"";2;"";1;"";2;" ";1;"";2;"";1;"";2;"";1;"" t21,0;"";2;"";0;" ";2;"";" ";2;"";0;"" !20,14;0;"" &21,7;0;"" 21,23;"" f18,15;1;"":19,15;1;"":20,15;1;"" 1,0;3;"":2,0;3;"":3,0;2;"";3;"" !(1,10 ;1;"PERCY AND" "(2,10 ;1;" THE " #(3,10 ;1;" PICKETTS" 0 3,0;2;"" 5!18,0;2;"" :b10 ,0;0;"":10 ,18;0;"":10 ,30;0;"" ?A15,4;0;"":15,27;0;"" DB20,17;0;"":20,30;0;"" XL10 ,bat 1;2;"":10 ,ghost 1;1;"" Y0level=19 across=bat 3 900 ZL15,bat 2;0;"":15,ghost 2;2;"" [0level=14 across=bat 2 900 \%20,bat 3;1;"" ]2level=14 across=ghost 2 900 ^"1,21;"LIVES ";lives _1level=9 across=ghost 1 900 `"3,21;"SCORE ";score a/level=9 across=bat 1 900 ba=0 20:a dL10 ,bat 1;2;" ":10 ,ghost 1;1;" " e8level=19 across=bat 3+1 900 f8level=14 across=bat 2+1 900 gL15,bat 2;0;" ":15,ghost 2;2;" " h:level=14 across=ghost 2+1 900 i9level=9 across=ghost 1+1 900 j7level=9 across=bat 1+1 900 l%20,bat 3;1;" " ocbat 1=bat 1-1:bat 2=bat 2-1:bat 3=bat 3-1 qJghost 1=ghost 1+1:ghost 2=ghost 2+1 v-bat 1=20 bat 1=28 x-bat 2=16 bat 2=25 z-bat 3=18 bat 3=28 |0ghost 1=16 ghost 1=6 ~0ghost 2=13 ghost 2=5  650  600X ,level,across;h$:level+1,across;l$ ="w"680 ="q"700 =" "940 =""679  -across=30 level=19 685 ,across=30 level=9 685 ,across=30 level=4 685 .level,across;" ":level+1,across;" " lacross=across+1:level,across;"":level+1,across;"":h$="":l$="":a=0 8:a  706 -across=17 level=19 706 +across=0 level=9 706 ,across=0 level=19 706 .level,across;" ":level+1,across;" " lacross=across-1:level,across;"":level+1,across;"":h$="":l$="":a=0 8:a level=19 710 level=14 730 level=9 720 level=4 740 -across=7 across=23 900  across=bat 3 900 across=26 900 Iacross=17 coal 1=0 coal 1=1:960 Iacross=30 coal 2=0 coal 2=1:960  600X -across=8 across=12 920 6across=bat 1 across=ghost 1 900 .across=21 across=22 920 across=25 920 Hacross=0 coal 5=0 coal 5=1:960 Iacross=18 coal 6=0 coal 6=1:960 Iacross=30 coal 7=0 coal 7=1:960  600X across=14 900 6across=bat 2 across=ghost 2 900 -across=3 across=17 920 across=28 920 Hacross=4 coal 3=0 coal 3=1:960 Iacross=27 coal 4=0 coal 4=1:960  600X across=0 745  600X :4,10 ;"***********":5,10 ;"*WELL DONE*":6,10 ;"***PERCY***":7,10 ;"***********" j10 ,0;"BUT YOU NEED MORE COAL BECAUSE SOME OF YOUR FAMILY ARE COMING FOR THE WEEK" 018,8;1;"SO GET COLLECTING" 3a=0 10 :0.1}L,a:0.1}L,-a:a  0  :300, lives=lives-1 *0.5,-10 :0.3,-15 "1,21;"LIVES ";lives .level,across;" ":level+1,across;" " lives=0 980  level=19:across=1  600X .level,across;" ":level+1,across;" " level=level+3 Y0.1}L,-1:level,across;h$:level+1,across;"":a=0 15:a .level,across;" ":level+1,across;" " level=level+2 A0.1}L,-2:level,across;h$:level+1,across;"" 0.1}L,-3:600X ,across=5 level=19 951 -across=22 level=19 951 <across=27 level=9 number=7 951 -across=27 level=19 951 -across=23 level=14 951 ,across=7 level=14 951 -across=18 level=14 951 -across=13 level=14 951 -across=26 level=14 951  Elevel,across;" ":a=0 8:a:level+1,across;" " level=level-5 Sa=1 2:0.1}L,a:a:level,across;h$:a:level+1,across;l$  8score=score+27:3,21;"SCORE ";score number=number+1  600X ,:10 ,9 ;1;" GAME OVER " =19,1;1;"DO YOU WANT ANOTHER GAME (Y/N)" ="y"988 [="n":10 ,8;1;"G.O.O.D B.Y.E":a=0 8:0.1}L,a:a:  984  :295' ~