move junk to subfolder, add readme

testfiles/a.forth

@@ -0,0 +1,5 @@
+1 1 + .
+: add1 1 + ;
+7 add1 .
+: add2 add1 add1 ;
+7 add2 .

testfiles/defined.f

@@ -0,0 +1,3 @@
+: ?DEFINED  ( "name" -- 0 | -1 )  32 WORD FIND SWAP DROP 0= 0= ;
+?DEFINED swap .
+XX

testfiles/doloop.forth

@@ -0,0 +1,6 @@
+
+: test 10 0 DO I . I 5 = IF LEAVE THEN LOOP ;
+
+see test
+
+test

testfiles/exit.forth

@@ -0,0 +1,3 @@
+: foo 1 . exit 2 . ;
+: bar foo foo ;
+bar

testfiles/hello.forth

@@ -0,0 +1,4 @@
+: hi ." Hello, World!" ;
+hi
+: hi2 s" Hello, World!" TYPE ;
+hi2

testfiles/if.forth

@@ -0,0 +1,4 @@
+: yesno IF ." yes" ELSE ." no" THEN ;
+
+1 yesno
+0 yesno

testfiles/loops.forth

@@ -0,0 +1,20 @@
+: test1 begin dup while 1 - dup . repeat ;
+10 test1
+
+: test2 begin 1 - dup . dup 0= until ;
+10 test2
+
+: test3
+    dup .
+    begin
+    1 - dup
+
+    ." ( "
+    5 begin dup while 1 - dup . repeat
+    ." ) " drop
+
+    .
+    dup 0=
+    until ;
+
+3 test3

testfiles/overwrite.forth

@@ -0,0 +1,7 @@
+: a 1 . ;
+a
+: call_a a a a ;
+call_a
+: a 7 . ;
+a
+call_a

testfiles/postpone.forth

@@ -0,0 +1,9 @@
+: ENDIF POSTPONE THEN ; IMMEDIATE
+
+: yesno IF ." yes" ELSE ." no" ENDIF ;
+
+see ENDIF
+see yesno
+
+1 yesno
+0 yesno

testfiles/str.forth

@@ -0,0 +1,9 @@
+." show this string"
+S" save this string" TYPE
+
+: aa ." show this string" ;
+: bb S" show this string" TYPE ;
+
+aa
+
+bb