' Auteur: PARPAIUN
' Date-version: 07/05/2016
'
' Générateur de FABLE AUTOMATIQUE
' -----------------
'
' Variations sur une fable de Jean de la Fontaine: "Le corbeau et le renard"
'
' ====================================================================
' Il y a en tout 51 groupes de DATA.
' Dans chaque groupe, n%() donne le nombre de Data.
' La fin de chaque mot de Data contient un signe.
' Ce signe directeur de position du mot dans le vers signifie:
' * = simple espace entre deux mots
' # = fin de vers et saut à la ligne
' & = fin de poème.
' =====================================================================
' Liste des syntagmes organisée en paradigmes
Caption 0,"Variations sur une fable de Jean de la Fontaine: Le corbeau et le renard"
Dim i
dim m$(51,17), n%(51)
' -----------------------------------------------------------------------------
Data " Maître corbeau*"," Sire moineau*"," Compère loriot*"
Data " P'tit oiseau*"," Pépé finaud*"," Frère l'asticot*"," Un drôle d'oiseau*"
Data " Un grand nigaud*"," Une espèce de plumeau*"
n%(1) = 9
for i=1 to 9: read m$(1,i): next i
' -------------------------------------------------------------------
Data "sur un arbre perché#","dans son bain plongé#","dans son nid vautré#"
Data "sous un lit caché#","en l'air envolé#","à l'air renfrogné#"
Data "sous une tige accroché#","sur un mât agrippé#","sur une branche étalé#"
n%(2) = 9
for i=1 to 9: read m$(2,i): next i
' --------------------------------------------------------------------
Data "Tenait*","Humait*","Bouffait*","Lisait*","Crachait*","Sniffait*","Chipait*"
Data "Piquait*","Buvait*","Lapait*","Admirait*","Lèchait*","Lissait*","Zieutait*"
Data "Croquait*","Gardait*","Tripotait*"
n%(3) = 17
for i=1 to 17: read m$(3,i): next i
' ------------------------------------------------------------------
Data "en son bec*","dans ses griffes*","sous l'aisselle*","dans un sac*"
Data "sur sa tête*","sous ses pattes*","sous ses petons*","sur son pif*"
Data "sur ses menottes*"
n%(4) = 9
for i=1 to 9: read m$(4,i): next i
' ----------------------------------------------------------------------
Data "un fromage.#","son plumage.#","un fourrage.#","du cirage.#","un roi mage.#"
Data "une image.#","un potage.#","une jolie page.#","son pelage.#","un corsage#"
n%(5) = 10
for i=1 to 10: read m$(5,i): next i
' ----------------------------------------------------------------------
Data "Maître Renard*","Sire Lapin*","Père Pinou*","P'tit loupiot*"
Data "Sire blaireau*","Pépé Finaud*","Frère Zoziau*","Raton Poivrot*"
n%(6) = 8
for i=1 to 8: read m$(6,i): next i
' ----------------------------------------------------------------------
Data "par l'odeur*","par la vue*","sur le pif*","des mirettes*","au toucher*"
Data "par l'ouïe*"
n%(7) = 6
for i=1 to 6: read m$(7,i): next i
' ----------------------------------------------------------------------
Data "alléché#","attiré#","renversé#","emballé#","très secoué#","astiqué#"
Data "moult piqué#","affolé#","asticoté#","confiné#","aveuglé#"
n%(8) = 11
for i=1 to 11: read m$(8,i): next i
' -----------------------------------------------------------------------
Data "Lui tint*","Lui dicte*","Lui parlotte*","Lui susurre*","Lui refile*"
Data "Lui débecte*","Lui balance*","Lui dégote*","Lui remâche*"
n%(9) = 9
for i=1 to 9: read m$(9,i): next i
' -----------------------------------------------------------------------
Data "à peu près*","en catimini*","à veau l'eau*","à bras le corps*"
Data "en douceur*","à tâtons*","chichement*","goulûment*","éperdument*"
Data "carrément*","vertement*","prestement*"
n%(10) = 12
for i=1 to 12: read m$(10,i): next i
' -----------------------------------------------------------------------
Data "ce langage#","ce zieutage#","ce ramage#","ce débectage#","ce verbiage#"
n%(11) = 5
for i=1 to 5: read m$(11,i): next i
' -----------------------------------------------------------------------
Data "<Hé bonjour!*","<O mes aïeux!*","<Que diantre!*","<Palsambleu!*"
Data "<Acré nom de nom!*","<Mille sabords!*","<Aïe aïe aïe!*","<Olé Caramba!*"
Data "<Ben voyons*","Sapristi!*","<Saperlipopette!*"
n%(12) = 11
for i=1 to 11: read m$(12,i): next i
' ----------------------------------------------------------------------
Data "Monsieur du corbeau,#","frère du blé haut,#","Sire du poteau,#"
Data "'spèce de fou du vélo,#","vrai dingue de métro,#","malade du chapeau,#"
Data "acré bougre d'idiot,#", "gros fêlé du chapeau,#","acré fan de bistro,#"
Data "sourdingue comme un pot,#", "ohé l'gars du bateau!#"
n%(13) = 11
for i=1 to 11: read m$(13,i): next i
' ----------------------------------------------------------------------
Data "Que vous êtes joli*","Quel bougri de folie*","Que vous semblez mûri*"
Data "Quel minable avachi*","Quelle pâte de bouffi*","Quel fichu malappris*"
Data "ô foutu raccorni*","Cher tonton à bibi*","Quelle trogne démolie*"
n%(14) = 9
for i=1 to 9: read m$(14,i): next i
' ----------------------------------------------------------------------
Data "que vous me semblez beau#","que vous êtes idiot#","que vous êtes capot#"
Data "que vous paraissez sot#","que vous avez du pot#","quel air de toréro#"
Data "grand fou de guignolo#","affreux vilain macho#","que vous êtes pâlot#"
n%(15) = 9
for i=1 to 9: read m$(15,i): next i
' ----------------------------------------------------------------------
Data "Sans mentir*","Queuquefois*","Y a des fois*","Pensez vous*","P'têt ben que*"
Data "Je rigole*","C'est pas vrai*","Tiens mon oeil*","Z'êtes cinglé*"
Data "Balivernes*"
n%(16) = 10
for i=1 to 10: read m$(16,i): next i
' ----------------------------------------------------------------------
Data "si votre ramage#","si votre plumage#","si votre fignolage#"
Data "si votre belle image#","si votre papotage#","si votre persiflage#"
Data "si votre grignotage#","si votre racolage#"
n%(17) = 8
for i=1 to 8: read m$(17,i): next i
' --- -----------------------------------------------------------------
Data "Se rapporte*","S'insère*","Se mélange*","Se compare*","Se balance*"
Data "Équivaut sans doute*","S'ajoute*"
n%(18) = 7
for i=1 to 7: read m$(18,i): next i
' ---------------------------------------------------------------------
Data "à votre gai plumage>#","à votre bel hommage>#","à votre camouflage>#"
Data "à votre charmant bagage>#","à votre persiflage>#","à votre tripotage>#"
Data "à un nain de plage>#","à votre barbouillage>#"
n%(19) = 8
for i=1 to 8: read m$(19,i): next i
' ---------------------------------------------------------------------
Data "Vous êtes*","Vous paraissez*","Vous mirez*","Vous brillez*"
Data "Vous flashez*"
n%(20) = 5
for i=1 to 5: read m$(20,i): next i
' ---------------------------------------------------------------------
Data "le Phénix*","le Soleil*","l'Apollon*","le rayon*","le point de mire*"
n%(21) = 5
for i=1 to 5: read m$(21,i): next i
' ---------------------------------------------------------------------
Data "des hôtes*","des curieux*","des voyeurs*","des fans*","des badauds*"
Data "des paparazzi*","des espions*"
n%(22) = 7
for i=1 to 7: read m$(22,i): next i
' ---------------------------------------------------------------------
data "de ces bois#","de mes joies#","de l'octroi#","oui ma foi !#"
n%(23) = 4
for i=1 to 4: read m$(23,i): next i
' ---------------------------------------------------------------------
Data "A ces mots*","Ragaillardi*","Asticoté*","Emballé*","Très flatté*"
Data "Très ému*","Rembarré*","Étourdi*","Ébloui*"
n%(24) = 9
for i=1 to 9: read m$(24,i): next i
' ---------------------------------------------------------------------
Data "le corbeau*","notre compère*","le larbin*","notre filou*","notre rusé*"
Data "le miteux*","le frérot*","l'imbécile*","le dadais*"
n%(25) = 9
for i=1 to 9: read m$(25,i): next i
' ---------------------------------------------------------------------
Data "ne se sent pas*","s'explose*","se décide*","ne se retient pas*"
Data "se manifeste*","s'extériorise*","se remplit*","se gonfle*"
Data "se renfrogne*"
n%(26) = 9
for i=1 to 9: read m$(26,i): next i
' ---------------------------------------------------------------------
Data "sa joie#","et crie alléluia!#","du gras#","bien à plat#","en gros tas#"
Data "ras à ras#","raide au pas#","tout galapiat#","bouffi de gras#"
n%(27) = 9
for i=1 to 9: read m$(27,i): next i
' ---------------------------------------------------------------------
Data "Et pour montrer*","Et pour refiler*","Et pour louer*","Et pour jeter*"
Data "Et pour balancer*"
n%(28) = 5
for i=1 to 5: read m$(28,i): next i
' ---------------------------------------------------------------------
Data "sa belle voix#","sa traviata#","sa glotte au gars#","son troulala#"
Data "son tralala#","sa grosse voix#"
n%(29) = 6
for i=1 to 6: read m$(29,i): next i
' ---------------------------------------------------------------------
Data "Il ouvre un large bec*","Il écarte ses lippes*"
Data "Il baille de plus belle*","Il ouvre ses grandes lèvres*"
n%(30) = 4
for i=1 to 4: read m$(30,i): next i
' ---------------------------------------------------------------------
Data "et laisse tomber*","et lui lâche*","et lui déverse*","et lui flanque*"
Data "et lui balance*","et lui refile*","et lui jette*"
n%(31) = 7
for i=1 to 7: read m$(31,i): next i
' ----------------------------------------------------------------------
Data "sa proie#","son bien à soi#","son ver pantois#","son galimatias#"
Data "tout son bla-bla#","ses falbalas#","ses chipolatas#","son ver à soi#"
n%(32) = 8
for i=1 to 8: read m$(32,i): next i
' ----------------------0------------------------------------------------
Data "Le renard*","Le compère*","Le frustre*","Le filou*","Le malin*"
Data "Le voleur*","Le rusé*","Le farceur*","Le roublard*","Le bandit*"
n%(33) = 10
for i=1 to 10: read m$(33,i): next i
' ----------------------------------------------------------------------
Data "s'en saisit*","se la radine*","s'en empare*","se la bâille belle*"
Data "s'en empiffre*", "s'en délecte*","se l'attrape*","se la mange*"
data "se le chope*"
n%(34) = 9
for i=1 to 9: read m$(34,i): next i
' ----------------------------------------------------------------------
Data "et dit <Mon bon Monsieur#","et lui dit <Gros bêta#","et lui ajoute:#"
Data "et balance <Hé bougre#","et lui dit <Quelle aubaine#"
n%(35) = 5
for i=1 to 5: read m$(35,i): next i
' -----------------------------------------------------------------------
Data "Apprenez*","Sachez*","Oyez bien*","Prêtez vos écoutes*"
Data "Écoutez moi*","Dites vous bien*"
n%(36) = 6
for i=1 to 6: read m$(36,i): next i
' -----------------------------------------------------------------------
Data "que tout flatteur#","que tout crétin#"
Data "espèce d'idiot qu'on#","que tout vrai croulant#"
Data "toute bébête que vous êtes#", "que tout bougre d'animal#"
Data "que tout simplet#","que tout tout bénêt#"
n%(37) = 8
for i=1 to 8: read m$(37,i): next i
' -----------------------------------------------------------------------
Data "Vit*","Pleure*","Rit*","Hurle*","Croasse*","Trépigne*","Sautille*"
Data "S'énerve*"
n%(38) = 8
for i=1 to 8: read m$(38,i): next i
' -----------------------------------------------------------------------
Data "aux dépens*","en baillant*","en dormant*","en pouffant*","en rasant*"
Data "en se peignant*","en râlant*","en pleurant*","en rageant*"
n%(39) = 9
for i=1 to 9: read m$(39,i): next i
' -----------------------------------------------------------------------
Data "de celui*","avec celle*","au quidam*","au loustic*","oui ma foi*"
Data "du pépère*","au poivrot*","au larron*","nom d'une pipe*","de la taupe*"
n%(40) = 10
for i=1 to 10: read m$(40,i): next i
' -----------------------------------------------------------------------
Data "qui l'écoute#","sur sa moumoute#","à bord toute#","de la soute#"
Data "qui en goûte#","à sa louloute#","qui se dégoûte#","qui fait bonne route#"
n%(41) = 8
for i=1 to 8: read m$(41,i): next i
' -----------------------------------------------------------------------
Data "Cette leçon*","Cette image*","Ce résultat*","Ce machin*","Cette chose*"
Data "Ce truc*","Ce filon*"
n%(42) = 7
for i=1 to 7: read m$(42,i): next i
' -----------------------------------------------------------------------
Data "vaut bien*","équivaut à*","se vend pour*","se vaut pour*","ne vaut pas*"
n%(43) = 5
for i=1 to 5: read m$(43,i): next i
' ------------------------------------------------------------------------
Data "un fromage*","un plumage*","du tapage*","un hommage*","un roi mage*"
Data "une image*","un potage*","un visage*","une belle page*"
n%(44) = 9
for i=1 to 9: read m$(44,i): next i
' -------------------------------------------------------------------------
Data "sans doute>#","en route>#","en avant toute>#","dans ma soute>#"
Data "sous ma moumoute>#"
n%(45) = 5
for i=1 to 5: read m$(45,i): next i
' --------------------------------------------------------------------------
Data "Le corbeau*","Le moineau*","Le loriot*","Le finaud*","Le pierrot*"
Data "Et l'oiseau*","Le Julot*","Le poivrot*","L'asticot*"
n%(46) = 9
for i=1 to 9: read m$(46,i): next i
' -------------------------------------------------------------------
Data "honteux*","miteux*","minable*","avachi*","vilipendé*","déconfit*"
Data "rabougri*","aplati*"
n%(47) = 8
for i=1 to 8: read m$(47,i): next i
' --------------------------------------------------------------------
Data "et confus#","et obtus#","et moulu#","et mal foutu#","et ne jouant plus#"
Data "et perdu#","et pas poilu#","et vermoulu#","et comme tout nu#"
Data "et tordu#"
n%(48) = 10
for i=1 to 10: read m$(48,i): next i
' ---------------------------------------------------------------------
Data "Jura*","Hurla*","Fila*","Pleura*","Cria*","S'envola*","Se terra*"
Data "Se répéta*","Se dit*","S'aplatit*","S'évapora*"
n%(49) = 11
for i=1 to 11: read m$(49,i): next i
' --------------------------------------------------------------------
Data "mais un peu tard*","tout de suite*","en un tournemain*","à la volée*"
Data "à l'instant*","en cinq secs*","là où il veut*","tant qu'il peut*"
Data "à tous les vents*"
n%(50) = 9
for i=1 to 9: read m$(50,i): next i
' --------------------------------------------------------------------
Data "qu'on ne l'y prendrait plus&","qu'on ne l'aura plus&"
Data "qu'on ne le refera plus&","qu'on ne l'attrapera plus&"
Data "qu'on ne le verra plus&"
n%(51) = 5
for i=1 to 5: read m$(51,i): next i
' ======================================================================
LABEL Deb_Groupe, Fin_Groupe
dim a%, b, mot$, signe$, sw%, vers$, z%
'
sw% = 0
Deb_Groupe:
sw% = sw% + 1
' Sélection directe du mot dans le groupe
a% = n%(sw%)
z% = int(rnd(a%))+1
mot$ = m$(sw%,z%)
' Séparation du signe en fin de mot
signe$ = right$(mot$,1) : b = len(mot$)-1 : mot$ = left$(mot$,b)
' Ecriture du vers
print mot$;
' if signe$ = "*" then print " ";: goto Fin_Groupe
if signe$ = "#" then print
if signe$ = "&" then print "." : print
print " ";
Fin_Groupe:
if sw% < 47 then goto Deb_Groupe
if signe$ <> "&" then goto Deb_Groupe
END
Accueil 
Calendrier
