Page 9 sur 10

Re: Fichiers FD pour TO7 & TO7/70

Posté : 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

Posté : 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

Posté : 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

Posté : 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) Vu 436 fois
Version SDMOTO / SDDRIVE
cle.rar
(19.25 Kio) Téléchargé 10 fois
@Daniel: rien de compliqué là non plus...

Re: Fichiers FD pour TO7 & TO7/70

Posté : 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) Vu 427 fois
H1.jpg
H1.jpg (4.29 Kio) Vu 427 fois

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

Re: Fichiers FD pour TO7 & TO7/70

Posté : 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) Vu 386 fois
noix2.jpg
noix2.jpg (8.42 Kio) Vu 386 fois
noix3.jpg
noix3.jpg (16.38 Kio) Vu 386 fois
Version Disquette Simple Densité, 5' 1/4 (bootable en "2")
Noix de Coco_SD.rar
(21.78 Kio) Téléchargé 10 fois

Re: Fichiers FD pour TO7 & TO7/70

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

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

Re: Fichiers FD pour TO7 & TO7/70

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

AMERICA'S CUP:
America0.jpg
America0.jpg (28.5 Kio) Vu 337 fois
America1.jpg
America1.jpg (16.42 Kio) Vu 337 fois
America2.jpg
America2.jpg (19.07 Kio) Vu 337 fois

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

Re: Fichiers FD pour TO7 & TO7/70

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

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

Re: Fichiers FD pour TO7 & TO7/70

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

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

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

Re: Fichiers FD pour TO7 & TO7/70

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

LOUISIANE: (bootable en "2")
L1.jpg
L1.jpg (25.85 Kio) Vu 251 fois
L2.jpg
L2.jpg (19.7 Kio) Vu 251 fois

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

Re: Fichiers FD pour TO7 & TO7/70

Posté : 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é 6 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) Vu 247 fois

Comment faire?

Merci

Re: Fichiers FD pour TO7 & TO7/70

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

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

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

Re: Fichiers FD pour TO7 & TO7/70

Posté : 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

Posté : 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.