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. --~--~---------~--~----~------------~-------~--~----~ 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 -~----------~----~----~----~------~----~------~--~---
