#include <allegro.h>//Monospace Shooter 80x25 lines, in memory of Milo Sedlacek
char*d,*g,*D="5))B¥)šj**)l*)C‰¨+)+§¨))I))A-)3,¡�i<UEeq*J¤hI519›8141ƒd¡9Š2?)˜5)"
"Q5)A-)1)))5))?‰H<Y�J9yU9�‹™66:Ž |fSQ4¡h211E)7‰¨,}— “‘<F";volatile int t,E,i,j,
x,y,L,p,f,S,h,W=320,H=200,A=96,c=15,I[]={648,657,717,165,322};BITMAP*b[5],*r;B\
ITMAP*G(int s){x=s&31;s/=32;r=create_bitmap(s,x);x*=s;d=r->dat;for(;x;x--){++j>
6?y=(*g++)-41,j=0:0;*d++=y&(1<<j)?c:0;}return r;}void T(){t++;}int main(){stru\
ct{int t;float x,y,v,h;}e[W],*m=e+A,*o=e+H,*C,*M,*X,N={0,};g=D;allegro_init();\
install_keyboard();install_int(T,c);set_gfx_mode(0,W,H,0,0);text_mode(-1);j=6;\
for(i=h=0;i<5;i++)b[i]=G(I[i]);g=D;r=create_bitmap(W,H);for(;;){t=x=f=p=S=0;y=L
=E=A;memset(e,0,sizeof(e));while(E){clear(r);for(i=A,C=o,M=m;i;i--,C++,M++){j=\
rand();if(!C->t&&j&1)C->t=1,C->x=W,C->y=j%H,C->v=-(j%9)/6.-1;if(C->t&1)putpixel
(r,C->x,C->y,c);if(C->x<0)*C=N;if(C->t&2){circlefill(r,C->x+5,C->y+5,MIN(C->h,c
),c);C->h>c?circlefill(r,C->x+5,C->y+5,C->h-c,0):0;if(C->h++>30)*C=N;}C->x+=C->
v;if(!M->t&&key[75]&&!f)f=9,*M=N,M->t=1,M->x=x+f,M->y=y+3,M->v=4;if(M->t){M->x>
W?M->t=0:0;draw_sprite(r,b[4],M->x,M->y);for(j=A,X=e;j;j--,X++)if(X->t&&M->x+9>
X->x&&M->x<X->x+21&&M->y>X->y&&M->y<X->y+c)S+=X->t,X->t=2,X->h=0,*(X+H)=*X,*M=*
X=N;}M->x+=M->v;}for(i=A,C=e;i;i--,C++){C->t?draw_sprite(r,b[C->t],C->x,C->y):0
;C->y+=sin(C->h)*(C->t==2);C->h+=.02;C->x+=C->v;if(C->x<-c)*C=N;C->y+=C->t^3?0:
MIN(3/((C->x-x)/8.),3)*(C->y<y?1:-1);if(E>0&&C->t&&x+c>C->x&&x-c<C->x&&y+9>C->y
&&y-9<C->y)o->t=2,o->h=0,o->x=x,o->y=y,f=E=-E*3;}E>0?draw_sprite(r,*b,x,y):0;h=
S>h?S:h;textprintf(r,font,0,0,c,"SC %04d   HI %04d",S,h);blit(r,screen,0,0,0,0,
W,H);for(t=0;!t;);L--;if(!L){L=*(int*)g;C=e+p;for(i=16;i;i--,L/=4,C++){*C=N;C->
t=L&3;C->x=W+(i%4)*24;C->y=((i/2)*A+C->t*25)%H;C->v=-3./C->t;C->h=p;p++;p>A?p=\
0:0;}L=E;g+=4;g>D+120?g=D:0;}f?f--:0;E<0?E++:0;if(key[82]&&x)x--;if(key[83]&&x<
W)x++;if(key[84]&&y)y--;if(key[85]&&y<H)y++;if(key[59])exit(0);}}}END_OF_MAIN()