5 " " WAIT 0: CLS : GOSUB 200: CURSOR 0: PRINT "SON :_": CALL &1204:Z=( PEEK &6F57=79) OR ( PEEK &6F57=111): RANDOM 10 WAIT 0: CLS : CURSOR 8: PRINT "* EXO7 *":V=1,W=1: PRINT " Vitesse": CURSOR 34: INPUT "AVION :";V,"MISSILE :";W 20 V= INT ABS V,W= INT ABS W,X=5,Y=3,M= RND 149,N= RND 31,C=0,S=0: CURSOR : IF V>9 OR W>9 THEN 10 30 PAUSE "Depart missile :";M;"/";N: CLS : LINE (0,0)-(10,7),B: LINE (140,24)-(149,31),&AFAF,BF 40 CALL &6C0F,40*Z:A= VAL INKEY$ :A=A*(A<>5): PSET (X,Y),X: PSET (M,N),X: GOTO 50+A 50 M=M+W* SGN (X-M),N=N+W* SGN (Y-N): GOTO 100 51 X=X-V,Y=Y+V: GOTO 60 52 Y=Y+V: GOTO 60 53 X=X+V,Y=Y+V: GOTO 60 54 X=X-V: GOTO 60 56 X=X+V: GOTO 60 57 X=X-V,Y=Y-V: GOTO 60 58 Y=Y-V: GOTO 60 59 X=X+V,Y=Y-V: GOTO 60 60 IF S=0 AND X>140 AND Y>24 LET S=1: BEEP 1*Z 70 IF S=1 AND X<10 AND Y<7 BEEP 3*Z: WAIT : CURSOR 72: PRINT "MISSION ACCOMPLIE :BRAVO": GOTO 10 80 IF C<>A LET C=A: GOTO 40 90 GOTO 50 100 IF ABS (X-M)=0 POKE A,B:A=A+1:C=(C=0): ON C+1 GOTO 230,240 220 RETURN 230 CURSOR 55: PRINT "en court": GOTO 210 240 CURSOR 55: PRINT " ": GOTO 210 250 DATA 4,&EA,&B8,&FD,&84,&F6,58,19,24,&82,10,52,2,33,&E4,&B3,&DA,52,&DA,47,1,2,1 260 DATA &E4,&B3,&DA,52,&DA,47,1,47,19,55,-1