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 de l’utilisateur
Kermitoo
Messages : 190
Inscription : 10 juil. 2013 19:21

Re: Fichiers FD pour TO7 & TO7/70

Message 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?
Dernière modification par Kermitoo le 13 févr. 2018 09:57, modifié 2 fois.
Avatar de l’utilisateur
Kermitoo
Messages : 190
Inscription : 10 juil. 2013 19:21

Re: Fichiers FD pour TO7 & TO7/70

Message 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?
Avatar de l’utilisateur
Kermitoo
Messages : 190
Inscription : 10 juil. 2013 19:21

Re: Fichiers FD pour TO7 & TO7/70

Message 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à...
Avatar de l’utilisateur
Kermitoo
Messages : 190
Inscription : 10 juil. 2013 19:21

Re: Fichiers FD pour TO7 & TO7/70

Message par Kermitoo »

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

LA CLE DES CHANTS:
cl0.jpg
cl0.jpg (16.37 Kio) Consulté 1782 fois
Version SDMOTO / SDDRIVE
cle.rar
(19.25 Kio) Téléchargé 59 fois
@Daniel: rien de compliqué là non plus...
Dernière modification par Kermitoo le 14 févr. 2018 13:14, modifié 1 fois.
Avatar de l’utilisateur
Kermitoo
Messages : 190
Inscription : 10 juil. 2013 19:21

Re: Fichiers FD pour TO7 & TO7/70

Message par Kermitoo »

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

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

Version Disquette Simple Densité, 5' 1/4 (bootable en "2")
Horloge.rar
(11.84 Kio) Téléchargé 57 fois
Version Disquette Double Densité, 3' 1/2 (bootable en "2")
Horloge_DD.rar
(12.93 Kio) Téléchargé 50 fois
Version SDMOTO / SDDRIVE
LHorloge_sd.rar
(15.46 Kio) Téléchargé 60 fois
Avatar de l’utilisateur
Kermitoo
Messages : 190
Inscription : 10 juil. 2013 19:21

Re: Fichiers FD pour TO7 & TO7/70

Message par Kermitoo »

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

NOIX DE COCO:
noix.jpg
noix.jpg (13.36 Kio) Consulté 1732 fois
noix2.jpg
noix2.jpg (8.42 Kio) Consulté 1732 fois
noix3.jpg
noix3.jpg (16.38 Kio) Consulté 1732 fois
Version Disquette Simple Densité, 5' 1/4 (bootable en "2")
Noix de Coco_SD.rar
(21.78 Kio) Téléchargé 55 fois
Avatar de l’utilisateur
Kermitoo
Messages : 190
Inscription : 10 juil. 2013 19:21

Re: Fichiers FD pour TO7 & TO7/70

Message par Kermitoo »

TO7/70

POLITIK POKER:
Politik0.jpg
Politik0.jpg (31 Kio) Consulté 1683 fois
Politik1.jpg
Politik1.jpg (40.29 Kio) Consulté 1683 fois
Politik2.jpg
Politik2.jpg (37.23 Kio) Consulté 1683 fois
Fichier FD Double Densité 3'1/2:
Politik Poker_DD.rar
(23.28 Kio) Téléchargé 53 fois
Fichier FD Simple Densité 5'1/4:
Politik Poker_SD.rar
(22.3 Kio) Téléchargé 60 fois
Dernière modification par Kermitoo le 27 févr. 2018 13:22, modifié 1 fois.
Avatar de l’utilisateur
Kermitoo
Messages : 190
Inscription : 10 juil. 2013 19:21

Re: Fichiers FD pour TO7 & TO7/70

Message par Kermitoo »

TO7/70

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

Fichier FD Double Densité 3'1/2:
America's Cup_DD.rar
(38.03 Kio) Téléchargé 51 fois
Fichier FD Simple Densité 5'1/4:
America's Cup_SD.rar
(36.76 Kio) Téléchargé 61 fois
Dernière modification par Kermitoo le 27 févr. 2018 15:24, modifié 1 fois.
Avatar de l’utilisateur
Kermitoo
Messages : 190
Inscription : 10 juil. 2013 19:21

Re: Fichiers FD pour TO7 & TO7/70

Message par Kermitoo »

TO7/70

EMPIRE: (Basic 128)
Emp0.jpg
Emp0.jpg (32.6 Kio) Consulté 1668 fois
Emp1.jpg
Emp1.jpg (26.75 Kio) Consulté 1668 fois
Fichier FD Double Densité 3'1/2:
EMPIRE_DD.rar
(19.37 Kio) Téléchargé 54 fois
Fichier FD Simple Densité 5'1/4:
EMPIRE_SD.rar
(18.14 Kio) Téléchargé 59 fois
Avatar de l’utilisateur
Kermitoo
Messages : 190
Inscription : 10 juil. 2013 19:21

Re: Fichiers FD pour TO7 & TO7/70

Message par Kermitoo »

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

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

Fichier FD Simple Densité 5'1/4:
CYBERLAB_SD.rar
(30.9 Kio) Téléchargé 59 fois
Avatar de l’utilisateur
Kermitoo
Messages : 190
Inscription : 10 juil. 2013 19:21

Re: Fichiers FD pour TO7 & TO7/70

Message par Kermitoo »

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

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

Fichier FD Double Densité 3'1/2:
Louisiane_DD.rar
(13.75 Kio) Téléchargé 45 fois
Fichier FD Simple Densité 5'1/4:
Louisiane_SD.rar
(12 Kio) Téléchargé 49 fois
Avatar de l’utilisateur
Kermitoo
Messages : 190
Inscription : 10 juil. 2013 19:21

Re: Fichiers FD pour TO7 & TO7/70

Message 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é 53 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é 1597 fois

Comment faire?

Merci
Avatar de l’utilisateur
Kermitoo
Messages : 190
Inscription : 10 juil. 2013 19:21

Re: Fichiers FD pour TO7 & TO7/70

Message par Kermitoo »

TO7/70

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

Fichier FD Double Densité 3'1/2:
Beach Head_DD.rar
(19.14 Kio) Téléchargé 56 fois
Dernière modification par Kermitoo le 20 mars 2018 09:30, modifié 1 fois.
Daniel
Messages : 13397
Inscription : 01 mai 2007 18:30
Localisation : Vaucluse
Contact :

Re: Fichiers FD pour TO7 & TO7/70

Message 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

Daniel
L'obstacle augmente mon ardeur.
Daniel
Messages : 13397
Inscription : 01 mai 2007 18:30
Localisation : Vaucluse
Contact :

Re: Fichiers FD pour TO7 & TO7/70

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