ww wrote: > I want to print a character across the screen each time a record is > written to a file. I know that people have answered this for you, but really, you DON'T want to do this. The record writing speed will then be governed by the screen output speed. Then you are adding a delay of .01 after each write. The time taken to do this screen addressing and '.' outputting followed by buffer flushes will devastate performance. Instead, if you REALLY need screen feedback, then take a MOD(recCount, 10000) and print a '.' on 0 result. Less than 10000 and there will be no point providing the output anyway!
Jim > 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 > > > > > > --~--~---------~--~----~------------~-------~--~----~ 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 -~----------~----~----~----~------~----~------~--~---
