PDMKPDMCODEGENCODECODE PDM_FSETUPCODESAYSSCODE POPCHOICECODEREGCHECKCODEREGWRITECODEFSEARCHCODE GETPWDCODECODEEXIT2DOSCODEC_ETEXTENDCODE _SYMSTARTSYMSTARTSYMBOLSSYMBOLS_SYMENDSYMEND _FAR_DATAFAR_DATA_FAR_BSSFAR_BSSNULLBEGDATA_DATADATA_CONSTCONST_MSGMSG_BEGBSSBEGBSS_BSSBSS_ENDBSSENDBSSDGROUP` `'͘` ܘ`g ` &`Y `6`G`1`XHhǘ` hHۘH !טh"#H$%ϘH&'˘(()H*+ØH,-H./P__ltable __PLANKTON_VSTD SETCANCELADIRMSGBOXALLTRIMCTRPOSPOPMSGMEMOREADMEMOEDITMENUPDSETCOLORASCAN SETCURSORMEMOWRITBOXSAVEBOXRESTFOPENFEOFFREADLNLEFTATNEXTFCLOSEPDM_INITRJUSTALONGEST SHADOWBOXACHOICEFWRITEFSEEKFREADSUMMER87H CLIPPER^U3۸PSPSP]dd W+/Bdddd$dYd^dUnregistered Trial Version d 9999999999d 4966089783dPDM.EXEddOX4dREGISTER8XdݞFdd d">FyXd# , !! Program file has been corrupted !! d$ *A new copy must be obtained from ClipCode!d%Fd&d(> Fd* d+ d,9 uX9 REG_*d/>d0 d11.05 d2 d4*.PDM F d5 8Xd6'd7'No PDM menu Definition Files were foundd8&Press [Enter] to exit PDM Menu System d:Fd;Fd<d= '*.PDMd> FW+/Bd@dAdC T +V&''dD#PULL-DOWN MENU * DEVELOPMENT SYSTEMdE(c) 1990 ClipCode, PDM version dFSelect PDM Menu Definition FiledG# PgUp PgDn Enter=Select Esc=ExitdIdJ>dLF dM OXdOO6 dPPDM Registered to: FdQFdRRegistered phone number: @R ###-###-####ۆdSF#Loading PDM Menu Definition File...dU>>> ?>>> FdW Fd`dbdd'deYesdfNo&Load PDM menu Definition File to edit?dh>F8X#di'dj?Alt-F1 to edit; then Exit to File Select Menu, & reload changesdkCtl-F1 to Generate Source CodeӠdlPress [Enter] to continue...dn SPECIAL KEYS>>>>Fdo Fdp[dqO>FdrdsYdu0dvdxdydzd{d| d~ Fd!"#$%d$d9XdRd]!dYdY!8X@ PDM_105.DOCdAXd&'d&d(F'N/WddHELP TEXT: PDM_105.DOCddFddEsc=Cancel  PgUp PgDnBG+/Bdd PDM_105.DOCFdO>Fd&d'(FdY)PDM_105.DOC not found...dFddYdY!8Xud'dYesdNo$Exit to file select menu?d>F8X dY"dY dY!ddYV! v8Xd"d#dY5*!)FOX"d*!)F"d#dY!v8XdXd+dd,F+doOFd+,FWrite file to disk?d>F8Xd -FddYddYC!v8X/d 4966089783u>FXd .FdYdYd'/dGENERATE PDM SOURCE CODE/d=This feature is available only in registered versions of PDM.d;Please see the PDM_*.LIC file for registration information.d/FdYddY dYdd"iX dYddO0F%h d$d9$uXYd"# F$d$OX4PDM Option Selected: d$j>>>>>FddYd%1FdY ddYdFdd4U3۸PSPSP]dd2d345678d2.2 3d3GEN4d3PRG3d4dKdKddP*** Program Name: &mFile猍2* Description.: Driver for PDM Menu System program* Language....: Clipper S'87(* LIB required: CC.LIB v0.33, EXTEND.LIB8* Generated by: PDM - the ClipCode Pull Down Menu SystemP***** Set CLIPPER Environment ***SET CURSOR OFFESET DELETED ON && Filter out Deleted Records猍 SET EXACT ONSET SCOREBOARD OFFSET SOFTSEEK OFF T +V& PDMSETUP()$*** Set Color for Initial Screen ***SET COLOR TO ( PDM_CONFG[7] )G@1,0 SAY REPLICATE( CHR( PDM_CONFG[8] ), 1840 ) && char for init screen猍CSET COLOR TO ( PDM_COLOR[1] ) && hcolor when not selected猍@ PDM_CONFG[2],00FSET COLOR TO ( PDM_CONFG[6] ) && color for init bottom panel猍@ PDM_CONFG[4],00E@ PDM_CONFG[4],00 SAY PDM_CONFG[9] && text for init bottom panel猍>MENUPD( 0, 0 ) && just display h menu猍(PRIVATE key, hOpt, vOpt, pdSEL, sv_panelpdSel= 1 DO WHILE .T. INKEY(0)E key= LASTKEY() && key= INKEY(0) misses alt-D猍 DO CASE/ CASE key = 27 && Exit猍 PRIVATE Opts[2] Opts[1]= "Yes" Opts[2]= "No"H * Syntx: message text, [ title,prmpts,colors,mRow,mColm,TmO ]5 IF MSGBOX( "Exit Program to DOS?",.F., Opts ) = 1 EXIT ELSE LOOP ENDIF. CASE key = -9 && F10猍 hOpt= 1 vOpt= 0C CASE ASCAN( PDM_HOTKY, key ) > 0 && If found, returns the ss猍" hOpt= ASCAN( PDM_HOTKY, key ) vOpt= 1 OTHERWISE LOOP ENDCASE IF hOpt < 1 LOOP ENDIF7 sv_panel= BOXSAVE( PDM_CONFG[4],00, PDM_CONFG[4],79 ) pdSel = 1 DO WHILE pdSel <> 0/! pdSel= MENUPD( @hOpt, @vOpt ) IF pdSel > 0\ * Syntx: message text/array, [ title,prmpts,colors,mRow,mColm,TmO ]Z MSGBOX( "PDM Option Selected: "+LTRIM( STR(pdSel) ),.F., .F., .F., .F., .F.,5 ) ENDIF ENDDO WHILE pdSel <> 0 BOXREST( sv_panel )ENDDO SET COLOR TO SET CURSOR ONCLEARLQUIT && End of: MAIN LINE猍P**dV*-N*dW* Function....: PDMSETUP()(* Purpose.....: UDF to Create PDMSETUP()* Parameters..: none8* Generated by: PDM - the ClipCode Pull Down Menu Systemg{ 4* Assumption..: the presence of these PUBLIC arrays:?* : : PDM_HPROM = horizontal menu prompt textK* : : PDM_HCOLM = horizontal starting columns for prompts>* : : PDM_HTRIG = horizontal trigger lettersG* : : PDM_HTPOS = horizontal trigger letter positions<* : : PDM_VSS1 = starting array subscript:* : : PDM_VSS2 = ending array subscript=* : : PDM_VPROM = vertical menu prompt text<* : : PDM_VTRIG = vertical trigger lettersK* : : PDM_VCOLM = vertical starting columns for v promptsE* : : PDM_VTPOS = vertical trigger letter positionst@* : : PDM_VACTV = vertical active status arrayF* : : PDM_COLOR = PDM color strings for SET COLOR TOC* [ 1] hcolor when not selectedH* [ 2] hcolor for unselected triggerE* [ 3] hcolor for selected optionF* [ 4] hcolor for selected trigger9* [ 5] vcolor for boxC* [ 6] vcolor when not selectedH* [ 7] vcolor for unselected triggerE* [ 8] vcolor for selected option KF* [ 9] vcolor for selected triggerE* [10] vcolor for inactive optionA* [11] vcolor for message row>* : : PDM_VMSSG = vertical message help text5* : : PDM_CONFG = PDM configurationA* [1] = expN: box type: 0,1,2D* [2] = expN: row for horiz menuA* [3] = expN: row for box top=* [4] = expN: message row:* [5] = expN: time outM* [6] = expC: color for init bottom panelKG* [7] = expC: color for init screenF* [8] = expN: char for init screenL* [9] = expC: text for init bottom panel* Calls.......: PDM_INIT()$* CC.LIB Calls: ALONGEST(), ATNEXT()* Language....: Clipper S'87* Returns.....: : .T.d*-N*dFUNCTION PDMSETUPdPRIVATE dimh, dimv, ssd9c6d*** MENUPD Horizontal ***ddimh= 6jdFPUBLIC PDM_HPROM[dimh] && horizontal menu prompt textd8Y988ў6OYiZ9d PDM_HPROM[8j]= "98"dYdmRPUBLIC PDM_HCOLM[dimh] && horizontal starting columns for promptsd8Y988ў6OYiZ5d PDM_HCOLM[8j]= :8jdYdEPUBLIC PDM_HOTKY[dimh] && horiz Hot/alt keys INKEY()d8Y988ў6OYiZ5d PDM_HOTKY[8j]= *8jdYdEPUBLIC PDM_HTRIG[dimh] && horizontal trigger lettersd8Y988ў6OYiZ9d PDM_HTRIG[8j]= ";8"dYdOPUBLIC PDM_HTPOS[dimh] && horizontal trigger letter positionsd8Y988ў6OYiZ5d PDM_HTPOS[8j]= <8jdYd=c7d*** PDMENUV Vertical ***ѠdCPUBLIC PDM_VSS1[dimh] && starting array subscriptd8Y988ў6OYiZ4d PDM_VSS1[8j]= >8jdYddimv= 7jdDPUBLIC PDM_VPROM[dimv] && vertical menu prompt textd8Y988ў7OYiZ9d PDM_VPROM[8j]= "=8"dYdCPUBLIC PDM_VTRIG[dimv] && vertical trigger lettersd8Y988ў7OYiZ9d PDM_VTRIG[8j]= "?8"dYdLPUBLIC PDM_VTPOS[dimv] && vertical trigger letter positionsd8Y988ў7OYiZ5d PDM_VTPOS[8j]= @8jdYdGPUBLIC PDM_VACTV[dimv] && vertical active status arraydAFILL( PDM_VACTV, .T. )d8Y988ў7OYiZ?dA8yX*d PDM_VACTV[8j]= .F.ddY PDM_VMSSGdޗA1XdEPUBLIC PDM_VMSSG[dimv] && vertical message help textd8Y988ў7OYiZ9d PDM_VMSSG[8j]= "B8"dYddMPUBLIC PDM_COLOR[11] && PDM color strings for SET COLOR TOdPDM_COLOR[ 1]= ""d) && [ 1] hcolor when not selecteddPDM_COLOR[ 2]= ""d)%&& [ 2] hcolor for unselected triggerdPDM_COLOR[ 3]= ""d)"&& [ 3] hcolor for selected optiondPDM_COLOR[ 4]= ""d)#&& [ 4] hcolor for selected triggerdPDM_COLOR[ 5]= ""d)&& [ 5] vcolor for boxdPDM_COLOR[ 6]= ""d) && [ 6] vcolor when not selecteddPDM_COLOR[ 7]= ""d)%&& [ 7] vcolor for unselected triggerdPDM_COLOR[ 8]= ""d)"&& [ 8] vcolor for selected optiondPDM_COLOR[ 9]= " "d)#&& [ 9] vcolor for selected triggerdPDM_COLOR[10]= " "d)"&& [10] vcolor for inactive optiondPDM_COLOR[11]= " "d")&& [11] vcolor for message row PDM_CONFGdޗA1XcdOdY d>Od d!Pd#CQFDd$DiX d%>Y! d&d( 'd)Kd+Gd,9DRFyXd.DSFFEd0&&E Hd1HOXd2EHTFEd3d5ETFUd7Yd8YYU#1Xd9 EVFHd:H8XEY EHoFd;FGd<8d=PPd?Yd@YF#DIMARR1XdAYF #HORIZMENU1XdBYF#MENUCOL1XdCYF #VERTMENU1XdDYF #HELPTEXT1XdEB7'dGYF#COLORS1XdHYF #PDCONFIG1XdI 'dJY[dKGdLF6'd[>d\E,EVF7d]=7'd^?7'd_@7'd`A7'daWFdcYG #HORIZMENU1Xde"EVFLdfEL;8dgE,EVF<8dhE,EVF*8di"EVFLdj"EVFMdkMLooNdlELN98dmWFdn88dpYG#MENUCOL1XdrEU:ds:cXdtIY9IIўXOYiZdu,EIoVFHdvHOXdwEHU:IdxYVdyIJY9JJўXOYiZ'dz:Jo9Joc:Jd{Yd|۠XId}d~YNdWFdY$G #VERTMENU1Xd"EVFLdEL?8dE,EVFU@8d,EVFLd,EVFMdMLooNdELNח.T.1A8d"EVFLd"EVFMdMLooNdELN=8dWFd88dYG #HELPTEXT1Xd=8-1X)d-B8dWFd88dd"EVFLd"EVFMdMLooNdELNB8dWFd88dY1G#COLORS1Xrd"EVFLd"EVFMdMLooNdELN8dWFd88dYG #PDCONFIG1XdU"1X[d"EVFLd"aEVFMdMLooNdELN8dYdE8ddWFd88dYddYU@1X9dG #VERTMENU1Xd8>KdKKddYxU-1XjdG #VERTMENU1XNdU?8d@8d>A8dU=8dWFd88ddYddY)dDYFdZFdݰYd4kU3۸PSPSP]ddOyX d>Y4ddPGdP 8[FdݰYd4 T +V&U3۸PSPSP]dda`_^]\dbcdefghiIjdklmndopqrdgdhd\cld\sFpUDFd ޗU1X d >ad aPopHeaddޗA1X"d]cmd]sFqdYdmdqdaPopFootdޗA1X"d^cnd^sFrdYdndrddpqGXpYqodorGXoYrod!lmnkd"kOXd#kd$mnold%mRowd'ޗNuXd(ko+Uo_d)mCold*ޗNuXd+Poo+U`d,d._obd/`ocd0_kdd1`oed4(FiN/Wd5d6bcdetFfd7bcdeo6 d8mOX7d9bm T +V&cd:bmeoĶd;d<nOX7d=dnoocd>dnooeoĶd?W+/NdBdCbcdoeo6 dFIY9IIўmOYiZ"dGbIc]IdHYdImOX#dJbIcodKdNnOX%dOdnoocodPdQIY9IIўnOYiZ(dRdnoIoc^IdSYdV_m`_l`oo\UDFuFjdXi(FdYf1FdZghd\jYdp4U3۸PSPSP]ddqzyxwvds{|}~dux{dwvXdx |dy }dz ~d|M6 d}#PDM Development System Registrationd~Fd#This program is now registered to: wdRegistered Phone Number is: x@R ###-###-####ۆd -Enter your name EXACTLY as you registered it:J|Hd Enter your phone number:J@R 999-999-9999}Hd7Enter the code number given to you when you registered:J~Hdddd}{d~|{F1yX<d!!!! Registration Failed !!!!!dFdd؀FX4d*** Registration Successful ***v T +V&hdY1d!!!! ERROR in Registration !!!!ddFddyw{F1Yd4':U3۸PSPSP]dd؁DdzQFDdDvOXdDw؂F؁dv8X d>YddD|؃F؁dDx؂F؁dv8X d>YddD} ؃F؁dDy؂F؁dv8X d>Y>ddD~ ؃F؁dDYFdݰYdd>Yd4 T +V&KU3۸PSPSP]dd؄DdD؄d؅؆؇؈dr؅dD؉F؈dOXdD؉F؈dd9XdDr؊F؆d ؇dOXdDo؉FY`ddriXdvYCdY+dDcov؉F؈dr؅ddYXdvYd4 T +V&5 U3۸PSPSP]dd{؋d،؍؎d؏'ؐ'd؋d{{d،Y9،،љOYiZKd {؎dӀv oӀv؏d؏vؐdYd؍d،Y9،،љiZOYiZdؐ؍dYdYd4( T +V&\ U3۸PSPSP]ddddO6 dd d ݰYd 4O T +V& PDMREG_PARAMREG_NAMEREG_PHONEREG_CODEREG_FILEREGCHECKEXIT2DOSSETCANCELPOPCHVERSIONFCNTADIRATXTMSGBOXFILELISTAHEADAFOOTISEDITTXTPOPCHOICEALLTRIMCTRPOSPOPMSGPDM_FSETUPPDM_CONFGMEMOTMPOPTSMEMOREADMEMOEDITPDM_COLORMENUPDKEYHOPTVOPTPDSELSV_PANELSV_SCRNSV_COLRSETCOLORASCANPDM_HOTKYSV_CRSSETCURSORMEMOWRITGENCODEHDRBOXSAVEBOXRESTPDMFILEMFILEGENFILEMPCOLDIMHDIMVSSPDM_HPROMPDM_HCOLMPDM_HTRIGPDM_HTPOSPDM_VPROMPDM_VSS1zP$|P̌P ̜VV\V;\PߜlVɜ|V͌V ͜PV VV E V #ΌV ΜVV`VOPQ VV  PDM_VTRIGPDM_VTPOSPDM_VACTVPDM_VMSSGFILENAMEF_HDLFLINEPDCMDCURCMDPOSCNTCNT1SS1Q1Q2LENDEBUGMODERWFOPENFEOFFREADLNLEFTCHAR1ATNEXTSAYSSDIMFCLOSEPDM_INITRJUSTAPOPLISTAPOPHEADAPOPFOOTMROWMCOLUDFTRLCBRRCSV_SCRSV_ROWSV_COLSV_COLORPOP_SSMCNTACNTLACNTHACNTFMLENALENLALENHALENFALONGESTSHADOWBOXACHOICEBREGINSPWDNAMESPWDPHONESPWDCODESFILEINISERIALSNEWNAMESNEWPHONE,V