scash pour Sharp PC1500 ( pas de programme )
tir du magazine Hebdogiciel N87

	Ncessite l'extension PETOOLS.

	Ce dfoulant Scash ( ? ) de poche, sera prtexte  prouver votre habituelle habilet.

Mode d'emploi :
	Aprs RUN, choisissez voter niveau de difficult, tapez vos initiales et appuyez sur une touche au hasard lorsque le terrain est dessin. Vous devez rattraper une balle projete alatoirement ( touches 1 et 3 pour gauche et droite ). Vous marquerez plus de points en servant prs de la boite et la difficult est bien sr fonction du niveau choisi.

Programme :
1 REM auteur michael griffart 41 rue des processions 59400 cambrai
2 CLEAR:N$="7F":WAIT 0:AC=155:FOR AB=0 TO 78:AC=AC-1:GCURSOR AB:GPRINT N$:GCURSOR AC:GPRINT N$:NEXT AB
3 PRINT "**********scash***********":DIM L$(4)
4 BEEP 1,105,500:BEEP 1,68,700:BEEP 1,72,100:BEEP 1,82,100:BEEP 1,93,100:BEEP 1,60,800
5 BEEP 1,70,400:BEEP 1,72,100:BEEP 1,82,100:BEEP 1,93,100:BEEP 1,60,800:BEEP 1,70,400
6 BEEP 1,68,100:BEEP 1,72,100:BEEP 1,72,100:BEEP 1,68,100:BEEP 1,82,1000:BEEP 1,105,50:BEEP 1,105,500
7 INPUT "prnom?";PR$:L$(1)=LEFT$(PR$,3):L$(2)=MID$(PR$,2,2):L$(3)=MID$(PR$,3,1)
8 L$(4)="    "
10 CLS:LET B=96:D$="00":RANDOM:E$="0001":ON ERROR GOTO 200:G=0:X=40:V=122:CC=0
15 INPUT "force 1<2<3 ?";R:CLS
20 GCURSOR B:GPRINT "70"
30 DATA "01","02","04","08","10","20","40"
40 DATA "20","10","08","04","02","01"
50 GCURSOR 62:GPRINT "7f":GCURSOR 75:GPRINT 37C":GCURSOR V:PRINT L$(1):CALL 58188
60 RESTORE 30:FOR A=63 TO 74:READ C$:GCURSOR A:GPRINT D$+C$:NEXT A
65 GCURSOR 75:GPRINT "7D":GCURSOR 75:GPRINT "7C"
67 E=RND 15:FOR F=76 TO F+E:GCURSOR F:GPRINT E$:NEXT F
70 RESTORE 30:FOR G=F TO 122:READ C$:K=G-2:GCURSOR K:GPRINT D$+D$:GCURSOR G:GPRINT C$
74 IF G=121 THEN GOTO 360
75 ON R GOTO 300,30,340
80 IF B<76 THEN LET B=76
85 IF G=122 THEN GOSUB 360
90 IF B>117 THEN LET B=117
100 GCURSOR B:GPRINT AA$:GOTO "#"+INKEY$
140 "#1":B=B-1:NEXT G:GOTO 55
150 "#3":B=B+1:NEXT G:GOTO 55
160 "#":NEXT G:GOTO 55
200 RESTORE:GOTO 75
250 BEEP 1,50,100:RESTORE X:FOR H=G TO H-55 STEP -1:READ A$:GCURSOR H:GPRINT A$+D$:NEXT H:FOR I=H TO 76 STEP -1:GCURSOR I:GPRINT "0100"
255 NEXT I
260 GCURSOR 75:GPRINT "7D00":GCURSOR 75:GPRINT "7C":RESTORE 30:FOR J=73 TO 63 STEP -1:READ C$:GCURSOR J:GPRINT C$+D$:NEXT J
270 IF B<85 THEN Q=50:GOTO 276
271 IF B>85 AND B<90 THEN LET Q=30:GOTO 276
272 IF B>90 AND B<95 THEN LET Q=20:GOTO 276
273 IF B>95 AND B<100 THEN LET Q=15:GOTO 276
274 IF B>100 AND B<110 THEN LET Q=10:GOTO 276
275 IF B>110 THEN LET Q=5
276 O=O+Q:GCURSOR 1:PRINT O:GOTO 60
300 AA$="007000":IF C$="40" OR C$="20" OR C$="10" AND G=B-1 THEN 250
310 GOTO 80
320 AA$="006000":IF C$="40" OR C$="20" AND G=B-1 THEN 250
330 GOTO 80
340 AA$="004000":IF C$="40" AND G=B-1 THEN 250
350 GOTO 80
360 CC=CC+1:IF CC=4 THEN GOTO 400
370 GCURSOR V:PRINT L$(CC)+"  ":GOTO 60
400 GCURSOR 122:PRINT L$(4):CURSOR 22:PRINT "fin.":CALL 52122