[HEBDOGICIEL]X07,Fx702p,HP41,HP75,MPFII,PC1211,PC1251,PC1500

[ledudu]

Suite dans le N°49 ....

Ye m'en doutais... Merci charognard.

Pas trouvé, je me suis nické les yeux...
Un numéro de page ?

[Thierry Loiseau]

Suite dans le N°49 ....

Ye m'en doutais... Merci charognard.

Pas trouvé, je me suis nické les yeux...
Un numéro de page ?

Oui, j'ai l'impression qu'il y a eu un bug au niveau de la publication ! En général (enfin je crois), il y a toujours un "suite page ..." ou "à suivre".

[charognard]

Suite dans le N°49 ....

Ye m'en doutais... Merci charognard.

Pas trouvé, je me suis nické les yeux...
Un numéro de page ?

Oui

[ledudu]

Oui

Charlot !
Tu te venges de ma signature ?

[charognard]

Oui

Charlot !
Tu te venges de ma signature ?

et oui !!!

Au moins sur SHARP nous ne sommes pas emmerdé par les zone de programme

[Thierry Loiseau]

LES INCORRUPTIBLES

Tel un parfait "incorruptible", tentez courageusement de découvrir le trésor de la mafia.

Thierry LOISEAU


Hebdogiciel n°107, page 29 - (dessin de Carali http://www.paulcarali.net/ )

Mode d'emploi:
FP 10 obligatoire : DEFM 3. Retirez les piles, attendez une vingtaine de secondes, replacez les piles et listez les variables sur imprimante pour obtenir de nouveaux caractères. Faites en sorte que toutes les variables soient égales à zéro sauf "(" en mettant les variables dans $ et en utilisant MID()".
G$=°
T$='
Z$=" peut être obtenu par

Code : Tout sélectionner

P1 : 

10 INPUT Z$

RUN
? "
 EXE

Nota Bene : la phrase "Faites en sorte que..." est loin d'être clair...

LISTING 1
Lignes 130,180 : @ est à lire "= barré" (différent) du FX
Ligne 145 : lire petit E
Ligne 510 : à remplacer "LE SHERIFF" par "LA SHERIFF"

LISTING 2
Lignes 9,60 : remplacer <= par le caractère spécial du FX
Ligne 401 : lire petit E
Ligne 993 : à remplacer "UN" par "UN "
Ligne 995 : @ est à lire "= barré" (<>) du FX

1-Entrez le programme "SHERIFF" (listing 1) et sauvegardez-le par : SAVE ALL " LES...".
2-Entrez le programme "LA MALLETTE" (listing 2) et sauvegardez-le par : SAVE"INCORRUP".
3-Retirez les piles pendant une trentaine de secondes, replacez les piles et listez les variables de la même façon que ci-dessus. Il faudra obtenir les caractères "-" (le curseur) et le carré noir (représenté à l'écran par deux points verticaux) à placer dans les variables suivantes :
C7$ = ------
C8$ = :
C9$ = :::::::
Voir le listing complet de ces variables. Mettez ensuite 7 signes "=" dans K$ et remplissez les variables A1$ À C6$ par un nom de 7 caractères maximum, suite logique de la phrase "Tu es chez un...". Le programme suivant est destiné à vous faciliter l'entrée de ces noms :

Code : Tout sélectionner

10 FOR I= 1 TO 26
20 PRT "A";# # ;I;"$= ";:INP A$(I):NEXT I

Sauvegardez ces mémoires par PUT"-TIBLES!".
1er JEU : Vous devez franchir plusieurs obstacles et trouver AL CAPONE pour passer au jeu suivant (le second programme déclenche automatiquement le chargement des mémoires).
2ème JEU : En fouillant AL CAPONE, vous trouvez les trois mots : "TRESOR, MALLETTE et CLE". Vous êtes situé au milieu du pâté de maisons (A1$ à C6$) et vous vous dirigez par les mots : NORD, SUD, OUEST, EST.
Il faut trouver la clé pour ouvrir la mallette et chercher ces deux objets dans un immeubles de 4 étages plus un rez-de-chaussée avec 5 appartements par étage. Ne pas oublier de brancher l'imprimante, le FP-10 imprime la clé trouvée, la mallette fermée ou la mallette ouverte suivi du mot "Trésor" si vous êtes en possession des deux objets (bravo, c'est gagné !..).

LISTING 1

Code : Tout sélectionner

5 $="ABCDEFGHIJKLMNOPQRSTUVWXYZ= "
10 WAIT 36:PRT CSR 5;"SHERIFF"
40 PRT "TE VOICI ADJOINT","DU SHERIFF !"
50 PRT CSR 4;"TU ENTRES DANS LA BANK,"
52 W=INT (RAN#*30)+1:P$=MID(W,1)
55 WAIT 15:PRT "VITE, APPUIE SUR ";Z$;P$;Z$
71 FOR I=1 TO 10
80 IF KEY=P$ THEN 110
90 NEXT I
91 FOR J=1 TO 4
93 PRT CSR 5;"^^ PAN ^^":PRT
95 NEXT J
100 PRT "TU T";T$;"ES FAIT TUER!":END
110 WAIT 9:PRT CSR 8;"PAN!","BRAVO, TU VIENS","D";T$;"ABATTRE"
111 PRT "L";T$;"ENNEMI PUBLIC N";G$";"1"
115 A=INT (RAN#99)+1:C=9:GOTO 120
117 C=C-1:RET
120 INP "COMBINAISON/COFFRE",B
130 IF B@A;GSB 117
131 IF C=0;PRT "TROP TARD !","LA BOMBE EXPLOSE !":END
132 IF B=A THEN 145
135 J$="B":IF B>A;J$="H"
140 WAIT 40:PRT "CCCLICCC (";J$;")";C:GOTO 120
145 C=C*1E6
150 PRT "TU AS DEVANT TOI","LA BOMBE !"
160 PRT "MINCE! ","LES COMPLICES S";T$;"EN VONT!"
173 INP "EST-CE QUE TU TIRES",Y$
175 K=INT (RAN#*2):IF Y$="O";IF K=1 THEN 190
180 IF Y$@"O";IF K=0 THEN 190
182 GOTO 230
190 H=INT (RAN#*30)+1:P$=MID(H,1)
195 PRT "VITE...TIRE !(";P$;")"
200 FOR I=1 TO 5
210 IF KEY=P$ THEN 250
220 NEXT I
230 PRT "TU LES AS LOUPES!";:INP "REVANCHE ",V$
235 IF V$="O" THEN 50
240 PRT "ILS PARTENT !":GOTO 100
250 PRT "ILS SONT ARRETES !"
265 B=INT (RAN#*2)
270 PRT "TU SORS:","GAUCHE OU DROITE",:INP "G/D ",A$
280 IF A$="D";IF B=1 THEN 310
290 IF A$="G";IF B=0 THEN 310
300 GOTO 500
310 PRT "ON A REUSSI A","LES ARRETER","MAINTENANT, "
315 IL FAUT MAITRISER","ALCAPONE, LE ";Z$;"CERVEAU";Z$
317 E=INT (RAN#*5):F=INT (RAND#*4)+1:D=6:GOTO 320
318 D=D-1:IF D=0 THEN 500
319 RET
320 PRT "IL LOGE DANS UN","IMMEUBLE..."
322 PRT "N";G$;:INP " ETAGE 0/4 ",A
325 IF A=E THEN 350
330 PRT "NON! ";D
340 GSB 318
345 GOTO 322
350 PRT "N";G$;:INP " APPARTEMENT 1/5",A
400 IF A=F THEN 510
450 GSB 318:WAIT 20:PRT "RESTE";D:GOTO 350
500 PRT "TROP TARD!","TU ES MORT !!":END
510 PRT "TU MONTES EN GRADE !","TE V";T$;"LE SHERIFF!","BRAVO!"
515 PRT :PRT
520 LOAD "INCORRUP"

LISTING 2

Code : Tout sélectionner

1 WAIT 40:PRT CSR 6;"FP-10":R=15:X=INT (RAN#*25)+1:B=13
2 $="T R E S O R":P=15:V=22:IF X=B THEN 1
5 Y=INT (RAN#*25)+1:IF Y=X THEN 5
6 IF Y=13 THEN 5
8 PRT "*** LA MALLETTE ***":WAIT 20
9 V=V-1:IF V<=0;prt "****** PERDU ******":GOTO 993
10 INP "NORD/SUD/OUEST/EST",A$
30 IF A$="NORD" THEN 60
35 IF A$="SUD" THEN 62
40 IF A$="OUEST" THEN 64
50 IF A$="EST" THEN 75
55 GSB 999:GOTO 10
60 B=B-5:IF B<=0;GSB 998:B=B+5:GOTO 10
61 GOTO 400
62 B=B+5:IF B>25:GSB 998:B=B-5:GOTO 10
63 GOTO 400
64 B=B-1:IF B+1=1;GSB 998:B=B+1:GOTO 10
65 IF B+1=6;GSB 998:B=B+1:GOTO 10
66 IF B+1=11;GSB 998:B=B+1:GOTO 10
67 IF B+1=16;GSB 998:B=B+1:GOTO 10
69 IF B+1=21;GSB 998:B=B+1:GOTO 10
70 GOTO 400
75 B=B+1:IF B-1=5;GSB 998:B=B-1:GOTO 10
76 IF B-1=10;GSB 998:B=B-1:GOTO 10
77 IF B-1=15;GSB 998:B=B-1:GOTO 10
78 IF B-1=20;GSB 998:B=B-1:GOTO 10
79 IF B-1=25;GSB 998:B=B-1:GOTO 10
400 GSB 997:IF B=X THEN 995
401 IF B=Y;MODE 7:PRT "** CLE ** O--π":W=3:F$="CLE":N=10:GOTO 1E3
405 GOTO 9
993 PRT "LA MALLE ETAIT CHEZ","UN";A$(X)
994 PRT "LA CLE ETAIT CHEZ ","UN ";A$(Y):END
995 MODE 7:PRT CSR 5;"MALETTE":GSB 2000:IF W@3 THEN 10
996 F$="MALETTE":N=9999:GOTO 1000
997 PRT "TU ES CHEZ UN ...","...";A$(B):RET
998 PRT "TU NE PEUX ALLER","DANS CETTE DIRECTION":RET
999 PRT "JE NE COMPREND PAS",CSR 5;Z$;A$;Z$:STOP:RET
1000 WAIT 20:T=INT (RAN#*5):Q=7:MODE 8
1001 INP "NUMERO ETAGE (0/4)",S:IF S=T THEN 1111
1002 GSB 1120
1010 GOTO 1001
1111 T=INT (RAN#*6)+1
1115 PRT "NUMERO APPARTEMENT","...1/5 ";:INP S
1116 IF S=T THEN 1150
1117 GSB 1120
1118 GOTO 1115
1120 Q=Q-1:IF Q=0;PRT "TU AS PPERDUU !?!":END
1121 RET
1150 PRT "TU AS LA ** ";F$;" **":GOTO N
2000 PRT "....";C7$;".","!";C8$;"!";C9$;"!":MODE 8:RET
9999 MODE 7:PRT CSR 7;"/";K$;"/",CSR 6;"!";C8$;"!";C9$;"!",CSR 6;$

J'ai essayé de le retaper en copie conforme, avec une étrangeté :

Code : Tout sélectionner

5 $="ABCDEFGHIJKLMNOPQRSTUVWXYZ= "
...
52 W=INT (RAN#*30)+1:P$=MID(W,1)

Il n"y a que 28 caractères dans la variable $


LISTING 3
pour rappel : DEFM 3

Code : Tout sélectionner

GET A,C9$

READY P0
LIST V

*** VAR LIST

VAR: 56 PRG: 1440

A=0
B=0
C=0
D=0
E=0
F=0
G=0
H=0
I=1
J=0
K$="======="
L=0
M=0
N=0
O=0
P=0
Q=0
R=0
S=0
T=0
A0=0
A1$="BOUCHER"
A2$="COPAIN"
A3$="FLIC"
A4$="C.R.S."
A5$="PIAFOU"
A6$="PUNK"
A7$="PAYSAN"
A8$="FACTEUR"
A9$="GOGOLE"
B0$="IVROGNE"
B1$="BELGE"
B2$="SUISSE"
B3$="IDIOT"
B4$="ARABE"
B5$="CHOMEUR"
B6$="PRGRM"
B7$="DROGUE"
B8$="COCO"
B9$="FACHO"
C0$="VOISIN"
C1$="COUSIN"
C2$="CURE"
C3$="BRETON"
C4$="NEGRO"
C5$="BASQUE"
C6$="JUGE"

[ledudu]

Merci !

[Xavier]

Superbe !
Merci beaucoup...

[Thierry Loiseau]

Et pour ceux qui n'ont pas ou plus de Fx702p (les malheureux) ou qui sont simplement curieux, vous pouvez essayer une 1ère version de l'émulateur ici :

http://pmeheut.free.fr/Fx702p.zip

Il suffit de le dezipper et de lancer Fx702p.exe dans le répertoire Fx702p. (...)

Ça fonctionne avec Windows 98SE ?
J'ai pas de pécé, mais sur mon (déjà vieux) Pismo, il y a Virtual PC



EDIT : J'ai testé, ça ne marche pas avec Windows 98SE

À noter que la version actuelle est désormais utilisable avec Windows 98SE.
Bon à savoir, sous Mac OS X, il suffit de modifier le nom Fx702p.exe en Fx702p.jar



Merci Pascal pour ton travail !

[Xavier]

Salut,
Je regarde pour les "les incorruptibles", mais il manque les vars...
je donne le fichier "702" dès que possible.
(Nota:prendre "Polaris" comme model pour la syntaxe texte.)

[Thierry Loiseau]

Ok, j'ai ajouté...

Pour le Jack-pot, il semble qu'il n'y a que ça à corriger :

LIGNE 19 : remplacer "E" par "e" et "π" par "\pi"
Ligne 18,100,110,150,500 : idem, "E" remplacé par "e" (ou "\E" ?)

Nota Bene : dans ta liste, il faudrait ajouter un trait d'union entre "Jack" et "pot" et pour mon prénom, préférer TH. plutôt que T.

[Thierry Loiseau]

Une faute de frappe pour le listing du Jack-pot :

Code : Tout sélectionner

92 IF KEY="3";PRT CSR 7;W$;:S=3

à remplacer par

Code : Tout sélectionner

92 IF KEY="3";PRT CSR 7;X$;:S=3

[Marcus von Cube]

De la description de mon logiciel bas702:

\DG (°), \>= (greater or equal), \<= (less or equal), \<> (not equal), \PI and \E+ (exponent).

These are case insensitive: \PI and \pi are equivalent.

The strings >=, <=, <>, PI and E in numbers are automatically translated when they occur in normal code. There is no need to escape them, except when you want to use them in strings. The character ` is treated as °, ^ is the up arrow and ~ is PI. {, } and | are <=, >= and <> respectively. So in order to print the character "pi", any of the following will do: ~, \PI, \pi, \Pi or \3B. Outside of strings, PI, pi or Pi are also valid.

[jvernet]

Bon à savoir, sous Mac OS X, il suffit de modifier le nom Fx702p.exe en Fx702p.jar



Merci Pascal pour ton travail !

Sympa, comme simulateur ! Comment on utilise la touche mode sous MacOsX ?

[pascal_meheut]

La touche MODE n'est pas encore branché. Le soft est encore incomplet mais un autre membre a fait pression pour que je diffuse une version béta