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

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;