uses StartUp uses Ext.comment /* Subject: Quoted-Printable Date: 21 Feb 2000 01:50:28 GMT From: Wil Baden Organization: MindSpring Enterprises Newsgroups: comp.lang.forth */ : MACRO ( " " -- ) : CHAR PARSE POSTPONE SLITERAL POSTPONE EVALUATE POSTPONE ; IMMEDIATE ; MACRO BACK[ " BEGIN DUP WHILE 1- 2DUP CHARS + C@ " MACRO ]BACK " 0= UNTIL 1+ THEN " MACRO IS-BLANK " 33 - 0< " : TRIM ( str1 len1 -- str1 len2 ) BACK[ IS-BLANK ]BACK ;
Make your own free website on Tripod.com