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

[Xavier]

Salut,

Voilà, j'ai essayé de convertir les fichier texte en fichiers 702.

Voici les fichiers.
http://zx81.ordi5.free.fr//hebdogiciel/ ... FX702p.zip

Malheureusement, ils ne fonctionnent pas encore.
Je dois encore travailler dessus avec l'aide des messages de ce fil.

[Thierry Loiseau]

En attendant la poursuite du développement de l'émulateur par Pascal...

Corrections à apporter pour JACK-POT.702

Ligne 1-9 : remplacer par

Code : Tout sélectionner

1 A$=","
2 B$="-"
3 C$="O"
4 D$="#"
5 Z$=" "

Ligne 40 : erreur de frappe de ma part. "CSR 2;#;O" et non pas "CSR 2;#;0"

Code : Tout sélectionner

40 FOR O=1 TO 6:PRT CSR 2;#;O;CSR 5;B$;B$;B$;CSR 10;">!";CSR 13;"!";

Ligne 89-97 : problème au niveau de la gestion de la fonction KEY par l'émulateur. Modifier le programme sur cette partie.

Code : Tout sélectionner

89 F$=KEY
90 IF F$="1";IF Q=0;PRT CSR 5;V$;:Q=1:F$=""
91 IF F$="2";IF R=0;PRT CSR 6;W$;:R=2:F$=""
92 IF F$="3";IF S=0;PRT CSR 7;X$;:S=3:F$=""
93 IF F$="1";IF Q=1;PRT CSR 5;B$;:Q=0:F$=""
94 IF F$="2";IF R=2;PRT CSR 6;B$;:R=0:F$=""
95 IF F$="3";IF S=3;PRT CSR 7;B$;:S=0:F$=""
96 IF F$=" ";PRT CSR 0;"^";:GOTO 100
97 GOTO 89

Il y avait par ailleurs une faute de frappe pour la ligne 92 : X$ et non pas W$

Ligne 5000 à modifier comme ceci :

Code : Tout sélectionner

5000 PRT CSR 0;" ";:FOR I=1 TO LEN($)-6:PRT CSR 6;MID(I,7);

Ne pas oublier : après chargement du programme, faire avant de démarrer le jeu la première fois un

Code : Tout sélectionner

100 STAT

Touches à utiliser : 1 2 3 et SPC (pour la validation)

Fonctionne alors avec la dernière version de l'émulateur : http://pmeheut.free.fr/Fx702p.zip

[Thierry Loiseau]

LISTING 2 de LES INCORRUPTIBLES

Ligne 9 : PRT et non prt

Code : Tout sélectionner

9 V=V-1:IF V<=0;prt "****** PERDU ******":GOTO 993

Ligne 60 : IF B\<0;

Code : Tout sélectionner

60 B=B-5:IF B<=0;GSB 998:B=B+5:GOTO 10

Ligne 62 : IF B>25;

Code : Tout sélectionner

62 B=B+5:IF B>25:GSB 998:B=B-5:GOTO 10

Ligne 401 : " O--\p" ; GOTO 1\E3

Code : Tout sélectionner

401 IF B=Y;MODE 7:PRT "** CLE ** O--π":W=3:F$="CLE":N=10:GOTO 1E3

Ligne 993 : remplacer "UN" par "UN "

Code : Tout sélectionner

9
993 PRT "LA MALLE ETAIT CHEZ","UN";A$(X

Ligne 995 : IF W\=3

Code : Tout sélectionner

995 MODE 7:PRT CSR 5;"MALETTE":GSB 2000:IF W@3 THEN 10

[Thierry Loiseau]

LISTING 2 de LES INCORRUPTIBLES

Ligne 9 : V\<0 et PRT et non prt

Code : Tout sélectionner

9 V=V-1:IF V<=0;prt "****** PERDU ******":GOTO 993

Ligne 60 : IF B\<0;

Code : Tout sélectionner

60 B=B-5:IF B<=0;GSB 998:B=B+5:GOTO 10

Ligne 62 : IF B>25;

Code : Tout sélectionner

62 B=B+5:IF B>25:GSB 998:B=B-5:GOTO 10

Ligne 401 : " O--\p" et "GOTO 1\E3"

Code : Tout sélectionner

401 IF B=Y;MODE 7:PRT "** CLE ** O--π":W=3:F$="CLE":N=10:GOTO 1E3

Ligne 993 : remplacer "UN" par "UN "... mais la correction n'est pas obligatoire, sagissant d'une amélioration

Code : Tout sélectionner

993 PRT "LA MALLE ETAIT CHEZ","UN";A$(X

Ligne 995 : IF W\=3 (et "MALLETTE" ... mais la correction n'est pas obligatoire, sagissant d'une amélioration)

Code : Tout sélectionner

995 MODE 7:PRT CSR 5;"MALETTE":GSB 2000:IF W@3 THEN 10

[Xavier]

Salut,
C'est quoi "ERR-2" ?

Code : Tout sélectionner

\*  **************************
\*  ***        NAGE        ***
\*  **************************
\*
\*    de J.Philippe CUNNIET
\*
\* Hebdogiciel n°138 - Page 30
\*
\* Tapé par XavSnap
\* Pour  http://hebdogiciel.fr 
\*
\*
1 WAIT 0:PRT CSR 6;"!A!A!A!A";:$="ABCDEFGHIJKLMN":FOR A=1 TO LEN($)
2 C$=MID(A,1):IF C$<"H";PRT CSR 11;C$;
3 IF C$<"F";PRT CSR 13;C$;
4 IF C$<"O";PRT CSR 7;C$;
5 NEXT A:FOR A=0 TO 15:PRT CSR A;" >=*";CSR A;" -=*";:NEXT A
6 FOR A=15 TO 0 STEP -1:PRT CSR A;"*=- ";CSR A;"*=< ";:NEXT A:PRT CSR 0;
7 PRT :VAC :A$(1)=" >=*":A$(2)=" -=*":A=2:B=1:C=4
8 IF B=1;PRT CSR 4;"!";
9 IF KEY="/";D=D+1:A=-A+3:E=0:IF D=14;IF B<4;D=1:B=B+1:PRT
10 IF KEY="^";C=C+2:A=-A+3:E=E+1:IF E=5;PRT "","TU COULES!":GOTO 1
11 C=C-1:IF C<0;PRT:PRT "PLUS D/AIR!":STOP:GOTO 1
12 IF B=4;PRT CSR 14;"!";:IF D>14;STOP:PRT "GAGNE!!":STOP :GOTO 1
13 PRT CSR D;A$(A);CSR 18;"#";C;
14 GOTO 8

[Thierry Loiseau]

« ERR-2 : Erreur de structure de la phrase »

Je n'ai pas retrouvé mon manuel

Merci à l'excellente page de ledudu

http://www.ledudu.com/pockets.asp?type=53&serie=9

(malheureusement, plus trouvé non plus le manuel du FA-2)

[Thierry Loiseau]

« ERR-2 : Erreur de structure de la phrase » (...)

Syntax Error

[charognard]

Salut,
C'est quoi "ERR-2" ?

Code : Tout sélectionner

\*  **************************
\*  ***        NAGE        ***
\*  **************************
\*
\*    de J.Philippe CUNNIET
\*
\* Hebdogiciel n°138 - Page 30
\*
\* Tapé par XavSnap
\* Pour  http://hebdogiciel.fr 
\*
\*
1 WAIT 0:PRT CSR 6;"!A!A!A!A";:$="ABCDEFGHIJKLMN":FOR A=1 TO LEN($)
2 C$=MID(A,1):IF C$<"H";PRT CSR 11;C$;
3 IF C$<"F";PRT CSR 13;C$;
4 IF C$<"O";PRT CSR 7;C$;
5 NEXT A:FOR A=0 TO 15:PRT CSR A;" >=*";CSR A;" -=*";:NEXT A
6 FOR A=15 TO 0 STEP -1:PRT CSR A;"*=- ";CSR A;"*=< ";:NEXT A:PRT CSR 0;
7 PRT :VAC :A$(1)=" >=*":A$(2)=" -=*":A=2:B=1:C=4
8 IF B=1;PRT CSR 4;"!";
9 IF KEY="/";D=D+1:A=-A+3:E=0:IF D=14;IF B<4;D=1:B=B+1:PRT
10 IF KEY="^";C=C+2:A=-A+3:E=E+1:IF E=5;PRT "","TU COULES!":GOTO 1
11 C=C-1:IF C<0;PRT:PRT "PLUS D/AIR!":STOP:GOTO 1
12 IF B=4;PRT CSR 14;"!";:IF D>14;STOP:PRT "GAGNE!!":STOP :GOTO 1
13 PRT CSR D;A$(A);CSR 18;"#";C;
14 GOTO 8

Je viens de tester, il fonctionne très bien ce programme sur 702P

après avoir fait un DEFM

[pascal_meheut]

Oui mais pas sur l'émulateur ce qui me laisse perplexe. Je regarde et je corrige.

[charognard]

il bloque sur les PRT.
De plus fonctionne t'il en DEFM pour les tableaux ?

[pascal_meheut]

il bloque sur les PRT.
De plus fonctionne t'il en DEFM pour les tableaux ?

C'est les PRT dans les IF qui sont buggés. Je corrige ca dans les jours qui viennent, peut-être plus vite. Pour le DEFM, je ne sais pas mais ca devrait marcher parce que par défaut, l'émulateur ne limite pas la mémoire contrairement à la 702p...

[pascal_meheut]

Bon, j'ai mis en ligne une version de l'émulateur qui a l'air de mieux marcher et de faire tourner ce programme mais je n'ai pas testé plus que ca.

C'est tjs sur http://pmeheut.free.fr/fx702p.zip

[pascal_meheut]

Oups, trop vite, version buggée. Je corrige ca ce WE.

[Thierry Loiseau]

Une grosse suggestion pour amélioration : pourrais-tu donner la possibilité de faire un clic sur le bouton d'allumage afin de simuler un changement de piles et rechercher les caractères "bizarres" dans les VAR ??

[charognard]

C'est un simulateur pas un émulateur