Two of the suggested solutions solved the problem. It works great. 1. CRT ".":CHAR(0): 2. SLEEP .01
Thanks folks. Here is the final code: 058 LOOP 059 WHILE READNEXT Key FROM TheList DO 060 IF keyCnt < 12 THEN 061 CHANGE "," TO "" IN Key 062 Line = Line:Key:",": 063 keyCnt = keyCnt + 1 064 END ELSE 065 Line = Line:Key:CRR 066 WRITESEQ Line ON TPath THEN 067 CRT ".":CHAR(0): 068 SLEEP .01 069 colCount++ 070 IF colCount = 15 THEN 071 CRT @(17,0):@(-4): 072 colCount = 0 073 END 074 END ELSE 075 GOSUB ReportError 076 STOP 077 END 078 Line = "" 079 keyCnt = 1 080 END 081 recCount++ 082 REPEAT 083 WEOFSEQ TPath 084 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 -~----------~----~----~----~------~----~------~--~---
