Cheval pour Sharp PC1500 ( pas de programme )
tiré du magazine Hebdogiciel N°6

http://www.hebdogiciel.fr 

Bon Jeu ! Ouessan / Chistian DUBROEUCQ

http://www.hebdogiciel.fr 

Bon Jeu ! Ouessan / Chistian DUBROEUCQ

	Nécessite l'extension PETOOLS.

	Attention aux ruades du cheval fou qui parcourt votre écran à toute vitesse. Faites lui sauter les haies sous peine de le voir tomber le museau le premier dans la poussière.
	Appuyer sur "SPACE" pour faire sauter une haie à votre coursier.

Programme :
10 DATA "021C2C4C0C080854220302","4020120C0C080814244604"
20 DATA "10090606060404040A0B12","20520C0C0C081070505810"
30 DATA "080804060C1810780C0808","010204060C1810780C0808"
100 CLEAR:DIM A$(5)*22
110 FOR I=0 TO 5:READ A$(i):NEXT I:CLS
120 C$="40000000":D$=C$+C$
200 " ":WAIT 5:W=5:T=0
210 "OBS":CLS:B=0:FOR X= TO 5:B=B+17+RND 14:GCURSOR B:GPRINT "40706040":BEEP 1,X:NEXT X
220 FOR I=1 TO 5:CURSOR 0:GPRINT A$(4):CURSOR 0:GPRINT A$(5):BEEP 1,1,3:NEXT I
230 FOR C=4 TO 132 STEP 8:J=0
240 GCURSOR C-4:GPRINT D$;A$(1):BEEP 2,5,6
250 IF INKEY$=" " LET S=1
260 IF S=0 IF C<135 IF POINT (C+15)<>0 GOTO "chute"
270 GCURSOR C+4:GPRINT C$;A$(0):BEEP 1,4,7
280 IF INKEY$=" " OR S=1 GOSUB "jump"
290 IF C<135 IF POINT (C+19)<>0 GOTO "chute"
300 NEXT C:T=T+1:CURSOR 6:PRINT "cheval  !>>";W:FOR N=0 TO 9:BEEP 1,N:NEXT N
310 GOTO "OBS"
500 "jump":BEEP 1,9,9:GCURSOR C+4:GPRINT C$;D$;A$(2):GCURSOR C+14:GPRINT C$;A$(2)
510 C=C+12:S=0:J=1:W=W-.2:W=W*(W>0)
520 WAIT W:RETURN
600 "chute":WAIT 5
610 FOR X=C+4 TO C+10 STEP 2:BEEP 1,X,10
620 GCURSOR X:GPRINT D$;A$(3):NEXT K
630 BEEP 2,99:GCURSOR X+8:GPRINT C$;D$
640 CURSOR 0:GPRINT A$(1);:PRINT " total >";T;" points ":GCURSOR 143:GPRINT A$(0)
650 FOR N=0 TO 5:BEEP 1,N:BEEP 1,10:NEXT N
660 IF INKEY$="" THEN 660
670 IF INKEY$=" " THEN " "
680 END