[Win32forth-cvs] win32forth-stc/demos ROMCALC.F,1.1,1.2

[Jos v.d.V. <jo...@us...>]

Update of /cvsroot/win32forth/win32forth-stc/demos
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv8497

Modified Files:
	ROMCALC.F 
Log Message:
Jos: Removed ROLL. Run extend.bat first to run this demo.

Index: ROMCALC.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth-stc/demos/ROMCALC.F,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** ROMCALC.F	3 May 2007 20:09:03 -0000	1.1
--- ROMCALC.F	3 May 2007 20:54:35 -0000	1.2
***************
*** 186,193 ****
    ;
  
- : ROLL          ( n1 n2 .. nk k -- n2 n3 .. nk n1 )
- \  ****Rotate k values on the stack, bringing the deepest to the top.
-                 DUP>R PICK SP@ DUP CELL+ R> CELLS CELL+ MOVE DROP ;
- 
  : (.rom) ( n x y t -- n%1000^tiefe x+? y | ) \ Paints a number ( 1 and 999 )
                                               \ * 1000^t. Corrects x,y and n.
--- 186,189 ----