Irodalom a hálózaton
egy üres karosszék
egy üres karosszék
egy üres karosszék
Rhodéziában készült
Mája-földön készült
a Rajna mélyén készült
Aszoka király ül benne
Hacsepszut császárnő ül benne
egy dinoszaurusz ül benne
Petrarca elektrokardiogrammja ül benne
hordágyon visznek ül benne
egy lábszárcsont a Szaharában ül benne
Lidérc lidérce ül benne
összes verseim ül benne
az új szintézis ül benne
egy sejt nem fogant meg ül benne
Vízöntő-Messiás ül benne
Argentínába utaztam ül benne
sóhaj-tengervíz ül benne
kék viszontlátásod ül benne
pitvarlibegés ül benne
Ülbenne fehéren ül benne
egy üres karosszék
egy üres szandál
egy üres csókörvény
fájdalomföld
fájdalomfény
fájdalomfelhő
te vagy te vagy szomorú asszony!
Papp Tibor átirata:
egy forró karóra
egy forró karóra
egy forró karóra
Kongóban repedt ketté
Inka-földön repedt ketté
a Visztula torkolatában repedt ketté
Dagobert király hasal alatta
Meztelen császárnő hasal alatta
egy gerincoszlop hasal alatta
Majakovszki fénymásolata hasal alatta
lócán itatnak hasal alatta
egy vasmacska a Pusztában hasal alatta
Fiuma fiúja hasal alatta
első balladáim hasal alatta
az izgalmas gittrágás hasal alatta
egy csukló nem csuklott össze hasal alatta
Sárdagasztó-Mózes hasal alatta
Patagóniába repültem hasal alatta
reménység-talajvíz hasal alatta
ultramarin búcsúd hasal alatta
mozdonyzokogás hasal alatta
Hasalalatta sápadtan hasal alatta
egy forró karóra
egy forró zokni
egy forró simogatáshullám
szenvedésszörp
szendvedéssziget
szenvedésszikra
te voltál, te voltál szederjes kamaszlány
’John Peter: Artificial versifying <enter> ’Computer version 1.0 by András Barta <enter> restore <enter> dim x $(2,6,9), b (6) <enter> for i%=1 to 2 <enter> for j%=1 to 7- (3- i%) <enter> for k%= 1 to 9 <enter> read x $ (i%, j%, k%) <enter> next <enter> next <enter> next <enter> data ”Tetrica”, ”Ardua”, ”Perfida”, ”Improda”, ”Sordida”, ”Impia”, ”Tristia”, ”Turpia”, ”Noxia” <enter> data ”praestabunt”, ”praescribunt”, ”concludunt”, ”praedicunt”, ”perficiunt”, ”consummant”, ”conglomerant”, ”significant”, ”procurant” <enter> data ”jura”, ”acta”, ”vina”, ”verba”, ”dicta”, ”facta”, ”labra”, ”arma”, ”astra” <enter> data ”dolosa”, ”pudenda”, ”proterva”, ”refanda”, ”cruenta”, ”superta”, ”molesta”, ”sinistra”, ”maligna” <enter> data ”nova”, ”alii”, ”tibi”, ”viris”, ”scio”, ”mera”, ”malis”, ”vides”, ”mihi” <enter> data ”Turbida”, ”Ignea”, ”Pessima”, ”Horrida”, ”Aspera”, ”Martia”, ”Barbara”, ”Lurida”, ”Effera” <enter> data ”fata”, ”signa”, ”damna”, ”bella”, ”vincla”, ”sistra”, ”castra”, ”scorta”, ”tela” <enter> data ”sequi”, ”foris”, ”pati”, ”tuis”, ”domi”, ”pate”, ”puto”, ”palam”, ”ferunt” <enter> data ”praemonstrant”, ”prorotant”, ”promittunt”, ”protendunt”, ”producunt”, ”monstarbunt”, ”causabunt”, ”praenarant”, ”promulgant” <enter> data ”tempora”, ”pocula”, ”praelia”, ”verbera”, ”lumina”, ”faedera”, ”agmina”, ”crimena”, ”sidera” <enter> data ”dura”, ”saepe”, ”quaeda”, ”acerba”, ”prava”, ”multa”, ”dira”, ”migra”, ”saeva” <enter> cls <enter> print ”ARTIFICIAL VERSIFYING”<enter> print ”A NEW WAY” <enter> print ”to MAKE LATIN VERSES”. <enter> print ”whereby” <enter> print ”Any one Ordinary Capacity, that only knows the A. B. C. And can count 9” <enter> print ”(though he understands not One Word of Latin, or what a Verse means) may be ” <enter> print ” plainly taught (and in as little time, as this reading is over) how to make” <enter> print ”Thousands of Hexameter and Pentameter Verses, which shall be True Latine, ” <enter> print ”True Verse, and Good Sense.” <enter> print ”By the same hand of JOHN PETER. London, 1679” <enter> 10v = 0 <enter> input ”Do you want a hexameter or a pentameter (H or P)”; a $ <enter> if a$=”h” OR a$=”p” then goto 10 <enter> 11 if a$=”h” OR a$=”H” then v=6 else v=5 <enter> 15 print ”Please, enter a”; v; ”-digit number and then press <enter>” <enter> input a <enter> if int (a / 10 ^ (v-1))) > 9 OR int (a/ (10^(v-1))) < 1 then goto 15 else goto 10 <enter> 20 for 1=1 to v <enter> b(1) = int (a/10^(v-1)) <enter> a=a-b(1)*10^(v-1) <enter> next 1 <enter> v$=”” <enter> print <enter> for m=1 to v <enter> v$=v$+x$((v-4), m, b(m)) +”” <enter> next m <enter> print v$; ”” <enter> print <enter> 100 input ”Do you want one more (Y/N)”: a$ <enter> of a$=”y” then goto 10 <enter> if a$=”n” then end <enter> goto 100 <enter>