BEGIN LBUTTON

LBUTTON: EXECUTE PSELECT

PSELECT: MENU  "Select",10,32,56
        OPTION " Upload   ",UPROTOS
        OPTION " Download ",DPROTOS
        OPTION " Quit     ",QUIT
        MEND

UPROTOS: MENU  "Upload Protocols",10,32,56
        OPTION " Xmodem    ",up1
        OPTION " 1K-Xmodem ",up2
        OPTION " Ymodem    ",up3
        OPTION " Zmodem    ",up4
        OPTION " Sealink   ",up5
        OPTION " Quit      ",QUIT
        MEND

CALL:   TYPE 0,36,"PCZM",ENTER
UX:     TYPE "1A"
U1:     TYPE "1B"
UY:     TYPE "1C"
UZ:     TYPE "1D"
US:     TYPE "1E"

up1:    EXECUTE CALL,UX
up2:    EXECUTE CALL,U1
up3:    EXECUTE CALL,UY
up4:    EXECUTE CALL,UZ
up5:    EXECUTE CALL,US
QUIT:   TYPE ""

DPROTOS: MENU  "Download Protocols",10,32,56
        OPTION " Xmodem    ",dn1
        OPTION " 1K-Xmodem ",dn2
        OPTION " Ymodem    ",dn3
        OPTION " Zmodem    ",dn4
        OPTION " Sealink   ",dn5
        OPTION " Quit      ",QUIT
        MEND

DX:     TYPE "2A"
D1:     TYPE "2B"
DY:     TYPE "2C"
DZ:     TYPE "2D",ENTER
DS:     TYPE "2E",ENTER

dn1:    EXECUTE CALL,DX
dn2:    EXECUTE CALL,D1
dn3:    EXECUTE CALL,DY
dn4:    EXECUTE CALL,DZ
dn5:    EXECUTE CALL,DS
