ALPHA Script - Example

<html>
    <head>
        <title>ALPHA Script - Example (Embedded in HTML)</title>
    </head>
    <body>
    <@

        # ALPHA Script - Example #

        DEBUG # Enable debugging #

        PACKAGE Main_Example # Package name #

        DIRECTIVE General # Directive to use #

        VAR:LOCAL New_Var
        VAR:LOCAL Other_Var

        ARRAY:LOCAL My_Array

        SET New_Var 2
        SET Other_Var ' LOL '

        Other_Var.TRIM:BOTH
        My_Array.CLEAR

        IF New_Var = 2 AND Other_Var ! FALSE
            BEGIN
                SET New_Var ((10 / 2) + 5) * 1.5

                PRINT:SCREEN "New_Var is: " + New_Var
            END

        ELSE
            BEGIN
                SET New_Var Other_Var

                PRINT:SCREEN "New_Var is: " + New_Var
            END

        LOOP 100 +1
            BEGIN
                IF COUNTER = 10
                    BEGIN
                        PRINT:SCREEN "It's Done!"
                        BREAK
                    END

                PRINT:SCREEN "Iteration: " + COUNTER
            END

        WHILE New_Var ! 'X'
            BEGIN
                INPUT:KEYBOARD New_Var
                SET My_Array[0] New_Var

                PRINT:SCREEN "Output: " + My_Array
            END

        FUNCTION Test_Func (a, b, c)
            BEGIN
                SET My_Array[1] a
                SET My_Array[2] b
                SET My_Array[3] c

                RETURN "OK"
            END

        CALL Test_Func (-54.3, 'example', 59371) Other_Var

        CLASS:DYNAMIC Test_Class
            BEGIN
                VAR:PUBLIC Class_Var

                METHOD:PUBLIC Test_Method (status)
                    BEGIN
                        PRINT:SCREEN "Class var is: " + Class_Var +
                                     ", Status: " + status
                    END
            END

        SET Test_Class.Class_Var 'chmod 777'

        SYSTEM.RUN Test_Class.Class_Var New_Var

        PRINT:SCREEN "Run: " + New_Var

        TRY
            BEGIN
                SET Other_Var 5 / 0
            END

        CATCH
            BEGIN
                PRINT:SCREEN "Error: Division with zero!"
            END

        VIRTUAL Test_Interface

        Test_Interface.Int_Func Other_Var

        EXIT 1

    @>
    </body>
</html>