$set ilusing"System"
      $set ilusing"System.Collections"

       01 alphabetQueue     type "Queue".
       01 item              object reference.

       set alphabetQueue to new type "Queue"()
       invoke alphabetQueue::"Enqueue"("A item")
       invoke alphabetQueue::"Enqueue"("B item")
       invoke alphabetQueue::"Enqueue"("C item")

       display "The initial queue is: "
       perform varying item through alphabetQueue
         display " " item
       end-perform

       display "".
       display "De-Queue an item: " alphabetQueue::"Dequeue"()

       display "".
       display "Afterwards is: "
       perform varying item through alphabetQueue
         display " " item
       end-perform