€DBFPRG½–ÝDBFPRGCODEMESSCLRCODEC_ETEXTENDCODE _SYMSTARTSYMSTARTSYMBOLSSYMBOLS_SYMENDSYMEND _FAR_DATAFAR_DATA_FAR_BSSFAR_BSSNULLBEGDATA_DATADATA_CONSTCONST_MSGMSG_BEGBSSBEGBSS_BSSBSS_ENDBSSENDBSSDGROUPW˜`Ó ˜`<»˜H ˜h ç˜` Ú˜h ߘHû˜H÷˜hÓ˜Hï˜Hë˜(˜Hã˜HߘHÛˆÀȠ€ŒD__ltable __PLANKTON_VSTDALLTRIMAFIELDSMEMOWRITSUMMER87;ˆ €CLIPPER^ éU‹ì3Û¸PS¸PS¸Pš‹å]ËddÇdÆYd9ÝX› d9ÝX€d™ Ð؉d™Ð؉d —؉d!™ ™ †Ø‰d"— ؉d&d'ïï™™O6 d(™ï™ ™O6 d)™ï™™O6 d*€™‹—DBF->PRG Ver. 1.00±d+™™‹—,(C) Copyright 1989, Lucas Computer Services.±d,™™‹—All Rights Reserved.±d-™™‹—Existing .DBF file:±d.™™‹—Name of .PRG to create:±d2™™‹—*Enter .DBF file name WITH extension. Enter—" .PRG file name WITHOUT extension.†±d4™™‹—Leave blank to Quit.±d6™™‹— !!!!!!!!!!!!ØHd7™™‹—!!!!!!!!ØHd8¢d9žÜ—.PRG†Ø‰d:ÉØF‡d>ž3ž3X'd?d@— End DBFPRG.ŒdAdBdC¡dDdIžAyXsdJ™ŒdK™™ ‹— .DBF file "žÉØF†—" not found. Press†— any key to re-enter.7œÈ T3œÌV& Ø冱dMïR‡dNÉØF‡dSY·žAX§dT— ؉dU™ŒdV™™‹— .PRG file "ž†—" already exists.†— Overwrite or Abort (O/A)?†±J— (ans$'OA')—!ØKdX¢dYÉØF‡dZž—O8X d[Yd\d]Y d^Y d_d`Y{üdg™™‹—Creating .PRG file....±dmžØ"¦!dn?Ø ‰doØ ž 'dpØ ž 'dqØ ž 'drØ ž 'dvž ž ž ž ÉØF‡d~—@*:--------------------------------------------------------------ž†Ø‰d€ž—*: File name: †ž†ž†Ø‰dž—*: Date created: †/†ž†Ø‰d‚ž—3*: DBF->PRG†— Ver. 1.00†ž†Ø‰d„ž—@*:--------------------------------------------------------------†ž†Ø‰d‰žž†Ø‰dŠž—DECLARE f_name[†ž ™Ôj†—]†ž† æ¹Ø‰d‹ž—DECLARE f_type[†ž ™Ôj†—]†ž†Ø‰dŒž—DECLARE f_len[†ž ™Ôj†—]†ž†Ø‰dž—DECLARE f_dec[†ž ™Ôj†—]†ž†Ø‰dŽžž†Ø‰d“€Ø‰Y9€ØØÑž OYiZ:d”ž—f_name[†žÓj†—]='†Ø ž†—'†ž†Ø‰d•Y±ÿd–€Ø‰Y9€ØØÑž OYiZ:d—ž—f_type[†žÓj†—]='†Ø ž†—'†ž†Ø‰d˜Y±ÿd™€Ø‰Y9€ØØÑž OYiZ5dšž—f_len[†žÓj†—]=†Ø žÓj†ž†Ø‰dœY¶ÿd€Ø‰Y9€ØØÑž OYiZ5džž—f_dec[†žÓj†—]=†Ø žÓj†ž†Ø‰d Y¶ÿd¡žž†Ø‰d¦ž— CREATE dummy†ž†Ø‰d§žž†Ø‰d­ž— FOR a=1 TO †ž ™Ôj†ž†Ø‰d®ž— APPEND BLANK†ž†Ø‰d¯ž—% REPLACE field_name WITH f_name[a]†ž†Ø‰d°ž—% REPLACE field_type WITH f_type[a] <›†ž†Ø‰d±ž—# REPLACE field_len WITH f_len[a]†ž†Ø‰d²ž—# REPLACE field_dec with f_dec[a]†ž†Ø‰d³ž—NEXT†ž†Ø‰d´ž—CLOSE DATABASES†ž†Ø‰dµžž†Ø‰dºž—>CREATE (FILENAME.EXT) FROM dummy && replace with filename or熗 macro†ž†Ø‰d¼ž—CLOSE DATABASES†ž†Ø‰d½žž†Ø‰dž—ERASE dummy.dbf†ž†Ø‰dÞž†Ø‰dÈž—RETURN†ž†Ø‰dÉžž†Ø‰dÎdÓÉØF‡dÔ™™‹—Writing .PRG file....±dÕžžÉØF‡dÚÉØF‡dÛ™ŒdÜ™™‹— .PRG complete. Press any key....±dÝïR‡dÞÉØF‡dâY`õdî4Ü @U‹ì3Û¸PS¸PS¸Pš‹å]Ëdd™™N6 dðÝ°Ydñ4ªœÈ T3œÌV& DBFPRGNAME_DBFNAME_PRGARRRTLNANSMESSCLRALLTRIMAAL_NAMEL_TYPEL_LENL_DECAFIELDSAMEMOWRIT¾œÌP$œÌ|PǙV­œÌìVLœÍ V* DBFPRG§MESSCLR@Št