From 2b4836be3b42e5ca3e339bfa50aee982148471f4 Mon Sep 17 00:00:00 2001
From: Leslee Griffith <les.griffith@vantagesystems.ca>
Date: Fri, 28 May 1999 03:11:22 +0000
Subject: [PATCH] changed iotest.prg to work without exit clause

---
 harbour/tests/working/iotest.prg | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/harbour/tests/working/iotest.prg b/harbour/tests/working/iotest.prg
index 5ec55cae65..2c3d79e18e 100644
--- a/harbour/tests/working/iotest.prg
+++ b/harbour/tests/working/iotest.prg
@@ -4,7 +4,7 @@ function Main()
 
    local h    := 0
    local cstr := " "
-   local ntmp := 0
+   local ntmp := 1
 
    h := FCreate( "test.txt")
    qout('create handle',h)
@@ -17,13 +17,13 @@ function Main()
    qout('open handle',h)
    qout()
    /* try to read what is there */
-   do while .t.
+   do while ntmp # 0
       ntmp := FRead( h, @cstr, 1)
-      if ntmp == 0
-         exit
+      if ntmp > 0
+         qqout(cstr)
       endif
-      qqout(cstr)
    enddo
+   qout()
 
    FClose( h )