100 !!!!! and 101 !!!!!

harbour/ChangeLog

@@ -1,3 +1,8 @@
+19990606-00:30 CET Eddie Runia
+  * tests/working/hardcr.prg; tests/working/mtran.prg
+    Uploaded. Matching .C untested and missing for now.
+    Just wanted #100 & #101 in !
+
 19990605-11:12 EST Les. Griffith
   * removed DIRECTORY() from files.c
   * added rtl\dir.c

harbour/tests/working/hardcr.prg

@@ -0,0 +1,15 @@
+//NOTEST
+//
+// I haven't uploaded or tested the .Cs
+
+function main()
+
+  OutStd( HardCR( "[HARBOUR]" + chr(141)+chr(10) + ;
+                  "[POWER]"   + chr(141)+chr(10) + ;
+                  "[MAGIC]" ) )
+
+  OutStd( "[HARBOUR]" + chr(141)+chr(10) + ;
+          "[POWER]"   + chr(141)+chr(10) + ;
+          "[MAGIC]" )
+
+return nil

harbour/tests/working/mtran.prg

@@ -0,0 +1,14 @@
+//NOTEST
+//
+// Matching .C not uploaded
+function main()
+
+  OutStd( MemoTran( "[HARBOUR]" + chr(141)+chr(10) + ;
+                    "[POWER]"   + chr(13)+chr(10) + ;
+                    "[MAGIC]" ) )
+
+  OutStd( "[HARBOUR]" + chr(141)+chr(10) + ;
+          "[POWER]"   + chr(13)+chr(10) + ;
+          "[MAGIC]" )
+
+return nil