1 .
2 . SUPER SOFTWARE' S
3 . FALLING STARS
4 .
9 :return ;NT=0;clear ;BC=240;FC=125;W=1000
10 box 0,0,154,84,1;box 0,0,150,80,2;box 50,0,2,80,1;box -50,0,2,80,1;box 0,-25,98,2,3;goto 40
20 box 0,-33,98,14,2;for A=-48to 48step 3;X=rnd (8)+4;box A,-40+Xdiv 2,rnd (3)+1,X,1;next A
22 for A=-48to 48step 2;for B=1to 2;box A,-40+rnd (10),1,1,2;next B;next A;return
40 gosub 20;box 0,8,98,64,2
50 Y=0;Z=0;T=0;S=0;C=5;box 60,0,3,3,1;box -60,0,3,3,1;U=0;goto 310
51 CX=-66;CY=-35;print #2,R,;CY=-35;CX=58;print #2,C,;I=0
55 U=U+1;if U>7U=7
56 CY=35;CX=57;print "mul ",#2,U,
60 &(21)=15;for B=1to 5;for A=10to 90step 4;&(19)=A;next A;&(19)=0;next B;for A=0to 6step 3;gosub 700;next A
100 Z=JY(1)mul 10;if Z=0goto 130
103 box 60,Y,3,3,2;box -60,Y,3,3,2;if Y+Z>30Z=0
110 if Y+Z<-10Z=0
120 Y=Y+Z;box 60,Y,3,3,1;box -60,Y,3,3,1
130 for A=0to 6step 3;box @(A),@(A+1),3,3,Z;@(A+1)=@(A+1)+@(A+2);box @(A),@(A+1),3,3,3;next A
140 if Rif TR(1)T=1;box 0,Y,98,5,3;for A=0to 6step 3;if PX(@(A),@(A+1))=0gosub 500
150 if Tnext A;T=0;box 0,Y,98,5,3;R=R-1;CX=-66;CY=-35;print #2,R,
160 for A=0to 6step 3;if (@(A+1)>=-40)mul (@(A+1)<=-12)gosub 600
170 next A;if Igoto 300
180 goto 100
300 box 0,6,98,60,2;NT=2;for A=0to 9;MU="T";next A;NT=0;if R>0gosub 4000
310 I=0;H=15;R=15;box 0,6,98,60,2;gosub 2000;goto 51
400 NT=3;for A=1to 25;MU=rnd (13)+64;next A;NT=0;C=C+1;CY=-35;CX=58;print #2,C,
410 box 0,-25,98,2,1;W=W+1000;return
500 &(21)=255;&(23)=255;box @(A),@(A+1),3,3,3;S=S+10mul U;gosub 700;&(21)=0;&(23)=0;gosub 2010
510 if S>=Wgosub 400
520 return
600 box @(A),@(A+1),3,3,3;if PX(@(A),-26)gosub 800;return
610 if C=0goto 900
620 CY=-35;CX=58;C=C-1;print #2,C,;&(21)=255;&(23)=255
630 for D=1to 4;for B=2to 12step 2;&(19)=240;box @(A),-33,B,B,3;next B;next D
640 box @(A),-33,12,12,2;gosub 700;&(21)=0;&(23)=0;&(19)=0;return
700 H=H-1;if H<=0I=1;return
710 CX=-66;CY=35;print #2,H,;@(A)=rnd (88)-44;@(A+1)=36-rnd (3)mul 2;@(A+2)=-rnd (4)mul 2-U;return
800 box @(A),-25,8,2,2;NT=3;MU="E";NT=0;gosub 700;return
900 for A=1to 50step 2;&(21)=255;&(23)=255;&(19)=100-Amul 2;box 0,-32,98,16,3;next A;&(21)=0;&(23)=0;box 0,-32,98,16,2
920 gosub 2000;CY=16;CX=-24;print "GAME OVER
930 if &(23)run
940 goto 930
2000 CY=40;CX=-42;print "SCORE:   ",
2010 CY=40;CX=1;print #5,S,#0,"0";return
4000 for P=R-1to 0step -1;CX=-66;CY=-35;print #2,P,;S=S+2mul U;NT=1;MU="Q";NT=0;gosub 2010;next P;return