FLEX                                               Program Output

12/13/2007 11.82 49432

12/12/2007 11.84 34774

12/11/2007 11.8 61754

12/10/2007 11.98 42318

? 1.797693134862316E+308 21474836

4

______________________________________________

"FLEX"                                              Program Input

2007-12-13 11.82 4943200

2007-12-12 11.84 3477400

2007-12-11 11.8 6175400

2007-12-10 11.98 4231800

_________________________________________________

MODULE MktPr01;                        Program Used

IMPORT TextModels, TextControllers, PboxMappers, Dates, StdLog;

TYPE

String8 = ARRAY 16 OF CHAR;

String12 = ARRAY 12 OF CHAR;

PROCEDURE GetData*;

VAR

aday : Dates.Date;

md: TextModels.Model;

cn:TextControllers.Controller;

sc:PboxMappers.Scanner; 

symb: String8;

today: String12;

ch: CHAR;

close: REAL;

volume, rndlot: INTEGER;

i, N : INTEGER;

BEGIN

cn := TextControllers.Focus();

IF cn # NIL THEN

md := cn.text;

sc.ConnectTo(md);

sc.ScanString(symb);

StdLog.Ln;StdLog.String(symb$); StdLog.Ln;

i := 0; 

REPEAT

sc.ScanInt(aday.year);sc.ScanChar(ch);

sc.ScanInt(aday.month); sc.ScanChar(ch);

sc.ScanInt(aday.day); 

Dates.DateToString(aday, 0, today);

sc.ScanReal(close); sc.ScanInt(volume);

rndlot := volume DIV 100;

StdLog.String(today$); StdLog.Tab; StdLog.Real(close);

StdLog.Tab; StdLog.Int(rndlot); StdLog.Ln;

INC(i)

UNTIL sc.eot;

DEC(i); N :=i; StdLog.Int(N) 

END 

END GetData;

END MktPr01.

_______________________________________________________________________

I am inexperienced in BB and am trying to learn.  How do I eliminate the extra line in the output? Can anyone point me to that portion of text which will help me to avoid this stuff in the future?

Thanks.

terrymcg@bigvalley.net

Dial Broadband has arrived Nationwide! Up to 5 times faster than traditional dialup connections from $13.33/month! See the demo for yourself at www.BigValley.net 

---- To unsubscribe, send a message with body "SIGNOFF BLACKBOX" to LISTSERV@LISTS.OBERON.CH