Il Pescatore
Fabrizio De André
Loading...
Original | La stupefacente versione in linguaggio basic di Daniele (Dan)... |
IL PESCATORE
All'ombra dell'ultimo sole
s'era assopito un pescatore
e aveva un solco lungo il viso
come una specie di sorriso.
Venne alla spiaggia un assassino,
due occhi grandi da bambino,
due occhi enormi di paura,
eran lo specchio d'un'avventura.
E chiese al vecchio, Dammi il pane,
ho poco tempo e troppa fame,
e chiese al vecchio, Dammi il vino,
ho sete e sono un assassino.
Gli occhi dischiuse il vecchio al giorno,
non si guardò neppure intorno
ma versò il vino e spezzò il pane
per chi diceva, Ho sete, ho fame.
E fu il calore di un momento,
poi via di nuovo verso il vento,
davanti agli occhi ancora il sole,
dietro alle spalle un pescatore.
Dietro alle spalle un pescatore,
e la memoria è già dolore,
è già il ricordo di un aprile
giocato all'ombra d'un cortile.
Vennero in spiaggia due gendarmi,
vennero in sella con le armi
e chiesero al vecchio se, li' vicino,
fosse passato un assassino.
Ma all'ombra dell'ultimo sole
s'era assopito un pescatore
e aveva un solco lungo il viso
come una specie di sorriso
e aveva un solco lungo il viso
come una specie di sorriso. | Call Main
Sub AllOmbraDellUltimoSole(p as Pescatore)
Dim Sorriso as Long
Sorriso = CLng(Now)
UltimoSole = True
p.SolcoLungoIlViso = Int(Sorriso)
p.Assopisci()
End Sub
Sub Main
Dim p as Pescatore
Dim g(1) as Gendarme
Dim a as Assassino
Set p = New Pescatore
Call AllOmbraDellUltimoSole(p)
Set a = New Assassino
a.Occhi.Descrizione1 = "Grandi da bambino"
a.Occhi.Descrizione2 = "Enormi di paura"
a.Occhi.Descrizione3 = "Specchi di un avventura"
a.VieniAllaSpiaggia
a.Chiedi(p) = "Dammi il pane, ho poco tempo e troppa fame"
a.Chiedi(p) = "Dammi il vino, ho sete e sono un " & a.GetType
p.Occhi.Dischiudi()
p.GuardareIntorno = False
p.Versa("Vino")
p.Spezza("Pane")
If p.CaloreDiUnMomento = True Then
a.Direzione = "Il vento"
a.DavantiAgliOcchi = "Il sole"
a.DietroLeSpalle = p
a.Memoria.Add("Già dolore")
a.Memoria.Add("Già il rimpianto di un aprile")
a.Memoria(1).Descrizione = "Giocato all'ombra di un cortile"
a.ViaDiNuovo()
End If
Set g(0) = New Gendarme
Set g(1) = New Gendarme
For i = 0 to g.Count
g(i).Descrizione = "In sella"
g(i).ConLeArmi = True
g.Chiedi(p) = "Qui vicino è passato un assassino?"
Next
Call AllOmbraDellUltimoSole(p)
While True
Wend
End Sub |
Main Page
Note for non-Italian users: Sorry, though the interface of this website is translated into English, most commentaries and biographies are in Italian and/or in other languages like French, German, Spanish, Russian etc.