Hit 2001
------------------------------------------------
Version: 1.0
Date: 2001
Creator: Bob][ (bob-bob@ifrance.com)
         http://www.microbasic.fr.st
         http://www.microbasic.fr.fm
Description: In this game you must destroy a house with a missile... The missile is fired from
the bottom-left, you must give the speed of this missile and then the angle... and you will
see your firing.
Comments: "->" is "STO>"
	  >= is "2nd + test   4"
	  ^2 is X2 (square)
Known bugs: Graphical bug, not very important. Report bugs,  to bob-bob@ifrance.com
Size: about 740 bytes.


PROGRAM:HIT2001
6->XMIN
60->XMAX
0->XSCL
6->YMIN
60->YMAX
0->YSCL
CLRHOME
CLRDRAW
4->T
RANDINT(20,60)->L
LINE(L-2,6,L-2,12
LINE(L+2,6,L+2,12
LINE(L-2,12,L+2,12
LINE(L-2,6,L+2,6
LINE(L-2,12,L,14
LINE(L+2,12,L,14
PAUSE
LBL 0
0->X
0->Y
DISP ""
DISP "TARGET:",L
LBL V
INPUT "SPEED",V
IF V>100:GOTO V
LBL A
INPUT "ANGLE:",A
IF A>100:GOTO A
ROUND(V,0)->V
ROUND(A,0)->A
ROUND((V^2/9.82)SIN 2A,0->F
F/2->E
FOR(I,0,V,T
ROUND((I^2/9.82)SIN 2A,0->O
IF I<=V/1.5
I->G
I->N
IF I>V/1.5
G-(I-G)->N
PT-OFF(X+6,Y+6)
O->X
N->Y
PT-ON(O+6,N+6
END
PT-OFF(X+6,Y+6)
ROUND((V^2/9.82)SIN 2A,0->Q
PT-ON(Q,6)
IF F=L:THEN
LINE(L-3,15,L+3,5
LINE(L+3,15,L-3,5
PAUSE
GOTO 1
END
PAUSE
DISP "STRICKEN:",F
GOTO 0
LBL 1
CLRDRAW
LINE(20,6,20,36
LINE(46,6,46,36
LINE(20,36,46,36
LINE(20,36,33,56
LINE(46,36,33,56
FOR(I,1,27
PT-ON(6+I,60-I
PT-OFF(6+I-2,60-I+2
END
FOR(I,1,40
END
FOR(I,1,25,2
LINE(33-I,33-I,33+I,33+I
LINE(33-I,33+I,33+I,33-I
LINE(33,33-I,33,33+I
LINE(33-I,33,33+I,33
END
FOR(I,1,40
RANDINT(20,46)->X
RANDINT(6,56)->Y
LINE(X-5,Y-5,X+5,Y+5
LINE(X-5,Y+5,X+5,Y-5
END
PAUSE
DISP " YOU WIN!"