Space
------------------------------------------------
Version: 1.0
Date: 1999
Creator: Jean-Baptiste Simillon (jbsimillon@ifrance.com)
Description: In this game you must destroy a vessel (the triangle) which is protected by
an armour (the line)... The wind can affect your firing (see the line on top of the screen).
You must give the position where you want to shoot from (1-60 approx.), the speed of the 
missile and when it will explode.. For example if speed = time then the missile will explode 
just  before  it begins to go down... When you hit the vessel then an other appear, but 
smaller... and when there will be no more vessel (...) :)
Comments: "->" is "STO>"
	  @ is "2nd + 3"
	  >= is "2nd + test   4"
	  <= is "2nd + test   6"
	  (-) is the button with written (-) on it
Known bugs: None. Report bugs,  to jbsimillon@ifrance.com
Size: 755 bytes. (french version)

PROGRAM:SPACE
10->C
IF @=(-)1234:INPUT "LEVEL:",C
0->@
LBL 5
CLRDRAW
CLRHOME
0->A
0->B
C->D
0->E
0->I
0->J
10->XMIN
10->YMIN
72->XMAX
56->YMAX
RANDINT(20,60)->A
RANDINT(35,50)->B
RANDINT(20,25)->Q
RANDINT(10,42)->R
RANDINT(25,40)->@
LBL 3
FOR(O,34,56
PT-OFF(O,54
END
RANDINT((-)10,10)->Z
CLRHOME
LINE(R,Q,R+@,Q
LINE(A,B,A-C,B-D
LINE(A,B,A+C,B-D
LINE(A-C,B-D,A+C,B-D
LINE(45,54,45+Z,54
LINE(45,53,45,55
LBL 4
DISPGRAPH
PAUSE
CLRHOME
DISP "   SPACE"
DISP "(-)1234 : SCREEN"
DIPS ""
INPUT "POSITION:",E
IF E=(-)1234:GOTO 4
INPUT "SPEED:",L
IF L=(-)1234:GOTO 4
INPUT "TIME:",K
IF K=(-)1234:GOTO 4
L+10->L
E+10->E
0->V
FOR(M,10,L
IF M-10=K:GOTO 1
IF M=Q:THEN
IF E>=R:THEN
IF E<=R+@:THEN
GOTO 1
END
END
END
M->T
E+Z/10->E
E->U
PT-ON(U,T
PT-OFF(V,M-1
U->V
END
LBL 9
PT-OFF(V,M-1
0->V
FOR(M,0,L-10
IF M+L-10=K:GOTO 1
L-M->T
E+Z/10->E
E->U
PT-ON(U,T
PT-OFF(V,L-M+1
U->V
END
LBL 1
LINE(E+2,T+2,E-2,T-2
LINE(E-2,T+2,E+2,T-2
IF E>=A-C:THEN
IF E<=A+C:THEN
IF T>=B-D:THEN
IF T<=B:THEN
LINE(A-20,B-D/2-20,A+20,B-D/2+20
LINE(A-20,B-D/2+20,A+20,B-D/2-20
PAUSE
C-2->C
C->D
IF C<=0:THEN
CLRHOME
DISP ""
DISP "   YOU WIN!!"
DISP ""
GOTO 2
END
GOTO 5
END
END
END
END
GOTO 3
LBL 2
------------------------------------------------