-/* @(#) pf_main.c 98/01/26 1.2 */\r
-/***************************************************************\r
-** Forth based on 'C'\r
-**\r
-** main() routine that demonstrates how to call PForth as\r
-** a module from 'C' based application.\r
-** Customize this as needed for your application.\r
-**\r
-** Author: Phil Burk\r
-** Copyright 1994 3DO, Phil Burk, Larry Polansky, David Rosenboom\r
-**\r
-** The pForth software code is dedicated to the public domain,\r
-** and any third party may reproduce, distribute and modify\r
-** the pForth software code or any derivative works thereof\r
-** without any compensation or license. The pForth software\r
-** code is provided on an "as is" basis without any warranty\r
-** of any kind, including, without limitation, the implied\r
-** warranties of merchantability and fitness for a particular\r
-** purpose and their equivalents under the laws of any jurisdiction.\r
-**\r
-***************************************************************/\r
-\r
-#if (defined(PF_NO_STDIO) || defined(PF_EMBEDDED))\r
- #define NULL ((void *) 0)\r
- #define ERR(msg) /* { printf msg; } */\r
-#else\r
- #include <stdio.h>\r
- #define ERR(msg) { printf msg; }\r
-#endif\r
-\r
-#include "pforth.h"\r
-\r
-#ifndef PF_DEFAULT_DICTIONARY\r
-#define PF_DEFAULT_DICTIONARY "pforth.dic"\r
-#endif\r
-\r
-#ifdef __MWERKS__\r
- #include <console.h>\r
- #include <sioux.h>\r
-#endif\r
-\r
-#ifndef TRUE\r
-#define TRUE (1)\r
-#define FALSE (0)\r
-#endif\r
-
-static const char *gErrorMsg32Bit = "ERROR - A long is not 4 bytes. Are we running on a 64-bit machine?!\n";
-\r
-#ifdef PF_EMBEDDED\r
-int main( void )\r
-{\r
- char IfInit = 0; \r
- const char *DicName = NULL;\r
+/* @(#) pf_main.c 98/01/26 1.2 */
+/***************************************************************
+** Forth based on 'C'
+**
+** main() routine that demonstrates how to call PForth as
+** a module from 'C' based application.
+** Customize this as needed for your application.
+**
+** Author: Phil Burk
+** Copyright 1994 3DO, Phil Burk, Larry Polansky, David Rosenboom
+**
+** Permission to use, copy, modify, and/or distribute this
+** software for any purpose with or without fee is hereby granted.
+**
+** THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL
+** WARRANTIES WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED
+** WARRANTIES OF MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL
+** THE AUTHOR BE LIABLE FOR ANY SPECIAL, DIRECT, INDIRECT, OR
+** CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING
+** FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN ACTION OF
+** CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
+** OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
+**
+***************************************************************/
+
+#if (defined(PF_NO_STDIO) || defined(PF_EMBEDDED))
+ #define NULL ((void *) 0)
+ #define ERR(msg) /* { printf msg; } */
+#else
+ #include <stdio.h>
+ #define ERR(msg) { printf msg; }
+#endif
+
+#include "pforth.h"
+
+#ifndef PF_DEFAULT_DICTIONARY
+#define PF_DEFAULT_DICTIONARY "pforth.dic"
+#endif
+
+#ifdef __MWERKS__
+ #include <console.h>
+ #include <sioux.h>
+#endif
+
+#ifndef TRUE
+#define TRUE (1)
+#define FALSE (0)
+#endif
+
+#ifdef PF_EMBEDDED
+int main( void )
+{
+ char IfInit = 0;
+ const char *DicName = NULL;