alias leftof 
    return [left $1 [dec [instr $1 $2]]] 
end alias
 
alias rightof 
    return [mid $1 [inc [instr $1 $2]]] 
end alias
 
alias main 
    # This is a 
      multi-lined comment 
    # 

    ;; This is a single line comment 
    msg "This is a basic msgbox"        ; basic msgbox
    msg "This has a caption" "Caption" 
    msg "This has a caption and a type" "Caption" 64 # 64 = info # 
 
    ;; set command 
    $variableame = "Hello World" 
    msg "$variablename!" "First SEX Script" 
 
    $fullname = [input "What is your full name?" "Full name?"] 

    if [instr $fullname Gates] 
        msg "Are you related to Bill Gates by any change? "Related?" 36 
    else
        msg "Nice to meet you, $fullname!" 
    end if
 
    loop x 3 
        loop y 3 
            msg "coords: $x,$y" "coordinates" 64 
        end loop
    end loop
 
    $firstlastname = [input "Now please enter your first and last name" "Name?"] 
    $firstname = [leftof $firstlastname " "] 
    $lastname = [rightof $firstlastname " "] 
 
    msg "Your first name is: $firstname\nYour last name is: $lastname\n" 
end alias