Idea maker of dialog boxes (PC Prgm) for hp50 and HPprime

[compsystems]

Hello

HPuserEdit editor for (hp48/hp50) http://www.hpcalc.org/details/7587 and
DaisukeEdit (TI89) http://www.ticalc.org/archives/files/fil...39853.html are makers dialog boxes
some enthusiastic for to creating a PC program that generates dialog boxes for hp-prime? similar to hpuserEdit or daisuke edit.

Screenshots:


The idea is to automatically generate code for INPUT cmd and similar on hp-prime

Example extracted from graph3d app

PHP Code:

xmin3D,xmax3D;
ymin3D,ymax3D;
zmin3D,zmax3D;
grid3D,zoom3D;
rotx,roty,rotz,RotM;
xc,yc,zc,dx,dy;
recompute3D;
init3D=0;
minZ,maxZ,minD;
tmode,cmode,showbox=1;
boxpts,blines;
zclip;
xlines,ylines;
rowtrace,coltrace;
xtrace, ytrace;
showplanes;
winx, winy;
triparms;
funcs,oldfuncs;
tridefs,ldefs,ptdefs,zcols,zvals;
fsel,flist,tracefunc;
wiremode,transmode,contour,ptype;
clist,reclist;
mpan;



EXPORT inputbox()
BEGIN
  local xmin=xmin3D,xmax=xmax3D;
  local ymin=ymin3D,ymax=ymax3D;
  local zmin=zmin3D,zmax=zmax3D;
  local zoom=zoom3D,tm=transmode,wm=wiremode;
  local sb=showbox,pt=ptype;
input(
    {
      {xmin,[0],{15,30,0}},
      {xmax,[0],{65,30,0}},
      {ymin,[0],{15,30,1}},
      {ymax,[0],{65,30,1}},
      {zmin,[0],{15,30,2}},
      {zmax,[0],{65,30,2}},
      {zoom,[0],{15,30,4}},
      {tm,0,{90,10,4}},
      {wm,0,{90,10,5}},
      {sb,0,{90,10,6}},
      {pt,{"Surface","3D Contour", "2D Contour"},{15,30,3}},
      {mpan,0,{40,30,5}},
      {showplanes,0,{40,30,6}}
    },
    "Graph 3D Plot Setup",
    {
      "Xmin=", "Xmax=",
      "Ymin=", "Ymax=",
      "Zmin=", "Zmax=",
      "Zoom=",
      "Transparent?", "Show grid?",
      "Show box?", "Type",
      "Mouse Pan?",
      "Show Planes?"
    },
    {
      "Enter the value of left side of the viewing box",
      "Enter the value of right side of the viewing box",
      "Enter the value of front side of the viewing box",
      "Enter the value of back side of the viewing box",
      "Enter the value of bottom side of the viewing box",
      "Enter the value of top side of the viewing box",
      "Enter the zoom factor (must be > 0)",
      "Render surface with transparency?",
      "Render surface with wireframe?",
      "Show box frame?",
      "Select plot type",
      "Enable mouse panning?",
      "Show cross-sectional planes in trace mode?"
     })
END;