1 rem: traduccion y adaptacion, amilcar romero
5 a$=">>>> poema 21 <<<<  dewilliam barton":dimn%(27):c=36879:sh=36864
10 v=c-1:s4=c-2:s3=c-3:s2=c-4:s1=c-5:sv=sh+1:sc=sh+2:sr=sh+3:va=peek(sc)
15 print"{clr}{blk}":poke c,234:poke s1,201:poke s4,201
20 for x=0 to 22:poke sc,peek(sc) and 128 or x:pokesr,peek(sr)and129or(x*2)
25 poke sv,69-(x*2):poke sh,17-int(x/2):next
30 poke v,0:poke s1,0:poke s4,0:pokesh,5:pokesv,25:pokesc,va:pokesr,46
35 for t=1 to 140:read w$:next
40 for t=0 to 27:read w:n%(t)=w:next:w=0
45 print spc(10);:for t=1 to 19:gosub 150:next
50 print spc(108);:for t=20 to 22:gosub 150:next
50 print spc(193);:for t=23 to 36:gosub 150:next
60 for t=1 to 2000:next
65 restore
70 print"{clr}":for y=1 to 4:printchr$(13)
74 rem ... no hay ; in el original
75 for z=1 to 7:gosub 100:next:ify=1thenprint"{left},";
80 next:print"{left}.":print"{down}{rvon}barra espaciadora> otro poema":gosub 135
85 get a$:if a$<> " "then85
90 restore
95 goto 70
99 rem ... es rnd(ti) en el original, el mismo es rnd(1)
100 x=int(rnd(0)*5)+1:for t=1 to x:readw$:next
105 if pos (x)+len(w$)>28 then print    chr$(13)tab(3);
109 rem ... no hay ; in el original
110 print w$chr$(32);:gosub 135:if right$(w$,1)=":"then print" {left}";
115 if x=5 then 125
120 for t=1 to 5-x:read w$:next
125 return
135 poke v,15:poke s2,n%(w):poke3,n%(w):rem
140 poke v,0:poke s2,0:poke s3,0:ifn%(w+2)=-1thenw=0:return
145 w=w+2:return
150 print mid$(a$,t,1);:gosub 135:return
200 data insolita,suspicaz,indolente,cruel,tardia
205 data ausensia,presencia,urgencia,tendencia,independencia
210 data la tuya,la mia,la de ellos,la de todos,la de aquellos
215 data cuando,siempre que,mientras que,si,en tanto
220 data la manana,esa casa,una noche,esta mano,la avutarda
225 data permanece,se sostiene,se descubre,retorna,se vuelve
230 data sombria,languida,hospitalaria,indolora,apetecible
235 data si bien,de todos modos,sin embargo,pero,entonces
240 data ciertos,algunos,inciertos,demorados,escasos
245 data pajes blancos,siervos de gleba,polizontes,tiras,esperpentos
250 data persisten,insisten,azuzan,meten cizana,socavan
255 data con que,por que,sin que,aunque,para que
260 data nadie,alguno,uno,alguien,ninguno
265 data afloje;,estalle;,prenda;,se excite;,comprenda;
270 data nadie,cualquiera,esa sombra,otro,la angustia
275 data vendra,comparecera,irrumpira,aparecera,saltara
280 data a verme,a saludarme,a acariciarme,a auscultarme,a constatarme
285 data cuando,ni bien,en tanto,mientras,apenas
290 data la tarde,la penumbra,el moho,esa rosa,tu cara
295 data se tumbe,se hinque,se oriente,se delate,se pierda
300 data quejumbrosamente,pacientemente,parcamente,secamente,indolentemente
305 data dada la,por esta,por aquella,por la,por esa
310 data manera de,mania de,insistencia en,costumbre de,porfia en
315 data reirme de,pensar en,imaginar,alcanzar,no abandonar
320 data aquello que,lo que,eso que,aquello que,eso que
325 data todos,ellos,los monstruos,las viudas,las harpias
330 data desprecian,ansian,desean,aspiran,suspiran
335 data a solas,bajo cuerda,en celo,con reservas,sin falta
345 data 217,400,227,400,227,200,217,400
350 data 213,400,234,200,234,200,227,400
355 data 223,400,230,400,230,400,217,400
360 data 213,600,-1,-1