/* THIS IS WRITTEN IN CLIST - A IBM MVS/TSO BATCH LANGUAGE /* THIS LINE IS A COMMENT /* ALEX V FLINSCH SPARROWHAWK@WORLDNET.ATT.NET PROC 0 SET BEER=99 A: WRITE &BEER BOTTLES OF BEER ON THE WALL WRITE &BEER BOTTLES OF BEER WRITE TAKE ONE DOWN AND PASS IT AROUND SET BEER=&EVAL(&BEER-1) IF &BEER ,= 0 THEN GOTO A WRITE NO MORE BOTTLES OF BEER ON THE WALL WRITE NO MORE BOTTLES OF BEER