[Win32forth-cvs] win32forth/src Dc.f,1.16,1.17

[Rod O. <rod...@us...>]

Update of /cvsroot/win32forth/win32forth/src
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv8073

Modified Files:
	Dc.f 
Log Message:
Rod: enabled printing from the new console

Index: Dc.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/Dc.f,v
retrieving revision 1.16
retrieving revision 1.17
diff -C2 -d -r1.16 -r1.17
*** Dc.f	19 Aug 2008 12:47:52 -0000	1.16
--- Dc.f	25 Aug 2008 18:11:04 -0000	1.17
***************
*** 1427,1437 ****
  : 4print        ( -- )
          four-page fprint single-page ;
! ((
! 80 value MAXCONCOLS
! 80 value conscols
  
  : #print-screen ( start_line lines -- ) \ print a range of lines from saved
                                          \ Forth screen buffer
-         cols to conscols
          cursor-off
          #pages-up ?dup
--- 1427,1437 ----
  : 4print        ( -- )
          four-page fprint single-page ;
! 
! : RowString ( row -- a n )   \ address and length of row (without CR)
!         &the-screen zcount  rot 0 ?DO  13 scan 1 /string 10 skip  LOOP
!         2dup 13 scan nip - ;
  
  : #print-screen ( start_line lines -- ) \ print a range of lines from saved
                                          \ Forth screen buffer
          cursor-off
          #pages-up ?dup
***************
*** 1444,1468 ****
          printer?
          IF      ( -- start lines )
!                 &the-screen -rot
!                 ( -- start lines ) bounds
                  DO
!                         dup getmaxcolrow drop i * +       \ line starting addr
!                         conscols MAXCONCOLS max getmaxcolrow drop min
                          -trailing                         \ addr len
                          Type: ThePrinter
                          Cr: ThePrinter                    \ next line
                  LOOP
-                 drop
          ELSE    2drop
          THEN    console single-page cursor-on ;
  
! : print-screen  ( -- )          \ print the physical screen
!         getrowoff rows
          #print-screen ;
  
  : print-console ( -- )       \ print all lines used in screen save buffer
!         0 getrowoff rows +
          #print-screen ;
! ))
  INTERNAL
  
--- 1444,1465 ----
          printer?
          IF      ( -- start lines )
!                 bounds
                  DO
!                         i RowString
                          -trailing                         \ addr len
                          Type: ThePrinter
                          Cr: ThePrinter                    \ next line
                  LOOP
          ELSE    2drop
          THEN    console single-page cursor-on ;
  
! : print-screen  ( -- )       \ print the physical screen
!         getrowoff rows       \ print from first visible row to last visible row
          #print-screen ;
  
  : print-console ( -- )       \ print all lines used in screen save buffer
!         0 getrowoff rows +   \ print from row 0 to last visible row (not lines scrolled off the bottom)
          #print-screen ;
! 
  INTERNAL