That is very similar to the one I use. Here is mine. REC = '' LOOP INPUT XXX UNTIL XXX = "*NED OF TEXT*" DO REC<-1> = XXX REPEAT
If you want to lose blank lines you change REC<-1> = XXX to IF TRIM(XXX) # "" THEN REC<-1> = XXX -----Original Message----- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Dennis Bartlett Sent: Tuesday, February 26, 2008 9:00 AM To: [email protected] Subject: RE: [U2] Type ahead buffer overflow >> Ahhhh! OK, so with your 500 lines of data, is it a single INPUT >> statement for all 500 lines? Or a loop over INPUT? AND >> 500 lines of 80 COL wide If so, then the code you're looking for is LOOP INPUT LN, 80 IF TRIM(LN) = '' THEN EXIT GOSUB PROCESS.LINE REPEAT That way the INPUT statement will take 80 chars, and process them, and go back to get the next 80 chars. ------- u2-users mailing list [email protected] To unsubscribe please visit http://listserver.u2ug.org/ ------- u2-users mailing list [email protected] To unsubscribe please visit http://listserver.u2ug.org/
