toblock now written in Forth.

logforth.txt

@@ -13719,6 +13719,16 @@ New forth.lab:
    Added {{ }} nested compile
    Added a LOCAL compatible with tForth
    Added a GET at the free STACK
+For blocks.frt version 5.96.
+
+2015 apr 15
+Added a midi driver in forth.lab.  midi.frt can play the song of
+Jones Jonesforth with different voices.
+
+2015 apr 23
+Added INLING, a namespace to be added to the library.
+Committed midi, number theoretical functions and above.
+Version 5.97.
 
 --------------------
 *SET-SRC should contain a ref to SAVE
@@ -13792,7 +13802,6 @@ The library goes undocumented.
 A very stupid comment line in the description of the memory
 up till EM must be removed.
 
-
 The registers are not properly described in the manual.
 (Not using the names WOR HIP etc.
 Dscovered that maybe POSTPONE should be used instead of COMMA.

toblock.c

@@ -51,7 +51,11 @@ int main( int argc , char **argv )
         if ( 0 == line%16 ) check_index(buffer);
         line += 1;
         count = strlen(buffer);
-        if ( CPL < count ) error("line too long");
+        if ( CPL < count )
+        {
+            fprintf(stderr, "%s\n", buffer );
+            error("line too long");
+        }
         buffer[--count] = '\000';  /* Remove '\n' */
         for(i=0; i<CPL-1; i++)
             putchar(i<count?buffer[i]:' ');

toblock.frt

@@ -0,0 +1,2 @@
+\ $Id$
+Burned down in behalf of toblk.frt