niveaugourou 3 GOTO For pure GOTO++!
s=*`s'
a=*(99)
§1 retour=*(2)
GOTOGOTO() *(calcs) ?100
§2 GOTOPRINTDUTEXTE() ; « of beer» &s « bottle» &a « of beer on the wall, » &s « bottle» &a
a=-*(1)
retour=*(3)
GOTOGOTO() *(calcs) ?100
§3 GOTOPRINTDUTEXTE() ; « of beer on the wall» &s « bottle» &a ; «Take one down and pass it around,» 
GOTOGOTO() *(1) } }&a{ MULTIPLICATION ?100 {
GOTOFIN
§calcs GOTOGOTO() &retour } }&a-*(1){ MULTIPLICATION ?100{
s=;0
GOTOGOTO() &retour ?100