Saisie des programmes TILT.

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

jasz
Messages : 218
Enregistré le : 05 oct. 2016 20:05
Localisation : Quelque part dans le 31

Re: Saisie des programmes TILT.

Message par jasz » 06 déc. 2017 15:46

Code : Tout sélectionner

10 '**********************************
20 '*                                *
30 '*        L'HORTICULTEUR          *
40 '*                                *
50 '*    FAIT PAR THIBURCE PATRICK   *  
60 '*                                *
70 '**********************************
Il faut rendre à Cesar ce qui est à Cesar. Je ne sais pas qui est ce garçon mais ce n'est pas l'auteur :!:
Pour preuve

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

Re: Saisie des programmes TILT.

Message par Daniel » 06 déc. 2017 15:55

Ah oui, à l'époque les petits jeunes tapaient les programmes de Tilt et se les appropriaient. Je l'ai tapé, il est à moi. :mrgreen: :mrgreen: :mrgreen:
Dans les échanges en cour de récréation, personne ne se préoccupait des copyrights et des ayants droit.
Daniel
L'obstacle augmente mon ardeur.

jasz
Messages : 218
Enregistré le : 05 oct. 2016 20:05
Localisation : Quelque part dans le 31

Re: Saisie des programmes TILT.

Message par jasz » 06 déc. 2017 16:29

Daniel a écrit :
06 déc. 2017 15:55
Ah oui, à l'époque les petits jeunes tapaient les programmes de Tilt et se les appropriaient. Je l'ai tapé, il est à moi. :mrgreen: :mrgreen: :mrgreen:
Oui! Du genre "c'est moi qui l'ai pas fait" :mrgreen:
Perso! je supprimais carrément les REM. C'etait toujours ça de gagné 8)

Memphis
Messages : 233
Enregistré le : 25 janv. 2015 18:16
Localisation : Pont à Mousson (54)

Re: Saisie des programmes TILT.

Message par Memphis » 06 déc. 2017 16:41

Pour info :wink: sur abandonware magazine , les icones d'accès aux fichiers de TILT N°5 HS ne sont pas actifs . La couverture est seulement disponible. C'est un des magazines où les pages ne sont pas scannées :wink:
Jérôme

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

Re: Saisie des programmes TILT.

Message par Daniel » 06 déc. 2017 17:39

Ah oui, bien vu Memphis ! Nous nous sommes fait avoir comme des débutants, jasz et moi :oops:
Daniel
L'obstacle augmente mon ardeur.

jasz
Messages : 218
Enregistré le : 05 oct. 2016 20:05
Localisation : Quelque part dans le 31

Re: Saisie des programmes TILT.

Message par jasz » 06 déc. 2017 19:04

Arf! J'aurais du vérifier le lien. The shameeeee! :oops:
Bon! Pour me rattraper je scannerais les pages Thomson si ça peut aider. :)

Merci menphis pour cette précision... 8)

Tilt les listings

Re: Saisie des programmes TILT.

Message par Tilt les listings » 06 déc. 2017 19:38

Salut,

Merci les gars, moi aussi j'ai perdu une part d'amour propre! :mrgreen:

En effet, je n'ai pas vu que le menu été à rallonge, et le "DIR" ne donne que les premiers fichiers!
FDutil, lui n'affiche que les 25 premiers fichiers... peut-être la face 1...

J'ai donc du travail pour ce soir, avec l'extraction de fichiers cachés.
Guillotine dont je parlait plus haut (TILT 44)
Mur de brique, je ne connais pas ???
Poker (TILT HS5)
Pêche a la ligne (TILT 39)
Puissance 4 de Sotiropoulos (TILT HS3)
Horticulteur (TILT HS3)
Merci pour l'info jasz!
Il faut de toute façon que je liste tous les programmes de l'ensemble des magazines...
Je referai un bilan plus tard, avec une recherche plus poussée, mais il semble que de nombreux programmes aient été tapés.
Ce qui me laisse du temps pour rechercher les programmes dans les magazines.
A suivre...

Listing Tilt

Re: Saisie des programmes TILT.

Message par Listing Tilt » 06 déc. 2017 20:21

jasz a écrit :
06 déc. 2017 19:04
Arf! J'aurais du vérifier le lien. The shameeeee! :oops:
Bon! Pour me rattraper je scannerais les pages Thomson si ça peut aider. :)
Pour rebondir, ... oui, dans un second temps.
Mais, j'aimerai avoir seulement le sommaire des programmes pour l'ensemble des machines pour préparer les entrées sur le site.
Cela permettra de faire les recherches des programmes déjà tapés dans un premier temps.
Après, comme les scans prennent du temps, quelques pages de temps en temps pour la saisie programmes par programmes sera peut-être à envisager.

@Fabien, peux-tu pérenniser ce poste, car je pense qu'un mois sera trop court pour faire le tour de cette campagne de saisie qui démarre avec de nombreuses contributions qu'il faudra organiser, répertorier et compléter.
Xav.

Avatar du membre
fneck
Site Admin
Messages : 11554
Enregistré le : 01 avr. 2007 12:03
Localisation : Drôme Provençale (26)
Contact :

Re: Saisie des programmes TILT.

Message par fneck » 06 déc. 2017 22:47

@ Xavier, c'était déjà prévu :wink:

[edit 07/12/17] Topic déplacé

jasz
Messages : 218
Enregistré le : 05 oct. 2016 20:05
Localisation : Quelque part dans le 31

Re: Saisie des programmes TILT.

Message par jasz » 06 déc. 2017 23:09

Listing Tilt a écrit :
06 déc. 2017 20:21
Mais, j'aimerai avoir seulement le sommaire des programmes pour l'ensemble des machines pour préparer les entrées sur le site.
Cela permettra de faire les recherches des programmes déjà tapés dans un premier temps.
Ok je te prépare ça pour demain :wink:

Xavier_AL
Messages : 16
Enregistré le : 06 déc. 2017 20:30

Re: Saisie des programmes TILT.

Message par Xavier_AL » 07 déc. 2017 01:44

Bonjour à tous,

Merci Fabien, et désolé de m'être introduit par la petite porte, même si la lecture de ce forum est un plaisir à chaque passage.

La création d'un compte sera plus simple pour tous.
Donc, les habitués ont bien compris que je suis "Xavier"... pour les contributeurs d' "Hebdogiciel, les listings...".
Mais, je préfères changer de compte pour représenter le site "http://abandonlistings.free.fr", et ce nouveau défi.

J'ai sous-estimé le temps pour répertorier les programmes à ajouter au site, car se replonger dans "Tilt" à la recherche des fameux "Sesame", me replonge dans des lectures tonitruantes à chaque magazine! :mrgreen:
D'où une "perte" de temps à la relecture de chacun.

Merci Jasz, tu m'enlèves une balle du pied!
Et peut-être de nouveaux programmes à identifier comme déjà tapés sur ce hors série...

Christophe COUASNARD semble s'être forgé une excellente réputation au fil du temps, dans ce magazine.
Et à l'époque, je me souviens que le choix pour la saisie d'un logiciel (et même actuellement), ce faisait prioritairement grâce au nom de l'auteur!

Sur Zx81, un "Clérgeot" en assembleur ne pouvait pas rester sur le papier... et l'acharnement pour la saisie était toujours récompensée par un jeu de qualité!
Lors des différentes saisies d'Hebdogiciel, j'y ai rencontré de nombreux auteurs de talent distillant les chef-œuvres de grande qualité. A l'instar de Jean-Yves LE FRIEC, Olivier ANDRE...

Donc, je pense commencer par "Plantation de Cuba" du N°30, s'il n'est pas déjà tapé...
Une adaptation de ce jeu a d'ailleurs été publiée pour ce même jeu...
A plus.
Xav.


EDIT1: "Plantation de Cuba" trouvé en 5mn...
http://www.logicielsmoto.com/viewsoftwa ... softid=404
Il me faut maintenant avoir l'accord du site...

EDIT2: Inscription au forum... et beaucoup de personne connues

jasz
Messages : 218
Enregistré le : 05 oct. 2016 20:05
Localisation : Quelque part dans le 31

Re: Saisie des programmes TILT.

Message par jasz » 07 déc. 2017 08:25

Comme dit plus haut voici le sommaire. :)

En tout cas merci pour le travail que vous faites 8)
Fichiers joints
img041.jpg
Sommaire TILT 5HS
img041.jpg (386.57 Kio) Vu 61 fois

Xavier_AL
Messages : 16
Enregistré le : 06 déc. 2017 20:30

Re: Saisie des programmes TILT.

Message par Xavier_AL » 07 déc. 2017 14:51

Merci beaucoup Jasz,

Cela va nourrir les recherches d'informations pour moi et le site CPC-power, et enfin remplacer les "????" qui les documentaient. :oops:

Donc, "Bowling" et "Poker" serai déjà tapés...
A vérifier...
Je regarde.
A plus.

jasz
Messages : 218
Enregistré le : 05 oct. 2016 20:05
Localisation : Quelque part dans le 31

Re: Saisie des programmes TILT.

Message par jasz » 07 déc. 2017 15:08

Poker est déjà dans liste du site de Daniel. C'est sûr!
Image

Xavier_AL
Messages : 16
Enregistré le : 06 déc. 2017 20:30

Re: Saisie des programmes TILT.

Message par Xavier_AL » 07 déc. 2017 15:10

Pour Bowling?

Code : Tout sélectionner

1 '---------------------------------
2 '          Basic 512 Microsoft    I
3 ' BOWLING  Thomson TO 8      1987 I
4 '                                 I
5 '             THIBURCE Christophe I
6 '---------------------------------
10 CLEAR,,3:FV=4:GOSUB 3010:X=0:Y=0
12 H=RND
13 IF NOT PTRIG THEN 12 ELSE BEEP
14 GOSUB 1120:GOSUB 1160:COLOR,0
17 '
18 '     TRAJET DE LA BOULE
19 '
20 FOR T=0 TO 1000
22 ATTRB0,0
25 H=RND:IF PI=1 THEN VX=-INT(H*FV) ELSEVX=INT(H*FV)
40 PSET(PPX,22)" ":PX=PX+VX
50 IF CINT(PX)<=36 THEN 60 ELSE IP=0:PLAY"A2T1SI":CT=CT+1:PX=36:PI=1
60 IF CINT(PX)>=0 THEN 70 ELSE IP=0:PLAY"A2T1SI":CT=CT+1:PX=0:PI=0
70 PSET(PX,22)GR$(0):PPX=PX
72 IF IP=1 THEN 80
75 IF PTRIG THEN IP=1:GOSUB 100
80 NEXT T
89 '
90 '  Lance de la boule
91 '
100 PSET(PPX,22)" ":X=PX:Y=22
105 COLOR15,0:ATTRB0,0
110 FOR T=1 TO 22
120 TES=POINT(X*8+4,(Y-T)*8+4):IF TES=11 THEN Y=Y-T:GOSUB 1010
125 IF TES=-5 THEN RETURN
130 PSET(X,Y-T+1)" "
140 PSET(X,Y-T)GR$(0)
150 PLAY"P":NEXTT:PSET(X,0)" "
159 '
160 '         S C O R E
161 '
170 FOR S=SC TO SCO
172 ATTRB0,1
175 IF S>9 THEN SP=6
177 IF S>99 THEN SP=5
180 COLOR 3,1:LOCATESP,2:PRINTS:IFS<10 THEN LOCATE7,2:PRINT"0"
182 IF S>99 THEN 190
185 IF S>9 THEN LOCATE6,2:PRINTCHR$(48)
190 PLAY"T1L5DOREMIFASIL24"
200 NEXT S:SC=SCO
210 IF IPI=1 THEN IPI=0:RETURN
215 IF JT=1 THEN JT=0:GOTO 1260
220 COLOR,4:GOTO 12
999  '---------------------------------
1000 '    Zone des sousprogrammes     I
1001 '---------------------------------
1005 '-SSPROG-> .... quille tombee ....
1006 '
1010 IF X=18 THEN 1100
1020 LOCATEX,Y-1:PRINTEFQUI$:PLAY"DO":SCO=SCO+5:PSET(X,Y+1)" "
1025 IF Y=1 THEN 1050
1030 IF POINT((X-1)*8+4,(Y-3)*8+4)=11 THEN LOCATEX-1,Y-3:PRINTEFQUI$:SCO=SCO+5
1040 IF POINT((X+1)*8+4,(Y-3)*8+4)=11 THEN LOCATEX+1,Y-3:PRINTEFQUI$:SCO=SCO+5
1045 PLAY"T1A0L24DORESISOPPPPPPPPPPPPP":PSET(X,Y+1)" ":COLOR,4:GOTO 170
1050 Y=22:GOTO 170' :RETURN
1099 '
1100 '        Partie gagnee
1101 '
1110 BOXF(104,64)-(192,0),0:PLAY"DORESISO"
1112 NBT=SCO/5:SCO=SCO+(13-NBT)*5
1114 GOSUB 1230
1116 JT=1:GOTO 170
1119 '
1120 '-SSPROG-> .... 1 Boule perdue ....
1121 '
1125 COLOR,0
1130 PSET(33-BP,0)" ":IF BP=10 THEN GOSUB 1230:IPI=1:GOSUB 170:GOTO 1250
1140 BP=BP+1
1150 COLOR,4:RETURN
1159 '
1160 '-SSPROG-> Depart d'une boule
1161 '
1165 COLOR15,0
1170 FOR T=0 TO 21
1180 PSET(23,T)GR$(0)
1190 PLAY"A2T1DO":PSET(23,T)" "
1200 NEXT T
1210 RETURN
1219 '
1220 '-SSPROG-> ..reste-il des boules
1221 '
1230 BP=BP*2:SCO=SCO+60-BP*3-INT(C/2)
1240 RETURN
1249 '
1250 'SSPROG-> JEU TERMINE
1251 '
1260 OLAC=OLAC+4:LOCATE 30,2+OLAC:COLOR3,0:PRINTSCO:ATTRB0,0:GOTO 3020
3000 '---------------------------------
3001 '                                I
3002 '   I n i t i a l i s a t i o n  I
3003 '                                I
3004 '---------------------------------
3010 CLS:LOCATE0,0,0:SCREEN0,4,0:GOSUB4020:SCREEN0,4,0:DIMB$ (50):SP=7
3020 COLOR,0:FV=FV+2:FA=FA+1:CGT=CGT+1:CT=0
3030 IF FA=5 THEN 3040 ELSE 3060
3040 IF NOT PTRIG THEN 3040 ELSE 10
3060 DEFGR$(0)=0,0,24,60,60,24,0,0
3070 DEFGR$(1)=24,60,60,24,60,60,60,60
3080 DEFGR$(2)=60,60,60,60,60,60,24,0
3090 QUILLE$=GR$(1)+CHR$(10)+CHR$(8)+GR$(2)
3100 EFQUI$=" "+CHR$(10)+CHR$(8)+" "
3190 GOSUB 3330
3200 '***** AFFICHAGE DES QUILLES *****
3205 A=14:B=0:W=8:COLOR11,0
3210 FOR T=0 TO W STEP 2
3220 LOCATE A+T,B:PRINTQUILLE$
3230 NEXT T:CT=CT+1
3235 IF CT=3 THEN 3270
3240 IF CT=1 THEN 3250 ELSE 3260
3250 W=6:B=2:A=15:GOTO 3210
3260 W=4:B=4:A=16:GOTO 3210
3270 COLOR 1:LOCATE 18,6:PRINTQUILLE$:COLOR 0,4
3280 '****** RESERVE DE BOULLES ******
3285 COLOR 15,0
3290 FOR T=0 TO 9
3300 PSET(24+T,0)GR$(0)
3310 NEXT T:COLOR,4:GOTO 3350
3320 '**** Construction du bowling ****
3330 BOXF(13,0)-(23,22)" ",0
3340 BOXF(0,22)-(40,24)" ",0
3345 BOXF(37,0)-(40,24)" ",0:RETURN
3349 '
3350 '******** SCORE ********
3360 COLOR3,1:LOCATE0,2:ATTRB0,1:PRINT"SCORE 000":LOCATE0,6:PRINT"force";CGT
4000 '======== D . A . T . A ========
4005 IF CGT>0 THEN SCO=0:SC=0:BP=0:IPI=0:SP=7:PI=0:GOTO 12
4020 '---------------------------------
4030 '         Page d'en tete         I
4040 '---------------------------------
4050 GOSUB 3330
4060 COLOR3,4:LOCATE12,9:ATTRB1,1:PRINT"Bowling":ATTRB0,0
4070 LOCATE4,16:PRINT"1-Jeu":LOCATE4,18:PRINT"2-Regle du jeu ":LOCATE4,20:PRINT"3-Fin"
4080 K$=INPUT$(1)
4090 IF K$="1" THEN CLS:RETURN
4100 IF K$="2" THEN 4160
4110 IF K$="3" THEN RUN"AUTO.BAT"
4120 BEEP:GOTO 4080
4130 '---------------------------------
4140 '          Regle du jeu          I
4150 '---------------------------------
4160 CLS:SCREEN7,0,0
4170 LOCATE1,0:PRINT"    Ce jeu demande une grande attention  et beaucoup de reflexes...":PRINT
4175 PRINT"    Le but du jeu est de faire tomber    toutes les quilles de la piste.         Une boule se deplace de droite a gauche et de gauche a droite.":PRINT
4180 PRINT"    Appuie sur le crayon optique pour la lancer , mais attention:pour reussir,il s'agit de viser juste.":PRINT
4190 PRINT"    Tu peux suivre le score et le niveau de jeu sur la partie gauche du BOWLING, mais attention:le score final prend en  compte tous les parametres.
4195 PRINT"    Il sera affiche sur la partie droite du BOWLING.":PRINT
4200 PRINT"    L'ordinateur te donne droit a trois  chances, mais le niveau augmente a      chaque fois.":PRINT
4210 COLOR1:PRINT"Presse le crayon optique pour commencer";CHR$(11)
4220 IF NOT PTRIG THEN PLAY"L1DO":GOTO 4220 ELSE CLS:RETURN

Répondre