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{([at]})nowhere.xy
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{([at]})nowhere.xy
Received on Wed Dec 26 2007 - 09:07:45 UTC