Walt, Probably the dots are printed, but are buffered.
See the knowledgebase on CRT http://www.jbase.com/knowledgebase/manuals/3.0/30manpages/man/jbc2_crt.htm You just need to change line 62 062 CRT @(colCount, 0):".":CHAR(0): Dan Ell -----Original Message----- From: [email protected] [mailto:[email protected]] On Behalf Of ww Sent: Thursday, August 06, 2009 2:12 PM To: jBASE Subject: Re: jBASE 4.1 on Redhat Linux - Display a character each time a record is written? 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 -~----------~----~----~----~------~----~------~--~---
