Hi
Change the WRITESEQ part as the following:
WRITESEQ Line ON TPath THEN
PRINT '...................'
END ELSE
GOSUB ReportError
STOP
END
Regards
On Thu, Aug 6, 2009 at 7:08 PM, ww <[email protected]> wrote:
>
> I want to print a character across the screen each time a record is
> written to a file. Basically a stream of periods like
> this ............................................. Here's the code I'm
> using that doesn't work.
>
> Thanks in advance,
>
> WW
>
> 055 LOOP
> 056 WHILE READNEXT Key FROM TheList DO
> 057 IF keyCnt < 12 THEN
> 058 CHANGE "," TO "" IN Key
> 059 Line = Line:Key:",":
> 060 keyCnt = keyCnt + 1
> 061 END ELSE
> 062 Line = Line:Key:CRR
> 063 CRT @(recCount/12,0):".":
> 064 PAUSE .1
> 065 WRITESEQ Line ON TPath ELSE
> 066 GOSUB ReportError
> 067 STOP
> 068 END
> 069 Line = ""
> 070 keyCnt = 1
> 071 END
> 072 recCount++
> 073 REPEAT
> 074 WEOFSEQ TPath
> 075 CLOSE TPath
>
>
>
> >
>
--
Igor Micev
--~--~---------~--~----~------------~-------~--~----~
Please read the posting guidelines at:
http://groups.google.com/group/jBASE/web/Posting%20Guidelines
IMPORTANT: Type T24: at the start of the subject line for questions specific to
Globus/T24
To post, send email to [email protected]
To unsubscribe, send email to [email protected]
For more options, visit this group at http://groups.google.com/group/jBASE?hl=en
-~----------~----~----~----~------~----~------~--~---
