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.
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...
) à 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.
). Même à l'époque, j'avoue ne pas avoir accroché, devant la réalisation technique trop austère. 
).
sur les autres).