replace -> with the sto> key :Prompt C :Prompt P :{C,P}->L :Disp L :0->R :Outpt("CBLSEND",L) :Input "CBLGET",R :Disp R