@ SCL is the system control language used on ICL (now Fujitsu) mainframes
@ running the VME2900 operating system.
@
@ It was originally intended to be used to perform batch flow control
@ (assigning files etc) but was extended and made compilable to be able
@ to perform complex mathematics.
@
@ August 2005
@ Steve Hammond
@

PROC BOTTLES IS (@ no parameters required @)
PROCBEGIN

    INT   I_COUNT

    FOR
        I_COUNT
    FROM
        99
    TO
        1
    BY
        -1
    DO
        SYSCALL SEND_MESSAGE (
            MESSAGE = NUMERIC(I_COUNT) +
                      " bottles of beer on the wall" + HEX(15) + @ line feed @
                      NUMERIC(I_COUNT) +
                      " bottles of beer." )
    REPEAT

PROCEND