'SETPORT.FRM -- ARB/FN Function Gen Program
'               Set Generator Port Dialog Box

COMMON SHARED BaseAddress%, NewWave%      'Global Variables

SUB BlinkLEDButton_Click ()
    SHARED BaseAddress%
    DIM X AS INTEGER, Y AS INTEGER

    FOR Y = 1 TO 10
        OUT BaseAddress% + 2, 8
        FOR X = 1 TO 10000: NEXT X
        OUT BaseAddress% + 2, 4
        FOR X = 1 TO 10000: NEXT X
    NEXT Y

END SUB

SUB ExitButton_Click ()
    SETPORT.HIDE
END SUB

SUB Option278_Click ()
    SHARED BaseAddress%
    BaseAddress% = &H278
END SUB

SUB Option378_Click ()
    SHARED BaseAddress%
    BaseAddress% = &H378
END SUB

SUB Option3BC_Click ()
    SHARED BaseAddress%
    BaseAddress% = &H3BC
END SUB


