Fichiers FD pour TO7 & TO7/70
Modérateurs : Papy.G, fneck, Carl
Re: Fichiers FD pour TO7 & TO7/70
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?
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.
Re: Fichiers FD pour TO7 & TO7/70
@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?
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
@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à...
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
T9000, TO7(+16k) , TO7/70 (Conversion K7 DCMOTO ---> SDMOTO/SDDRIVE)
LA CLE DES CHANTS: Version SDMOTO / SDDRIVE @Daniel: rien de compliqué là non plus...
LA CLE DES CHANTS: Version SDMOTO / SDDRIVE @Daniel: rien de compliqué là non plus...
Dernière modification par Kermitoo le 14 févr. 2018 13:14, modifié 1 fois.
Re: Fichiers FD pour TO7 & TO7/70
T9000, TO7(+16k) , TO7/70 (Conversion K7 DCMOTO)
L'HORLOGE:
Version Disquette Simple Densité, 5' 1/4 (bootable en "2") Version Disquette Double Densité, 3' 1/2 (bootable en "2") Version SDMOTO / SDDRIVE
L'HORLOGE:
Version Disquette Simple Densité, 5' 1/4 (bootable en "2") Version Disquette Double Densité, 3' 1/2 (bootable en "2") Version SDMOTO / SDDRIVE
Re: Fichiers FD pour TO7 & TO7/70
T9000, TO7(+16k) , TO7/70 (Conversion K7 DCMOTO)
NOIX DE COCO:
Version Disquette Simple Densité, 5' 1/4 (bootable en "2")
NOIX DE COCO:
Version Disquette Simple Densité, 5' 1/4 (bootable en "2")
Re: Fichiers FD pour TO7 & TO7/70
TO7/70
POLITIK POKER:
Fichier FD Double Densité 3'1/2: Fichier FD Simple Densité 5'1/4:
POLITIK POKER:
Fichier FD Double Densité 3'1/2: Fichier FD Simple Densité 5'1/4:
Dernière modification par Kermitoo le 27 févr. 2018 13:22, modifié 1 fois.
Re: Fichiers FD pour TO7 & TO7/70
TO7/70
AMERICA'S CUP:
Fichier FD Double Densité 3'1/2: Fichier FD Simple Densité 5'1/4:
AMERICA'S CUP:
Fichier FD Double Densité 3'1/2: Fichier FD Simple Densité 5'1/4:
Dernière modification par Kermitoo le 27 févr. 2018 15:24, modifié 1 fois.
Re: Fichiers FD pour TO7 & TO7/70
TO7/70
EMPIRE: (Basic 128)
Fichier FD Double Densité 3'1/2: Fichier FD Simple Densité 5'1/4:
EMPIRE: (Basic 128)
Fichier FD Double Densité 3'1/2: Fichier FD Simple Densité 5'1/4:
Re: Fichiers FD pour TO7 & TO7/70
T9000, TO7(+16k) , TO7/70
CYBERLAB: (bootable en "2")
Fichier FD Simple Densité 5'1/4:
CYBERLAB: (bootable en "2")
Fichier FD Simple Densité 5'1/4:
Re: Fichiers FD pour TO7 & TO7/70
T9000, TO7(+16k) , TO7/70
LOUISIANE: (bootable en "2")
Fichier FD Double Densité 3'1/2: Fichier FD Simple Densité 5'1/4:
LOUISIANE: (bootable en "2")
Fichier FD Double Densité 3'1/2: Fichier FD Simple Densité 5'1/4:
Re: Fichiers FD pour TO7 & TO7/70
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é: 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")
Comment faire?
Merci
Une petite question concernant certains logiciels que je tente de passer sur disks.
Voici par exemple: POUSSPAN (le disk n°1), en simple densité: 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")
Comment faire?
Merci
Re: Fichiers FD pour TO7 & TO7/70
TO7/70
BEACH HEAD: (bootable en "2", Basic 128)
Fichier FD Double Densité 3'1/2:
BEACH HEAD: (bootable en "2", Basic 128)
Fichier FD Double Densité 3'1/2:
Dernière modification par Kermitoo le 20 mars 2018 09:30, modifié 1 fois.
Re: Fichiers FD pour TO7 & TO7/70
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
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.
L'obstacle augmente mon ardeur.
Re: Fichiers FD pour TO7 & TO7/70
DUKI-DUC.BAS
METEOR.BAS
TELL.BAS
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.
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
Probablement pas avant quelques semaines car j'ai peu de temps libre ce mois-ci.
Daniel
L'obstacle augmente mon ardeur.
L'obstacle augmente mon ardeur.