1 rem: retroversion to english, nick montfort
3 rem: traduccion y adaptacion, amilcar romero
5 a$=">>>> poem 21 <<<<   bya. romero & w. 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(107);:for t=20 to 22:gosub 150:next
50 print spc(189);:for t=23 to 43:gosub 150:next
60 for t=1 to 2000:next
65 restore
70 print"{clr}":for y=1 to 4:printchr$(13)
74 rem ... the original is missing the ;
75 for z=1 to 7:gosub 100:next:ify=1thenprint"{left},";
80 next:print"{left}.":print"{down}{rvon}press space> another poem":gosub 135
85 get a$:if a$<> " "then85
90 restore
95 goto 70
99 rem ... in the original, rnd(ti) which does the same as 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 ... the original is missing the ;
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 your,my,their,everyone's,no one's
205 data incredible,suspicious,lazy,cruel,belated
210 data absence,presence,urgency,tendency,independence
215 data when,whenever,while,if,as
220 data a somber,a languid,some hospitable,a painless,an appealing
225 data tomorrow,house,night,hand,water-bird
230 data remains,upholds,discovers,returns,turns round
235 data although,anyway,nevertheless,however,and then
240 data certain,some,uncertain,lingering,scarce
245 data ingenues,serfs,policemen,detectives,grotesques
250 data persist,insist,egg on,stir up,undermine
255 data as,because,while,although,such that
260 data anyone,someone,one,some person,anyone
265 data loosens;,explodes;,captivates;,excites;,understands;
270 data no one,whichever,that shadow,another,anxiety
275 data will arrive,will appear,will erupt,will appear,will leap out
280 data to see me,to greet me,to caress me,to hear me,to find me
285 data when,as soon as,while,as,just
290 data the evening,the darkness,the mold,that rose,your face
295 data lies down,kneels,turns,denounces,is lost
300 data plaintively,pentiently,curtly,dryly,indolently
305 data given this,for this,for that,by this,so this
310 data method of,mania for,insistence on,habit of,stubbornness for
315 data laughing at,thinking of,imagining,reaching,not abandoning
320 data those who,he who,that one who,those who,that one who
325 data all,they,the monsters,the windows,the harpies
330 data neglect,crave,desire,seek,yearn for
335 data alone,covertly,zealously,with reservations,without fail
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