Here's one more example to add to the list.  It is in a language called
'DYL-280' (pronounced 'dial 280').

FILE INFILE INPUT FB
WORKAREA
 NUMOFBOTTLES  3  NU
REPORT 80 WIDE
NUMOFBOTTLES = 99
LOOP:
IF NUMOFBOTTLES EQ 0
   LIST 'NO MORE BEER ON THE WALL.'
   STOP
ENDIF
LIST NUMOFBOTTLES () 'BOTTLES OF BEER ON THE WALL,' AT NUMOFBOTTLES+4
LIST NUMOFBOTTLES () 'BOTTLES OF BEER.' AT NUMOFBOTTLES+4
LIST 'TAKE ONE DOWN PASS IT AROUND' AT NUMOFBOTTLES+4
NUMOFBOTTLES = NUMOFBOTTLES - 1
LIST NUMOFBOTTLES () 'BOTTLES OF BEER ON THE WALL.' AT NUMOFBOTTLES+4
LIST '   '
GOTO LOOP
FIN
/*