Beijing Paradise BBS Backup

home *** CD-ROM | disk | FTP | other *** search

/ Beijing Paradise BBS Backup / PARADISE.ISO / software / BBSDOORW / GEN3D2.ZIP / GENSCRN.FXP (.txt) < prev next >

Wrap

MS Visual FoxPro App | 1995-02-01 | 122.5 KB | 2,348 lines

TALKz ESCAPEz TRBETz COMPATIBLEz DEVICEz GEN3D.FXP2 GEN3D GEN3D.FXP GEN3D.FXP Geneva MS Sans Serif idxfile.idx Author's Name Company Name Address Country WINDOWSFFlj WINDOWS MACFFlj UNIXFFlj FOXPROFFlj Unknown FoxPro platform Fatal WINDOWS ERROR DO errorhandler WITH MESSAGE(), LINENO(), "Fatal" Invalid number of parameters passed to the generator Fatal PROJDBF RECNO TALKSET 0ESCAPE uTRBETWEEN MDEVICE &LL_DO_3D GEN3D FG_DLGFACE G_DLGSIZE G_DLGSTYLEG_PICEXT EG_BMPEXT tG_ICNEXT G_ICOEXT G_GENPARAMCURSOR CONSOL _^ZEXACT QVSAFETY ^FIXED PRINT DELIMITERSUNIQUE 0MUDFPARMS FIELDS FMFIELDSTO MDECPOINT ORIGPRETEXMCOLLATE MMACDESK FDECI MEMOWIDTH G_CLOSEFILG_CURRENT G_DEFASCH1G_DEFASCH2G_DEFWIN G_ERRLOG G_HOMEDIR G_IDXFILE G_ITSE FG_LASTWINDG_KEYNO G_HAVEHANDG_REDEFI G_SCREEN G_NSCREENSG_NWINDOWSG_MULTREADG_OPENFILEG_ORGHANDLG_OUTFILE G_PROJALIAG_PROJPATHG_RDDIR G_WINDCLAUG_RDDIRNO G_READCYCLG_READLOCKG_READMODAG_READBORDG_RELWIN G_MODDESKTG_SNIPPCNTG_SOMEPOPSG_STATUS G_THERMWIDG_TMPFILE G_TMPHANDLG_WINDOWS G_WITHLISTG_WORKAREAG_GENVERS G_THISVERSG_GRAPHIC G_ISFIRSTPG_PROCSMATG_NOREAD uG_NOREADPLG_DUALOUTPG_BOXSTRG G_VALIDTYPG_VALIDNAMG_WHENTYPEG_WHENNAMEG_ACTITYPEG_ACTINAMEG_DEATTYPEG_DEATNAMEG_SHOWTYPEG_SHOWNAMEG_SHOWEXPRG_SECT1STAG_SECT2STAG_DEVAUTHOG_DEVCOMPAG_DEVADDREG_DEVCITY G_DEVSTATEG_DEVZIP G_DEVCTRY G_ALLPLATFG_NUMPLATFG_PARAMETEG_AREACOUNG_DBLAMPERERRORHANDLG_CORN1 G_CORN2 G_CORN3 uG_CORN4 G_CORN5 vCG_CORN6 G_VERTI2 G_HORIZ G_VERTI1 8G_DBFS G_POPUPS G_SCREENS G_WNDOWS G_WNAMES G_PLATFORMG_PLATPROCG_AREAS OCG_FIRSTPROG_PLATLISTG_PROCS STG_PROCNAMEONERROR SETALL LOPENPROJDBPREPSCREENPREPPLATFOBUILD CLEANUP TEXTMERGE UDFPARMSz FIELDS FIELDSz MEMOWIDTHz CURSORz CONSOLEz BELLz EXACTz SAFETYz DECIMALSz POINTz FIXEDz PRINTz UNIQUEz COLLATEz machine G_WORKAREADELIMITERSMUDFPARMS MFIELDSTO FIELDS MEMOWIDTH CURSOR &CONSOL FEXACT SAFETY STYLEMDECPOINT FIXED tPRINT UNIQUE MCOLLATE MORIGPRETEX SET FIELDS TO &mfieldsto SET DEVICE TO &mdevice SET UDFPARMS TO &mudfparms SET POINT TO "&mdecpoint" SET COLLATE TO "&mcollate" ON ERROR &onerror WORKAREADELILEN RSLDELIMI RDELIMI G_PROJALIACLEANSCRN CLEARAREASG_WORKAREAG_TMPFILE G_IDXFILE DELIMITERSFIELDS RSCURSOR CONSOL tESCAPE EXACT MSAFETY TEXCOMP PRINT _^ZDECI QVMEMOWIDTH FIXED TRBETWEEN TALKSET RSUNIQUE 0ORIGPRETEX WORKAREAG_NSCREENSG_SCREEN G_SCREENS DO eschandler PREPFILE AG_OUTFILE G_ORGHANDLG_TMPFILE G_TMPHANDLH G_HAVEHANDCLOSEFILE G_ORGHANDLG_TMPHANDL> HAVEHANDJ OSEFILE DBALIAS DLTHISPARAM G_SCREEN LG_SCREENS MULTIPLAT CHECKPARAMPLATFORM G_PLATLISTOBJTYPE RSSETUPCODE HAVEHANDCP SEFILE setupcode DOS and Windows setup code has different parameters Fatal HAVEHANDTHISPARAM GETPARAM G_PARAMETECLEANPARAMERRORHANDL WINDOWS curstemp WINDOWS WINDOWS curstemp WINDOWS g_platforms[m.j]f No common platforms in these screens. Press any key. HAVEHANDJ ISPARAM FIRSTSCRN P_CUR METETEMPPLAT MNUMTODEL LIN_AREA RCOUNT RAMG_NSCREENST_PLATFORMG_PLATFORMG_SCREENS DISTINCT MPLATFORM tCURSTEMP G_SCREEN ORMG_THISVERS Cannot open F Fatal FILENAME PARAM TSCRN G_HAVEHANDERRORHANDLy Unable to close the generated file Serious DERRORHANDL Could not find SCX file: Serious Screen is invalid Serious GEN_VERSIOSTATUS NDLPROJDBF SAVEREC NDDBNAME NDLDBALIAS NDG_PROJALIASCRNORDER G_IDXFILE SETID FORMG_KEYNO RMTYPE MG_PROJPATHJUSTFNAME G_NSCREENSG_SCREENS G_WNAMES G_PLATFORMG_FIRSTPROBASENAME OSCREENUSEDNOTEAREA SERRORHANDLPLATFORM SGETPLATFORSTYLE ENSPREPWNAMES2 G_WNDOWS OG_NWINDOWSG_LASTWIND% G_DEFASCH G_DEFASCH2 G_DBFS G_VALIDTYPG_VALIDNAMG_WHENTYPEG_WHENNAMEG_ACTITYPEG_ACTINAMEG_DEATTYPEG_DEATNAMEG_SHOWTYPEG_SHOWNAMEG_SHOWEXPR2 G_WINDCLAUG_RDDIR AMG_RDDIRNO WINDOWS WINDOWS WINDOWS8 Screen is invalid Serious WINDOWS Screen is invalid Serious G_GENVERS PLATFORM ERRORHANDLDBALIAS #WNAM #WNAM #WNAM SCRNNO LINENO TEXTLINE LSETUPCODE KILLCR G_SCREENS G_WNAMES EGETPLATNUMSKIPWHITESPLATFORM .SCXF& DBALIAS FULLDBNAMEILLEGALNAMG_SCREENS G_NSCREENS DNAME START NAMEASCHAR NAMLENGTH projdbf projdbf Invalid 2.0 project file passed to GenScrn. Serious Generator out of date. Serious PROJDBF RECNO NAMEG_PROJALIANOTEAREA AVERSNUM NSDEVINFO NSARRANGED ESYMBOLS UMOBJECT TESG_ERRLOG MSTRIPEXT SG_PROJPATHERRORHANDLREFRESHPREG_KEYNO SETID EENSG_OUTFILE OUTFILE JUSTFNAME G_OPENFILEOPENFILES G_CLOSEFILCLOSEFILESG_DEFWIN LDEFWINDS SG_RELWIN RRELWINDS SG_READCYCLREADCYCLE G_READLOCKNOLOCK TEXG_READMODAMODAL FG_READBORDNOLOGO G_MULTREADMULTREADS G_ALLPLATFSAVECODE 2GETWITHLIS G_WITHLISTASSOCWINDS Missing header record in Serious START LISTTYPE WINDSERRORHANDLPROJDBF AASSOCWINDSG_HOMEDIR HOMEDIR JUSTPATH ALLDIGITS JUSTSTEM MG_TARGET JPATHG_DEVAUTHOSUBDEVINFOG_DEVCOMPAG_DEVADDREG_DEVCITY G_DEVSTATEG_DEVZIP EG_DEVCTRY CMNTSTYLE G_CORN1 ILG_CORN2 ESG_CORN3 LG_CORN4 SG_CORN5 RG_CORN6 SG_HORIZ CLG_VERTI1 G_VERTI2 LISTI WINDSTHECHAR DLRETVAL START LISTSTOP WINDSDEFAULT DLSTRING ADEVINFO Generating Screen Code... BUILDENABLACTTHERM SUPDTHERM LG_NUMPLATFDISPATCHBUCOMBINE TFBUILDDISABDEACTTHERMR Generating code for F DO CASE Error initializing screens for F Fatal ENDCASE WINDOWS Error initializing screens for F Fatal ILDENABLTHISPLAT DTHERM LG_NUMPLATFCOUNTPLATFPREPPARAMSG_ORGHANDLMULTIPLAT SCANPROC HEADER MGENPARAMETLOOKUPPLATPUTMSG OVERSIONCAPG_DUALOUTPGENCASESTMG_GENVERS G_THISVERSG_NSCREENSPREPSCREENERRORHANDLNEWWINDOWSNEWDBFS ESNEWREADCLANEWDIRECTINEWSCHEMESPUSHINDENTBUILDCTRL POPINDENT G_TMPHANDLTHISPRETEXUPDTHERM AGENPROCEDUG_PLATFORMG_ALLPLATF setupcode RELEASE WINDOW <<g_wndows[m.i,1]>> WINDOWS MODIFY WINDOW SCREEN PLTFRM ABLPNUM SPUTPARAM LDBALIAS UNTPLATFG_SCREENS SEEKHEADERG_PARAMETEGETPARAM GENPARAMETGENSECT1 TGENSETENVIG_OPENFILEGENOPENDBFUPDTHERM PTHERMADJ MDEFWINDOWSGENSECT2 SDEFPOPUPS BUILDFMT NG_WINDOWS G_RELWIN SG_NOREAD SG_NWINDOWSG_MODDESKTG_GENVERS GENCLNENVIGENCLEANUP #REGION 0 REGIONAL m.currarea, m.talkstat, m.compstat IF SET("TALK") = "ON" SET TALK OFF m.talkstat = "ON" m.talkstat = "OFF" ENDIF m.compstat = SET("COMPATIBLE") SET COMPATIBLE FOXPLUS WINDOWS m.rborder = SET("READBORDER") SET READBORDER <<IIF(m.g_readborder, "ON", "OFF")>> m.currarea = SELECT() G_NOREADPLG_GENVERS G_CLOSEFIL8 #REGION 0 WINDOWS SET READBORDER &rborder IF m.talkstat = "ON" SET TALK ON ENDIF IF m.compstat = "ON" SET COMPATIBLE ON ENDIF G_CLOSEFILGENCLOSEDBG_SOMEPOPSRELPOPUPS G_NOREADPLG_GENVERS Generating Cleanup Code for PROCCODE Cleanup Code #REGION <<INT(m.i)>> CLOSEFILDBALIAS DBMSG MEPOPSG_GRAPHIC MULTIPLAT VERSIONCAPG_GENVERS G_DUALOUTPPUTMSG G_NSCREENSG_SCREEN TG_SCREENS SEEKHEADERPROCCODE FG_FIRSTPROGETFIRSTPRCOMMENTBLOWRITECODE GETPLATNAM Generating Procedures and Functions CLOSEFILDBALIAS DBMSG MEPOPSPUTMSG G_NSCREENSG_SCREEN PG_ISFIRSTPG_SCREENS SEEKHEADERG_FIRSTPROPUTPROCHEAWRITECODE PROCCODE RGETPLATNAMMULTIPLAT G_PROCSMATOBJTYPE ROISGENPLAT PLATFORM MEXTRACTPRO CRCCODE ILTHISCODE BIN_REC OPSOBJTYPE ISGENPLAT PLATFORM PPROCCODE PLATNAME LG_PLATFORM Supporting Procedures and Functions #REGION <<INT(m.scrnno)>> SCRNNO LFILNAME RMG_ISFIRSTPCOMMENTBLOG_SCREENS PROCEDURE FUNCTION Generating code for procedure/function FF Generating code for procedure/function FF SCRNNO LHASCONTIN ISCONTIN PSNIPLEN SCREENS THISLINE PPNUM PWORD1 WORD2 ADERPROCCODE ONUMLINES AKILLCR WORDNUM MATCH MGETPROCNUMG_PROCS ATEMITPROC OHASCONFLICPUTMSG MUPDTHERM OTHERMADJ OG_PROCNAMEPROCCOMMENG_SCREENS EMITBRACKE PROCEDURE FUNCTION DOWRITE LTHISLINE SNIPLEN PSCRNNO LOWORD1 WORD2 PLINE PUPLINE ADERLASTMLINE ISCONTIN AHASCONTIN PLATNUM G_SCREENS GETPLATNUMG_GENVERS WRITELINE PROCCODE KILLCR MWORDNUM MATCH PROCEDURE <<g_procs[m.pnum,1]>> PARAMETERS <<g_procs[m.pnum,4+3]>> DO CASE CASE <<"_"+g_platlist[m.platnum]>> ENDCASE LSCRNNO WORD1 PWORD2 LOLINE UPLINE PDONE PLASTMLINE ISCONTIN RHASCONTIN CONTIN AG_PROCS PLATNUM PUSHINDENTPUTPROC UMPOPINDENT PROCEDURE FUNCTION PARAMETERS PLATNUM LPROCNUM SCRNNO PIN_REC LOOLDMINE PLINE PUPLINE ISCONTIN RHASCONTIN WORD1 AWORD2 OLDMLINE PLATFORM G_PLATLISTOBJTYPE G_PROCS PROCCODE KILLCR MWORDNUM MATCH OWRITELINE PNAME OCNUM G_PROCNAMEG_PROCS OCNUM OCNAMEG_PROCS m.numlines = MEMLINES(&snipname) m.line = MLINE(&snipname, 1, _MLINE) PROCEDURE FUNCTION SNIPNAME LPROCLINENONUMLINES EWORD1 LOFIRST_SPACKILLCR OLINE PWORDNUM MATCH IN_REC LG_PROCSMATG_SCREEN EG_NSCREENSDBALIAS ACG_SCREENS PROCSMATCHOBJTYPE ISGENPLAT PLATFORM OUPDPROCARR Scanning cleanup snippet for FFF platformf PROCEDURE FUNCTION PARAMETERS Different parameters for F Fatal LNUMLINES TLINE EUPLINE ENSWORD1 ACWORD2 ISCONTIN HHASCONTIN LASTMLINE THISPROC OPUTMSG ARRVERSIONCAPPLATFORM G_DUALOUTPPROCCODE TKILLCR WORDNUM MATCH ADDPROCNAMLASTPROC GETPROCNUMTHISPARAM G_PROCS CLEANPARAMERRORHANDL PNAME LPLATNAME TLINENUM ELASTMLINE ACPLATFORMCOI CONTIN SCONTIN G_PROCNAMEG_PROCS OGETPLATNUMh PLATNAME ATNAME TG_PLATLISTM WINDOWS WINDOWS CASE _WINDOWS OR _MAC && no MAC records in screen WINDOWS CASE _MAC OR _WINDOWS && no Windows records in screen CASE _UNIX OR _DOS && no DOS records in screen CASE _DOS OR _UNIX && no UNIX records in screen CASE _<<m.thisplat>> THISPLAT LHASRECORDSG_DUALOUTP@ PARAMETERS <<m.g_parameter>> G_PARAMETE Generating Setup Code for Setup Code - SECTION 1 #SECT #INSE #REGION <<INT(m.i)>> setup PARAMETEDBALIAS DSSTRING UTPLOOP LOUTPJ ACEND FORMCOMSG HTHISLINE MULTIPLAT VERSIONCAPG_GENVERS G_DUALOUTPPUTMSG G_NSCREENSG_SCREEN TG_SCREENS SEEKHEADERSETUPCODE G_SECT1STAG_SECT2STAFINDSECTIONOTEDIRECTKILLCR COMMENTBLOWRITECODE GETPLATNAM Setup Code - SECTION 2 #SECT #REGION <<INT(m.i)>> setup PARAMETEDBALIAS DSSTRING UTPENDLINE TPSRTLINE ACLINECNT COLCNT HSECT1 SECT2 G_NSCREENSG_SCREEN G_SCREENS SEEKHEADERSETUPCODE G_SECT1STAG_SECT2STALOOP EADERFINDSECTIONOTEDIRECTCOUNTDIRECCOMMENTBLOWRITECODE GETPLATNAM8 #INSE SECT1 METESECT2 DSSCRNNO UTPNUMLINES TLINE ACLCNT COTHISLINE HUPLINE SETUPCODE KILLCR #READ #NORE PLAI SCRNNO ETENUMLINES UTPTHISLINE PUPLINE ACG_NOREAD OG_NOREADPLSETUPCODE KILLCR G_RDDIR G_RDDIRNO G_DBLAMPERG_OPENFILEG_CLOSEFILG_DEFWIN AG_RELWIN #SECT #SECT SECTIONID SLINE UTPLINECNT PTEXTLINE CKILLCR OSECT1 SECT2 EXACTz #DEFI #ELSE #ENDIF #INCLUDE <<m.line>> <<m.line>> <<m.expr>> <<m.line>> SET EXACT &in_exact PLATNAME SSTART UTPEND PSCRNNO CINSETUP OLINECNT UPLINE PLATNUM PENFILEIN_EXACT LGETPLATNUMSUBWINDNAMG_WNAMES REMPTYSUBWIKILLCR AMGENINSERTCISPARAM OISPARAMETEATWNAME WIISCOMMENT G_SCREENS WRITELINE <<m.expr>> #NAME <<m.line>> <<m.line>> #DEFI #ELSE #ENDIF #INCLUDE <<m.line>> <<m.line>> PLATNAME SPLATNUM TPUPLINE PSCRNNO OEXPR GENINSERTCG_WNAMES ATWNAME ISCOMMENT G_SCREENS #INSE SCRNNO SINSETUP TPPLATNAME PWORD1 CFILNAME OWORDNUM INSERTFILEw PARAMETERS ISPAR SMATCH TPWORDNUM STRING TPBEFORE PAFTER TEXTLINE ASTERISK SISNOTE TPAMPERSAND STATEMENT G_DBLAMPERQ SCREENNO VALICLAUSEWHENCLAUSEACTICLAUSEDEATCLAUSESHOWCLAUSEp Read Level Valid FUNCTION <<m.g_validname>> && Read Level Valid SCREENNO LICLAUSEDBALIAS SETHISPRETEXG_VALIDTYPGENFUNCHEAG_VALIDNAMG_MULTREADGENVALIDBOG_NSCREENSG_SCREEN G_SCREENS Error in SCX: Objtype=1 not found Fatal Valid Code from screen: #REGION <<INT(m.region)>> REGION LAUSEPOS SEG_SCREENS OBJTYPE YPPLATFORM AERRORHANDLVALID READVALIDTYPE G_MULTREADBASENAME GENCOMMENTWRITECODE GETPLATNAMm Read Level When FUNCTION <<m.g_whenname>> && Read Level When SCREENNO LAUSEDBALIAS SETHISPRETEXG_WHENTYPEGENFUNCHEAG_WHENNAMEG_MULTREADGENWHENBODG_NSCREENSG_SCREEN G_SCREENS Error in SCX: Objtype=1 not found Fatal When Code from screen: #REGION <<INT(m.region)>> REGION LAUSEPOS SEG_SCREENS OBJTYPE PEPLATFORM AERRORHANDLWHEN TREADWHENTYPE DG_MULTREADBASENAME GENCOMMENTWRITECODE GETPLATNAM Read Level Activate FUNCTION <<m.g_actiname>> && Read Level Activate #REGION <<INT(m.screenno)>> Error in SCX: Objtype=1 not found Fatal Activate Code from screen: #REGION <<INT(m.i)>> SCREENNO LAUSENAME SEG_ACTITYPEGENFUNCHEAG_ACTINAMEG_MULTREADACTIVATE DACTIVTYPE WRITECODE GETPLATNAMG_NSCREENSG_SCREEN DBALIAS AMG_SCREENS OBJTYPE PLATFORM RERRORHANDLBASENAME GENCOMMENT Read Level Deactivate FUNCTION <<m.g_deatname>> && Read Level Deactivate #REGION <<INT(m.screenno)>> Error in SCX: Objtype=1 not found Fatal Deactivate Code from screen: #REGION <<INT(m.i)>> SCREENNO LAUSENAME SEG_DEATTYPEGENFUNCHEAG_DEATNAMEG_MULTREADDEACTIVATEDEACTTYPE WRITECODE GETPLATNAMG_NSCREENSG_SCREEN DBALIAS AMG_SCREENS OBJTYPE PLATFORM RERRORHANDLBASENAME GENCOMMENT Read Level Show FUNCTION <<m.g_showname>> && Read Level Show PRIVATE currwind STORE WOUTPUT() TO currwind #REGION <<INT(m.screenno)>> Show Code from screen: #REGION <<INT(m.i)>> IF NOT EMPTY(currwind) ACTIVATE WINDOW (currwind) SAME ENDIF SCREENNO LAUSECOMMENT SENAME TTYPETHISPRETEXOLDSHOW MESHOWMOD ADG_SHOWTYPEGENFUNCHEAG_SHOWNAMEG_MULTREADSEEKHEADERSHOW CHKSHOW AMSHOWTYPE WRITECODE GETPLATNAMPLACESAYS G_NSCREENSG_SCREEN TDBALIAS MG_SCREENS BASENAME RGENCOMMENTG_NOREADPL SHOW GETS * Commented out by GENSCRN: SHOW GETS statement commented out of SHOW snippet. Minor THELINENO THELINE SEOLDMLINE EUPLINE YPENEWSHOW EXFOUND_ONE LEADSPACE OLDTEXT PETHEWORD EAGETSONLY MULTREADSHOW KILLCR WORDNUM AMERRORHANDLO Show Code from screen: #REGION <<INT(m.g_thisscreen)>> IF SYS(2016) = "<<UPPER(m.windowname)>>" OR SYS(2016) = "*" ACTIVATE WINDOW <<m.windowname>> SAME "" OR SYS(2016) = "*" ACTIVATE SCREEN WINDOWS ' + CHR(13) + ; " + CHR(13) + ; @ <<Vpos>>,<<Hpos>> CLEAR TO <<Vpos+Height>>,<<Hpos+Width>> @ <<Vpos>>,<<Hpos>> SAY <<m.theexpr>> ; SIZE <<Height>>,<<Width>>, <<Spacing>> ENDIF COMMENT SCRNNAME EG_THISSCREISWINDOW ESAYFOUND XWINDOWNAMETHEEXPR OCCUR PEPOS EASTYLE EG_SCREENS OBJTYPE EOBJCODE REFRESH AMPLATFORM EGENCOMMENTG_NOREADPLGENPICTUREEXPR REMODE MPUSHINDENTANYFONT RANYSTYLE TANYPICTUREANYSCHEME POPINDENT Closing Databases IF USED("<<LOWER(stripext(strippath(Tag)))>>") SELECT <<LOWER(stripext(strippath(Tag)))>> ENDIF SELECT (m.currarea) MMENT DBALIAS EDBFCNT CREFIRSTFOUNDG_DBFS UNDG_NSCREENSG_SCREEN G_SCREENS OBJTYPE EAPLATFORM COMMENTBLOUNIQUEDBF G_CLOSEFILs Databases, Indexes, Relations SELECT <<m.g_current>> Please RE-SAVE screen environment... SCREEN: FF Minor DBALIAS ALIAS EDBFCNT CRESTRING UNDMSG UNDFIRSTFOUNDG_NSCREENSG_SCREEN G_SCREENS OBJTYPE PLATFORM COMMENTBLOUNIQUEDBF OSEFILG_DBFS EGENUSESTMTG_CURRENT STRIPPATH ERRORHANDLGENRELATIO, DBFNAME G_DBFS SELECT <<m.name>> IF USED("<<m.name>>") SELECT <<m.name>> select SET ORDER TO ADDITIVE ; ORDER SELECT 0 USE (LOCFILE("<<m.relpath>>","DBF", "Where is <<basename(m.relpath)>>?")); AGAIN ALIAS <<m.name>> ORDER ENDIF FNAME WORKAREA ESAVERECNO MARGIN UNDNAME UNDORDER OUNDTAG CREENSOBJCODE RELPATH FINDRELPATUNIQUE BLOG_CURRENT GENINDEXESINDEXFOUNDGENORDER FULLPATH ERELPATH G_SCREENS G_HOMEDIR TAG "<<m.tag>>" <<basename(m.order)>> TAG "<<m.tag>>" OF <<m.order>> INDEXFOUNDORDER DBFNAME <<m.relpath>> , <<m.relpath>> INDEX <<m.relpath>> SET INDEX TO <<m.relpath>> PLACEMENT EIDXCOUNT RELPATH OBJTYPE DOBJCODE NDWORKAREA SG_SCREENS PLATFORM FINDRELPATNAME ELPATMARGIN DBALIAS EG_NSCREENSG_SCREEN G_SCREENS SEEKHEADERGENRELSTMTS SET SKIP TO <<m.setskip>> SELECT <<m.dbalias>> SELECT <<LOWER(Tag2)>> SET RELATION OFF INTO <<LOWER(Tag)>> SET RELATION TO <<LOWER(Expr)>> INTO <<LOWER(Tag)>> ADDITIVE SET SKIP TO <<m.setskip>> SELECT <<m.g_current>> ALIAS SAVEREC ELAST REENSFIRSTREL FIRSTSEL DBALIAS ERSETSKIP MTOBJTYPE G_SCREENS PLATFORM TOBJCODE BASENAME G_CURRENT NDTAG2 Generating Screen Code for Screen Layout #REGION <<INT(m.sn)>> #ITSE #ITSE #ITSE EDBALIAS NSADJUSTER RECADJUST INCREMENT TSKIP REENS MULTIPLAT VERSIONCAPG_GENVERS G_DUALOUTPPUTMSG G_NWINDOWSG_NSCREENSG_SCREEN SG_SCREENS SEEKHEADERCOMMENTBLOSETUPCODE GENDIRECTIG_NUMPLATFRECS TPLATFORM EUPDTHERM THERMADJ GENUSERCODOBJTYPE ANYWINDOWSGENTEXT EXGENFIELDS GENBOXES UGENLINES MGENPUSH TFGENRADBUT GENINVBUT GENPOPUP FGENCHKBOX GENLIST ISGENPICTUREGENSPINNERCOMMENT LC_COMMENTLL_DO_3D DGEN_3DBX TGEN_3DIS DGENACTISTMG_NOREAD PLACEREAD *# USERPRECOMMAND *# USERPOSTCOMMAND <<m.thecommand>> USERMODE THELINENUMTHELINE NSTHECOMMANDTAGLINE COMMENT HIDE WINDOW ALL ACTIVATE SCREEN SCRNNO INENUMG_NOREADPLSTYLE MANDGENACTWINDG_LASTWINDG_SCREENS G_WNDOWS G_NWINDOWSG_DEFASCH1SCHEME CAPG_DEFASCH2SCHEME2 IF NOT WVISIBLE("<<g_wndows[1,1]>>") ACTIVATE WINDOW <<g_wndows[1,1]>> ENDIF IF NOT WVISIBLE("<<g_wndows[m.pos-1]>>") ACTIVATE WINDOW <<g_wndows[m.pos-1]>> ENDIF SCRNNO INENUMPOS READPLG_NSCREENSG_MULTREADG_NOREADPLG_NWINDOWSG_WNDOWS CYCLE READ contains clauses from SCREEN FF CYCLE SCRNNO THISPRETEXG_MULTREADNEWREADCLAG_READCYCLG_NSCREENSANYMODAL SANYLOCK SDOPLACECLAGENWITHCLAGENGIVENREG_RDDIR H2COMMENTBLOG_SCREENS G_RDDIRNO FINDREADCLGENREADCLAG_TMPHANDLGENCLAUSECG_ORGHANDL' MODAL G_READMODA( NOLOCK G_READLOCKC WITH <<m.g_withlist>> G_WITHLIST' Error in SCX: Objtype=1 not found Fatal SCRNNO ISTTHISPRETEXG_SCREENS OBJTYPE LAPLATFORM LERRORHANDLFINDREADCLGENREADCLAG_TMPHANDLGENCLAUSECG_ORGHANDLi Error in SCX: Objtype=1 not found Fatal SCRNNO ISTDBALIAS EXCUR_REC G_SCREENS OBJTYPE LPLATFORM LERRORHANDLG_VALIDTYPVALID ANDLSETCLAUSEFVALIDTYPE G_VALIDNAMG_WHENTYPEWHEN WHENTYPE FG_WHENNAMEG_ACTITYPEACTIVATE LACTIVTYPE G_ACTINAMEG_DEATTYPEDEACTIVATEDEACTTYPE G_DEATNAMESHOW TTYPESHOWTYPE ORCLAUSEFLG_SHOWNAMEG_SHOWTYPEOBJCODE WSREFRESH EXG_SHOWEXPR FLAGTYPE TMEMO EXNAME GETCNAME FLAGTYPE TMEMO EXNAME GETCNAME VALID ACTIVATE DEACTIVATE G_VALIDTYPGENCLAUSE G_VALIDNAMG_WHENTYPEG_WHENNAMEG_ACTITYPEG_ACTINAMEG_DEATTYPEG_DEATNAMEG_SHOWTYPEG_SHOWNAMEG_SHOWEXPR <<m.keyword>> <<m.name>> <<stripCR(m.name)>> <<m.codename>>() AND (<<stripCR(m.name)>>) <<m.codename>>() AND (<<stripCR(m.expr)>>) KEYWORD YPNAME IDNAMEXPR NTYPECODENAME #READ #READ #READ #READ #READ #READ SCREEN DBALIAS AMG_MULTREADSEEKHEADERSETUPCODE GENDIRECTIG_NSCREENSG_SCREEN EG_SCREENS #REDE #READ <<UPPER(m.newline)>> #WCLA <<UPPER(m.newline)>> #ITSE YPDIRECTIVE NEWLINE AMG_REDEFI SKIPWHITESG_ITSE YPWHITESPACE #REGION <<INT(m.i)>> YPDBALIAS CECNT SPACEANYLISTS G_NSCREENSG_SCREEN G_SCREENS OBJTYPE NSSTYLE EPLATFORM G_SOMEPOPSG_POPUPS RGENPOPDEFI DEFINE POPUP <<g_popups[m.cnt,3]>> ; PROMPT STRUCTURE PROMPT FIELD <<ALLTRIM(Expr)>> PROMPT FILES LIKE <<ALLTRIM(Expr)>> SCROLL MARGIN ; MARK " G_NOREADPLSTYLE CEEXPR PACEG_GENVERS RELEASE POPUPS <<g_popups[1,3]>> <<g_popups[m.i,3]>> , <<g_popups[m.i,3]>> POPCNT CEMARGIN ACEG_POPUPS G_NOREADPLT Window definitions #ITSE #ITSE #ITSE #REDE #REDE #REDE #ITSE #ITSE #ITSE DBALIAS PLPOS CESAVEAREA READPLFIRSTFOUNDI SCREENS G_NSCREENSG_SCREEN EG_SCREENS OBJTYPE PSPLATFORM G_NOREADPLCOMMENTBLOSTYLE OUNDSETUPCODE GENDIRECTIGENWINDEFIGENDESKTOP- WINDOWS MODIFY WINDOW SCREEN ; WINDOWS FONT "FoxFont", 9 MOVE WINDOW SCREEN CENTER CLEAR G_SCREEN LCENTER_FLAARRANGE_FLROW READPLJ RSTFOUNDENTRIES G_SCREENS G_DEFWIN LG_MODDESKTWINDOWFROMG_GENVERS G_PROJALIAGETARRANGEDBALIAS NDANYTITLEORANYFONT TIANYSTYLE IANYWINDOWCANYBORDER PICTURE PEANYWALLPAPANYSCHEME ANYICON MECENTER IF NOT WEXIST("<<m.name>>") ?jFFF OR UPPER(WTITLE("<<UPPER(m.name)>>")) == "<<UPPER(forceext(m.name,'PJX'))>>" ; OR UPPER(WTITLE("<<UPPER(m.name)>>")) == "<<UPPER(forceext(m.name,'SCX'))>>" ; OR UPPER(WTITLE("<<UPPER(m.name)>>")) == "<<UPPER(forceext(m.name,'MNX'))>>" ; OR UPPER(WTITLE("<<UPPER(m.name)>>")) == "<<UPPER(forceext(m.name,'PRG'))>>" ; OR UPPER(WTITLE("<<UPPER(m.name)>>")) == "<<UPPER(forceext(m.name,'FRX'))>>" ; OR UPPER(WTITLE("<<UPPER(m.name)>>")) == "<<UPPER(forceext(m.name,'QPR'))>>" DEFINE WINDOW <<m.name>> ; WINDOWS HALFHEIGHT #WCLA #WCLA #WCLA WINDOWS MOVE WINDOW <<m.name>> CENTER ENDIF G_SCREEN LNAME R_FLAPOS NGE_FLDUPNAME ARRANGE_FLCENTER_FLAIN_PARMS SCREENS G_SCREENS UNIQUEWIN G_NWINDOWSG_WNDOWS G_WINDOWS G_DEFWIN EG_REDEFI DPUSHINDENTG_PROJALIAGETARRANGEDBALIAS WCANYTITLEORANYFONT PEANYSTYLE PANYWINDOWCANYBORDER PICTURE FLANYWALLPAPANYSCHEME ANYICON PESETUPCODE GENDIRECTICENTER POPINDENT DBALIAS LARRANGE_FLCENTER_FLAJ PNAME PNAME E_FLENTRIES LAROW REENS ARRANGED G_GENVERS WINDOWFROM WINDOWS WINDOWS @ <<Vpos>>,<<Hpos>>,<<m.bottom>>,<<m.right>> BOX "<<m.thisbox>><<Fillchar>>" BOX "<<m.thisbox>><<Fillchar>>" BOX "<<m.thisbox>><<Fillchar>>" BOX REPLICATE('<<Boxchar>>',8) BOX REPLICATE("<<Boxchar>>",8) +'<<Fillchar>>' +"<<Fillchar>>" @ <<Vpos>>,<<Hpos>> TO <<m.bottom>>,<<m.right>> @ <<Vpos>>,<<Hpos>>,<<m.bottom>>,<<m.right>> BOX "<<m.thisbox>><<Fillchar>>" BOX "<<m.thisbox>><<Fillchar>>" BOX "<<m.thisbox>><<Fillchar>>" BOX REPLICATE('<<Boxchar>>',8) BOX REPLICATE("<<Boxchar>>",8) +'<<Fillchar>>' +"<<Fillchar>>" @ <<Vpos>>,<<Hpos>> FILL TO <<m.bottom>>,<<m.right>> @ <<Vpos>>,<<Hpos>> TO <<m.bottom>>,<<m.right>> DOUBLE PANEL '<<Boxchar>>' "<<Boxchar>>" BOTTOM LRIGHT E_FLTHISBOX LAG_SCREENS G_SCREEN LHEIGHT WIDTH G_GENVERS FILLCHAR OBJCODE MBOXCHAR COLORPAIR SCHEME DANYPATTERNANYSCHEME ANYPEN ERNANYSTYLE WINDOWS @ <<Vpos>>,<<Hpos>> TO <<m.x>>,<<m.y>> DOUBLE E_FLG_SCREENS G_SCREEN STYLE HEIGHT WIDTH BORDER ANYPEN ANYSTYLE MANYSCHEME WINDOWS ' + CHR(13) + ; ] + CHR(13) + ; " + CHR(13) + ; @ <<Vpos>>,<<Hpos>> SAY <<m.theexpr>> SIZE <<Height>>,<<Width>>, <<Spacing>> @ <<Vpos>>,<<Hpos>> SAY <<m.theexpr>> ; SIZE <<Height>>,<<Width>>, <<Spacing>> THEEXPR LOCCUR E_FLPOS REENS G_SCREENS G_SCREEN HEIGHT ANYPICTUREANYFONT ANYSTYLE ANYSCHEME WINDOWS @ <<Vpos>>,<<Hpos>> SAY <<m.theexpr>> ; SIZE <<Height>>,<<Width>> @ <<Vpos>>,<<Hpos>> GET <<Name>> ; SIZE <<Height>>,<<Width>> THEEXPR LG_SCREENS G_SCREEN OBJCODE ANYFONT ANYSTYLE ANYPICTUREANYSCHEME ELEMRANGE GENTXTRGN GENDEFAULTANYWHEN REANYVALID ANYMESSAGEANYERROR NANYDISABLE WINDOWS @ <<Vpos>>,<<Hpos>> GET <<Name>> ; PICTURE <<Picture>> ; SIZE <<Height>>,<<Width>>,<<Spacing>> ; DEFAULT 0 G_SCREENS G_SCREEN ANYFONT ANYSTYLE ANYWHEN ANYVALID ANYDISABLEANYMESSAGEANYSCHEME WINDOWS @ <<Vpos>>,<<Hpos>> EDIT <<Name>> ; SIZE <<IIF(Height < 1, 1, Height)>>,<<Width>>,<<Initialnum>> G_SCREENS G_SCREEN PICTURE ANYPICTUREGENDEFAULTANYFONT ANYSTYLE EANYTAB AGEANYSCROLL ANYWHEN ANYVALID ANYMESSAGEANYERROR EANYDISABLEANYSCHEME WINDOWS @ <<Vpos>>,<<Hpos>> GET <<Name>> ; SIZE <<Height>>,<<Width>>,<<Spacing>> ; DEFAULT <<Initialnum>> THEPICTUREPICTURE REG_SCREENS G_SCREEN EANYBITMAPCANYFONT REANYSTYLE EANYWHEN GEANYVALID ANYDISABLEANYMESSAGEANYERROR EANYSCHEME WINDOWS @ <<Vpos>>,<<Hpos>> GET <<Name>> ; SIZE <<Height>>,<<Width>>,<<Spacing>> ; DEFAULT <<Initialnum>> THEPICTUREPICTURE REG_SCREENS G_SCREEN EANYBITMAPCANYFONT REANYSTYLE EANYWHEN GEANYVALID ANYDISABLEANYMESSAGEANYERROR EANYSCHEME WINDOWS @ <<Vpos>>,<<Hpos>> GET <<Name>> ; SIZE <<Height>>,<<Width>> ; DEFAULT <<Initialnum>> THEPICTUREPICTURE REG_SCREENS G_SCREEN EANYBITMAPCANYFONT REANYSTYLE EANYWHEN GEANYVALID ANYDISABLEANYMESSAGEANYERROR EANYSCHEME WINDOWS @ <<Vpos>>,<<Hpos>> GET <<Name>> ; PICTURE FROM <<Expr>> WINDOWS SIZE <<Height>>,<<Width>> ; DEFAULT 1 ICTURESTART REG_SCREENS G_SCREEN EPICTURE CHOPPICTURSTYLE EELEMRANGE FROMPOPUP ANYFONT LEANYSTYLE EANYWHEN EANYVALID ANYDISABLEANYMESSAGEANYERROR NANYSCHEME WINDOWS @ <<Vpos>>,<<Hpos>> SAY (LOCFILE("<<m.relpath>>",<<bitmapstr(1)>>, "Where is <<basename(m.relpath)>>?" , "PICT" )) BITMAP ; <<Name>> ; SIZE <<Height>>,<<Width>> CENTER ISOMETRIC STRETCH RELPATH REG_SCREENS G_SCREEN STYLE FINDRELPATPICTURE URJUSTEXT ECENTER BORDER ANYSTYLE WINDOWS @ <<Vpos>>,<<Hpos>> GET <<Name>> ; SPINNER <<VAL(Initialval)>> 1.000 , <<Tag>> , <<Tag2>> PICTURE SIZE <<Height>>, <<Width>> DEFAULT <<VAL(Tag)>> DEFAULT <<VAL(Tag2)>> DEFAULT 1 THEPICTUREPICTURE REG_SCREENS G_SCREEN INITIALVALTAG IALVALTAG2 ECHOPPICTURGENDEFAULTELEMRANGE ANYWHEN EANYVALID EANYDISABLEANYMESSAGEANYERROR EANYFONT NANYSTYLE ANYSCHEME POPUP <<Expr>> ; <<g_popups[m.pos+2]>> ; WINDOWS SIZE <<Height>>,<<Width>> ; DEFAULT " " START TUREPOS RESTYLE G_POPUPS LDBALIAS ALG_SCREENS G_SCREEN WINDOWS @ <<Vpos>>,<<Hpos>> GET <<Name>> ; PICTURE <<m.thepicture>> ; SIZE <<Height>>,<<Width>> ; DEFAULT <<IIF(EMPTY(m.theinitval), '" "', m.theinitval)>> PICTURE "<<ctrlclause(picture)>>" ; FROM <<Expr>> ; SIZE <<Height>>,<<Width>> DEFAULT 1 THEPICTURETHEINITVALG_SCREENS G_SCREEN OBJCODE PICTURE REINITIALVALELEMRANGE ANYFONT ANYSTYLE ANYWHEN EANYVALID EANYDISABLEANYMESSAGEANYERROR EANYSCHEME RANGE <<ALLTRIM(CHRTRAN(Rangelo,CHR(13)+CHR(10),""))>> <<m.genericname>>() GET Low RANGE SPINNER Low RANGE Popup From RANGE , <<CHRTRAN(ALLTRIM(Rangehi),CHR(13)+CHR(10),"")>> <<m.genericname>>() GET High RANGE SPINNER High RANGE Popup From FIRSTELEM GENERICNAMRANGELO LOTYPE OBJTYPE AMADDTOCTRL AMRANGEHI AMHITYPE @ 0,0 CLEAR ACTIVATE WINDOW <<g_screens[m.cnt,2]>> IF WVISIBLE("<<g_screens[m.cnt,2]>>") ACTIVATE WINDOW <<g_screens[m.cnt,2]>> SAME ACTIVATE WINDOW <<g_screens[m.cnt,2]>> NOSHOW ENDIF TELEM G_NOREADPLG_LASTWINDG_SCREENS G_MULTREADV DEFAULT { / / } <<ALLTRIM(m.theinitval)>> THEINITVALINITIALVALFILLCHAR PICTURE <<LEFT(m.picture, AT(" ",m.picture))>>" + ";" + ; (LOCFILE("<<m.relpath>>",<<bitmapstr(1)>>,"Where is <<basename(m.relpath)>>?" ,"PICT" PICTURE PICTURE ALNAME ALVALRELPATH DCOUNT LVALFINDRELPATJUSTEXT CHOPPICTUR< <<LEFT(m.pict,250) + m.quotechar>> + ; <<LEFT(m.pict,250) + m.quotechar>> + ; <<m.pict>> <<m.pict>> ALQUOTECHAR FIRST DISABLE DISABLED PICTURE <<SUBSTR(m.string,2,RAT(LEFT(picture,1),m.string)-2)>> PICTURE <<LEFT(picture,expr_pos-1)>> <<LEFT(picture,1)>> + <<SUBSTR(picture,expr_pos+1,LEN(picture)-expr_pos-1))>> PICTURE <<Picture>> STRING LEXPR_POS NEWSTRING PICTURE G_ITSE ATHASEXPR THEPICTUREG_ITSE SCROLL SCROLLBAR LLBAR WINDOWS FONT "<<Fontface>>", <<Fontsize>> G_SCREENS G_SCREEN WINDOWS STYLE " <<num2style(fontstyle)>> <<Style>> G_SCREENS G_SCREEN FONTSTYLE STYLE ATOBJTYPE WINDOWS PATTERN <<Fillpat>> G_SCREENS G_SCREEN FILLPAT COLOR <<Colorpair>> COLOR SCHEME <<Scheme>> , <<Scheme2>> COLOR SCHEME <<m.g_defasch2>> COLOR SCHEME <<m.g_defasch2>> COLOR SCHEME <<m.g_defasch1>>, <<m.g_defasch2>> WINDOWS COLOR ,RGB( RGB( ,,,,,,,,RGB( RGB( RGB( ,,,,,,,,RGB( <<Penred>>,<<Pengreen>>,<<Penblue>>, <<Fillred>>,<<Fillgreen>>,<<Fillblue>>) ,RGB( <<Penred>>,<<Pengreen>>,<<Penblue>>, <<Fillred>>,<<Fillgreen>>,<<Fillblue>>) COLORPAIR SCHEME OBJTYPE SCHEME2 G_DEFASCH2HEIGHT G_SCREENS G_SCREEN MFILLRED PENRED AMCTRLFLAG EOBJCODE WINDOWS PEN <<Pensize>>, <<Penpat>> G_SCREENS G_SCREEN VALID <<stripcr(m.valid)>> VALID <<m.genericname>>() VALID GENERICNAMVALID VALIDTYPE GETCNAME MADDTOCTRL TITLE <<SUBSTR(m.string, 2, RAT('"',m.string)-2)>> TITLE <<m.thetag>> FOOTER <<SUBSTR(m.string, 2, RAT('"',m.string)-2)>> FOOTER <<m.thetag>> STRING NAMTHETAG DTYPE G_ITSE MTAG2 WHEN <<stripcr(m.when)>> WHEN <<m.genericname>>() GENERICNAMWHEN WHENTYPE GETCNAME MADDTOCTRL ICNAM MESSAGE <<stripcr(m.mess)>> MESSAGE <<m.genericname>>() MESSAGE GENERICNAMMESS MESSAGE MESSTYPE MGETCNAME MADDTOCTRL ERROR <<stripcr(m.err)>> ERROR <<m.genericname>>() ERROR GENERICNAMERR ERROR ERRORTYPE GETCNAME MADDTOCTRL CNAMB FILL "<<Fillchar>>" FILLCHAR <<IIF(Float, "FLOAT ;", "NOFLOAT ;")>> <<IIF(Close, "CLOSE", "NOCLOSE")>> SHADOW MINIMIZE NOMINIMIZE SHADOW MG_GENVERS MINIMIZE NONE DOUBLE PANEL SYSTEM BORDER FILL FILE LOCFILE("<<m.relpath>>",<<bitmapstr(1)>>, ; "Where is <<LOWER(basename(m.relpath))>>?") PICTURE MRELPATH FINDRELPATBASENAME ICON FILE LOCFILE("<<m.relpath>>","<<iconstr()>>", ; "Where is <<LOWER(basename(m.relpath))>>?") ORDER MRELPATH FINDRELPATBASENAME WINDOWS WINDOWS AT <<Vpos>>, <<Hpos>> ; SIZE <<Height>>,<<Width>> FROM INT((SROW()-<<Height>>)/2), INT((SCOL()-<<Width>>)/2) ; TO INT((SROW()-<<Height>>)/2)+<<Height-1>>, INT((SCOL()-<<Width>>)/2)+<<Width-1>> WINDOWS AT <<Vpos>>, <<Hpos>> ; SIZE <<Height>>,<<Width>> FROM <<Vpos>>, <<Hpos>> ; TO <<Height+Vpos-1>>,<<Width+Hpos-1>> WINDOWS AT <<m.xcoord>>, <<m.ycoord>> ; SIZE <<Height>>,<<Width>> FROM <<m.xcoord>>, <<m.ycoord>> ; TO <<Height+m.xcoord-1>>,<<Width+m.ycoord-1>> XCOORD MYCOORD G_SCREENS G_SCREEN CENTER * <<m.g_corn1>><<SAFEREPL(m.g_horiz,57)>><<m.g_corn2>> * <<m.g_verti1>><<SAFEREPL(" ",57)>><<m.g_verti2>> * <<m.g_verti1>> <<DATE()>> <<PADC(UPPER(ALLTRIM(strippath(m.g_outfile))),IIF(SET("CENTURY")="ON",35,37))," ")>> <<TIME()>> <<m.g_verti2>> * <<m.g_verti1>><<SAFEREPL(" ",57)>><<m.g_verti2>> * <<m.g_corn5>><<SAFEREPL(m.g_horiz,57)>><<m.g_corn6>> * <<m.g_verti1>><<SAFEREPL(" ",57)>><<m.g_verti2>> * <<m.g_verti1>> <<m.g_devauthor>> <<SAFEREPL(" ",56-LEN(m.g_devauthor))>><<m.g_verti2>> * <<m.g_verti1>><<SAFEREPL(" ",57)>><<m.g_verti2>> * <<m.g_verti1>> Copyright (c) <<YEAR(DATE())>> <<ALLTRIM(m.g_devcompany)>> <<SAFEREPL(" ",37-LEN(ALLTRIM(m.g_devcompany)))>> <<m.g_verti2>> <<SAFEREPL(" ",37)>><<m.g_verti2>> * <<m.g_verti1>> <<m.g_devcompany>> <<SAFEREPL(" ",56-LEN(m.g_devcompany))>><<m.g_verti2>> * <<m.g_verti1>> <<m.g_devaddress>> <<SAFEREPL(" ",56-LEN(m.g_devaddress))>><<m.g_verti2>> * <<m.g_verti1>> <<ALLTRIM(m.g_devcity)>>, <<m.g_devstate>> <<ALLTRIM(m.g_devzip)>> <<SAFEREPL(" ",50-(LEN(ALLTRIM(m.g_devcity)+ALLTRIM(m.g_devzip))))>> <<m.g_verti2>> COUNTRY * <<m.g_verti1>> <<ALLTRIM(m.g_devctry)>> <<SAFEREPL(" ",50-(LEN(ALLTRIM(m.g_devctry))))>> <<m.g_verti2>> * <<m.g_verti1>><<SAFEREPL(" ",57)>><<m.g_verti2>> * <<m.g_verti1>> Description: <<m.g_verti2>> * <<m.g_verti1>> This program was automatically generated by GENSCRN. <<m.g_verti2>> * <<m.g_verti1>><<SAFEREPL(" ",57)>><<m.g_verti2>> * <<m.g_corn3>><<SAFEREPL(m.g_horiz,57)>><<m.g_corn4>> G_DEVCOMPAG_DEVCTRY * <<m.g_corn1>><<SAFEREPL(m.g_horiz,57)>><<m.g_corn2>> * <<m.g_verti1>><<SAFEREPL(" ",57)>><<m.g_verti2>> * <<m.g_verti1>> <<UPPER(m.procname)>> <<m.from>> <<SAFEREPL(" ",45-LEN(m.procname+m.from))>><<m.g_verti2>> * <<m.g_verti1>> <<UPPER(m.procname)>> <<m.varname>> <<m.from>> <<SAFEREPL(" ",44-LEN(m.procname+m.varname+m.from))>><<m.g_verti2>> * <<m.g_verti1>><<SAFEREPL(" ",57)>><<m.g_verti2>> * <<m.g_verti1>> Function Origin: <<SAFEREPL(" ",40)>><<m.g_verti2>> * <<m.g_verti1>><<SAFEREPL(" ",57)>><<m.g_verti2>> * <<m.g_verti1>><<SAFEREPL(" ",57)>><<m.g_verti2>> * <<m.g_verti1>> From Platform: <<VersionCap(m.g_genvers, .F.)>> <<SAFEREPL(" ",35-LEN(VersionCap(m.g_genvers, .F.)))>> <<m.g_verti2>> * <<m.g_verti1>> From Screen: Multiple Screens <<SAFEREPL(" ",19)>><<m.g_verti2>> <<basename(SYS(2014,DBF()))>> <<SAFEREPL(" ",35-LEN(basename(SYS(2014,DBF()))))>> <<m.g_verti2>> * <<m.g_verti1>> Called By: READ Statement <<SAFEREPL(" ",21)>><<m.g_verti2>> * <<m.g_verti1>> Snippet Number: <<ALLTRIM(STR(m.g_snippcnt,2))>> <<SAFEREPL(" ",35-LEN(ALLTRIM(STR(m.g_snippcnt,2))))>><<m.g_verti2>> * <<m.g_verti1>><<SAFEREPL(" ",57)>><<m.g_verti2>> * <<m.g_corn3>><<SAFEREPL(m.g_horiz,57)>><<m.g_corn4>> * <<m.g_verti1>><<SAFEREPL(" ",57)>><<m.g_verti2>> * <<m.g_verti1>> From Platform: <<VersionCap(m.g_genvers, .F.)>> <<SAFEREPL(" ",35-LEN(VersionCap(m.g_genvers, .F.)))>> <<m.g_verti2>> * <<m.g_verti1>> From Screen: <<basename(SYS(2014,DBF()))>> , Record Number: <<STR(RECNO(),3)>> <<SAFEREPL(" ",10-LEN(basename(SYS(2014,DBF())+STR(RECNO(),3))))>> <<m.g_verti2>> * <<m.g_verti1>> Variable: <<m.varname>> <<SAFEREPL(" ",35-LEN(m.varname))>><<m.g_verti2>> * <<m.g_verti1>> Called By: <<m.from+" Clause">> <<SAFEREPL(" ",35-LEN(m.from+" Clause"))>><<m.g_verti2>> * <<m.g_verti1>> Object Type: <<Object(Objtype)>> <<SAFEREPL(" ",35-LEN(Object(Objtype)))>><<m.g_verti2>> * <<m.g_verti1>> Snippet Number: <<ALLTRIM(STR(m.g_snippcnt,3))>> <<SAFEREPL(" ",35-LEN(ALLTRIM(STR(m.g_snippcnt,3))))>><<m.g_verti2>> * <<m.g_verti1>><<SAFEREPL(" ",57)>><<m.g_verti2>> * <<m.g_corn3>><<SAFEREPL(m.g_horiz,57)>><<m.g_corn4>> PROCNAME AFROM READLEVEL VARNAME G_SNIPPCNTG_NSCREENSG_MULTREADOBJECT MOBJTYPE * <<m.g_corn1>><<SAFEREPL(m.g_horiz,57)>><<m.g_corn2>> * <<m.g_verti1>><<SAFEREPL(" ",57)>><<m.g_verti2>> * <<m.g_verti1>> <<PADC(m.msg,55," ")>> <<m.g_verti2>> * <<m.g_verti1>><<SAFEREPL(" ",57)>><<m.g_verti2>> * <<m.g_corn3>><<SAFEREPL(m.g_horiz,57)>><<m.g_corn4>> DBALIAS ASTRING LEVEL BASENAME VERSIONCAPG_GENVERS * <<m.g_corn1>><<SAFEREPL(m.g_horiz,57)>><<m.g_corn2>> * <<m.g_verti1>><<SAFEREPL(" ",57)>><<m.g_verti2>> * <<m.g_verti1>> <<PADC(m.msg,55," ")>> <<m.g_verti2>> * <<m.g_verti1>><<SAFEREPL(" ",57)>><<m.g_verti2>> * <<m.g_corn3>><<SAFEREPL(m.g_horiz,57)>><<m.g_corn4>> DBALIAS ASTRING LEVEL BASENAME * <<m.msg>> FILENAME ASTRIPPATH STRIPEXT FILENAME ADOTPOS TERMINATOR FILENAME ASLASHPOS NAMELEN ORCOLONPOS PATHNAME ASEPARATOR FILNAME FILNAME FILNAME FILNAME JUSTFNAME FILNAME PNAME JUSTPATH RJUSTFNAME ADDBS WINDOWNAMEWINDCNT FOUND STFNAME FIRST MIDDLE platformf FUNCTION <<m.procname>> && <<m.varname>> <<m.from>> DECIMALSz #REGION <<INT(m.g_screen)>> <<STUFF(m.textline, m.at, m.wnamelen,g_screens[m.g_screen,2])>> <<m.textline>> <<m.textline>> FUNCTION <<m.procname>> && <<m.varname>> <<m.from>> PROCNAME EFROM VARNAME RLINECNT COUNT TEXTLINE GENFUNCTIONOTCOMNT AMTHISPRETEXIN_DEC EPLATNUM EWNAMELEN EUPLINE ETHISPLAT PLATFORM GETPLATNUMG_TMPHANDLGENFUNCHEAKILLCR EOKTOGENERAG_WNAMES OG_SCREEN ATWNAME ISCOMMENT GENINSERTCG_ORGHANDL PROCEDURE FUNCTION PARAMETERS #NAME STATEMENT NOTCOMNT ASTERISK AMPERSAND ISNOTE WORD1 G_DBLAMPERWORDNUM MATCH Push Button Radio Button Check Box Field Popup OBJECTTYPEOBJNAME Merging Files Unsuccessful file merge... Serious Generation Complete TTYPETOP PESTATUS CHUNK G_GRAPHIC G_TMPHANDLG_ORGHANDLERRORHANDL @ 2,1 TO 4,m.g_thermwidth+4 &g_boxstrg TTYPEPROMPT G_GRAPHIC G_OUTFILE THERMFNAMETHERMOMETEG_DLGFACE G_DLGSIZE G_DLGSTYLEG_THERMWIDX PERCENT PENBLOCKS THERMOMETEG_NUMPLATFG_THERMWID, thermomete THERMOMETE Thermometer error! Current > finish. Thermometer error! Finish out of range. OMETECURRENT FINISH ETEASSERT Geneva MS Sans Serif FNAME METEADDELIPSE G_PATHSEP G_THERMFFAG_THERMFSIG_THERMFSTPARTIALFNA FILNAME TEFILLEN BNAME ELIPSE FFAREMAIN FSIG_PATHSEP JUSTFNAME RETSTR JUSTPATH Minor Serious Fatal Thermomete Thermomete TELINENUM ERRCODE CLEANUP FAERRLOG SIG_STATUS ERRSHOW G_HAVEHANDCLOSEFILE G_ORGHANDLG_TMPHANDLTHERMOMETE Generation process stopped. Thermomete Thermomete BUILDDISABG_HAVEHANDG_OUTFILE G_TMPFILE THERMOMETECLEANUP GENERATOR: <<ALLTRIM(m.msg)>> LINE NUMBER: <<m.linenum>> DDISABLINENUM NDOPENERRFILG_ORGHANDL` Genscrn Error Genscrn Error Genscrn Line Number: F m.g_screenf Generating from: FF Press any key to cleanup and exit... Line Number: F m.g_screenf Working on screen: FF Press any key to cleanup and exit...F CURSORz SET CURSOR &curcursor DDISABLINENO NDCURCURSOR G_GRAPHIC ALERT METEG_DLGFACE G_DLGSIZE G_DLGSTYLEDISPMSG LEG_SCREEN LG_SCREENS .ERR could not be opened... Thermomete Thermomete TEXTMERGEz ERRFILE ABERRHANDLE G_ERRLOG ERRSHOW G_STATUS ETHERMOMETE g_platformsf RHANDLE G_PLATFORM g_platformsf g_platforms[m.n]f ABG_PLATFORMw g_platformsf ABG_PLATFORM IF ATC("PARA",&snipname) = 0 m.numlines = MEMLINES(&snipname) m.thisline = UPPER(LTRIM(MLINE(&snipname, 1, _MLINE))) #SECT m.thisline = UPPER(LTRIM(MLINE(&snipname, 1, _MLINE))) PARAMETERS m.contin = MLINE(&snipname, 1, _MLINE) #SECT EXTERNAL SNIPNAME PLATFORMTHISPARAM NUMLINES MTHISLINE EWORD1 METECONTIN KILLCR EG_DBLAMPERISCOMMENT WORDNUM RMATCH EXACTz CANDIDATE KEYWORD RMIN_EXACT RETLOG W_NUM RET_STR MSTRT_POS #NAME #NAME SNIPPET DIRNAME RMKILLCR G_AREAS G_AREACOUN8 AREAS G_AREACOUNG_AREAS ticktockf TICKTOCK BUCKET TICKTOCK BUCKET TICKTOCK G_GRAPHIC MS-DOS and UNIX WINDOWS Windows and Macintosh Macintosh and Windows and MS-DOS RETSTRG G_ALLPLATFG_NUMPLATF[ ALLPLATFG_SCREENS PLATFORM NOBJTYPE PLNUM LATFG_SCREENS PLATFORM ** Start of inserted file <<m.incfn>> <<REPLICATE(m.g_horiz,32)+"start">> ** End of inserted file <<m.incfn>> <<REPLICATE(m.g_horiz,36)+"end">> * Inserted file <<m.incfn>> not found! INCFN LATFSCRNNO INSETUP NPLATNAME OLDALS INSDBFNAMEOLDMLINE FPTNAME EINSCODE MEWRITECODE FORCEEXT WORDNUM TFSTRG WHICHONE FG_PICEXT G_BMPEXT NG_ICNEXT G_ICOEXT G_ICNEXT FG_ICOEXT ICOEXT BIUOSCE- ICOEXT STYLECHARSOUTSTRG PICTSTRG FSPOS SETALL CLEANUP CLEANSCRN BUILDENABL BUILDDISAB PREPPARAMS CLEANPARAM CHECKPARAM PREPPLATFO PREPFILE CLOSEFILE PREPSCREEN NEWWINDOWS NEWSCHEMES NEWDBFS NEWREADCLA NEWDIRECTI GETPLATFOR PREPWNAMES SCREENUSED ILLEGALNAM OPENPROJDB GETWITHLIS REFRESHPRE ALLDIGITS SUBDEVINFO BUILD DISPATCHBU BUILDCTRL GENSETENVI GENCLNENVI GENCLEANUP GENPROCEDU PROCSMATCH ISGENPLAT PUTPROCHEA EXTRACTPRO EMITPROC EMITBRACKE PUTPROC GETPROCNUM HASCONFLIC GETFIRSTPR SCANPROC UPDPROCARR ADDPROCNAM GETPLATNUM GENCASESTM GENPARAMET GENSECT1 GENSECT2 COUNTDIREC NOTEDIRECT FINDSECTIO WRITECODE WRITELINE GENINSERTC ISPARAMETE ATWNAME ISCOMMENT GENCLAUSEC VALICLAUSE GENVALIDBO WHENCLAUSE GENWHENBOD ACTICLAUSE DEATCLAUSE SHOWCLAUSE CHKSHOW PLACESAYS GENCLOSEDB GENOPENDBF UNIQUEDBF GENUSESTMT FINDRELPAT GENORDER GENINDEXES GENRELATIO GENRELSTMT BUILDFMT GENUSERCOD ANYWINDOWS GENACTISTM PLACEREAD ANYMODAL ANYLOCK GENWITHCLA DOPLACECLA FINDREADCL SETCLAUSEF ORCLAUSEFL GENREADCLA GENCLAUSE GENGIVENRE GENDIRECTI SKIPWHITES DEFPOPUPS GENPOPDEFI RELPOPUPS DEFWINDOWS GENDESKTOP GENWINDEFI GETARRANGE GENBOXES GENLINES GENTEXT GENFIELDS GENINVBUT GENTXTRGN GENPUSH GENRADBUT GENCHKBOX GENLIST GENPICTURE GENSPINNER FROMPOPUP GENPOPUP ELEMRANGE GENACTWIND GENDEFAULT ANYBITMAPC CHOPPICTUR ANYDISABLE ANYPICTURE HASEXPR ANYSCROLL ANYTAB ANYFONT ANYSTYLE ANYPATTERN ANYSCHEME ANYPEN ANYVALID ANYTITLEOR ANYWHEN ANYMESSAGE ANYERROR ANYFILL ANYWINDOWC ANYBORDER ANYWALLPAP ANYICON WINDOWFROM HEADER GENFUNCHEA COMMENTBLO PROCCOMMEN GENCOMMENT SAFEREPL BASENAME STRIPEXT STRIPPATH STRIPCR ADDBS JUSTFNAME JUSTSTEM JUSTPATH JUSTEXT FORCEEXT UNIQUEWIN ADDTOCTRL OKTOGENERA OBJECT COMBINE ACTTHERM UPDTHERM DEACTTHERM THERMADJ THERMFNAME PARTIALFNA ERRORHANDL ESCHANDLER ERRLOG ERRSHOW OPENERRFIL PUSHINDENT POPINDENT COUNTPLATF LOOKUPPLAT HASRECORDS GETPARAM MATCH WORDNUM GETCNAME NOTEAREA CLEARAREAS INITTICK ETCLAU PUTMSG HENTT VERSIONCAP MULTIPLAT SEEKHEADER GETPLATNAM INSERTFILE VERSNUM SHOWSTAT KILLCR ASSERT BITMAPSTR ICONSTR STYLE2NUM NUM2STYLE CTRLCLAUSE C:\FOXPRO\ GENSCRN.FXP C:\FOXPRO\GENSCRN.PRG