Monkey-kong pour Sharp PC1500 ( pas de programme )
tir du magazine Hebdogiciel N32

	Imaginez que, lors d'une promenade avec votre bien-aime, un gorille chapp du zoo voisin la kidnappe et se rfugie au cinquime tage d'une tour en construction. N'coutant que votre coeur, vous partez la sauver. Mais prenez garde, le gorille jette des tonneaux qui roulent d'tage en tage. Ces tonneaux peuvent vous tuer. Arriverez-vous  tous les auter et dlivrer votre compagne  la barbe du monstre? Jouez et vous le saurez.

Remarque :
	Pour ceux qui possdent la version de base, il faut faire POKE 30822,0 puis NEW avant de taper le programme. Mais attention, la mmoire RESERVE devient inutilisable.

Mode d'emploi :
	Lancez le programme par RUN ou DEF "A", vous vous trouverez alors au rez-de-chausse.
	Le premier chiffre indique l'tage o l'on se trouve, le dernier indique le score.
	Pour aller  gauche, appuyez sur la touche 1, pour aller  droite sur la touche 3, pour monter ou sauter la touche 5, pour interrompre un saut, il faut appuyer sur une des deux touches de dplacement.
	Chaque tonneau saut rapporte 100 points  condition de ne pas l'avoir saut de trop loin. Le jeu prend fin lorsque vous avez subi 5 chocs avec un tonneau.

Programme :
2 DATA "00207F0000","00663F1800","44221F3400","24221F1224","14221F2440","00163F6400"
3 DATA "00007F2000","00183F6600","00341F2244","24121F2224","40241F2214","00643F1600"
4 DATA "12141F1412","0101010101010101","0202020202020202","0404040404040404"
5 DATA "0808080808080808","1010101010101010","2020202020202020","4040404040404040"
6 "A":CLEAR:CLS:CURSOR 7:PAUSE "monkey-kong":RESTORE:FOR I=1 TO 20:READ Q$(I):IF I<14 LET Q$(I)="00"+Q$(I)+"00"
7 NEXT I:O=1:V=6:U=1
8 RESTORE 95:R=99:FOR N=0 TO 5:CLS:READ M,Q:WAIT 0:GCURSOR  7:GPRINT 127:GCURSOR 112:GPRINT 127
9 FOR P=1 TO 9:IF Q(P)=0 GOTO 14
10 Q(P)=Q(P)+(Q=13)-(Q>55):T=Q(P):GCURSOR T:GPRINT "00606000"
11 IF T+3>R AND T-6<R AND W=0 GCURSOR R:WAIT 99:GPRINT "60404040604040":WAIT:Z=Z+1:IF Z>4 PRINT "score:";S:END
12 IF T>107 OR T<1 GCURSOR T+1:GPRINT 0;0:K=K-1:IF  Q(LT) LET Q(T)=Q(T+1):NEXT T
13 WAIT 0:NEXT P
14 GCURSOR Q$(O+Y+L):GCURSOR M:GPRINT "7F2A2A2A7F":IF RND 10>8-U AND K<9 AND V=0 LET K=K+1:Q(K)=Q
15 CURSOR 20:PRINT S:CURSOR 0:PRINT STR$ N:V=(12>V)*(V+1):IF INKEY$="5" AND W=0 GOSUB 20
16 IF INKEY$="1" AND R>8 BEEP &,9,9:O=O*(O<5)+1:R=R-1:Y=6:L=0:W=0:X=0:GOTO 9
17 IF INKEY$="3" AND R<105 BEEP 1,9,9:O=O*(O<5)+1:R=R+1:Y=0:L=0:W=0:X=0:GOTO 9
18 X=X+(W=1):P=(X<12):X=X*P,W=W*P,L=L*P:GOTO 9
20 T=13:L=T-O-Y:W=1:IF M=R GOTO 30
21 IF POINT (R+8)=96 OR R POINT (R+9)=96 OR POINT (R-2)=96 OR (R-2)=96 OR POINT (R-1)=96 OR POINT R=96 BEEP 1,30,90:S=S+100
22 RETURN
30 FOR T=1 TO 12:GCURSOR Q(T)+1:GPRINT 0;0:Q(T)=0:NEXT T:CURSOR 0:PRINT STR$ N:GCURSOR 7:GPRINT 127
31 IF N<>5 GOSUB 60:GCURSOR M:GPRINT "7F21121F2442":GOSUB 60:GCURSOR M:GPRINT "7F42241F1221":GOTO 31
40 WAIT 20:GCURSOR 25:GPRINT "010101010101010101":GCUROSR 25:GPRINT "010101010101020202":GCURSOR 25
41 GPRINT "010101020202040404":GCURSOR 25:GPRINT "010202040408081010":GCURSOR 25:GPRINT "010204081020400000"
42 WAIT 0:CURSOR 20:PRINT S:GCURSOR R:GPRINT Q$(O+6):IF INKEY$="1" AND R>8 BEEP 1,9,9:O=O*(O<5)+1:R=R-1
43 V$="060906":IF R<>31 GOTO 42
44 FOR P=14 TO 20:Z$=Q$(P):GCURSOR 8:WAIT 0
45 GPRINT Z$;Z$;Z$;RIGHT$("010204081020741F2244",48-2*P);Z$;Z$;Z$;Z$;Z$;Z$;Z$;Z$:GCURSOR 96:WAIT P
46 GPRINT Z$;Z$:NEXT P:FOR T=0 TO 9:GCURSOR 22:GPRINT "50785F7850":BEEP 1,200,9:GCURSOR 22:GPRINT "517A5F7A51":NEXT T
47 FOR P=0 TO 9:GCURSOR 96:GPRINT V$;"0D3D57573D0D";V$:BEEP 1,250,99:GCURSOR 96:GPRINT V$;"0D1D37371D0D";V$
48 NEXT P:WAIT 200:GCURSOR "20307F34200003060360283E404000":CLS:GCURSOR 25:GPRINT "20307F34247F"
49 R=0:U=U+1:S=S+1e3:GOTO 8
60 WAIT 0:T=T+1:Z$="Q$(T):IF T>20 NEXT N
61 GCURSOR 8:GPRINT Z$;Z$;Z$;Z$;Z$;Z$;Z$;Z$;Z$;Z$;Z$;Z$;Z$:WAIT 20:GCURSOR M:GPRINT "7F42241F24427F":RETURN
95 DATA 24,13,96,105,32,13,99,105,24,13,96,105