diff -Nurw csrc.orig/pf_all.h csrc/pf_all.h
--- csrc.orig/pf_all.h	2008-07-21 04:58:11.000000000 +0200
+++ csrc/pf_all.h	2010-02-15 03:40:53.000000000 +0100
@@ -22,6 +22,8 @@
 **
 ***************************************************************/
 
+#include <tigcclib.h>
+
 #ifdef PF_EMBEDDED
 	#define PF_NO_INIT
 	#define PF_NO_STDIO
diff -Nurw csrc.orig/pf_core.c csrc/pf_core.c
--- csrc.orig/pf_core.c	2009-02-20 19:38:25.000000000 +0100
+++ csrc/pf_core.c	2010-02-15 04:29:37.000000000 +0100
@@ -74,8 +74,8 @@
 /* TODO move to pf_config.h header. */
 #define DEFAULT_RETURN_DEPTH (512)
 #define DEFAULT_USER_DEPTH (512)
-#define DEFAULT_HEADER_SIZE (120000)
-#define DEFAULT_CODE_SIZE (300000)
+#define DEFAULT_HEADER_SIZE (65502)
+#define DEFAULT_CODE_SIZE (65502)
 
 /* Initialize globals in a function to simplify loading on
  * embedded systems which may not support initialization of data section.
diff -Nurw csrc.orig/pf_inner.c csrc/pf_inner.c
--- csrc.orig/pf_inner.c	2009-02-18 18:59:02.000000000 +0100
+++ csrc/pf_inner.c	2010-02-15 03:55:15.000000000 +0100
@@ -441,7 +441,7 @@
 #define PF_MEMORY_VALIDATOR  (0xA81B4D69)
 		case ID_ALLOCATE:
 			/* Allocate at least one cell's worth because we clobber first cell. */
-			if ( TOS < sizeof(cell) )
+			if ( TOS < (long) sizeof(cell) )
 			{
 				Temp = sizeof(cell);
 			}
diff -Nurw csrc.orig/pf_io.h csrc/pf_io.h
--- csrc.orig/pf_io.h	2008-07-21 04:58:11.000000000 +0200
+++ csrc/pf_io.h	2010-02-15 04:13:01.000000000 +0100
@@ -122,8 +122,8 @@
 		#define sdCloseFile     fclose
 		#define sdInputChar     fgetc
 		
-		#define PF_STDIN  ((FileStream *) stdin)
-		#define PF_STDOUT ((FileStream *) stdout)
+		#define PF_STDIN  ((FileStream *) 0)
+		#define PF_STDOUT ((FileStream *) 0)
 		
 		#define  PF_SEEK_SET   (0)
 		#define  PF_SEEK_CUR   (1)
diff -Nurw csrc.orig/pf_main.c csrc/pf_main.c
--- csrc.orig/pf_main.c	2008-07-21 04:58:11.000000000 +0200
+++ csrc/pf_main.c	2010-02-15 04:14:18.000000000 +0100
@@ -20,6 +20,8 @@
 **
 ***************************************************************/
 
+#include <tigcclib.h>
+
 #if (defined(PF_NO_STDIO) || defined(PF_EMBEDDED))
 	#define NULL  ((void *) 0)
 	#define ERR(msg) /* { printf msg; } */
@@ -55,7 +57,7 @@
 }
 #else
 
-int main( int argc, char **argv )
+void _main( void )
 {
 #ifdef PF_STATIC_DIC
 	const char *DicName = NULL;
@@ -65,19 +67,23 @@
 
 	const char *SourceName = NULL;
 	char IfInit = FALSE;
-	char *s;
+	const char *s;
 	int32 i;
 	int Result;
 
+  int argc = ArgCount();
+
 /* For Metroworks on Mac */
 #ifdef __MWERKS__
 	argc = ccommand(&argv);
 #endif
 
 /* Parse command line. */
-	for( i=1; i<argc; i++ )
+	for( i=0; i<argc; i++ )
 	{
-		s = argv[i];
+		ESI arg = EX_getArg(i);
+		if (GetArgType(arg) != STR_TAG) continue;
+		s = GetStrnArg(arg);
 
 		if( *s == '-' )
 		{
@@ -116,10 +122,13 @@
 	DicName = NULL;
 #endif
 
+  clrscr();
+
 	Result = pfDoForth( DicName, SourceName, IfInit);
 
 on_error:
-	return Result;
+  ngetchx();
+	return;
 }
 
 #endif  /* PF_EMBEDDED */
diff -Nurw csrc.orig/pforth.tpr csrc/pforth.tpr
--- csrc.orig/pforth.tpr	1970-01-01 01:00:00.000000000 +0100
+++ csrc/pforth.tpr	2010-02-15 04:41:10.000000000 +0100
@@ -0,0 +1,89 @@
+[Settings]
+Archive=0
+Pack=0
+Packed Variable=
+Project Name=pforth
+GCC Switches=-Os -Wall -W -Wwrite-strings -ffunction-sections -fdata-sections -DPFORTH_DEFAULT_DICTIONARY="main\pforthd" -fno-strict-aliasing
+Assembler Switches=-g -t
+GNU Assembler Switches=
+Debug Info=0
+Standard Library=1
+Command Line="-i"
+Post-Build Process=
+Use Data Variable=0
+Data Variable=
+Copy Data Variable=1
+Copy Data Variable if Archived=1
+Optimize NOPs=1
+Optimize Returns=1
+Optimize Branches=1
+Optimize Moves=1
+Optimize Tests=1
+Optimize Calculations=1
+Remove Unused Sections=1
+Binary Output=0
+Fargo=0
+Flash OS=0
+Cut Unused Ranges=1
+Reorder Sections=1
+Merge Constants=1
+Initialize BSS=1
+
+[Library Options]
+Use TI-89=1
+Use TI-92 Plus=1
+Use V200=1
+Optimize Calc Consts=0
+Use Kernel=0
+Use PreOS=0
+Minimum AMS Version Defined=1
+Minimum AMS Version=1.01
+Unofficial OS Support=0
+Reloc Format=AMS
+ROM Call Format=Direct
+BSS Ref Format=Kernel
+Data Ref Format=Kernel
+Use F-Line Jumps=0
+Use 4-Byte F-Line Jumps=0
+Use Internal F-Line Emulator=0
+Use Return Value=0
+Enable Error Return=0
+Save Screen=1
+Optimize ROM Calls=0
+
+[File Editing]
+Open File=
+
+[Included Files]
+C File 1=pf_cglue.c
+C File 2=pf_clib.c
+C File 3=pfcompil.c
+C File 4=pf_core.c
+C File 5=pfcustom.c
+C File 6=pf_inner.c
+C File 7=pf_io.c
+C File 8=pf_main.c
+C File 9=pf_mem.c
+C File 10=pf_save.c
+C File 11=pf_text.c
+C File 12=pf_words.c
+C File 13=stdio\pf_io_stdio.c
+Header File 1=pf_all.h
+Header File 2=pf_cglue.h
+Header File 3=pf_clib.h
+Header File 4=pfcompfp.h
+Header File 5=pfcompil.h
+Header File 6=pf_core.h
+Header File 7=pf_float.h
+Header File 8=pf_guts.h
+Header File 9=pf_host.h
+Header File 10=pf_inc1.h
+Header File 11=pfinnrfp.h
+Header File 12=pf_io.h
+Header File 13=pf_mem.h
+Header File 14=pforth.h
+Header File 15=pf_save.h
+Header File 16=pf_text.h
+Header File 17=pf_types.h
+Header File 18=pf_words.h
+
diff -Nurw csrc.orig/stdio/pf_io_stdio.c csrc/stdio/pf_io_stdio.c
--- csrc.orig/stdio/pf_io_stdio.c	2008-07-21 04:58:11.000000000 +0200
+++ csrc/stdio/pf_io_stdio.c	2010-02-15 03:54:42.000000000 +0100
@@ -18,7 +18,7 @@
 ** 941004 PLB Extracted IO calls from pforth_main.c
 ***************************************************************/
 
-#include "../pf_all.h"
+#include "pf_all.h"
 
 /* Default portable terminal I/O. */
 int  sdTerminalOut( char c )
@@ -26,7 +26,7 @@
 	return putchar(c);
 }
 /* We don't need to echo because getchar() echos. */
-int  sdTerminalEcho( char c )
+int  sdTerminalEcho( char c __attribute__((unused)) )
 {
 	return 0;
 }
@@ -41,11 +41,7 @@
 
 int  sdTerminalFlush( void )
 {
-#ifdef PF_NO_FILEIO
-	return -1;
-#else
-	return fflush(PF_STDOUT);
-#endif
+	return 0; /* no flushing needed */
 }
 
 void sdTerminalInit( void )