-\ @(#) t_locals.fth 97/01/28 1.1\r
-\ Test PForth LOCAL variables.\r
-\\r
-\ Copyright 1996 3DO, Phil Burk\r
-\r
-include? }T{ t_tools.fth\r
-\r
-anew task-t_locals.fth\r
-decimal\r
-\r
-test{\r
-\r
-\ test value and locals\r
-T{ 333 value my-value my-value }T{ 333 }T\r
-T{ 1000 -> my-value my-value }T{ 1000 }T\r
-T{ 35 +-> my-value my-value }T{ 1035 }T\r
-: test.value ( -- ok )\r
- 100 -> my-value\r
- my-value 100 =\r
- 47 +-> my-value\r
- my-value 147 = AND\r
-;\r
-T{ test.value }T{ TRUE }T\r
-\r
-\ test locals in a word\r
-: test.locs { aa bb | cc -- ok }\r
- cc 0=\r
- aa bb + -> cc\r
- aa bb + cc = AND\r
- aa -> cc\r
- bb +-> cc\r
- aa bb + cc = AND\r
-;\r
-\r
-T{ 200 59 test.locs }T{ TRUE }T\r
-\r
-.( Test warning when no locals defined.) cr\r
-: loc.nonames { -- } 1234 ;\r
-T{ loc.nonames }T{ 1234 }T\r
-\r
-\ try to put EOLs and comments in variable list\r
-: calc.area {\r
- width \ horizontal dimension\r
- height \ vertical dimension\r
- -- area , calculate area of a rectangle }\r
- width height *\r
-;\r
-\r
-T{ 5 20 calc.area }T{ 100 }T\r
-\r
-}test\r
-\r
+\ @(#) t_locals.fth 97/01/28 1.1
+\ Test PForth LOCAL variables.
+\
+\ Copyright 1996 3DO, Phil Burk
+
+include? }T{ t_tools.fth
+
+anew task-t_locals.fth
+decimal
+
+test{
+
+\ test value and locals
+T{ 333 value my-value my-value }T{ 333 }T
+T{ 1000 -> my-value my-value }T{ 1000 }T
+T{ 35 +-> my-value my-value }T{ 1035 }T
+: test.value ( -- ok )
+ 100 -> my-value
+ my-value 100 =
+ 47 +-> my-value
+ my-value 147 = AND
+;
+T{ test.value }T{ TRUE }T
+
+\ test locals in a word
+: test.locs { aa bb | cc -- ok }
+ cc 0=
+ aa bb + -> cc
+ aa bb + cc = AND
+ aa -> cc
+ bb +-> cc
+ aa bb + cc = AND
+;
+
+T{ 200 59 test.locs }T{ TRUE }T
+
+.( Test warning when no locals defined.) cr
+: loc.nonames { -- } 1234 ;
+T{ loc.nonames }T{ 1234 }T
+
+\ try to put EOLs and comments in variable list
+: calc.area {
+ width \ horizontal dimension
+ height \ vertical dimension
+ -- area , calculate area of a rectangle }
+ width height *
+;
+
+T{ 5 20 calc.area }T{ 100 }T
+
+}test
+