[Hebdogiciel] Les fameu-meux Deulignes!

Tout ce qui concerne le logiciel original et sa sauvegarde avec entre autre la régénération des disquettes ou autres supports physiques.

Modérateurs : Papy.G, fneck, Carl

Xavier

[Hebdogiciel] Les fameu-meux Deulignes!

Message par Xavier »

Salut à tous,
Afin de répertorier et lister les deux lignes d'Hebdogiciel, j'ai extrait les fameux articles "Les Deulignes"...
Il y en a pour tout les goût, Apple, Amstrad, Spectrum, Zx81 ou Spectrum.
N'hésitez pas à publier les listings tapés , tout simplement, sur ce même forum.
Il seront repris et collationnés sur la page d' "Hebdogiciel,Les listings" ou la page "DeuLigne pour Thomson!"
Merci pour le partage de vos saisies!

Articles Hebdogiciel disponibles: (cliquez pour charger l'image)
Tapés>>>Deulignes n°63
Réservé: "Monsieur Merci" >>>Deulignes n°64
Réservé: "Monsieur Merci" >>>Deulignes n°65
Réservé: "Monsieur Merci" >>>Deulignes n°66
Réservé: "Monsieur Merci" >>>Deulignes n°67
Réservé: "Monsieur Merci" >>>Deulignes n°68
Réservé: "Monsieur Merci" >>>Deulignes n°69
Réservé: "Monsieur Merci" >>>Deulignes n°70
Réservé: "Monsieur Merci" >>>Deulignes n°71
Réservé: "Monsieur Merci" >>>Deulignes n°72
Réservé: "Monsieur Merci" >>>Deulignes n°73
Réservé: "Monsieur Merci" >>>Deulignes n°74
Deulignes n°75
Deulignes n°76
Deulignes n°77
Deulignes n°78
Deulignes n°79
Deulignes n°80
Deulignes n°81
Deulignes n°82
Deulignes n°83
Deulignes n°84
Deulignes n°85
Deulignes n°86
Deulignes n°87
Deulignes n°88
Deulignes n°89
Deulignes n°90
Deulignes n°91
Deulignes n°92
Deulignes n°93
Deulignes n°94-95-96-97
Deulignes n°98
Deulignes n°99
Deulignes n°100
Deulignes n°101
Deulignes n°102
Deulignes n°103
Deulignes n°104
Deulignes n°105
Deulignes n°106
Deulignes n°107
Deulignes n°108
Deulignes n°109
Deulignes n°110 (Indisponible)
Deulignes n°111
Deulignes n°112
Deulignes n°113
Deulignes n°114
Deulignes n°115
Deulignes n°116
Deulignes n°117
Deulignes n°118
Deulignes n°119
Deulignes n°120
Deulignes n°121
Deulignes n°122
Deulignes n°123
Deulignes n°124
Deulignes n°125
Deulignes n°126
Deulignes n°127
Deulignes n°128
Deulignes n°129
Deulignes n°130
Deulignes n°131
Deulignes n°132
Deulignes n°133
Deulignes n°134
Deulignes n°135
Deulignes n°136
Deulignes n°137
Deulignes n°138
Deulignes n°139
Deulignes n°140
Deulignes n°141
Deulignes n°142
Deulignes n°143
Deulignes n°144
Deulignes n°145
Deulignes n°146-147-148-149
Deulignes n°150
Deulignes n°151
Deulignes n°152
Deulignes n°153
Deulignes n°154
Deulignes n°155
Deulignes n°156
Deulignes n°157
Deulignes n°158
Deulignes n°159
Deulignes n°160
Deulignes n°161
Deulignes n°162
Deulignes n°163
Deulignes n°164
Deulignes n°165
Deulignes n°166
Deulignes n°167
Deulignes n°168
Dernière modification par Xavier le 29 oct. 2017 20:10, modifié 7 fois.
Xavier

Re: [Hebdogiciel] Les fameu-meux Deulignes!

Message par Xavier »

Sept d'un coup!
Hebdogiciel N°63.


63-ORIC: (Philippe DURAND)[OricToken]
1 FORX=33TO126:PRINTCHR$(X);:NEXT:PRINT:FORX=46344TO47088STEP8
2 FORX=0TO3:S=PEEK(X+Y):POKEX+Y,PEEK(X+7-Y):POKEX+7-Y,S:NEXTY,X

63-TI99:(Christophe GOENAGA)[WinTi99 PASTE]
1 INPUT "SI VOUS VOULEZ SAVOIR QUEL JOUR DE LA SEMAINE NOUS SOMMES ENTREZ LA DATE SOUS FORME JJ,MM(1985)":JJ,MM
2 PRINT SEG$("MARMERJEUVENSAMDIMLUN",1+3*(VAL(SEG$("003128313031303131303130",MM,2))+JJ-1-7*INT((VAL(SEG$("003128313031303131303130",MM,2))+JJ-1)/7)),3

63-THOMSON:(Fredo GIACHETTI)[DCmoto PASTE]
1 CLS:FORC=0TO320STEP8:FORL=0TO200STEP4:BOX(C,L)-(C+8*RND,L+8*RND),0:NEXTL:NEXTC:BOXF(10,10)-(30,15)" ":BOX(80,80)-(248,128),0:COLOR1:LOCATE12,11:PRINT"TAS DE FAINEANTS":LOCATE12,13:PRINT"DEUX CARRES SONT":LOCATE11,14:PRINT"IDENTIQUES:LESQUELS?"
2 FORI=0TO5:PLAY"A1T1O3L12DO#RE#DO#RE#DO#RE#MI#FA#SO#LAPPT3O2L24RE#MI#MI#":NEXT:LOCATE0,24,0

63-C64:(Philippe CALLEC)[CBMprgStudio]
0 PRINT"{clear}{home}{down}{down}{down}";PEEK(162)+PEEK(162)*200+1;"REM*TOUT*EST*RELATIF*!**":PRINT"RUN"
61000 PRINT"{home}":POKE631,13:POKE632,13:POKE198,2

63-APPLE#1:(Jean-Claude DEVAL)[WinAPPLE shift+ins]
10 FORI=770TO792:READJ:POKEI,J:NEXT:DATA173,48,192,136,208,5,206,1,3,240,9,202,208,245,174,0,3,76,2,3,96,0,0:F=768:D=769:S=770:A$="---===££*££===---":HOME:HTAB12:VTAB24:PRINTA$:HTAB12:VTAB21:PRINTA$:POKE34,21:POKE35,23:HGR:HCOLOR=3
20 GETA$:PRINT (A$);:X=ASC(A$):Y=RND(X)*75:HPLOT130-X,75-YTO130+X,75-YTO130+X,75+YTO130-X,75+YTO130-X,75-Y:FORI=1TO3STEP.5:POKEF,X:POKED,5:CALLS:POKEF,X*2/I:POKED,4:CALLS:NEXT:GOTO20

63-APPLE#2:(Gérard SEBBAH)[WinAPPLE shift+ins]
0 IN$="":CALL2067:REM SPEED=J COLOR= HGR | + SPEED=HGR | ' o h PR£ COLOR= HGR | ' ****** NE PAS MODIFIER CETTE LIGNE ****
1 PRINT"TAPEZ QUELQUE CHOSE."
2 CALL 2080:A$=MID$(IN$,1)
3 PRINT"VOUS AVEZ TAPE: ";A$
0 IN$="": CALL 2067:REM **************************** NE PAS MODIFIER CETTE LIGNE ****
1 FORI=2067TO2088:READC:POKEI,C:NEXT:DATA 169,1,74,160,3,145,105,200,169,2,145,105,96,32,111,253,138,160,2,145,105,96

63-ZX81(portage machine facile):(Franck-Olivier LUCEA)[VB81 XuR Fichier Texte]
10 PRINT"CE PROGRAMME NE SERT A RIEN";
20 GOTO 10
Xavier

Re: [Hebdogiciel] Les fameu-meux Deulignes!

Message par Xavier »

Réservation de "Monsieur Merci"
Du fait des différents modes d'utilisation: conversion avec outil ou insertion direct au clavier du mode texte...
Il sera possible que les deux lignes Spectrum, Zx81 ou Commodore... posent problème.
Donc, il sera peut-être utile de passer sur la page "Les tutos"...

Mais, un petit rappel du mode d'entrée du texte s'impose: (Gr=Caractères graphiques) (Ascii=Caractères PC)

Spectrum (Gr): compilation zmakebas-1.1
Zx81 (Gr): compilation ou chargement en mode texte Vb81 XuR.
Thomson (Ascii): stimulation direct au clavier dans DcMOTO.
Apple2 (Ascii): stimulation direct au clavier dans AppleWin (Shift+INS)
Amstrad (Ascii): stimulation direct au clavier dans WinAPE (Auto-Type)
Oric (Ascii): Compilation OricToken/ Euphoric
Ti99a (Ascii): stimulation direct au clavier dans Classic99 ("PASTE")
C64 (Gr) / Vic20 (Gr) : compilation dans CBMprjStudio (sous "Vice').
X07 (Ascii) : compilation dans X07token vers 'cas' (PockEmul)
Dragon32/64 (Ascii) : compilation dans Dragontoken
PC1500 (Ascii) : compilation dans Pc1500token (PC1500 emul ou PockEmul)
(...)
Xavier

Re: [Hebdogiciel] Les fameu-meux Deulignes!

Message par Xavier »

jvernet a écrit :Bandes de petits joueurs. Moi, je tape tout sur un VRAI Apple II.

Nan, c'est pas vrai, j'ai juste tapé 2 2LIGNES dessus.

Code : Tout sélectionner

1 REM NTHIERRY CREE LES PLUS BEAUX DESSINS ET BROUILLE COMME A PLAISIR LES BITS. #91
10HGR:POKE-16302,0:HCOLOR=7:FOR T=0TO60STEP.314:HPLOTCOS(T)*2*T+140,GTOCOS(T)*T+140,G:G=G+1:NEXTT:FORT=125TO155:HPLOT140,0TOT,191:NEXTT:FORT=0TO 191STEP3:HPLOTO,TTO279,T:NEXTT:FORT=0TO279STEP3:HPLOTT,0TO T,191:NEXT
20 FOR T=0TO120STEP4:HPLOT0,191TOT,0:HPLOT 279,191 TO 159+T,0:NEXT:POKE232,0:POKE233,3:POKE768,1:POKE770,4:POKE771,0:FORT=0TO139:POKE772+T,5:NEXT:POKE912,0:POKE913,0:FORT=0TO191:XDRAW1AT0,T:XDRAW1AT140,T:NEXT:GOTO 20
Celui là ne marche pas, pas compris pourquoi. [EDIT corrigé]

Code : Tout sélectionner

0 REM CASSE BRIQUE JEANMICHEL LUNATI #94
1TEXT:HOME:PRINT"SCORE=";S*(37-L):INPUT"TAILLE=";L:GR:Q=39:COLOR=1:VLIN1,QAT0:VLIN1,QATQ:COLOR=2:HLIN0,QAT0:COLOR=4:HLIN1,39ATQ:COLOR=3:FORI=3TO7:HLIN1,38ATI*2.3:NEXT:X=RND(1)*30+5:Y=RND(1)*7+18:U=1:V=1:S=0:D=(37-L)/255:E=0:P=1:ONERRGOTO1
2 COLOR=4:HLIN1,38ATQ:P=PDL(0)*D+1:COLOR=2:HLINP,P+LATQ:F=SCRN(X+U,Y+V):I=F=0:J=F=1:K=F=3ORF=2:G=F=3:COLOR=E*(E<>3):PLOTX,Y:E=F:X=X+U:Y=Y+V:COLOR=9:PLOTX,Y:PRINTCHR$(6+G):U=U*(I-J+K*INT(RND(1)*3-1))+K*(U=0):V=V*(I-K+J):S=S+G:ONF/4+1GOTO2,1
Xavier_

Re: [Hebdogiciel] Les fameu-meux Deulignes!

Message par Xavier_ »

Salut,

Reprise de la saisie des "Deulignes" par Antipontifex !

Un grand "THANK" pour son aide…
Daniel
Messages : 17316
Inscription : 01 mai 2007 18:30
Localisation : Vaucluse
Contact :

Re: [Hebdogiciel] Les fameu-meux Deulignes!

Message par Daniel »

Si ça peut vous aider, j'ai une ancienne page (créée en 2000 et mise à jour jusqu'en 2005) avec quelques deulignes : http://dcmo5.free.fr/deu/index.html

Tous ne sont pas d'Hebdogiciel. A l'époque j'en avais écrit quelques-uns. Aucun n'a été publié.
Il y a une archive à télécharger avec une dizaine de deulignes pour MO5.
Daniel
L'obstacle augmente mon ardeur.
Xavier_

Re: [Hebdogiciel] Les fameu-meux Deulignes!

Message par Xavier_ »

Merci Daniel, toujours prompt à aider.
8)

Oui à l'époque j'ai cité cette adresse :
http://dcmo5.free.fr/deuligne.html

Elle est donc devenue:
http://dcmo5.free.fr/deu/index.html

Je ne sais plus si j'ai mis tes "deulignes" perso, d'ailleurs.
Aucun n'a été publié.
Pas étonnant qu'ils ont été obligés de mettre la clé sous la porte...
Xavier_

Re: [Hebdogiciel] Les fameu-meux Deulignes!

Message par Xavier_ »

Deulignes.jpg
Deulignes.jpg (65.07 Kio) Consulté 6391 fois
http://www.hebdogiciel.free.fr/2lignes.htm
__sam__
Messages : 7923
Inscription : 18 sept. 2010 12:08
Localisation : Brest et parfois les Flandres

Re: [Hebdogiciel] Les fameu-meux Deulignes!

Message par __sam__ »

Bravo!
sam (1 ligne.. ah non 2 en fait ;) )
Samuel.
A500 Vampire V2+ ^8^, A1200 (030@50mhz/fpu/64mb/cf 8go),
A500 GVP530(MMU/FPU) h.s., R-Pi, TO9, TO8D, TO8.Démos
Répondre