Prisonnier pour Sharp PC1500 ( pas de programme )
tiré du magazine Hebdogiciel N°3

	Nécessite l'extension PETOOLS.

	Tentez d'enfermer un petit bonhomme dans le cadre qui se trouve au centre de l'écran.
	Vous pouvez le déplacer vers la droite avec les touches 6 et 3 et vers la gauche avec les touches 4 et 1. Lorsque vous croyez l'avoir fait prisonnier, fermez la porte avec la touche SPACE.

Programme :
5 "A":WAIT 70:PRINT "    **le prisonnier**":CLS
10 B=200:P=0:O=0:M=0
20 X=(RND 2-1)*126:S=X:N=0:BEEP 1,20,1000:CLS
30 WAIT 0
35 GCURSOR 61:GPRINT "00007F4141414141414141417F0000"
40 CURSOR 22:PRINT USING "####";B
50 GCURSOR X
60 GPRINT "000844641E1D1E64440800"
70 PRINT
80 A$=INKEY$
90 IF A$="6" LET S=S+6:B=B-.1
95 IF A$="3" LET S=S+3:B=B-.05
100 IF A$="4" LET S=S-6:B=B-.1
105 IF A$="1" LET S=S-3:B=B-.05
110 IF A$=" " BEEP 1,100:LET B=B-5:GOTO 125
120 GOTO 165
125 IF X<>63 GOTO 150
130 FOR K=59 TO 75:GCURSOR K:GPRINT (127-POINT K):BEEP 1,1,1:NEXT K:GOSUB 300
135 IF INT (P/5)=P/5 BEEP 5,10,1000:GOTO 400
140 GOTO 20
150 IF X=62 LET N=N+1:GOTO 160
155 IF X=64 LET N=N+1:GOTO 160
157 GOTO 165
160 BEEP 1,10,10:IF N=4 LET N=0:GOTO 130
165 IF X=63 BEEP 1,10,100:B=B-10
170 IF X<53 LET S=S-1:GOTO 190
175 IF X<63 LET S=S-2:GOTO 190
180 IF X>73 LET S=S+1:GOTO 190
185 IF X>63 LET S=S+2
190 X=INT (S+RND 5-3)
200 IF X>126 LET S=0:X=S
210 IF X<0 LET S=0:X=S
220 IF B<0 GOTO 1000
230 BEEP 1,1,1
240 CLS:GOTO 35
300 BEEP 5,10,10
310 GCURSOR X-1
320 GPRINT "0000082A1C7F1C2A080000"
330 WAIT 70:PRINT
340 P=P+1:B=B+25:CLS:RETURN
400 CLS:G=60:B=B+100:WAIT 200:CLS
405 FOR X=0 TO 120 STEP 2
410 GOSUB 500
415 IF B<0 GOTO 1000
420 NEXT X
430 CLS
440 FOR X=120 TO 0 STEP -2
450 GOSUB 500
455 IF B<0 GOTO 1000
460 NEXT X
470 B=B+(O-M-3)*50
475 IF B<0 GOTO 1000
480 M=0:CLS:GOTO 20
500 WAIT 0:GCURSOR G:GPRINT "00007F4141414141414141417F0000"
510 GCURSOR X:GRPINT "7F7F371B6162610838777F7F"
520 CURSOR 22:PRINT USING "####";B
530 PRINT
540 A$=INKEY$
545 IF X=G+2 BEEP 1,10,100:B=B-25
550 IF A$<>"" LET H=0:GOSUB 700
560 RETURN
700 IF A$="4" LET H=5
705 IF A$="1" LET H=3
710 IF A$="6" LET H=-5
715 IF A$="3" LET H=-3
720 IF A$=" " LET B=B-20:GOTO 740
730 GOTO 760
740 IF X=G+2 LET B=B+20:GOSUB 300:P=P-1:O=O+1:CLS
760 G=G-H
770 IF G<0 LET G=0
780 IF G>130 LET G=130
790 RETURN
1000 P=P+O
1005 CLS:WAIT 20:PRINT "jeu fini  score:";
1007 WAIT 10:FOR X=0 TO P:CURSOR 21:PRINT USING "###";X:BEEP 1:NEXT X
1008 WAIT 70:PRINT
1010 IF P>U LET U=P:INPUT "nom ?";V$
1020 WAIT:PRINT "record : ";U;" ";V$
1030 END