Which version of jBASE on which Operating system ? You may need to 'flush' the output, as the output may be being 'buffered'
Try : CRT '.' : CHAR(0) : ;! to flush the output buffer as each '.' is sent to the output buffer Pat On 6 Aug, 20:11, ww <[email protected]> wrote: > I changed my code as follows: > I added colCount to increment each time a line is written to the text > file. > Unfortunately I get the same result one long line of periods rather > then 1 period at a time the expected. > > Thanks for the assist. > > 052 colCount = 0 > 053 LOOP > 054 WHILE READNEXT Key FROM TheList DO > 055 IF keyCnt < 12 THEN > 056 CHANGE "," TO "" IN Key > 057 Line = Line:Key:",": > 058 keyCnt = keyCnt + 1 > 059 END ELSE > 060 Line = Line:Key:CRR > 061 WRITESEQ Line ON TPath THEN > 062 CRT @(colCount, 0):".": > 063 colCount++ > 064 END ELSE > 065 GOSUB ReportError > 066 STOP > 067 END > 068 Line = "" > 069 keyCnt = 1 > 070 END > 071 recCount++ > 072 REPEAT > 073 WEOFSEQ TPath > 074 CLOSE TPath > > On Aug 6, 1:35 pm, Val Yanez <[email protected]> wrote: > > > When you say that it doesn't work, do you mean that no periods are > > printing? Not the correct number of periods are printing? What doesn't > > work? Also, what are you setting keyCnt and reCount too? > > > From what I can tell, you are printing every 12th record so you should > > get a dot printed every 12th record that is written. > > > > -----Original Message----- > > > From: [email protected] [mailto:[email protected]] On Behalf > > Of > > > ww > > > Sent: Thursday, August 06, 2009 12:09 PM > > > To: jBASE > > > Subject: jBASE 4.1 on Redhat Linux - Display a character each time a > > > record is written? > > > > 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 > > > Notice: This transmission is for the sole use of the intended recipient(s) > > and may contain information that is confidential and/or privileged. If you > > are not the intended recipient, please delete this transmission and any > > attachments and notify the sender by return email immediately. Any > > unauthorized review, use, disclosure or distribution is prohibited.- Hide > > quoted text - > > > - Show quoted text - --~--~---------~--~----~------------~-------~--~----~ 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 -~----------~----~----~----~------~----~------~--~---
