Fichiers FD pour TO7 & TO7/70

Couvre tous les domaines de l'émulation ou de la virtualisation ainsi que les discussions sur les divers outils associés.

Modérateurs : Carl, Papy.G, fneck

Avatar du membre
Kermitoo
Messages : 178
Enregistré le : 10 juil. 2013 19:21

Re: Fichiers FD pour TO7 & TO7/70

Message par Kermitoo » 13 févr. 2018 09:16

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?
Modifié en dernier par Kermitoo le 13 févr. 2018 09:57, modifié 2 fois.

Avatar du membre
Kermitoo
Messages : 178
Enregistré le : 10 juil. 2013 19:21

Re: Fichiers FD pour TO7 & TO7/70

Message par Kermitoo » 13 févr. 2018 09:54

@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?

Avatar du membre
Kermitoo
Messages : 178
Enregistré le : 10 juil. 2013 19:21

Re: Fichiers FD pour TO7 & TO7/70

Message par Kermitoo » 13 févr. 2018 13:52

@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à...

Avatar du membre
Kermitoo
Messages : 178
Enregistré le : 10 juil. 2013 19:21

Re: Fichiers FD pour TO7 & TO7/70

Message par Kermitoo » 14 févr. 2018 10:21

T9000, TO7(+16k) , TO7/70 (Conversion K7 DCMOTO ---> SDMOTO/SDDRIVE)

LA CLE DES CHANTS:
cl0.jpg
cl0.jpg (16.37 Kio) Vu 596 fois
Version SDMOTO / SDDRIVE
cle.rar
(19.25 Kio) Téléchargé 14 fois
@Daniel: rien de compliqué là non plus...
Modifié en dernier par Kermitoo le 14 févr. 2018 13:14, modifié 1 fois.

Avatar du membre
Kermitoo
Messages : 178
Enregistré le : 10 juil. 2013 19:21

Re: Fichiers FD pour TO7 & TO7/70

Message par Kermitoo » 14 févr. 2018 13:14

T9000, TO7(+16k) , TO7/70 (Conversion K7 DCMOTO)

L'HORLOGE:
H0.jpg
H0.jpg (13.5 Kio) Vu 587 fois
H1.jpg
H1.jpg (4.29 Kio) Vu 587 fois

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

Avatar du membre
Kermitoo
Messages : 178
Enregistré le : 10 juil. 2013 19:21

Re: Fichiers FD pour TO7 & TO7/70

Message par Kermitoo » 20 févr. 2018 10:33

T9000, TO7(+16k) , TO7/70 (Conversion K7 DCMOTO)

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

Avatar du membre
Kermitoo
Messages : 178
Enregistré le : 10 juil. 2013 19:21

Re: Fichiers FD pour TO7 & TO7/70

Message par Kermitoo » 27 févr. 2018 13:13

TO7/70

POLITIK POKER:
Politik0.jpg
Politik0.jpg (31 Kio) Vu 497 fois
Politik1.jpg
Politik1.jpg (40.29 Kio) Vu 497 fois
Politik2.jpg
Politik2.jpg (37.23 Kio) Vu 497 fois
Fichier FD Double Densité 3'1/2:
Politik Poker_DD.rar
(23.28 Kio) Téléchargé 14 fois
Fichier FD Simple Densité 5'1/4:
Politik Poker_SD.rar
(22.3 Kio) Téléchargé 13 fois
Modifié en dernier par Kermitoo le 27 févr. 2018 13:22, modifié 1 fois.

Avatar du membre
Kermitoo
Messages : 178
Enregistré le : 10 juil. 2013 19:21

Re: Fichiers FD pour TO7 & TO7/70

Message par Kermitoo » 27 févr. 2018 13:21

TO7/70

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

Fichier FD Double Densité 3'1/2:
America's Cup_DD.rar
(38.03 Kio) Téléchargé 13 fois
Fichier FD Simple Densité 5'1/4:
America's Cup_SD.rar
(36.76 Kio) Téléchargé 13 fois
Modifié en dernier par Kermitoo le 27 févr. 2018 15:24, modifié 1 fois.

Avatar du membre
Kermitoo
Messages : 178
Enregistré le : 10 juil. 2013 19:21

Re: Fichiers FD pour TO7 & TO7/70

Message par Kermitoo » 27 févr. 2018 15:09

TO7/70

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

Avatar du membre
Kermitoo
Messages : 178
Enregistré le : 10 juil. 2013 19:21

Re: Fichiers FD pour TO7 & TO7/70

Message par Kermitoo » 28 févr. 2018 18:56

T9000, TO7(+16k) , TO7/70

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

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

Avatar du membre
Kermitoo
Messages : 178
Enregistré le : 10 juil. 2013 19:21

Re: Fichiers FD pour TO7 & TO7/70

Message par Kermitoo » 09 mars 2018 17:46

T9000, TO7(+16k) , TO7/70

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

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

Avatar du membre
Kermitoo
Messages : 178
Enregistré le : 10 juil. 2013 19:21

Re: Fichiers FD pour TO7 & TO7/70

Message par Kermitoo » 09 mars 2018 17:58

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é 10 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 407 fois

Comment faire?

Merci

Avatar du membre
Kermitoo
Messages : 178
Enregistré le : 10 juil. 2013 19:21

Re: Fichiers FD pour TO7 & TO7/70

Message par Kermitoo » 09 mars 2018 19:16

TO7/70

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

Fichier FD Double Densité 3'1/2:
Beach Head_DD.rar
(19.14 Kio) Téléchargé 13 fois
Modifié en dernier par Kermitoo le 20 mars 2018 09:30, modifié 1 fois.

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

Re: Fichiers FD pour TO7 & TO7/70

Message par Daniel » 09 mars 2018 20:00

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

Daniel
L'obstacle augmente mon ardeur.

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

Re: Fichiers FD pour TO7 & TO7/70

Message par Daniel » 09 mars 2018 20:13

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.
Daniel
L'obstacle augmente mon ardeur.

Répondre