You think BASIC's quaint? Try this:


       01 counter          pic 9(8) comp sync right.
       01 print-line.
          03 print-text    pic x(80).
       78 const-text      value "A Song".
       78 const-true      value "true".
[...]
          move const-text to print-text.
          perform print-para
               until not const-true = "true".
          stop run.

       print-para.
          perform
               display print-line upon console
          varying counter from 1 by 1
               until counter > 100.
       print-para-ext.
          exit.