defender pour Sharp PC1500 ( pas de programme )
tir du magazine Hebdogiciel N82

	Ncessite l'extension PETOOLS.

	Petit jeu passionnant. O l'habilet de l'ennemi n'aura d'gal que votre rapidit et votre prcision.

Mode d'emploi :
	Les rgles sont incluses.

Programme :
1 REM *defenders*
2 REM *sur PC1500*
3 REM auteur:
4 REM frdric Groux
5 REM pour hebdogiciel
15 "A":CLS:WAIT 0:CURSOR 8:PRINT "*defenders*"
18 CALL 58188:POKE 30286,0,0
20 CLEAR:DIM A$(7),U$(1)*18,B$(7),C$(7)
30 PAUSE "vous avez 4 vaisseaux"
40 A$(1)="0303010101":A$(2)="0707020202":A$(3)="0E0E040404":A$(4)="1C1C080808"
50 A$(5)="3838101010":A$(6)="F0F0202020":A$(7)="6060404040"
60 B$(1)="010301010103":B$(2)="020702020207":B$(3)="040E0404040E"
70 B$(4)="081C0808081C":B$(5)="103810101038":B$(6)="20F0202020F0"
72 B$(7)="406040404060":U$(1)="082A2A1C7F1C2A2A08":R$="FF"
75 C$(1)="01010101":C$(2)="02020202":C$(3)="04040404":C$(4)="08080808"
76 C$(5)="10101010":C$(6)="20202020":C$(7)="40404040":W$="082A1CF1C2A08"
79 E=4:Y=150
90 RANDOM:O=RND 7:IF Y<5 GOTO 110
95 WAIT 0:GPRINT R$;A$(E):GCURSOR Y:GPRINT B$(D)
100 X$=INKEY$:IF E<>O GOTO 115
105 FOR Z=Y TO 1 STEP -20:X$=INKEY$:IF X$=CHR$ &18 OR X$=CHR$ &0C GOTO 115
109 GCURSOR Z:GPRINT C$(D):GCURSOR 0:GPRINT R$;A$(E):GCURSOR Y:GPRINT B$(D):NEXT Z
110 V=V+1:GPRINT U$(1):BEEP 3:GCURSOR Y:GPRINT B$(D):PAUSE "plus que ";(4-V);" vaisseaux":IF V=4 GOTO 260
111 RANDOM:O=RND 7
112 GOTO 79
115 IF X$="" LET Y=Y-5:GOTO 90
120 IF X$=CHR$ &0C LET E=E+1:Y=Y-5
125 IF E>7 LET E=1:GOTO 90
130 IF X$=CHR$ &18 LET E=E-1:Y=Y-5
135 IF E<1 LET E=7:GOTO 90
140 D=RND 7
145 IF X$="q" GOTO 150
147 GOTO 90
150 FOR Z=10 TO 150 STEP 50
160 GCURSOR Z:GPRINT C$(E):GCURSOR 0:GPRINT R$;A$(E):GCURSOR Y:GPRINT B$(D):NEXT Z
180 IF E=D LET S=S+1000:GOTO 185
183 GOTO 190
185 GPRINT R$;A$(E):GCURSOR (Y-1):BEEP 2:GPRINT U$(1):GOTO 79
190 IF E=D+1 OR E=D-1 GPRINT R$;A$(E):GCURSOR (Y-1):BEEP 1:GPRINT W$:S=S+100:Y=Y-5:P=P+1
200 IF P=5 GOTO 185
210 GOTO 90
230 IF E<>D LET S=S-100:Y=Y-5:GOTO 90
260 WAIT 100:IF S<0 LET S=0
270 PRINT "game over  score:";S:POKE 30286,65,75:GOTO 15