[EXL100] Aidez moi ! (résolu)

C'est le lieu des discussions diverses et variées, mais toujours en rapport avec le thème général du forum et dans l'esprit de celui-ci.

Modérateurs : Papy.G, fneck, Carl

Répondre
Daniel
Messages : 11836
Enregistré le : 01 mai 2007 18:30
Localisation : Vaucluse
Contact :

[EXL100] Aidez moi ! (résolu)

Message par Daniel » 29 oct. 2019 08:58

Je cherche à charger le jeu "Meurtre à Grande Vitesse" sur EXL100 et je n'y arrive pas :
Le magnétophone arrive en fin de bande sans que le jeu démarre.
http://dcexel.free.fr/programmes/meurtr ... index.html

Image

Chargement du prologue :
LOAD"1:TGV1"
Touche ESC
RUN
Jusque là tout va bien, le prologue s'exécute.

Chargement du jeu :
LOAD"1:TGV2"
Touche ESC
RUN
Le programme commence à se charger.
Il demande de faire ENTREE
Il affiche "Lecture en cours"
Il demande d'appuyer sur ESC
Il lit alors la bande jusqu'au bout et ne démarre pas.

Pour résumer la question :
Le problème est-il du à une mauvaise cassette ou à un mauvais utilisateur ?
Sachant qu'il y a des copies d'écran sur le site dcexel prouvant que le jeu a fonctionné.

Image Image
Modifié en dernier par Daniel le 29 oct. 2019 15:11, modifié 1 fois.
Daniel
L'obstacle augmente mon ardeur.

Daniel
Messages : 11836
Enregistré le : 01 mai 2007 18:30
Localisation : Vaucluse
Contact :

Re: [EXL100] Aidez moi ! (résolu)

Message par Daniel » 29 oct. 2019 15:10

Finalement j'ai repris le fichier .wav créé en 2008 par 6502man et refait un fichier .k7. Ce dernier est bon, le jeu se charge normalement.
Donc celui du site dcexel était corrompu, et en onze ans personne ne s'en est aperçu. Meurtre à Grande Vitesse est pourtant l'un des meilleurs jeux sur EXL100, ce qui prouve le désintérêt général pour cette plateforme. Nous avons été trois à chercher à la faire revivre, mais nos efforts ont été vains. Peu importe, ce fut pour nous une aventure inoubliable. Les bribes de synthèse vocale de l'abominable Wizord et du Capitaine Menkar ne s'effacent pas facilement de nos mémoires.

Si vous voulez jouer à Meurtre à Grande Vitesse, le site dcexel vient d'être mis à jour : http://dcexel.free.fr/programmes/meurtr ... index.html
Daniel
L'obstacle augmente mon ardeur.

Ythunder
Messages : 62
Enregistré le : 21 août 2019 10:12

Re: [EXL100] Aidez moi ! (résolu)

Message par Ythunder » 29 oct. 2019 15:39

Tel est le problème Daniel :

les gens jouent-ils à ce que "nous faisons" ?
Pour ma part, j'ai l'esquisse (houlala, à prendre avec des pincettes), de refaire un projet vieux de 1991-1992. Mais qui va jouer avec ? C'est le gros point noir de ma motivation, parmi d'autres points noirs....

nicolho
Messages : 409
Enregistré le : 10 nov. 2016 16:53

Re: [EXL100] Aidez moi ! (résolu)

Message par nicolho » 29 oct. 2019 16:06

Oui, bah je crois que tu as répondu tout seul à la question : même l'auteur passionné de cet émulateur confidentiel (d'une machine déjà pas spécialement populaire et globalement tombée dans l'oubli... sauf chez les aficionados qui, à force, se font rares) n'a lui-même pas testé son fichier dès le départ, ni même depuis 11 ans ! :D

Dans ce cas (ça vaut pour d'autres domaines obscurs et pointus :mrgreen: ) à moins de rechercher le succès et la gloire, mieux vaut faire les choses pour soi-même, et éventuellement les partager si on pense qu'il peut y avoir un intérêt, même pour les rares passionnés de ces prochains siècles.

Markerror
Messages : 1465
Enregistré le : 31 oct. 2011 19:21
Localisation : Orléans
Contact :

Re: [EXL100] Aidez moi ! (résolu)

Message par Markerror » 29 oct. 2019 17:15

Pour le coup, je ne pense pas que cela vienne de la plateforme, personne ne joue avec "Meurtre grand vitesse". C'est maintenant vraiment réservé aux collectionneurs, car en l'état, le jeu est n'est pas utilisable (il faut se connecter sur des sites Minitel et appeler des numéros de téléphone, qui bien sûr n'existent plus :-) ). Même à l'époque, j'avoue ne pas avoir accroché, devant la réalisation technique trop austère.

Après, l'Exelvision ne brille pas pas ses softs. Mis à part le Tennis et Transylvania, ya pas vraiment de machine seller dans la logithèque...

jester
Messages : 2249
Enregistré le : 01 janv. 2009 23:16
Localisation : Grenoble

Re: [EXL100] Aidez moi ! (résolu)

Message par jester » 29 oct. 2019 20:53

J'avais eu beaucoup de mal à faire fonctionner ce jeu. Je ne me souviens plus comment mais j'avais du trouver une source fonctionnelle.
Après le jeu est anti-ergonomique à souhait, chiant et peu original... et vraiment austère. Je n'avais pas du tout accroché.
Le fait est qu'il ait été porté sur quasi toutes les plates-formes donne un résultat général de manque... de minimalisme.
On a ici l'exemple parfait de gameplay nullissime !

Rare sont les gens à jouer sur ces vieilles machines, je croyais l'inverse au début mais j'ai vite compris que les nouveautés par dessus-tout ne sont d'aucun intérêt pour les collectionneurs. Quand tu as compris que 99% des passionnés sont des collectionneurs et/ou nostalgiques, la messe est dite.

Bien sur il y a toujours les bonnes vielles phrases "on fait déjà pour soi-même"... cela permet de se rassurer... mais en vrai on fait les choses pour les partager et on aime que les autres les apprécient. Quand tu vois le temps que ça prend de produire un truc sympa et bien chiadé (hard ou soft) avec nos vies souvent très actives, il faut avoir une très haute estime de soi pour ne faire que pour soi. Et évidemment qu'on travaille déjà pour soi si on veut que les autres apprécient, mais ce n'est jamais une finalité.

Quels sont les gens qui ont regardé autre chose que l'intro de Transylvania... alors que le jeu est long, et plein de séquences et bruitages sympas tout du long. J'avais senti dés le début qu'il fallait une intro bien tape à l'oeil pour une époque où le paraître est le plus important et la consommation facile doit être rapide. Et j'avais eu plein de retours aussi sur mes démos bien tape à l'oeil pour Exl... du jamais vu... qu'on a jamais revu ensuite... car ça n'avait pas d'autres buts :mrgreen:
Quand je vois ces jeux splendides qui sortent pour certaines machines... et les petits posts qui suivent face à la débauche de discussion sur les comparaison de collections, de ventes et commentaires d'annonces :lol:

Alors comme je suis très occupé (Pro + enfants), j'ai abandonné tous projets... malgré de bonnes idées et des protos sympas. J'espère que 6502man pourra continuer ces projets (je l'ai laissé tomber plusieurs fois)... c'est génial que certains fous continuent à entretenir la flamme.
Et puis l'Exl100 est aussi une merde technologique où passer son temps à chercher des astuces est 1) pénible à la longue, 2) donne un résultat toujours très décevant à la fin (il génère juste l'admiration des 2 personnes qui connaissent les entrailles de la bête).
Le proto de l'Abaye des morts, par exemple, donnait des résultats que je trouvais peu encourageant... et les bugs de dcexel étaient trop pénible pour mettre au point un jeu d'arcade. Les jeux précédents étant de type "mou" (aventure ou puzzle game) on avait jamais ressenti les Pbs... enfin si j'avais bien identifié les soucis avec Wizord et autres jeux rapides, mais en mode dev ce n'était pas gérable de mon point de vue. 6502man a peut-être su régler les problèmes, je l'espère (car on avait ramé sur l'adaptation des graphiques et ça rendait vachement bien, j'en avais été ému de voir ça sur Exl100/dcexel 8) ).

nicolho
Messages : 409
Enregistré le : 10 nov. 2016 16:53

Re: [EXL100] Aidez moi ! (résolu)

Message par nicolho » 30 oct. 2019 11:00

Merci d'avoir développé ta réflexion, intéressante, et ton expérience. Mais je me suis peut-être mal fait comprendre, je ne voulais pas dire "faire pour soi égoïstement", mais de le faire pour le faire, pour l'intérêt de la chose sans avoir nécessairement besoin de la motivation de se mettre en valeur auprès des autres (une maladie qui, à mon avis, ne gangrène pas seulement le monde rétro mais l'ensemble de la société actuelle) ou impliquant une relation sociale, bien que ce soit normal et humain, je te l'accorde.
On peut penser, par exemple, aux millions d'auteurs de livres spécialisés à travers les âges, qui se doutent dès le départ que leur ouvrage ne sera peut-être jamais lu, mais qu'ils font publier par principe, avec le simple espoir que ça pourra intéresser quelqu'un d'autre un jour, et avant tout pour apporter leur "pierre à l'édifice" (et c'est aussi valable pour des tonnes de code open-source publié, parfois même souvent utilisé sans qu'on prenne jamais la peine de remercier leur auteur, ni même seulement d'échanger avec, ce qui en effet démotive un tel partage) donc qui font preuve d'une humilité certaine face à leur centre d'intérêt, plutôt à l'opposé d'une "très haute estime de soi" (qui même chez les égo-centrés, cherche absolument à rejaillir :P sur les autres).
Hein ? quoi... "c'est de la br*nlette, on est pas sur un forum d'intello" ? Désolé... faut croire que c'est juste pour me rassurer moi-même... :mrgreen: :D

jester
Messages : 2249
Enregistré le : 01 janv. 2009 23:16
Localisation : Grenoble

Re: [EXL100] Aidez moi ! (résolu)

Message par jester » 30 oct. 2019 11:59

C'est une belle philosophie, bien démago et qui m'insupporte... mais chacun ses idées.
Mais il n'y aura jamais plus la moindre pierre de mon coté.

nicolho
Messages : 409
Enregistré le : 10 nov. 2016 16:53

Re: [EXL100] Aidez moi ! (résolu)

Message par nicolho » 30 oct. 2019 12:08

Merci pour ta courtoisie et ce style impersonnel si sympathique et motivant, moi c'est les jérémiades et le rejet systématique de la faute sur les autres qui m'insupportent... c'est sûr que l'humilité, c'est devenu démago depuis que ça n'existe plus. :)

Markerror
Messages : 1465
Enregistré le : 31 oct. 2011 19:21
Localisation : Orléans
Contact :

Re: [EXL100] Aidez moi ! (résolu)

Message par Markerror » 30 oct. 2019 14:04

Histoire de revenir à nos moutons, et pour faire plaisir à Daniel, j'ai trouvé quelqu'un qui joue à "Meurtre à grande vitesse" et a même eu l'idée saugrenue de lancer la version Exelvision (je ne sais pas d'où venait sa source, mais apparemment, il ne s'est pas plaint de problème de chargement).

http://forums.oric.org/t783-meurtre-a-g ... tesse#9924

Le côté rigolo de l'histoire, c'est que ce n'est pas un français. Du coup, certaines énigmes sont pour lui encore plus obscures que nous (quoi, un numéro INSEE ? :-) ). Chapeau pour la persévérance !
Modifié en dernier par Markerror le 31 oct. 2019 10:48, modifié 1 fois.

nicolho
Messages : 409
Enregistré le : 10 nov. 2016 16:53

Re: [EXL100] Aidez moi ! (résolu)

Message par nicolho » 30 oct. 2019 14:12

Excellent ! Merci de l'avoir signalé, voilà de quoi nous remonter le moral :D

Daniel
Messages : 11836
Enregistré le : 01 mai 2007 18:30
Localisation : Vaucluse
Contact :

Re: [EXL100] Aidez moi ! (résolu)

Message par Daniel » 30 oct. 2019 20:50

Markerror a écrit :
30 oct. 2019 14:04
je ne sais pas d'où venait sa source, mais apparemment, il ne s'est pas plaint de problème de chargement.
Je connais sa source : je lui ai fourni le fichier corrigé .k7 exl100, avec toutes les instructions pour le lancer. Il n'a pas réussi. Pour sa décharge, l'EXL100 n'est pas un ordinateur très convivial, et en plus avec un clavier cyrillique ça ne doit pas aider.

J'ai fait alors, avec dcexel, une sauvegarde juste après le chargement du jeu et je lui ai envoyée. Il l'a restauré sans difficulté dans l'émulateur et c'est ainsi qu'il a pu jouer. Dans la version Thomson il y a un bug, il a pu constater qu'il était corrigé dans la version Exelvision. Je lui ai aussi communiqué le listing du programme TO7/70 pour qu'il corrige le bug, malheureusement il ne sait pas programmer, même pas en BASIC.

Si vous voulez essayer de trouver l'erreur voici le listing :

Code : Tout sélectionner

1 CLEAR2500,52383,8:LM=57216
2 DIMW$(7,19,4),VE$(8,3):GOSUB40000:FORI=0TO8:VE$(I,0)="1":NEXTI:V=FRE(0)
10 CONSOLE0,24:COLOR0,0:CLS
20 COLOR4,3:LOCATE1,1,0:PRINT"Meurtre a grande vitesse":CONSOLE12,24:BOXF(230,20)-(290,84),-7:BOXF(210,20)-(300,84),0
50 DEFGR$(0)=0,0,126,153,126,66,126,0:DEFGR$(1)=0,1,29,35,35,29,1,0:DEFGR$(2)=85,85,85,85,85,85,85,85:DEFGR$(3)=0,224,16,208,16,16,224,0:DEFGR$(4)=192,248,132,132,132,132,248,192
72 DEFGR$(5)=3,31,33,33,33,33,31,3:DEFGR$(6)=0,0,0,0,0,0,0,255:DEFGR$(7)=255,0,0,0,0,0,0,0
90 PH$(0)="IMPOSSIBLE !":PH$(1)="Il n'y a rien d'interessant..."
110 FORI=1TO8:PH$(2)=PH$(2)+CHR$(127):NEXTI:FORI=1TO7:SG$=SG$+GR$(4):SD$=SD$+GR$(5):NEXTI:SG$=SG$+SD$:SD$=SG$
410 L$(1)=GR$(3)+GR$(1)+SG$+"  "+GR$(2)+GR$(2):L$(2)=GR$(6)+GR$(6)+SD$+"  "+GR$(2)+GR$(2)
425 L$(3)="                   ":L$(4)=GR$(7)+GR$(7)+SD$+"  "+GR$(2)+GR$(2):L$(5)=GR$(3)+GR$(1)+SG$+"  "+GR$(2)+GR$(2)
1000 CLS:SCREEN4,3,0
1200 X=2:Y=7:NV=4:NM=1:GOSUB9026:GOTO10800
1500 BOX(14,39)-(176,80),3:FORI=1TO5:LOCATE2,I+4,0:PRINTL$(I):NEXTI:RETURN
1530 FORI=1TO5:LOCATE2,I+4,0:PRINTL$(I):NEXTI
1550 GOSUB1500:LOCATE5,8,0:PRINT"            ":RETURN
1590 GOSUB1500:LOCATE2,5,0:PRINTPH$(2):LOCATE2,6,0:PRINTCHR$(127)+GR$(0)+"     "+CHR$(127):LOCATE2,7,0:PRINT"   "+LEFT$(PH$(2),4):LOCATE2,8,0:PRINTCHR$(127)+"       ":LOCATE2,9,0:PRINTCHR$(127)+"       ":RETURN
2000 CLS:PRINT"QUEL TEMOIGNAGE ?":GOSUB50000:CLS:NT=VAL(O$):AB=0
2020 IFNT<1ORNT>4THENCLS:PRINT"IMPOSSIBLE":RETURN
2025 IFVE$(NP,NT-1)<>"1"THENAB=1:CLS:PRINT"TROP TOT...":RETURN
2030 RETURN
9000 V=FRE(0):NM=VAL(MID$(W$(NV-1,X-2,Y-5),18,1)):IF NM<1 OR NM>11THENRETURN
9025 REM
9026 NM=(NM-1)*455+52384
9027 POKELM+12,INT(NM/256):POKELM+13,NM-256*PEEK(LM+12):POKELM+9,17214 @ 256:POKELM+10,17214 MOD 256
9028 POKE&HE7C3,PEEK(&HE7C3)OR1:EXEC LM:RETURN
9030 POKE&HE7C3,PEEK(&HE7C3)OR1:FORI=20384TO21165STEP40:FORJ=0TO7:POKEI+J,PEEK(NM):NM=NM+1:NEXTJ:NEXTI:NM=0:RETURN
9100 FORI=0TO7:FORJ=0TO455STEP7:NM=52384+I*455+J:GOSUB9027:NEXTJ:FORJ=0TO1000:NEXTJ:NEXTI:RETURN
10000 COLOR7,0:V=FRE(0):O$=INKEY$:IFO$<>""THEN10100
10060 IFSCREEN(X,Y)=0THEN10080
10065 O$=CHR$(SCREEN(X,Y))
10070 COLOR6,0:LOCATEX,Y,0:PRINT"X":LOCATEX,Y,0:PRINTO$:GOTO10000
10080 IFNV=4ANDX=3ANDY=6THENO$=GR$(0):GOTO10070
10085 O$=MID$(L$(Y-4),X-1,1):GOTO10070
10100 CH=ASC(O$)
10105 IFCH=66THENSCREENPRINT
10110 IFCH>7ANDCH<13THEN10500
10120 IFCH=82THEN11000
10130 IFCH=73THEN15000
10140 IFCH=76THEN20000
10150 IFCH=70THEN25000
10160 IFCH=65ANDNV=4ANDX=3ANDY=6THENGOSUB47000
10165 IFCH=80THENGOSUB9100:NM=1:GOSUB9025
10190 GOTO10000
10500 XV=X:YV=Y
10505 IFCH=8THENXV=X-1
10510 IFCH=9THENXV=X+1
10515 IFCH=10THENYV=Y+1
10517 IFCH=11THENYV=Y-1
10520 IFYV<5ORYV>9THEN10000
10530 IFYV=7ANDXV<2THEN10800
10540 IFYV=7ANDXV>21THEN10800
10550 IFXV<2ORXV>21THEN10000
10560 X=XV:Y=YV:GOTO10880
10800 IFCH=8ANDNV>1THENNV=NV-1:X=21
10820 IFCH=9ANDNV<8THENNV=NV+1:X=2
10830 IFNV=0THENNV=1:GOTO10000
10840 IFNV=9THENNV=8:GOTO10000
10845 COLOR6,0
10850 IFNV<4THENGOSUB1550ELSEGOSUB1500
10860 IFNV=4THENGOSUB1590
10865 IFNV=1THENO$=CHR$(127)+CHR$(127):LOCATE2,5,0:PRINTO$:LOCATE2,6,0:PRINTO$:LOCATE2,8,0:PRINTO$:LOCATE2,9,0:PRINTO$
10870 LOCATE 2,3,0:PRINT"VOITURE";NV;:IFNV<4THENPRINT"1ERE CLASSE"ELSE PRINT"2EME CLASSE"
10880 CLS:NM=1:GOSUB9025:GOTO10000
11000 CLS:IFW$(NV-1,X-2,Y-5)=""THEN11050
11025 O$=LEFT$(W$(NV-1,X-2,Y-5),12):V=ASC(W$(NV-1,X-2,Y-5)):IFV=77THEN11100
11027 IFV=88THENPRINT"C'EST LE CONTROLEUR":GOTO11118
11028 IFV=89THENPRINT"C'EST LE BARMAN":GOTO11118
11029 IFV=76THENPRINT"C'EST LE DOCTEUR MARION":GOTO11118
11030 IFV=45THENO$=" "+RIGHT$(O$,LEN(O$)-1)
11032 PRINT"IL Y A UN";O$
11035 GOTO10000
11050 PRINT"IL N'Y A RIEN DE SPECIAL...":GOTO10000
11100 PRINT"C'EST ";O$
11110 REM
11118 GOSUB9000:GOTO10000
15000 CLS
15005 T=VAL(MID$(W$(NV-1,X-2,Y-5),15,1)):NP=T:T=T+1
15010 IF T=TX THEN PRINT:PRINT"INTERROGEZ QUELQU'UN D'AUTRE...":GOTO10000
15015 IFT<>1THENTX=T
15020 GOSUB9000:ON T GOSUB 15100,15300,15400,15500,15600,15700,15800,15900,16000
15100 GOTO10000
15300 GOSUB2000:IFAB=1THENRETURN
15310 ON NT GOSUB 15320,15340,15350,15360:RETURN
15320 PRINT"Je procedais au controle des tickets":PRINT"des voyageurs de la voiture 3. Cette":PRINT"personne dormait. J'ai voulu la re-":PRINT"veiller et comme cela s'averait im-"
15328 PRINT"possible j'ai appele un medecin qui":PRINT"a constate la mort. J'ai transporte":PRINT"le corps dans le fourgon de tete.":VE$(1,1)="1":RETURN
15340 PRINT:PRINT"J'ai remarque quelque chose d'anormal."
15342 PRINT"En effet, la dame qui etait derriere M. Perignac n'etait pas a sa place...":PRINT" Elle aurait du être voiture 2 et non   voiture 3!":VE$(1,2)="1":RETURN
15350 PRINT:PRINT"Le docteur a parle d'une piqure         d'insecte...":PRINT"Je me souviens qu'un voyageur m'avait   signale la presence d'une";:PRINT" abeille!":VE$(1,2)="1":RETURN
15360 PRINT:PRINT"A Lyon, j'ai l'habitude de descendre a  l'hotel Miami.":PRINT"Ce soir je vais coucher a l'hotel Mari- gnan ou j'ai reserve.":RETURN
15400 GOSUB2000:IFAB=1THENRETURN
15410 ON NT GOSUB 15420,15440,15460,15472:RETURN
15420 PRINT"Mon mari etait alle":PRINT"au bar prendre un aperitif et il"
15426 PRINT"s'etait assoupi apres le service":PRINT"des repas. Le controleur est arrive,":PRINT"nous avons essaye de le reveiller.":PRINT"Malheureusement il etait mort...":VE$(2,1)="1":RETURN
15440 PRINT"Je sais que mon mari avait beaucoup":PRINT"d'ennemis. Il s'occupait d'affaires":PRINT"importantes au senat. Il m'avait dit":PRINT"que sa serviette contenait des docu-"
15448 PRINT"ments explosifs ! Je n'en sais pas":PRINT"beaucoup plus car il voyageait":PRINT"souvent et nous nous voyions de":PRINT"moins en moins...":VE$(2,2)="1":RETURN
15460 PRINT"La vieille femme qui est derriere":PRINT"nous poursuit depuis des annees. Elle":PRINT"s'est mis dans la tete que mon mari":PRINT"etait responsable de sa deportation":PRINT"pendant la guerre... Elle a toujours"
15468 PRINT"jure de se venger...":RETURN
15472 PRINT:PRINT"J'ai effectivement une assurance-vie.":PRINT"ET ALORS ! Qu'est ce que ca peut vous"
15476 PRINT"faire ? L'argent ne fera pas revenir":PRINT"Albert. même si c'est une somme tres    importante !":RETURN
15500 GOSUB2000:IFAB=1THENRETURN
15510 ON NT GOSUB 15520,15530,15560,15570:RETURN
15520 PRINT"Perignac mort ! Eh bien permettez":PRINT"moi de vous dire que ce n'est pas":PRINT"une grosse perte... De toute maniere":PRINT"je n'ai rien vu car je tricotais !":VE$(3,1)="1":RETURN
15530 PRINT"Puisque vous insistez je vous dirai":PRINT"que j'avais bien vu que Perignac":PRINT"etait devant moi. Lui a fait comme":PRINT"s'il ne m'avait pas vue. Je deteste"
15538 PRINT"cet homme car pendant la guerre, il":PRINT"m'a denoncee a la Gestapo. quand je":PRINT"pense qu'a la liberation il a pu se":PRINT"faire passer pour resistant !!!"
15546 PRINT"D'ailleurs il n'etait pas le seul !":PRINT"Je vais vous citer l'exemple de":GOSUB50000:PRINT
15550 PRINT"NOTA - Il n'y aura pas d'exemples":PRINT"cites car nous n'avons que 48K"
15554 PRINT"de memoire et pas de temps":PRINT"a perdre.":VE$(3,2)="1":RETURN
15560 PRINT"Tout n'allait pas bien entre Perignac":PRINT"et sa femme - d'ailleurs je la com-":PRINT"prends bien. Ceci dit je me souviens":PRINT"qu'elle lui a propose une pomme et":PRINT"elle insistait pour qu'il la mange.":RETURN
15570 PRINT"Le Thanatox m'a ete donne par mon amie  de Lyon":PRINT"Il parait que c'est tres efficace pour  tuer les rats...":PRINT"Ma pauvre minette est trop vieille...   Elle n'y arrive plus !":RETURN
15600 GOSUB2000:IFAB=1THENRETURN
15610 ON NT GOSUB 15620,15640,15660,15680:RETURN
15620 PRINT"M. Perignac est venu au bar des":PRINT"le depart de la Part Dieu. Un autre":PRINT"client a tenu a lui offrir un verre.":PRINT"C'etait un meridional tres expansif."
15628 PRINT"Le controleur est passe a 12h05 et":PRINT"il a poinconne les billets.":VE$(4,1)="1":RETURN
15640 PRINT"Je me rappelle un incident.":PRINT"A 12h15 une jeune femme blonde est"
15644 PRINT"venue et a eu une scene violente":PRINT"en allemand, avec M. Perignac.":PRINT"Ils sont repartis furieux, chacun de":PRINT"son cote au bout de 5 minutes.":VE$(4,2)="1":RETURN
15660 PRINT"A 13h00 le controleur m'a demande de":PRINT"passer un appel a la sonorisation":PRINT"pour demander un docteur. Celui-ci"
15666 PRINT"est venu immediatement et il est":PRINT"repasse vers 13h15 pour rejoindre":PRINT"sa place en même temps que le controleur":VE$(4,3)="1":RETURN
15680 PRINT:PRINT"Je crois vous avoir tout dit...":RETURN
15700 GOSUB2000:IFAB=1THENRETURN
15710 ON NT GOSUB 15740,15750,15760,15780:RETURN
15740 PRINT"Pourquoi m'interrogez-vous ? Je ne sais rien !":PRINT"Je ne connais pas ce M. Perignac":VE$(5,1)="1":RETURN
15750 PRINT"Bon... J'ai menti... Je le connais":PRINT"Mais c'est une histoire finie depuis"
15754 PRINT"longtemps. C'est sa femme qui va être":PRINT"contente ! Elle va toucher une sacree":PRINT"prime d'assurances... ":VE$(5,2)="1":VE$(2,3)="1":RETURN
15760 PRINT"Je suis allee au bar. Je voulais":PRINT"parler a Albert. En y allant je me":PRINT"suis heurtee a un type qui sortait des":PRINT"WC et qui en plus a commence a me"
15766 PRINT"draguer. Nous avons eu des mots,":PRINT"Albert et moi - il est tres nerveux -"
15772 PRINT"car il avait repris contact avec sa":PRINT"femme... et voulait que je sois plus    discrete.":RETURN
15780 PRINT:PRINT"Si j'utilise le Neurofix, ce n'est pas  pour me droguer !"
15782 PRINT"Je suis sujette a des migraines epouvan-tables, et ca me soulage...":RETURN
15800 GOSUB2000:IFAB=1THENRETURN
15810 ON NT GOSUB 15820,15830,15870,15880:RETURN
15820 PRINT"Je suis alle prendre l'apero au bar."
15822 PRINT"Voyageant seul et aimant la compagnie":PRINT"je me suis permis d'offrir un verre"
15826 PRINT"a un voyageur. C'est tout ! Moi je":PRINT"n'ai rien vu, rien entendu...":VE$(6,1)="1":RETURN
15830 PRINT"Vous ne trouvez personne d'autre a":PRINT"deranger ? Vous etes de la Police ?"
15844 PRINT"Puisque je vous dis que je n'ai pas":PRINT"quitte ma place... D'ailleurs vous      pouvez demander au controleur."
15848 PRINT"Il est passe a 12h35 et ne m'a":PRINT"pas controle. Il l'avait déjà fait"
15852 PRINT"au bar. Je m'en souviens car je lui":PRINT"ai demande l'heure d'arrivee et il"
15856 PRINT"a cherche dans son 'Chaix'.":PRINT"Il a pu encore me voir a 13h25 car je"
15860 PRINT"lui ai demande l'heure.":RETURN
15870 PRINT:PRINT"Je reconnais que ce sac et les armes sont a moi...":PRINT"Mais je vous jure - BONNE MERE ! - que  je n'ai jamais vu cette bague !":RETURN
15880 PRINT:PRINT"Mais qu'est ce qu'il y a encore ???"
15882 PRINT"On doit justifier tout ce qu'on a en    poche ???"
15884 PRINT"Je peux bien avoir des dollars... non !"
15886 PRINT"J'ai trouve la carte-credit. J'allais la donner au controleur...":RETURN
15900 GOSUB2000:IFAB=1THENRETURN
15910 ON NT GOSUB 15920,15940,15950,15970:RETURN
15920 PRINT"On a reclame un docteur vers 13h00.":PRINT"Un monsieur avait ete victime d'un"
15924 PRINT"malaise. C'etait grave car malgre un":PRINT"massage cardiaque je n'ai pas pu le"
15928 PRINT"ranimer... Je n'ai pu que constater":PRINT"la mort et administrer un calmant a"
15932 PRINT"sa femme qui etait tres eprouvee."
15934 PRINT"Si cet homme etait cardiaque, il a":PRINT"peut-être ete victime d'une crise.":VE$(7,1)="1":RETURN
15940 PRINT"Certains signes me faisant penser a un  empoisonnement... J'ai procede a un exa-men detaille du corps et j'ai constate  une trace suspecte au cou, comme une pi-qure d'insecte..."
15942 VE$(7,2)="1":RETURN
15950 PRINT"En retournant a ma place, j'ai croise":PRINT"une jeune femme blonde qui sortait":PRINT"des WC. Elle avait l'air hagard..."
15956 PRINT"comme droguee, si vous voyez ce que je  veux dire.":RETURN
15960 PRINT"mon attention.":RETURN
15970 PRINT:PRINT"La bague speciale trouvee dans le sac   est bien connue en medecine."
15972 PRINT"Elle ressemble a celle utilisee pour    certains vaccins."
15974 PRINT"Mais ce modele a une pointe sert plus   souvent a sacrifier des cobayes."
15976 PRINT"Il existe en effet des poisons a effet  instantane !"
15978 PRINT"D'ailleurs je ne vous conseille pas de  toucher la pointe !!!":RETURN
16000 GOSUB2000:IFAB=1THENRETURN
16010 ON NT GOSUB 16020,16050,16070,16090:RETURN
16020 PRINT"Je ne savais pas que mon frere etait ":PRINT"dans ce train. J'ai ete tres surpris"
16024 PRINT"quand j'ai vu son corps porte par le":PRINT"controleur et le medecin. Je me suis"
16028 PRINT"fait connaitre et ils m'ont demande"
16030 PRINT"d'aller reconforter ma belle-soeur."
16032 PRINT"Quand le medecin est revenu aupres "
16034 PRINT"d'elle, je suis alle me recueillir"
16036 PRINT"aupres du corps de mon frere, et le"
16038 PRINT"controleur m'a laisse seul. Ensuite"
16040 PRINT"je suis retourne m'asseoir aupres de ma belle-soeur.":VE$(8,1)="1":RETURN
16050 PRINT"Vous n'allez pas me harceler tout le":PRINT"temps ! Un peu de respect..."
16060 PRINT"Je peux vous dire qu'en fait je ":PRINT"pensais que mon frere voyageait avec    Melle Voss, sa maitresse...":VE$(8,2)="1":RETURN
16070 PRINT"Albert avait connu Katharina il y a"
16072 PRINT"un an mais il avait decouvert recemment"
16074 PRINT"qu'elle se droguait... Ca ne fait pas"
16076 PRINT"tres bon effet... mais il n'arrivait"
16078 PRINT"pas a s'en separer d'autant plus qu'elle";
16080 PRINT"avait des moyens pour le faire chanter.":RETURN
16090 PRINT"Mon frere et moi etions au conseil d'ad-ministration d'une importante societe."
16096 PRINT"Ses relations douteuses avec Melle Voss"
16098 PRINT"nous ont oblige a lui demander de demis-sionner.":PRINT"C'est le sens du mot de notre president,M. Bertini.":RETURN
20000 CLS:T=VAL(MID$(W$(NV-1,X-2,Y-5),13,1)):T=T+1:CLS:ON T GOSUB20090,20100,20090,20300,20400:GOTO10000
20090 PRINTPH$(1):GOTO10000
20100 RETURN
20300 PRINT"COMMISSION D'ENQUETE SUR LA DROGUE"
20305 PRINT:PRINT"C'est demain que le senateur Perignac   doit prononcer son intervention. Dans   les milieux bien informes, on murmure"
20310 PRINT"que d'importantes personnalites sont    inquietes avant le discours de celui"
20315 PRINT"qui s'est jure de 'faire tomber les grosbonnets'...":RETURN
20400 PRINT"         --- MINITEL 10 ---"
20405 PRINT:PRINT"Utilisation en telephone : Composez     votre numero sur le clavier."
20410 PRINT"Pour raccrocher - appui sur SPACE."
20415 PRINT:PRINT"Utilisation en Minitel - Composez le    numero d'acces. Quand la liaison est    etablie tapez le code d'acces du centre serveur demande."
20420 PRINT"Deconnection, tapez FIN.":RETURN
25000 CLS:PRINT"Objet ou personne ?":GOSUB50000:CLS
25010 IFO$="P"THEN26000
25015 T=VAL(MID$(W$(NV-1,X-2,Y-5),14,1)):T=T+1
25020 ON T GOSUB25100,25200,25300,25400,25500,25600,25700,25800,25900,25950
25030 GOTO10000
25100 PRINTPH$(1):RETURN
25200 PRINT:PRINT"Vous n'etes pas degoute !":RETURN
25300 PRINT"Cette valise contient :":PRINT:PRINT"- divers habits":PRINT"- une lettre adressee  a Louis Perignac.":RETURN
25400 PRINT"Dans cette poubelle, il y a...":PRINT:PRINT"- des serviettes en papier":PRINT"-un morceau de lime a onglesxxx":PRINT"- il se degage une tres forte odeur       d'eau de toilette.":GOSUB50000
25430 CLS:PRINT"- un dossier portant la mention :":PRINT:PRINT"    REPUBLIQUE FRANCAISE - SENAT":PRINT:PRINT"RAPPORT SUR LA VENTE DE LA DROGUE PAR   LES MILIEUX FINANCIERS TRADITIONNELS":PRINT:PRINT"Commission d'enquete sous la presidence"
25440 PRINT"d'A. Perignac.":RETURN
25500 PRINT:PRINT"Dans ce sac, on peut trouver...":PRINT"-un micro-ordinateur portable"
25506 PRINT"-une pochette contenant une feuille      de paie xxx":PRINT"-des petits bouts de papier xxx"
25510 GOSUB50000:IFO$="A"THENGOSUB45000:RETURN
25600 IFOU=0THEN25620
25602 PRINT:PRINT"Cette mallette contient...":PRINT:PRINT"-un dictaphone":PRINT"-une cassette audio xxx":PRINT"-une lettre du Narcotic  Bureau - USA":RETURN
25620 PRINT:PRINT"Cette mallette est verrouillee...":GOSUB50000:IFO$="A"THENGOSUB53000:RETURN
25622 GOSUB50000:IFO$="A"THENGOSUB53000
25700 PRINT:PRINT"Cette valise contient...":PRINT:PRINT"-un revolver 357 Magnum"
25704 PRINT"-le plan d'un entrepot":PRINT"-des fromages de brebis":PRINT"-une lettre adressee a A. Mozarella"
25708 PRINT:PRINT"Dans la poche externe...":PRINT"-une bague speciale avec une pointe      comme pour les vaccins.":VE$(6,2)="1":VE$(7,3)="1":RETURN
25800 PRINT:PRINT"Cette mallette contient...":PRINT:PRINT"-de la lingerie fine":PRINT"-une seringue":PRINT"-plusieurs ampoules de Neurofix":VE$(5,3)="1":RETURN
25900 PRINT:PRINT"Ce sac contient...":PRINT:PRINT"-une boite de viande pour chats":PRINT"-des vetements divers":PRINT"-un livre 'J'apprends a tricoter'":RETURN
25950 PRINT:PRINT"Cette poubelle contient...":PRINT:PRINT"-des serviettes en papier usagees       -un portefeuille renfermant seulement    de la petite monnaie francaise et americaine"
25954 PRINT"-une carte d'identite au nom de          Perignac Albert":RETURN
26000 GOSUB9000:CLS:T=VAL(MID$(W$(NV-1,X-2,Y-5),17,1)):T=T+1
26008 ON T GOSUB26100,26200,26300,26400,26500,26600,26700,26800,26900
26009 GOTO 10000
26100 PRINTPH$(1):RETURN
26200 PRINT:PRINT"Le controleur a sur lui...":PRINT:PRINT"-un mouchoir":PRINT"-la carte d'un hotel xxx"
26214 PRINT"Dans sa sacoche de cuir...":PRINT"-une cle a carre":PRINT"-une pince":PRINT"-un indicateur d'horaires":VE$(1,3)="1":RETURN
26300 PRINT:PRINT"Madame Perignac porte sur elle...":PRINT:PRINT"-une petite cle noire":PRINT"-une enveloppe contenant un contrat      d'Assurance-Vie de son mari a son       benefice":VE$(2,3)="1":RETURN
26400 PRINT:PRINT"NON MAIS CA VA PAS !!!":PRINT"Vous n'avez tout de même pas l'inten-   tion de me fouiller !!!":PRINT"JE REFUSE !!!"
26414 PRINT:PRINT"Conseil de l'auteur...":PRINT:PRINT"Ne vous laissez pas intimider...        Vous avez le droit !"
26416 GOSUB50000:IFO$<>"A"THENRETURN
26420 CLS:PRINT"Puisque vous avez insiste,   Mme Tricot s'est laissee faire..."
26422 VE$(3,3)="1":PRINT:PRINT"Elle a sur elle...":PRINT:PRINT"-un billet de TGV et une reservation     pour la voiture 2":PRINT"-un flacon marque Thanatox":RETURN
26500 PRINT:PRINT"Sur lui, rien de bien extraordinaire !":PRINT:PRINT"-un briquet":PRINT"-un trousseau de cles":PRINT"-un decapsuleur":PRINT"-un portefeuille":RETURN
26600 PRINT:PRINT"Melle Voss a sur elle...":PRINT:PRINT"-un collier dore casse":PRINT"-sur le bras, traces de  piqures":PRINT"-une page d'agenda":RETURN
26700 PRINT:PRINT"Monsieur Mozarella a sur lui...":PRINT"-beaucoup d'argent liquide - francs et   dollars"
26714 PRINT"-une carte de credit au nom de Perignac -un flacon d'eau de toilette 'MACHO'    -une montre-gousset en or":VE$(6,3)="1":RETURN
26800 PRINT:PRINT"En fouillant le cadavre, vous trouvez":PRINT:PRINT"-des cles de voiture":PRINT"-un trousseau de cles avec une etiquette marquee 'Kate'":PRINT"-une lettre en allemand xxx":RETURN
26900 PRINT:PRINT"Monsieur Louis Perignac a sur lui...":PRINT:PRINT"-un portefeuille":PRINT"-une pochette rafraichissante xxx":PRINT"-un morceau de lime a ongle":PRINT"-une carte de visite xxx":VE$(8,3)="1":RETURN
40000 OPEN"I",#3,"TABLEAU"
40005 IFEOF(3)THENCLOSE#3:RETURN
40010 INPUT#3,I,J,K,W$(I,J,K):GOTO40005
45000 COLOR0,2:CLS:PRINT"Cobra inextended Basic V.345"
45100 INPUTO$
45110 IFO$="FIN"THENCOLOR3,0:CLS:RETURN
45120 IFO$="CLS"THENCLS:GOTO45100
45130 IFO$="RUN"THEN45500
45140 IFO$="CAT"THENPRINT"CRYPTO.BAS":GOTO45100
45150 PRINT"SYNTAX ERROR":GOTO45100
45500 CLS:INPUT"CODE ";C$
45510 INPUT"TEXTE ";T$
45520 J=0:O$=""
45530 FORI=1TOLEN(T$):J=J+1:IFJ>LEN(C$)THENJ=1
45540 OI=ASC(MID$(T$,I,1))-ASC(MID$(C$,J,1))+75:IFOI<32OROI>127THENOI=46
45560 O$=O$+CHR$(OI):NEXTI:PRINTO$:GOTO45100
47000 CLS:PRINT:PRINT"Composez votre numero !":PRINT:PRINT"Ex:16/13461346 puis 'ENTREE'":LOCATE 20,18,1:INPUTO$
47055 IFO$="FIN"THENCLS:RETURN
47060 IFO$="12"THEN47500
47070 IFO$="16/15270056"THEN47600
47080 IFO$="16/85934075"THEN47700
47090 IFO$="16/36139155"THEN48000
47100 PLAY"FA":FORJ=1TO200:NEXT:IFINKEY$=" "THEN47000ELSE47100
47200 FORI=1TONJ:PLAY"L90FA":FORJ=1TO1200:NEXTJ:AB=0:IFINKEY$=" "THENI=NJ:AB=1
47220 NEXTI:LOCATE1,12,0:CLS:RETURN
47500 NJ=15:GOSUB47200:IFAB=1THEN47000
47505 PRINT"Quelques numeros utiles..."
47515 PRINT:PRINT"PERIGNAC A. .....1/5270056"
47516 PRINT"BROCARD B. .....85/934075"
47518 PRINT
47545 PRINT"MINITEL PROFESSIONNEL"
47547 PRINT"ACCES PAR LE 3/6139155"
47550 PRINT"PHARMATEL ..........PHARMA"
47560 PRINT"FICHIER INTERPOL ...INTERPOL"
47590 GOSUB50000:IFO$=" "THEN47000
47595 GOTO47000
47600 NJ=4:GOSUB47200
47604 T$="MONSIEUR PERIGNAC EST ACTUELLEMENT EN   VOYAGE AUX USA... VEUILLEZ RAPPELER     ULTERIEUREMENT...":PRINT:PRINTT$:GOSUB50000:GOTO47000
47700 NJ=5:GOSUB47200
47704 T$="UN CONSEIL... APPELEZ CE NUMERO         REELEMENT !!! (APRES 19 H).":PRINT:PRINTT$:GOSUB50000:GOTO47000
48000 NJ=3:GOSUB 47200:IF RND(1)*10>8THEN46800
48025 CLS:NM=56934:GOSUB9030:CONSOLE16,24
48030 CLS:PRINT:INPUT"CODE D'ACCES";O$
48050 IFO$="INTERPOL"THEN48100
48055 IFO$="PHARMA"THEN48200
48057 IFO$="FIN"THENCONSOLE12,24:GOTO47000
48060 PRINT:PRINT"Code d'acces inconnu":GOSUB50050:CLS:PRINT:GOTO48030
48100 GOSUB50050:CLS
48108 CLS:PRINT"FICHIER INTERPOL":PRINT:PRINT"Veuillez vous identifier..."
48110 PRINT:INPUT"Nom  ";A$(8)
48115 INPUT"Code INSEE ";A$(9):PRINT
48122 CLS:T$="VERIFICATION EN COURS... ":PRINT:GOSUB50050
48130 IFLEN(A$(9))<>13THENPRINT"INCORRECT !":GOSUB50050:GOTO48108
48150 CLS:PRINT:PRINT"Vous avez acces au fichier."
48151 NM=1:GOSUB9026:PRINT:INPUT"Nom recherche ";O$
48152 IFO$="FIN"THENCLS:GOTO48030
48153 PRINT:PRINT"RECHERCHE EN COURS... ":GOSUB50050
48170 IFO$="VOSS"THEN48400
48175 IFO$="MOZARELLA"THEN48500
48176 IFO$="GARNIER"THEN48600
48190 CLS:LOCATE2,19,0:PRINT"Inconnu dans notre fichier..."
48197 GOSUB50050:GOTO48150
48200 CLS:PRINT"Bienvenue sur le serveur PHARMATEL !"
48205 PRINT:PRINT"Tapez le nom du produit recherche..."
48210 PRINT:INPUTO$
48212 IFO$="FIN"THEN48030
48215 PRINT"RECHERCHE EN COURS... ":GOSUB50050
48220 IFO$="THANATOX"THEN48230
48222 IFO$="NEUROFIX"THEN48250
48224 CLS:PRINTO$:PRINT
48225 PRINT"SERVEUR EN COURS D'INSTALLATION...      PRODUIT NON REPERTORIE"
48228 GOSUB50000:GOTO48200
48230 CLS:PRINT:PRINTO$
48235 PRINT"Poison paralysant l'appareil respira-   toire. Effet lent - 4h."
48240 GOSUB50000:GOTO48200
48250 CLS:PRINT:PRINTO$
48255 PRINT"Analgesique. 4eme tableau."
48256 PRINT"Effet hallucinogene sous forte dose."
48260 GOSUB50000:GOTO48200
48400 CLS:NM=2:GOSUB9025:PRINT"FICHE 87868.89 source BUNDESPOLIZEI"
48410 PRINT:PRINT"Nom  VOSS Mercedes dite Katharina":PRINT
48420 REM
48425 PRINT"Nee a Hambourg le 12.08.53"
48430 PRINT"2 condamnations pour chantage et toxi-  comanie. Call-girl."
48440 GOSUB50000:GOTO48150
48500 CLS:NM=8:GOSUB9025:PRINT"FICHE 656489.66 Source SRPJ Ajaccio"
48510 PRINT:PRINT"Nom  MOZARELLA Antoine"
48525 PRINT:PRINT"dit Tony-les-grandes-oreilles a cause desa facilite a ouvrir les coffres en     ecoutant le mecanisme. Pick-pocket      3 fois condamne."
48530 GOSUB 50000:GOTO 48150
48600 CLS:NM=10:GOSUB9025:PRINT"FICHE 112187.QA SOURCE SRPJ VERSAILLES"
48610 PRINT:PRINT"Nom GARNIER Jean-Jacques"
48625 PRINT:PRINT"2 condamnations pour racket et extorsionde fonds."
48630 GOSUB50000:GOTO48150
50000 O$=INKEY$:IFO$=""THEN50000:RETURN
50050 FORJ=1TORND(1)*200+500:NEXTJ:RETURN
53000 CLS:PRINT"Utilisez les touches 1 a 4 pour faire   tourner la molette correspondante."
53035 PRINT"La serrure s'ouvre quand la bonne combi-naison est affichee.":PRINT"Pour arreter, pressez 'F'"
53050 S(0)=1:S(1)=7:S(2)=2:S(3)=0:BOXF(10,160)-(299,199),5:BOXF(230,170)-(280,190),3:LOCATE 30,22,0:PRINT"0000"
53100 GOSUB50000:IFO$="F"THENCLS:RETURN
53170 V=VAL(O$)-1:IFV<0ORV>3THEN53100
53190 T=SCREEN(30+V,22):T=T+1:IFT=58THENT=48
53192 T=T-48:IFT=S(V)THENPLAY"MI"ELSEPLAY"FA"
53195 T$=STR$(T):T$=RIGHT$(T$,LEN(T$)-1)
53200 LOCATE30+V,22,0:PRINTT$
53210 OU=0:IFSCREEN(30,22)=54ANDSCREEN(31,22)=50ANDSCREEN(32,22)=55ANDSCREEN(33,22)=53THENOU=1:FORI=1TO4:PLAY"DO":NEXTI
53220 GOTO 53100
Aux dernières nouvelles, il voulait le traduire en anglais...
Daniel
L'obstacle augmente mon ardeur.

Répondre