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