#####################################

# Sample Application

#####################################

 

application Print

 

string variable Command

 

action bar ShellABCUA is

    pulldown File     text "~File"

      choice Eslpr    text "5.21 ~Original"  parameter is "ESLPR521.EXE"

      choice Eslpr521 text "5.21 ~Patched"   parameter is "ESLPRNT.EXE"

      choice Eslpr53X text "5.~3X"           parameter is "ESLPR2000.EXE"

      choice Eslpr540 text "5.~40"           parameter is "ESLPRXP.EXE"

      choice Eslpr541 text "5.~41"           parameter is "ESLPRXS.EXE"

      choice EslprNew text "~New"            parameter is "ESLPRNEW.EXE"

      choice EslprSP  text "~Special"        parameter is "ESLPRSP.EXE"

        separator

      choice End      text "~End"

      choice Clear    text "~Clear"

        separator

      choice Exit     text "E~xit"

    end pulldown

end action bar

 

primary textual region Primary size 400 200

    at position 100 100

    title bar "ESLPR Test"

    system menu

    minimize button

    maximize button

    size border

    action bar ShellABCUA

    horizontal scroll bar

    vertical scroll bar

 

response to item Clear

    clear Primary

 

response to item End

    stop Print

 

response to item Exit

    exit

 

response to item

    start local Print parameter

    clear Primary

    add to Primary

    insert "Type in any Print command and hit ENTER:\n"

    make Primary cursor visible

    copy "" to Command

 

response to char "\n" from keyboard

    copy textual line (bottom of Primary) from Primary to Command

    add to Primary

    insert "\n"

    send Command "\n" to Print

 

response to char from keyboard

    add to Primary

    insert input

 

response to line from Print

    add to Primary

    insert input "\n"