uses StartUp \ Usage: \ \ s" The quick brown fox jumps over the lazy dog" 2dup reverse type : reverse ( addr len -- ) \ reverse characters in string ?DUP 0= IF EXIT THEN BOUNDS 2DUP >R >R DO I C@ LOOP R> R> DO I C! LOOP ;
Make your own free website on Tripod.com