Page 9 sur 10

Re: Fichiers FD pour TO7 & TO7/70

Publié : 13 févr. 2018 09:16
par Kermitoo
Aucun mérite !
Je suis parti de la version K7 et j'ai récupéré les adresses du fichier binaire avec SCRUTCAS (pour une fois que ça fonctionne)

- D'ailleurs, pour les "rookies" de mon genre, je me suis permis de faire un petit TUTO en page 4 -

J'ai copié les fichiers un par un, depuis un DOS SD et DD 3'5 et passé à la moulinette FD2SD pour la version SDMOTO.
Donc rien de bien compliqué...

J'ai juste corrigé les ":cass" des fichiers BASIC. Ceux là étaient "complets" après un EXEC1218, ce qui est rarement le cas.

Quelle est la méthode la plus simple pour décompacter complètement un listing?

Re: Fichiers FD pour TO7 & TO7/70

Publié : 13 févr. 2018 09:54
par Kermitoo
@Fool-DupleX

MP: 1) oui c'est cocasse et 2) Aucun pb!

Concernant GVF et au delà de la technique, ok c'est un gros logiciel, mais dans un domaine comparable et semi-pro COMPTA7 me semble bien plus "costaud"? Non?

Re: Fichiers FD pour TO7 & TO7/70

Publié : 13 févr. 2018 13:52
par Kermitoo
@Daniel

J'ai ajouté SCRUTCAS pour MO5, car beaucoup de sources font référence à ce programme (et aussi Dumpcas) et je ne l'ai jamais trouvé sur le NET.
En me replongeant dans les "Theophiles", j'ai découvert le listing de la version MO5. Chers amis des MO5, le voilà...

Re: Fichiers FD pour TO7 & TO7/70

Publié : 14 févr. 2018 10:21
par Kermitoo
T9000, TO7(+16k) , TO7/70 (Conversion K7 DCMOTO ---> SDMOTO/SDDRIVE)

LA CLE DES CHANTS:
cl0.jpg
cl0.jpg (16.37 Kio) Consulté 4273 fois
Version SDMOTO / SDDRIVE
cle.rar
(19.25 Kio) Téléchargé 148 fois
@Daniel: rien de compliqué là non plus...

Re: Fichiers FD pour TO7 & TO7/70

Publié : 14 févr. 2018 13:14
par Kermitoo
T9000, TO7(+16k) , TO7/70 (Conversion K7 DCMOTO)

L'HORLOGE:
H0.jpg
H0.jpg (13.5 Kio) Consulté 4264 fois
H1.jpg
H1.jpg (4.29 Kio) Consulté 4264 fois

Version Disquette Simple Densité, 5' 1/4 (bootable en "2")
Horloge.rar
(11.84 Kio) Téléchargé 126 fois
Version Disquette Double Densité, 3' 1/2 (bootable en "2")
Horloge_DD.rar
(12.93 Kio) Téléchargé 117 fois
Version SDMOTO / SDDRIVE
LHorloge_sd.rar
(15.46 Kio) Téléchargé 128 fois

Re: Fichiers FD pour TO7 & TO7/70

Publié : 20 févr. 2018 10:33
par Kermitoo
T9000, TO7(+16k) , TO7/70 (Conversion K7 DCMOTO)

NOIX DE COCO:
noix.jpg
noix.jpg (13.36 Kio) Consulté 4223 fois
noix2.jpg
noix2.jpg (8.42 Kio) Consulté 4223 fois
noix3.jpg
noix3.jpg (16.38 Kio) Consulté 4223 fois
Version Disquette Simple Densité, 5' 1/4 (bootable en "2")
Noix de Coco_SD.rar
(21.78 Kio) Téléchargé 141 fois

Re: Fichiers FD pour TO7 & TO7/70

Publié : 27 févr. 2018 13:13
par Kermitoo
TO7/70

POLITIK POKER:
Politik0.jpg
Politik0.jpg (31 Kio) Consulté 4174 fois
Politik1.jpg
Politik1.jpg (40.29 Kio) Consulté 4174 fois
Politik2.jpg
Politik2.jpg (37.23 Kio) Consulté 4174 fois
Fichier FD Double Densité 3'1/2:
Politik Poker_DD.rar
(23.28 Kio) Téléchargé 142 fois
Fichier FD Simple Densité 5'1/4:
Politik Poker_SD.rar
(22.3 Kio) Téléchargé 139 fois

Re: Fichiers FD pour TO7 & TO7/70

Publié : 27 févr. 2018 13:21
par Kermitoo
TO7/70

AMERICA'S CUP:
America0.jpg
America0.jpg (28.5 Kio) Consulté 4174 fois
America1.jpg
America1.jpg (16.42 Kio) Consulté 4174 fois
America2.jpg
America2.jpg (19.07 Kio) Consulté 4174 fois

Fichier FD Double Densité 3'1/2:
America's Cup_DD.rar
(38.03 Kio) Téléchargé 123 fois
Fichier FD Simple Densité 5'1/4:
America's Cup_SD.rar
(36.76 Kio) Téléchargé 140 fois

Re: Fichiers FD pour TO7 & TO7/70

Publié : 27 févr. 2018 15:09
par Kermitoo
TO7/70

EMPIRE: (Basic 128)
Emp0.jpg
Emp0.jpg (32.6 Kio) Consulté 4159 fois
Emp1.jpg
Emp1.jpg (26.75 Kio) Consulté 4159 fois
Fichier FD Double Densité 3'1/2:
EMPIRE_DD.rar
(19.37 Kio) Téléchargé 122 fois
Fichier FD Simple Densité 5'1/4:
EMPIRE_SD.rar
(18.14 Kio) Téléchargé 132 fois

Re: Fichiers FD pour TO7 & TO7/70

Publié : 28 févr. 2018 18:56
par Kermitoo
T9000, TO7(+16k) , TO7/70

CYBERLAB: (bootable en "2")
c0.jpg
c0.jpg (15.1 Kio) Consulté 4142 fois
c1.jpg
c1.jpg (13.32 Kio) Consulté 4142 fois
c2.jpg
c2.jpg (11.7 Kio) Consulté 4142 fois
c3.jpg
c3.jpg (12.07 Kio) Consulté 4142 fois

Fichier FD Simple Densité 5'1/4:
CYBERLAB_SD.rar
(30.9 Kio) Téléchargé 131 fois

Re: Fichiers FD pour TO7 & TO7/70

Publié : 09 mars 2018 17:46
par Kermitoo
T9000, TO7(+16k) , TO7/70

LOUISIANE: (bootable en "2")
L1.jpg
L1.jpg (25.85 Kio) Consulté 4092 fois
L2.jpg
L2.jpg (19.7 Kio) Consulté 4092 fois

Fichier FD Double Densité 3'1/2:
Louisiane_DD.rar
(13.75 Kio) Téléchargé 117 fois
Fichier FD Simple Densité 5'1/4:
Louisiane_SD.rar
(12 Kio) Téléchargé 124 fois

Re: Fichiers FD pour TO7 & TO7/70

Publié : 09 mars 2018 17:58
par Kermitoo
Bonjour tout le monde !

Une petite question concernant certains logiciels que je tente de passer sur disks.
Voici par exemple: POUSSPAN (le disk n°1), en simple densité:
Pousspan1_SD.rar
(12.25 Kio) Téléchargé 115 fois
Tout est en Basic et la seule difficulté c'est de corriger le listing pour que les choses se passent sur la disquette et non sur la K7.
Oui mais voilà, le listing ne s'édite pas complètement. Est-ce une protection? (image de "pouss1.bas")
pouss1.jpg
pouss1.jpg (49.35 Kio) Consulté 4088 fois

Comment faire?

Merci

Re: Fichiers FD pour TO7 & TO7/70

Publié : 09 mars 2018 19:16
par Kermitoo
TO7/70

BEACH HEAD: (bootable en "2", Basic 128)
BH1.jpg
BH1.jpg (20.72 Kio) Consulté 4083 fois
BH2.jpg
BH2.jpg (22.81 Kio) Consulté 4083 fois
BH3.jpg
BH3.jpg (12.87 Kio) Consulté 4083 fois
BH4.jpg
BH4.jpg (22.31 Kio) Consulté 4083 fois

Fichier FD Double Densité 3'1/2:
Beach Head_DD.rar
(19.14 Kio) Téléchargé 121 fois

Re: Fichiers FD pour TO7 & TO7/70

Publié : 09 mars 2018 20:00
par Daniel
Kermitoo a écrit : 09 mars 2018 17:58 Oui mais voilà, le listing ne s'édite pas complètement. Est-ce une protection? (image de "pouss1.bas")
C'est la protection classique des programmes Basic par des lignes de plus de 255 caractères, impossibles à afficher ou à imprimer.
Voici un listing avec les lignes non tronquées. Il reste à les renuméroter et à scinder les lignes qui dépassent 255 octets.
Attention aux goto, gosub, etc. qui vont changer.

POUSS1.BAS

Code : Tout sélectionner

0 Z$="POUSS1-29/08/1983-VERSION DEFINITIVE":CONSOLE0,24,0,0:CLOSE:CLS:SCREEN5,4,4:CLEAR,,19:DEFGR$(0)=0,0,0,129,127,126,28,56:DEFGR$(1)=0,64,240,128,0,0,0,0:DEFGR$(2)=0,0,3,9,7,1,0,0:DEFGR$(3)=0,4,143,216,240,224,0,0:DEFGR$(4)=4,100,244,100,100,76,252,248:DEFGR$(5)=120,120,120,48,48,48,48,120:DEFGR$(6)=0,1,6,15,0,0,0,0:DEFGR$(7)=192,129,129,255,255,255,129,129:DEFGR$(8)=12,24,104,127,15,15,4,2:DEFGR$(9)=0,16,16,240,240,240,32,64:DEFGR$(10)=48,80,216,254,94,79,4,7:DEFGR$(11)=0,1,3,7,15,31,31,59:DEFGR$(12)=0,192,224,240,248,252,252,254:DEFGR$(13)=49,49,99,127,127,127,254,254:DEFGR$(14)=194,194,129,1,1,1,1,3:DEFGR$(15)=254,254,254,254,254,254,126,127:DEFGR$(16)=5,9,5,5,3,1,2,2:DEFGR$(17)=127,127,127,63,31,15,7,3:DEFGR$(18)=2,4,132,136,208,224,192,128:COLOR3,4:CLS:A=1:B=2:SCREEN,,4:BOX((A-1)*8+6,(B-1)*8+7)-((A+8)*8,(B+5)*8),7:LOCATEA,B+1:COLOR7,0:ATTRB1,1:PRINT"TO  ":LOCATEA,B+3,0:ATTRB1,1:COLOR1:PRINT"T";:COLOR2:PRINT"E";:COLOR6:PRINT"K ":ATTRB0,0:COLOR7,0:LOCATEA,B+4:PRINT"Editions":COLOR7,4:LOCATE8,24:PRINT"(c) 1983  TO TEK Editions";:COLOR7,4:LOCATE10,0:PRINT"Collection ";:COLOR5:PRINT" ADRESSE":I=12:J=36:K=13

1 COLOR5:ATTRB1,1:LOCATE22,15,0:PRINTGR$(4):LOCATE22,17:PRINTGR$(5):LOCATEJ,17:COLOR0:PRINTGR$(6);GR$(7);:LOCATEJ+1,17:COLOR3:ATTRB0,0:PRINTGR$(10);:LOCATEJ,17:COLOR0:ATTRB1,1:PRINTGR$(8);GR$(9);:LOCATEJ,17:COLOR3:ATTRB0,0:PRINTGR$(10);:LOCATEI,4:COLOR7:PRINT" ";GR$(0);GR$(1):PLAY"O5L3SIL3PL1LASOFAMIL10SOL10P":LOCATEI,4:PRINT" ";GR$(2);GR$(3):IFI=16THENPLAY"L1O4A0SILASOFAMIREDOA0L10O2DO"

2 IFI<16THEN4

3 LOCATE23,K+2:PRINT" ":COLOR1:LOCATE23,K:PRINT".":K=K-2:IFK<2THEN5

4 I=I+1:J=J-1:GOTO1

5 ATTRB1,0:LOCATE23,3:PRINT" ":LOCATE14,4:PRINT"DUKI-DUC":PLAY"L15O3SOSOLALAMIMISOPSOSOLALAMIMISOPSOSOLALAO4DODOO3SIPSIPLAPSOPFAP":LOCATE14,4:PRINT"           ":FORK=2TO13:LOCATE21,K:PRINT"      ":LOCATE21,K+1:COLOR0:PRINTGR$(11);GR$(12);:LOCATE21,K+2:PRINTGR$(13);GR$(14);:LOCATE21,K+3:PRINTGR$(15);GR$(16);:LOCATE21,K+4:PRINTGR$(17);GR$(18);:NEXTK:LOCATE17,15:COLOR7:PRINT"METEOR":PLAY"L96O3DO":FORI=13TO17:LOCATE17,I:PRINT"       ":NEXTI:FORI=34TO14STEP-1:LOCATEI,12:COLOR6:PRINT"<--( ":NEXT:PLAY"T3L24DOPL10DOPDOPDOL24PL10DOPDOPL16FAPSOPLAL24PPPDOPL10DOPDOPDOL24PL10SOPLAPL16SOPMIPDOP":COLOR3:ATTRB1,0:FORI=31TO24STEP-1:LOCATEI,12:PRINT"TELL ":PLAY"L20P":NEXTI:PLAY"O4L24DOPL10DOPDOPDOL24PL10DOPDOPL16FAPSOPLAL24PPPDOPL10DOPDOPDOL24PL10SOPLAPL16SOPMIPDOP":FORI=8TO21:LOCATE10,I:PRINT"                         ":NEXT:A$="POUSSPAN":COLOR2:ATTRB1,1:FORJ=1TO8:FORI=36TO10+2*JSTEP-1:LOCATEI,12:PRINTMID$(A$,J,1);" ":PLAY"L2DO":NEXTI:NEXTJ:COLOR5:ATTRB0,0:LOCATE11,21:PRINT"Philippe  DESCAMPS":LOAD"CASS:POUSS2",R
POUSS2.BAS

Code : Tout sélectionner

0 Z$="POUSS2 29/08/1983 VERSION DEFINITIVE":CLEAR,,20:CONSOLE,,0:CLOSE:DEFGR$(0)=0,0,0,129,127,126,28,56:DEFGR$(1)=0,64,240,128,0,0,0,0:DEFGR$(2)=0,0,3,9,7,1,0,0:DEFGR$(3)=0,4,143,216,240,224,0,0:DEFGR$(4)=6,9,31,63,63,15,0,0:DEFGR$(5)=0,0,128,192,192,0,0,0:DEFGR$(6)=0,0,1,3,3,0,0,0:DEFGR$(7)=96,144,248,252,252,240,0,0:DEFGR$(8)=0,160,208,127,208,160,0,0:DEFGR$(9)=0,0,192,252,192,0,0,0:DEFGR$(10)=0,10,13,7,13,10,0,0:DEFGR$(11)=0,0,12,255,12,0,0,0:FORP=1TO3:READP0$(P):NEXT:DATADUKI-DUC,METEOR,TELL

1 CONSOLE0,24:COLOR4,0:CLS:SCREEN,,0:A$=" 1  DUKI-DUC     ":C=1:L=8:E=1:F=1:C0=4:G0=0:G1=1:G2=2:G3=3:GOSUB9:A$=" 2  METEOR      ":C=1:L=11:E=1:F=0:C0=3:G0=4:G1=5:G2=6:G3=7:GOSUB9:A$=" 3  TELL         ":C=1:L=14:E=1:F=0:C0=1:G0=8:G1=9:G2=10:G3=11:GOSUB9:P$=INKEY$

2 INPENX,Y:Y=Y@8-7:IFY<0THEN5

3 P=1:IFY>2THENP=2:IFY>5THENP=3:IFY>7THEN5

4 ATTRB1,1:COLOR7,1:LOCATE3,8+3*(P-1):PRINTUSING"#";P:IFPTRIGTHEN7

5 ATTRB1,1:COLOR1,7:FORI=0TO2:LOCATE3,8+3*I:PRINTUSING"#";I+1:NEXT:P$=INKEY$:IFP$=""THEN2

6 IFP$<"1"ORP$>"3"THEN2:ELSEP=VAL(P$)

7 ATTRB1,1:COLOR0,0:FORI=0TO2:LOCATE0,8+3*I:IFI<>P-1THENPRINTTAB19)

8 NEXT:COLOR3:LOAD"CASS:"+P0$(P),R:END

9 FORI=CTO30:ATTRBE,F:COLORC0,0:LOCATEI,L,0:PRINTGR$(G0);GR$(G1);:FORT=1TO10:NEXT:LOCATEI,L:PRINTGR$(G2);GR$(G3);:ATTRB1,1:V$=MID$(A$,I/2,1):IFV$>"0"ANDV$<"4"THENCOLOR1,7:ELSECOLOR,0

10 LOCATEI-1,L:IF(IAND1)=0THENPRINTMID$(A$,I/2,1);

11 FORT=1TO10:NEXTT:NEXTI:ATTRB0,0:RETURN


Re: Fichiers FD pour TO7 & TO7/70

Publié : 09 mars 2018 20:13
par Daniel
DUKI-DUC.BAS

Code : Tout sélectionner

0 Z$="DUKI-DUC-29/08/1983-VERSION DEFINITIVE":CLEAR,,20:CONSOLE0,24,0,0:CLOSE:DEFGR$(0)=0,0,0,129,127,126,28,56:DEFGR$(1)=0,64,240,128,0,0,0,0:DEFGR$(2)=0,0,3,9,7,1,0,0:DEFGR$(3)=0,4,143,216,240,224,0,0:DEFGR$(4)=4,100,244,100,100,76,252,248:DEFGR$(5)=120,120,120,48,48,48,48,120:DEFGR$(6)=7,31,63,127,127,255,255,255:DEFGR$(7)=224,248,252,254,254,255,255,255:DEFGR$(8)=60,90,24,60,60,60,126,255:DEFGR$(9)=0,1,6,15,0,0,0,0:DEFGR$(10)=192,129,129,255,255,255,129,129:DEFGR$(11)=12,24,104,127,15,15,4,2:DEFGR$(12)=0,16,16,240,240,240,32,64:DEFGR$(13)=0,131,128,255,255,97,33,18:DEFGR$(14)=0,192,176,240,192,128,0,0:DEFGR$(15)=0,8,8,4,7,3,5,8:DEFGR$(16)=0,60,11,15,248,252,242,1:DEFGR$(17)=48,80,216,254,94,79,4,7:DEFGR$(18)=255,255,255,127,127,63,31,7:DEFGR$(19)=255,255,255,254,254,252,248,224

1 GOSUB19

2 GOSUB18:O0=0:FORO=1TO15:T=-1:P=19:H=RND*9+4:CONSOLEH-1,H:E=ABS(RND<D0):B=-1:V0=RND*30:FORI=1TO35:COLOR4:ATTRBE,E:LOCATEI,H:PRINT" ";GR$(0);GR$(1);:IFTTHENFORK=0TOV0:NEXTK:T=NOTPTRIG:IFNOTTTHENPLAY"A4L2T1O1SILASOFAMIREDOO2SILASOFAMIREDOO3SILASOFAMIREDOO5SILASOFAMIREDO"::ELSEGOTO6

3 IFSCREEN(20,P-1)=0THENI0=2+I:I=35:B=0:GOTO10

4 ATTRB0,1:LOCATE20,P:IFP<19THENPRINT" ";

5 P=P-1:LOCATE20,P:COLOR1:PRINT".";:IFP=1THENT=-1:P=19:LOCATE20,1:PRINT" ";:O=O+1

6 COLOR4:ATTRBE,E::LOCATEI,H:PRINT" ";GR$(2);GR$(3);:IFTTHENFORK=0TOV0:NEXTK:T=NOTPTRIG:IFNOTTTHENPLAY"A20L2T1O4SILASOFAMIREDOO3SILASOFAMIREDOO2SILASOFAMIREDOO1SILASOFAMIREDO"::ELSEGOTO10

7 IFSCREEN(20,P-1)=0THENI0=2+I:I=35:B=0:GOTO10

8 ATTRB0,1:LOCATE20,P:IFP<19THENPRINT" ";

9 P=P-1:LOCATE20,P:COLOR1:PRINT".";:IFP=1THENT=-1:P=19:LOCATE20,1:PRINT" ";:O=O+1

10 NEXTI:IFP<17THENLOCATE20,P:PRINT" ";

11 IFBTHENCLS:GOTO13

12 CLS:ATTRBE,E:COLOR4:FORI=I0TO36:LOCATEI,H:PRINTGR$(0);GR$(1);:FORK=1TO60:NEXT:LOCATEI,H:PRINTGR$(2);GR$(3);:PLAY"T5A2O3L5FA":LOCATEI,H:PRINT"  ";:H=H+.5:NEXTI:COLOR0:ATTRB1,1:FORI=22TO36:LOCATEI,22:PRINTGR$(13);GR$(14);:FORK=1TO30:NEXT:LOCATEI,22:PRINTGR$(15);GR$(16);:FORK=1TO30:NEXT:NEXTI:LOCATE36,22:PRINT"  ":FORK=1TO200:NEXTK:FORI=36TO22STEP-1:LOCATEI,22:ATTRB1,1:COLOR0:PRINTGR$(9);GR$(10);:LOCATEI+1,22:ATTRB0,0:COLOR4:PRINTGR$(17);:FORK=1TO40:NEXT:LOCATEI,22:ATTRB1,1:COLOR0:PRINTGR$(11);GR$(12);:LOCATEI,22:ATTRB0,0:COLOR4:PRINTGR$(17);:FORK=1TO40:NEXT:NEXTI:LOCATE22,22:ATTRB1,1:COLOR0:PRINT"  ":LOCATE22,22:PRINTGR$(8);:LOCATEO0*2,23:ATTRB0,0:COLOR4,3:PRINTGR$(2);GR$(3);:COLOR,6:O0=O0+1

13 ATTRB0,1:LOCATE20,P:IFP<19THENPRINT" ";

14 NEXTO:X$=INKEY$:GOSUB17:LOCATE0,0,0:CONSOLE0,24:ATTRB0,0

15 IFPTRIGTHEN2

16 X$=INKEY$:IFX$=""THEN15:ELSEIFX$=CHR$(12)THENEXEC&HE82D:ELSE1

17 PLAY"T4A2O4L24DOFAPFASOFASOL48LAL24O5DODOP":PLAY"O4LA#LAPLASOLASOL48FAL24DODOP":PLAY"DOFAPFASOFASOL48LAL24O5DODOP":PLAY"O4LA#LAPLASOLASOL96FAO3FA":RETURN

18 CONSOLE0,24,0:CLS:SCREEN7,6,1:ATTRB1,0:COLOR7,6:LOCATE22,0:PRINTGR$(18);:FORI=1TO8:PRINTCHR$(127);:NEXT:LOCATE24,1:PRINTGR$(18);:FORI=1TO5:PRINTCHR$(127);:NEXT:PRINTGR$(19):LOCATE27,2:PRINTGR$(18);:FORI=1TO3:PRINTCHR$(127);:NEXT:PRINTGR$(19):ATTRB0,0:COLOR2,6:LOCATE1,22:PRINTGR$(6);:FORI=1TO10:PRINTCHR$(127);:NEXTI:PRINTGR$(7):LOCATE2,21:PRINTGR$(6);GR$(7);GR$(6);:FORI=1TO6:PRINTCHR$(127);:NEXTI:PRINTGR$(7):LOCATE5,20:PRINTGR$(6);:FORI=1TO4:PRINTCHR$(127);:NEXTI:PRINTGR$(7):LOCATE6,19:PRINTGR$(6);GR$(7);GR$(6);GR$(7):BOXF(0,184)-(319,199),-4:ATTRB1,1:COLOR0:LOCATE19,20,0:PRINTGR$(4):LOCATE19,22:PRINTGR$(5);:LOCATE22,22:PRINTGR$(8);:RETURN

19 I=134:I1=-1:C=3:CLS:ATTRB1,1:SCREEN3,4,4:LOCATE23,7:PRINT"5":LOCATE23,16:PRINT"1":LOCATE26,12,1:PRINT"?";:N0=1

20 IFPTRIGTHEN28:ELSER$=INKEY$

21 IFR$=""GOTO24

22 IFASC(R$)=13GOTO28

23 IFR$>"0"ANDR$<"6"THENN0=VAL(R$):GOTO28

24 LINE(74+143-I,I)-(167,I),C:I=I+I1:IFC=3THENC=1:ELSEIFC=1THENC=3

25 IFI=49THENI1=1:C=-5

26 IFI=134THENI1=-1:C=3

27 GOTO20

28 LOCATE28,12:PRINTN0:D0=(5-VAL(R$))/4:LOCATE0,0,0:ATTRB0,0:RETURN

METEOR.BAS

Code : Tout sélectionner

0 Z$="METEOR-29/08/1983-VERSION DEFINITIVE":CLOSE:CLEAR,,22:DEFINTA-Z:DIMM$(3,3),L(38),C(7):V$=" "+CHR$(8)+CHR$(8)+CHR$(10)+GR$(0):GOSUB23:Z$=STR$(Z):D0=8-Z:GOSUB17:GOSUB15:FORI=1TO50:PLAY"A1O5T2L3LASI":NEXT

1 GOSUB14:CLS:LOCATE0,0,0:Z=0:U=1:T0=38:T=3:J=2:V0=26:V1=22

2 X=L(T0*RND):B=XANDU:FORA=ZTOT:IFPTRIGTHENK=C+U:ELSEK=C-U

3 K=L(K):IFSCREEN(K,L+U)*SCREEN(K+U,L+U)=ZTHEN9

4 LOCATEC,L:PRINT" ":LOCATEX,16:PRINTM$(A,B):LOCATEK,L:PRINTGR$(0):C=K:NEXT:LOCATEV0,V1:PRINTD1;:Y=D0*RND+D0:FORA=UTOY:IFPTRIGTHENK=C+U:ELSEK=C-U

5 K=L(K):IFSCREEN(K,L+U)*SCREEN(K+U,L+U)=ZTHEN9

6 LOCATEC,L:PRINT" ":LOCATEX,16:PRINT:LOCATEK,L:PRINTGR$(0):C=K:NEXT:D1=D1+4+INT(Y):IFD1-D2<100THEN2

7 D2=100+D2:C0!=C0!-.5:IFC0!<1THEN2

8 SCREENC(C0!):LOCATEC,L:PRINTV$:L=L+U:GOTO2

9 LOCATEC,L:PRINT" ":LOCATEX,16:PRINT:LOCATEK,L:PRINTGR$(0):IFL<3THENL=3

10 FORA=0TO3:BOX(C-A,L-A)-(C+A,L+A)".":NEXTA:FORA=0TO3:BOX(C-A,L-A)-(C+A,L+A)" ":NEXTA:LOCATE26,22:PRINTD1;:IFR<D1THENR=D1:LOCATE11,24:PRINT"MAX =";R;

11 X$=INKEY$:FORI=1TO50:PLAY"A1O5T2L3LASI":NEXT:IFL<3THENL=3

12 X$=INKEY$:IFX$=CHR$(12)THENEXEC&HE82D:ELSEIFX$<>""THENRUN

13 IFNOTPTRIGTHEN12::ELSE1

14 C=20:L=1:D1=0:D2=0:C0!=7:LOCATE18,22:ATTRB0:PRINT" PARSECS          ":ATTRB1:CONSOLE0,16:SCREEN3:RETURN

15 CONSOLE0,24:COLOR7,0:CLS:SCREEN,,4:CONSOLE17,20,1:SCREEN7,4:LOCATE13,19,0:ATTRB1,1:PRINTGR$(17)GR$(18)GR$(19)GR$(18)GR$(20)GR$(21);:CONSOLE21,24,1:SCREEN0,6:FORC0=0TO7:READC(C0):NEXT:DATA0,2,1,4,5,6,7,3

16 FORI=1TO35:L(I)=I:NEXT:L(0)=4:L(1)=4:L(2)=3:L(36)=35:L(37)=34:L(38)=34:DEFGR$(17)=3,3,15,15,63,63,255,255:LOCATE6,22:ATTRB,0:PRINTGR$(17);" "Z:RETURN

17 DEFGR$(0)=24,36,126,255,255,60,0,0:DEFGR$(1)=0,1,3,7,15,31,31,59:DEFGR$(2)=0,192,224,240,248,252,252,254:DEFGR$(3)=49,49,99,127,127,127,254,254:DEFGR$(4)=194,194,129,1,1,1,1,3:DEFGR$(5)=254,254,254,254,254,254,126,127:DEFGR$(6)=5,9,5,5,3,1,2,2:DEFGR$(7)=127,127,127,63,31,15,7,3:DEFGR$(8)=2,4,132,136,208,224,192,128:DEFGR$(9)=1,3,7,15,31,63,63,127:DEFGR$(10)=192,224,240,248,252,252,226,194:DEFGR$(11)=127,127,255,249,241,224,240,241:DEFGR$(12)=130,2,1,1,1,129,129,1:DEFGR$(13)=250,248,248,248,248,248,108,68:DEFGR$(14)=1,65,65,33,34,18,2,2:DEFGR$(15)=70,66,46,63,31,15,7,3:DEFGR$(16)=4,4,8,8,144,224,192,128:DEFGR$(17)=126,86,82,82,214,214,214,0:DEFGR$(18)=126,70,64,112,192,194,254,0:DEFGR$(19)=254,22,16,16,48,48,48,0:DEFGR$(20)=126,70,70,66,194,194,254,0:DEFGR$(21)=126,70,66,126,204,198,198,0:M$(0,0)=GR$(1)+GR$(2):M$(1,0)=GR$(3)+GR$(4):M$(2,0)=GR$(5)+GR$(6):M$(3,0)=GR$(7)+GR$(8):M$(0,1)=GR$(9)+GR$(10):M$(1,1)=GR$(11)+GR$(12):M$(2,1)=GR$(13)+GR$(14):M$(3,1)=GR$(15)+GR$(16):RETURN

18 LOCATE26,22:PRINTD1;:IFD1-D2<100THEN2

19 CONSOLE0,24,0:CLS:SCREEN7,4,4:FORI=1TO12:IFIAND1THENC0=0:ELSEC0=3

20 BOXF((20-I)*8,(6+I)*8)-(160,(7+I)*8),C0:NEXT:ATTRB1,0:LOCATE23,7:PRINT"8":FORI=1TO10:LOCATE23,7+I:PRINT".":NEXT:LOCATE23,18:PRINT"1":LOCATE26,13,1:PRINT"? ";

21 Z$=INPUT$(1):IFVAL(Z$)<1ORVAL(Z$)>8THEN21

22 D0=8-VAL(Z$):ATTRB1:PRINTZ$;:LOCATE0,0,0:RETURN

23 CONSOLE0,24,0:I=134:I0=-1:C=3:CLS:ATTRB1,1:SCREEN3,4,4:LOCATE23,7:PRINT"8":LOCATE23,16:PRINT"1":LOCATE26,12,1:PRINT"?";:Z=1:Z$="1"

24 IFPTRIGTHEN32:ELSEZ$=INKEY$

25 IFZ$=""GOTO28

26 IFASC(Z$)=13GOTO32

27 IFZ$>"0"ANDZ$<"9"THENZ=VAL(Z$):GOTO32

28 LINE(74+143-I,I)-(167,I),C:I=I+I0:IFC=3THENC=1:ELSEIFC=1THENC=3

29 IFI=49THENI0=1:C=-5

30 IFI=134THENI0=-1:C=3

31 GOTO24

32 LOCATE28,12:PRINTZ:RETURN

TELL.BAS

Code : Tout sélectionner

0 Z$="TELL-29/08/1983-VERSION DEFINITIVE":CONSOLE0,24,0,0:CLOSE:A$=INKEY$:CLEAR,,37:DEFINTA-Z:DIMV(6),F(6),F$(6):GOSUB44:F$(0)=GR$(0):F$(1)=CHR$(10)+GR$(36):F$(2)=GR$(31):F$(3)=CHR$(10)+GR$(35):F$(4)=GR$(32):F$(5)=CHR$(10)+GR$(34):F$(6)=GR$(33)

1 R0=0:GOSUB45:CONSOLE0,24,0:COLOR0,3:CLS:SCREEN,,0:CONSOLE22,24:SCREEN7,4:LINE(0,176)-(64,176),0:LINE(0,176)-(64,176),-5:LINE(0,177)-(64,177),0:LINE(0,177)-(64,177),-5:LINE(280,48)-(280,176),0:LOCATE34,8:COLOR0,5:PRINT" ":LOCATE34,9:PRINT" ":LOCATE34,10:COLOR,7:PRINT" ":LOCATE34,11:PRINT" ":LOCATE34,12:COLOR,1:PRINT" ":LOCATE34,13:PRINT" ":LOCATE34,14:COLOR,7:PRINT" ":LOCATE34,15:PRINT" ":LOCATE34,16:COLOR,5:PRINT" ":LOCATE34,17:PRINT" ":COLOR,3:CONSOLE0,24,1:LOCATE4,13,0:PRINTGR$(8);GR$(10):PRINTTAB4);GR$(9);GR$(11);GR$(12):PRINTTAB5);GR$(13);GR$(14):PRINTTAB3);GR$(15);GR$(16):PRINTTAB2);GR$(17);" ";GR$(18):PRINTTAB4);GR$(18);GR$(19):PRINTTAB4);GR$(18);GR$(20):PRINTTAB4);GR$(15);GR$(18):PRINTTAB3);GR$(15);" ";GR$(18):PRINTTAB3);GR$(21);"  ";GR$(21):CONSOLE,,0:FORI=2TO6STEP2:BOX(16-I,32-I)-(232+I,40+I),5:NEXT:CONSOLE,,1:LOCATE3,4:PRINT"SCORE:      *   MAX:"

2 S0=0:ATTRB1:LOCATE0,23:FORI=1TO10:PRINTGR$(30);GR$(29);:NEXT:ATTRB0:V(1)=10:V(5)=10:V(2)=25:V(4)=25:V(3)=50:FORI=0TO6:F(I)=0:NEXT:FORC0=1TO10

3 IFPTRIGTHEN3

4 IFD0>8THEN7

5 V0=INT(5*RND+1)*10:FORV=1TO5:V(V)=V0:V0=V0+10:IFV0>50THENV0=10

6 NEXT

7 ATTRB,1:FORV=1TO5:LOCATE34,7+2*V:IFV(V)=50THENPRINT"*";:ELSEPRINT" ";

8 PRINTV(V):NEXTV:ATTRB,0:LOCATE6,14:PRINTGR$(12);" ":LOCATE6,15:PRINTGR$(14);"  "

9 IFNOTPTRIGTHEN9

10 PLAY"DO":LOCATE40-4*C0,23:PRINT"    ";:LOCATE6,14:PRINTGR$(14):A=0:FORI=1TOD0:IFNOTPTRIGTHEN17

11 NEXT:LOCATE6,14:PRINTGR$(22);CHR$(8);CHR$(10);GR$(23):A=1:FORI=1TOD0:IFNOTPTRIGTHEN17

12 NEXT:LOCATE6,14:PRINTGR$(24);CHR$(8);CHR$(10);GR$(23):A=2:FORI=1TOD0:IFNOTPTRIGTHEN17

13 NEXT:LOCATE6,14:PRINT" ";GR$(15);CHR$(8);CHR$(8);CHR$(10);GR$(15):A=3:FORI=1TOD0:IFNOTPTRIGTHEN17

14 NEXT:LOCATE6,14:PRINT"  ";CHR$(8);CHR$(8);CHR$(10);GR$(25);GR$(26):A=4:FORI=1TOD0:IFNOTPTRIGTHEN17

15 NEXT:LOCATE6,14:PRINTCHR$(10);GR$(0);GR$(25):A=5:FORI=1TOD0:IFNOTPTRIGTHEN17

16 NEXT:LOCATE6,14:PRINTCHR$(10);GR$(0);GR$(0):A=6

17 ONA+1GOSUB18,19,20,21,22,23,24:GOTO25

18 RESTORE:RETURN

19 RESTORE37:RETURN

20 RESTORE38:RETURN

21 RESTORE39:RETURN

22 RESTORE40:RETURN

23 RESTORE41:RETURN

24 RESTORE42:RETURN

25 LOCATE8,14,0:FORI=1TO86:READC:PRINTCHR$(C);:NEXT:PRINTF$(F(A)):PLAY"T2O5L6LAO4T5L24":IFF(A)<6THENF(A)=F(A)+1

26 S0=S0+V(A):LOCATE10,4:PRINTUSING"###";S0:LOCATE5,13:IFV(A)>20THENPRINTGR$(10);CHR$(8);CHR$(10);GR$(11):ELSEPRINTGR$(27);CHR$(8);CHR$(10);GR$(28)

27 IFD0<2ANDV(A)=50THENC0=C0-1:IFC0<0THENC0=0

28 IFC0<10THENLOCATE36-4*C0,23:ATTRB1:PRINTGR$(30);GR$(29);:ATTRB0

29 FORI=1TO500:NEXTI,C0

30 IFPTRIGTHEN30

31 IFS0>R0THENR0=S0:LOCATE24,4:PRINTUSING"####";R0::ELSEPLAY"T7O2":GOTO33

32 X$=INKEY$:PLAY"L12DODOL24DOL12DODOL24DOL12DODOL24FASOLAL48"

33 PLAY"L12DODOL24DOL12DODOL24DOL12FALAL24SOMIDOO4T5":FORI=6TO19:LOCATE33,I:PRINT"  ":NEXT

34 X$=INKEY$:IFPTRIGTHENLOCATE5,13:PRINTGR$(10);CHR$(8);CHR$(10);GR$(11):GOTO2

35 X$=INKEY$:IFX$=""THEN34:ELSEIFX$=CHR$(12)THENEXEC&HE82D:ELSE1

36 DATA128,8,32,132,8,32,11,128,8,32,132,8,32,11,128,8,32,132,8,32,11,128,8,32,132,8,32,11,128,8,32,131,8,32,134,8,32,11,128,8,32,131,8,32,134,8,32,11,128,8,32,131,8,32,134,8,32,11,128,8,32,131,8,32,134,8,32,11,128,8,32,131,8,32,134,8,32,133,8,32,132,8,32,131,8,32,130,8,32

37 DATA128,8,32,131,8,32,134,8,32,11,128,8,32,131,8,32,134,8,32,11,128,8,32,131,8,32,134,8,32,11,128,8,32,131,8,32,134,8,32,11,128,8,32,131,8,32,134,8,32,11,128,8,32,131,8,32,134,8,32,11,128,8,32,130,8,32,131,8,32,132,8,32,131,8,32,130,8,32,129,8,32,0,0,0,0,0

38 DATA128,8,32,130,8,32,132,8,32,134,8,32,11,128,8,32,130,8,32,132,8,32,134,8,32,11,128,8,32,130,8,32,132,8,32,134,8,32,11,128,8,32,130,8,32,132,8,32,134,8,32,11,128,8,32,130,8,32,131,8,32,132,8,32,133,8,32,133,8,32,132,8,32,131,8,32,130,8,32,0,0,0,0,0,0,0

39 DATA128,8,32,129,8,32,130,8,32,131,8,32,132,8,32,133,8,32,134,8,32,135,8,32,11,128,8,32,129,8,32,130,8,32,131,8,32,132,8,32,133,8,32,134,8,32,135,8,32,11,128,8,32,130,8,32,131,8,32,132,8,32,133,8,32,133,8,32,132,8,32,131,8,32,130,8,32,0,0,0,0,0,0,0,0,0

40 DATA128,8,32,129,8,32,130,8,32,131,8,32,132,8,32,133,8,32,134,8,32,135,8,32,11,128,8,32,129,8,32,130,8,32,131,8,32,132,8,32,132,8,32,131,8,32,130,8,32,129,8,32,128,8,32,10,135,8,32,134,8,32,133,8,32,132,8,32,131,8,32,130,8,32,129,8,32,0,0,0,0,0,0,0,0,0

41 DATA128,8,32,129,8,32,130,8,32,131,8,32,132,8,32,133,8,32,134,8,32,135,8,32,11,128,8,32,129,8,32,130,8,32,131,8,32,132,8,32,131,8,32,130,8,32,129,8,32,128,8,32,10,135,8,32,133,8,32,131,8,32,129,8,32,10,134,8,32,131,8,32,128,8,32,10,132,8,32,0,0,0,0,0,0,0

42 DATA128,8,32,129,8,32,130,8,32,131,8,32,132,8,32,133,8,32,134,8,32,135,8,32,135,8,32,134,8,32,133,8,32,132,8,32,131,8,32,130,8,32,129,8,32,128,8,32,10,135,8,32,133,8,32,131,8,32,129,8,32,10,134,8,32,131,8,32,128,8,32,10,132,8,32,128,8,32,10,132,8,32,0,0,0,0,0,0

43 END

44 DEFGR$(0)=0,0,0,0,0,0,0,255:DEFGR$(1)=0,0,0,0,0,0,255,0:DEFGR$(2)=0,0,0,0,0,255,0,0:DEFGR$(3)=0,0,0,0,255,0,0,0:DEFGR$(4)=0,0,0,255,0,0,0,0:DEFGR$(5)=0,0,255,0,0,0,0,0:DEFGR$(6)=0,255,0,0,0,0,0,0:DEFGR$(7)=255,0,0,0,0,0,0,0:DEFGR$(8)=3,12,16,32,32,64,64,64:DEFGR$(9)=64,64,64,32,32,16,12,3:DEFGR$(10)=192,48,8,4,20,42,18,2:DEFGR$(11)=2,2,66,60,4,8,48,192:DEFGR$(12)=255,128,128,128,128,128,128,128:DEFGR$(13)=128,128,128,128,128,128,128,255:DEFGR$(14)=128,128,128,128,128,128,128,128:DEFGR$(15)=1,2,4,8,16,32,64,128:DEFGR$(16)=255,1,1,1,1,1,1,1:DEFGR$(17)=1,1,2,2,4,4,8,8:DEFGR$(18)=1,1,1,1,1,1,1,1:DEFGR$(19)=128,128,64,64,32,32,16,16:DEFGR$(20)=8,8,4,4,2,2,1,1:DEFGR$(21)=255,255,0,0,0,0,0,0:DEFGR$(22)=8,8,8,8,8,8,8,8:DEFGR$(23)=16,16,32,32,64,64,128,128:DEFGR$(24)=1,1,2,2,4,4,8,8:DEFGR$(25)=0,0,0,0,3,12,48,192:DEFGR$(26)=3,12,48,192,0,0,0,0:DEFGR$(27)=192,48,8,4,36,18,42,2:DEFGR$(28)=2,2,26,36,68,8,48,192:DEFGR$(29)=0,0,224,252,224,0,0,0:DEFGR$(30)=0,160,208,127,208,160,0,0:DEFGR$(31)=0,0,0,0,0,255,0,255:DEFGR$(32)=0,0,0,255,0,255,0,255:DEFGR$(33)=0,255,0,255,0,255,0,255:DEFGR$(34)=0,255,0,255,0,255,0,0:DEFGR$(35)=0,255,0,255,0,0,0,0:DEFGR$(36)=0,255,0,0,0,0,0,0:RETURN

45 I=134:I0=-1:C=3:CLS:ATTRB1,1:SCREEN3,4,4:LOCATE23,7:PRINT"5":LOCATE23,16:PRINT"1":LOCATE26,12,1:PRINT"?";:N0=1

46 IFPTRIGTHEN54:ELSER$=INKEY$

47 IFR$=""GOTO50

48 IFASC(R$)=13GOTO54

49 IFR$>"0"ANDR$<"6"THENN0=VAL(R$):GOTO54

50 LINE(74+143-I,I)-(167,I),C:I=I+I0:IFC=3THENC=1:ELSEIFC=1THENC=3

51 IFI=49THENI0=1:C=-5

52 IFI=134THENI0=-1:C=3

53 GOTO46

54 LOCATE28,12:PRINTN0:D0=11-2*VAL(R$):LOCATE0,0,0:ATTRB0,0:RETURN
Je note qu'il faudra étudier pourquoi Beach Head ne fonctionne pas en version .sd.
Probablement pas avant quelques semaines car j'ai peu de temps libre ce mois-ci.