[Thomson] Nouveaux logiciels transférés sur PC

Tout ce qui concerne le logiciel original et sa sauvegarde avec entre autre la régénération des disquettes ou autres supports physiques.

Modérateurs : Papy.G, fneck, Carl

gotcha
Messages : 2759
Inscription : 30 mars 2017 11:39
Localisation : Isère
Contact :

Re: [Thomson] Nouveaux logiciels transférés sur PC

Message par gotcha »

Daniel a écrit : 22 févr. 2020 17:56 Je n'ai trouvé aucune illustration (jaquette, disquette, notice), ni aucun article dans la presse.
Si vous avez quelque chose pensez à la sauvegarde du patrimoine :wink:
Ubi Soft existe toujours, tu peux peut-être les contacter ... ou pas, s'ils n'aime pas qu'on publie des softs sur lesquels ils ont des droits :D
Amstrad CPC et Goupil power :mrgreen:
Bénévole à l'association pour un conservatoire de l’informatique et de la télématique (https://www.aconit.org)
Daniel
Messages : 17316
Inscription : 01 mai 2007 18:30
Localisation : Vaucluse
Contact :

Re: [Thomson] Nouveaux logiciels transférés sur PC

Message par Daniel »

Mineur pour TO7 et MO5 - Année et origine inconnues (scans et transferts de Christophe)
http://dcmoto.free.fr

Image Image

Image

Image Image
Daniel
L'obstacle augmente mon ardeur.
totor
Messages : 204
Inscription : 09 oct. 2019 22:41

Re: [Thomson] Nouveaux logiciels transférés sur PC

Message par totor »

ça a l'air quand même bien nul. christophe tu as payé CA combien? et après avoir vu ce que c'était comme jeu, le prix payé ne te reste pas en travers de la gorge?
Daniel
Messages : 17316
Inscription : 01 mai 2007 18:30
Localisation : Vaucluse
Contact :

Re: [Thomson] Nouveaux logiciels transférés sur PC

Message par Daniel »

Le raisonnement est le suivant : Les jeux les plus nuls se sont mal (pas) vendus, ils sont donc très rares.
Les collectionneurs recherchent la rareté et donc payent cher les jeux nuls, pas cher les bons jeux très courants.

Exemples :
- Le meilleur jeu Thomson : Mission: Liftoff. Très courant, téléchargeable sur internet. Coût : 0€00
- Le plus nul : Mineur. (2 exemplaires sur ebay en 35 ans). Coût : 25€00 + port.
- Un autre un peu meilleur mais plus rare : Lutins (1 exemplaire sur ebay en 35 ans). Coût : 50€00 + port.

Voici Mineur pour MO5 (Revente à 25€ interdite).

Code : Tout sélectionner

10 CLS:SCREEN3,0,0:CLEAR,,1
20 POKE &HA7C3,4
30 DEFGR$(0)=0,124,2,60,64,64,62,0
40 CONSOLE 0,24,0,0:LOCATE0,1
50 ATTRB0,1:PRINT"NA";GR$(0);"A"
60 FOR I=0TO32:FORJ=1TO15:A=POINT(I,J):IF A>0 THEN PSET(I+3,J-1)" ",,4
70 NEXT J,I
80 CONSOLE,,1,1:LOCATE0,24
90 COLOR4:ATTRB1,1:PRINT" LOGICIELS DE JEU":PRINT:PRINT:PRINTTAB(6);"MINEUR":ATTRB0,1:COLOR1
100 PRINT
110 PRINT"Avec  les manettes  guidez votre  mineur";
120 PRINT"pour  qu'il  ramasse  le plus de dollars";
130 PRINT"possible . Retournez alors avant la  fin";
140 PRINT"de  votre oxygene  a la  surface par  la";
150 PRINT"petite  porte bleue . Mais attention aux";
160 PRINT"pierres qui vous ecrasent si vous restezdessous . Que le meilleur gagne";
170 FOR I=1TO10000:NEXT
180 CONSOLE,,0,0
190 CLS:DEFINT A-Z
200 SCREEN3,0,0
210 CLEAR ,,5
220 ATTRB1,1:PRINT:PRINT"NIVEAU DE DIFFICULTE"
230 ATTRB0,0:LOCATE0,20:PRINT"Avec la manette 0,choisissez et appuyez sur le bouton pour commencer la partie"
240 A=RND:IF STICK(0)=1 THEN V=(V+5)MOD 6
250 IF STICK(0)=5 THEN V=(V+1)MOD 6
260 FORI=0TO4:LOCATE17,2*I+5:COLOR2-(V=I),3-(V=I):ATTRB1,1:PRINTI+1:NEXTI:LOCATE 17,17:COLOR2-(V=5),3-(V=5):PRINT"FIN"
270 IF STRIG(0)=0 THEN 240
280 DI%=V+1
290 IF V=5 THEN END
300 SCREEN 1,0,0:V=0
310 FORI=0TO8:READA%(I),B%(I):NEXTI
320 DEFGR$(4)=129,66,60,24,24,24,24,126
330 DEFGR$(0)=128,152,64,63,24,24,102,65
340 DEFGR$(1)=1,25,2,252,24,24,102,130
350 DEFGR$(2)=1,25,2,252,24,24,102,130
360 DEFGR$(3)=128,152,64,63,24,24,102,65
370 DATA 0,0,0,-1,0,0,1,0,0,0,0,1,0,0,-1,0,0,0
380 CLS:ATTRB1,1:PRINT:PRINT" NOMBRE DE JOUEURS"
390 A=RND:IF STICK(0)=1 THEN V=(V+5)MOD 6
400 IF STICK(0)=5 THEN V=(V+1)MOD 6
410 FORI=0TO1:LOCATE17,2*I+5:COLOR2-(V=I),3-(V=I):ATTRB1,1:PRINTI+1:NEXTI:LOCATE 17,17:COLOR2-(V=2),3-(V=2):PRINT"FIN"
420 IF STRIG(0)=0 THEN 390
430 IF V=2 THEN END
440 M=V+1
450 SCREEN1,0,0
460 CLS:ATTRB 0,0:C0=4:C1=1:N=2*M:DT%=11-2*DI%
470 PTS=0:X11%=38:X01%=1:Y11%=1:Y01%=1
480 X10%=38:X00%=1:Y00%=1:Y10%=1
490 PRINT CHR$(20);
500 FOR I=1 TO 80*DI%+RND*100
510 LOCATE 1+RND*37,2+RND*17:PRINT"#":NEXT I
520 FOR I=1 TO 28+RND*4
530 LOCATE 5+RND*30,4+RND*16
540 COLOR 4,0:PRINT"$":NEXT I
550 LOCATE0,23:PRINT"Points:         Vie:         Points:    ";
560 COLOR 0,0:BOX(0,0)-(39,21)"#"
570 COLOR 6,6:LOCATE 19,1:PRINT CHR$(34)
580 IF M=2THEN 640
590 FOR CPT=450 TO 1 STEP -1:GOSUB 710
600 IF CPT MOD DT%=0 THEN GOSUB 1540
610 COLOR 0,5:LOCATE 19,23:PRINTCPT;
620 IF VI0=0 THEN NEXT CPT ELSE 1350
630 GOTO 1350
640 FOR CPT=450 TO 1 STEP -1
650 COLOR 0,5:LOCATE 19,23:PRINTCPT;
660 IF VI0=0 THEN GOSUB 710
670 IF VI1=0 THEN GOSUB 980 :GOTO 690
680 IF VI0=1 THEN 1350
690 NEXT CPT
700 GOTO 1350
710 COLOR 3,4
720 A%=STICK(0)
730 X01%=X00%+A%(A%)
740 Y01%=Y00%+B%(A%)
750 X=SCREEN(X01%,Y01%)-32:IF X<0 THEN 820
760 ON X GOTO 820,1460,780,790
770 GOTO 820
780 X01%=X00%:Y01%=Y00%:GOTO 820
790 PT0=PT0+INT(RND*10)
800 LOCATE6,23:PRINTPT0;
810 PLAY"A3L5DOFA"
820 PSET(X00%,Y00%)"!",3,3
830 PSET (X01%,Y01%)GR$(CPT MOD N),C0
840 IF Y00%<2 THEN 950
850 IF SCREEN(X00%,Y00%-1)<>35 THEN 950
860 IF X00%=X01% THEN 1290
870 FOR D%=Y00%-2TO2 STEP-1:BEEP
880 IF SCREEN(X00%,D%)<>35 THEN 900
890 NEXT D%
900 FORV%=Y00%+1TO23:IFSCREEN(X00%,V%)<>33THEN920
910 NEXT
920 COLOR3,3:LINE(X00%,V%-1)-(X00%,D%+1)"!"
930 'LOCATE1,1:STOP
940 COLOR1,0:LINE(X00%,V%-1)-(X00%,V%-Y00%+D%+1)"#"
950 X00%=X01%
960 Y00%=Y01%
970 RETURN
980 COLOR 3,4
990 A%=STICK(1)
1000 X11%=X10%+A%(A%)
1010 Y11%=Y10%+B%(A%)
1020 X=SCREEN(X11%,Y11%)-32:IF X<0 THEN X=0
1030 ON X GOTO 1090,1500,1050,1060
1040 GOTO 1090
1050 X11%=X10%:Y11%=Y10%:GOTO 1100
1060 PT1=PT1+INT(RND*10)
1070 LOCATE 36,23:PRINTPT1;
1080 PLAY"A3L5DOFA"
1090 PSET(X10%,Y10%)"!",3,3
1100 PSET(X11%,Y11%)GR$(CPT MOD4),C1,3
1110 IF Y10%<2 THEN 1220
1120 IF SCREEN(X10%,Y10%-1)<>35 THEN 1220
1130 IF X10%=X11% THEN 1320
1140 FOR D%=Y10%-2TO2 STEP-1:BEEP
1150 IF SCREEN(X10%,D%)<>35 THEN 1170
1160 NEXT D%
1170 FORV%=Y10%+1TO23:IFSCREEN(X10%,V%)<>33THEN1190
1180 NEXT
1190 COLOR3,3:LINE(X10%,V%-1)-(X10%,D%+1)"!"
1200 'LOCATE1,1:STOP
1210 COLOR1,0:LINE(X10%,V%-1)-(X10%,V%-Y10%+D%+1)"#"
1220 X10%=X11%
1230 Y10%=Y11%
1240 RETURN
1250 X1%=X0%:Y1%=Y0%
1260 GOTO 710
1270 COLOR 4,3:LOCATE X0%,Y0%:PRINT GR$(CPT MOD 2);
1280 GOTO 710
1290 LOCATE X00%,Y00%:COLOR 6,0:PRINT"#"
1300 VI0=1:PLAY"A2L20DOMIFAL30SO"
1310 RETURN
1320 LOCATE X10%,Y10%:COLOR 6,0:PRINT"#"
1330 VI1=1:PLAY"A2L20DOMIFAL30SO"
1340 RETURN
1350 LOCATE6,23:PRINTPT0;:LOCATE36,23:PRINTPT1;
1360 IF PT0+PT1=0 THEN 1390
1370 IF PT0>PT1 THEN LOCATE 4,22 ELSE LOCATE 35,22
1380 ATTRB 1,1:COLOR 3,4:PRINTGR$(4);:ATTRB 0,0
1390 COLOR 7,4:LOCATE 1,24:PRINT"    ACTION manette 0 pour continuer   ";
1400 A=STRIG(0)
1410 IF A THEN 190
1420 IF INKEY$<>"F"THEN 1400
1430 CLS
1440 SCREEN 4,6,6:END
1450 GOTO 1400
1460 PLAY"O2A3L40DODOFA":AR=AR+1
1470 PT0=PT0+10:IF AR=1 THEN PT0=PT0+10
1480 LOCATE 7,23:PRINTPT0;
1490 VI0=1:RETURN
1500 PLAY"O2A3L40DODOFA":AR=AR+1
1510 PT1=PT1+10:IF AR=1 THEN PT1=PT1+10
1520 LOCATE 36,23:PRINTPT1;
1530 VI1=1:RETURN
1540 IF CPT=0 THEN 1290
1550 E%=1+RND*37: D%=1+RND*17
1560 COLOR 3,3:LOCATE E%,D%+1
1570 PRINT "!"
1580 V=0
1590 FOR J%=D% TO 20
1600 IF SCREEN(E%,J%)<>35 OR SCREEN(E%,J%+1)<>33 THEN 1650
1610 LOCATE E%,J%:COLOR 3,3:PRINT"!"
1620 LOCATE E%,J%+1:COLOR 1,0:PRINT"#"
1630 V=1:BEEP
1640 NEXT J%
1650 IF V=1 AND D%>0 THEN D%=D%-1:GOTO 1580
1660 RETURN
1670 END
Daniel
L'obstacle augmente mon ardeur.
christophe
Messages : 73
Inscription : 07 déc. 2019 08:44
Localisation : Alsace

Re: [Thomson] Nouveaux logiciels transférés sur PC

Message par christophe »

Daniel a bien compris ce qu'est un collectionneur. Je suis un multicollectionneur ( ordinosaures, DVD, disques, BDs, timbres, monnaies,télécartes, mineraux, ect...). Le collectionneur cherchera avant tout, la piece rare, voir UNIQUE. C'est valable pour toutes les collections. Par exemple, une piece de 2 euros grece 2002 avec une lettre S (frappé par la monnaie de finlande) se vendra 20 €, alors qu'une piece grece 2002 classique vaut 2 €. Il faudra une loupe pour faire la difference. idem pour la piece 2 euros Grace Kelly de Monaco qui se negocie a pres de 2000€. Seul le collectionneur fanatique sera pret a mettre ce prix a la grande joie des speculateurs (nombreux dans tout les domaines de collection). Par contre,pour moi, la collection reste un loisir, et ne doit pas empieter sur ma vie de famille avec des depenses déraisonnable.

@totor; effectivement 25€ fdpout et non, aucun regrets, ni pour lutins, ni pour mineur, j'achete en connaissance de cause.
Et je partage toujours (avec l'aide de Daniel) les raretes que je possede avec les autres thomsonistes.

@daniel: Mission: Liftoff aura un interet pour le joueur, le passionné de programmation mais pas pour le collectionneur car il n'a pas de version physique.
- Le plus nul : Mineur. (2 exemplaires sur ebay en 35 ans). Je dirais 1. l'acheteur du lot mo5 + Mineur et le vendeur ne font qu'un (voir evalution sur Ebay)
Daniel
Messages : 17316
Inscription : 01 mai 2007 18:30
Localisation : Vaucluse
Contact :

Re: [Thomson] Nouveaux logiciels transférés sur PC

Message par Daniel »

Ah, c'était le même Mineur ! Je ne l'avais pas reconnu, car la première photo était très mauvaise.
C'est donc un spéculateur qui a acheté le lot. Ce n'est pas bien, la spéculation.

Les auteurs de Mission: Liftoff voulaient diffuser une version physique (ils ont déjà acheté les coffrets).
Je ne sais pas si le projet se concrétisera.
Daniel
L'obstacle augmente mon ardeur.
totor
Messages : 204
Inscription : 09 oct. 2019 22:41

Re: [Thomson] Nouveaux logiciels transférés sur PC

Message par totor »

Merci christophe et daniel, je comprends mieux à présent.

Donc c'est psychologique :mrgreen: quand le collectionneur modifie son comportement il revend toute sa collection pour faire autre chose.

Un bon exemple est celui qui a revendu toute sa collection Apple alors qu'il avait mis des années à la créer...
Avatar de l’utilisateur
petitjd
Messages : 2007
Inscription : 23 oct. 2007 11:50

Re: [Thomson] Nouveaux logiciels transférés sur PC

Message par petitjd »

Ce qui est bizarre c’est que sur la jaquette de la première cassette de Mineur, on voit de la terre qui tombe de la pelle, ce qui n’est pas le cas de la deuxième jaquette.
PetitJD
Tortue Jeulin: www.tortue-jeulin.com
Nanoreseau: www.nanoreseau.net
Proteus III: www.proteus-international.fr
Daniel
Messages : 17316
Inscription : 01 mai 2007 18:30
Localisation : Vaucluse
Contact :

Re: [Thomson] Nouveaux logiciels transférés sur PC

Message par Daniel »

La première fois la boîte venait tout juste d'être déterrée d'une cave humide. L'acheteur l'a nettoyée pour la revendre :mrgreen:

mineur.jpg
mineur.jpg (49.26 Kio) Consulté 6564 fois
Daniel
L'obstacle augmente mon ardeur.
totor
Messages : 204
Inscription : 09 oct. 2019 22:41

Re: [Thomson] Nouveaux logiciels transférés sur PC

Message par totor »

maintenant une autre question : y a t'il une trace quelconque de l'existence préalable de ce jeu?

parce que moi je peux créer un jeu bidon en basic 1.0, j'appelle ce jeu "BABALLE", je créé une jaquette bidon sur une feuille de papier, j'enregistre le jeu sur une k7 sur laquelle je colle des stickers M 05 et T O7-70 sur l'autre face et je revends le tout à un collectionneur...
Avatar de l’utilisateur
petitjd
Messages : 2007
Inscription : 23 oct. 2007 11:50

Re: [Thomson] Nouveaux logiciels transférés sur PC

Message par petitjd »

@Daniel: le M de MINEUR n’est pas endommagé au même endroit.
PetitJD
Tortue Jeulin: www.tortue-jeulin.com
Nanoreseau: www.nanoreseau.net
Proteus III: www.proteus-international.fr
totor
Messages : 204
Inscription : 09 oct. 2019 22:41

Re: [Thomson] Nouveaux logiciels transférés sur PC

Message par totor »

petitjd a écrit : 05 mars 2020 21:37 @Daniel: le M de MINEUR n’est pas endommagé au même endroit.
Justement cela laisse supposer que c'est le vendeur qui fabrique lui-même l'image de la jaquette.
Daniel
Messages : 17316
Inscription : 01 mai 2007 18:30
Localisation : Vaucluse
Contact :

Re: [Thomson] Nouveaux logiciels transférés sur PC

Message par Daniel »

Lors de la première vente j'ai épluché toute la presse spécialisée : TEO, Microtom, Tilt et je n'ai rien trouvé.
C'est probablement une création a quelques exemplaires (peut-être un seul).
C'est la caractéristique des œuvres d'art les plus recherchées par les collectionneurs.

@petitjd : Il faudrait faire expertiser les jaquettes par un laboratoire spécialisé. On découvrirait peut-être que l'une d'entre elle n'est pas authentique. Entre nous, ça n'a pas d'importance. Tant de gens sérieux discutant de ce programme nul, je trouve cela surréaliste :lol:
Daniel
L'obstacle augmente mon ardeur.
Avatar de l’utilisateur
petitjd
Messages : 2007
Inscription : 23 oct. 2007 11:50

Re: [Thomson] Nouveaux logiciels transférés sur PC

Message par petitjd »

Je cherchais juste à savoir s’il y a un ou deux exemplaires de ce jeu.
PetitJD
Tortue Jeulin: www.tortue-jeulin.com
Nanoreseau: www.nanoreseau.net
Proteus III: www.proteus-international.fr
Markerror
Messages : 2121
Inscription : 31 oct. 2011 19:21
Localisation : Orléans
Contact :

Re: [Thomson] Nouveaux logiciels transférés sur PC

Message par Markerror »

C'est quand même bien étrange tout cela :-). Ce qui semble être une sérigraphie sur la cassette me laisse penser que le programme a été dupliqué à plusieurs exemplaires quand même (si ce n'est pas un fake évidemment). Après, j'ai rarement vu des logiciels de l'époque sans aucun copyright (à moins que le logo NASA serve à cela). Je suis donc perplexe... L'avenir nous dira si d'autres exemplaires sortent du bois.

Ca reste au final un petit listing Basic sans trop d'intérêt.
Répondre