[futurebasic] Re: [FB] Creating Windows

Message: < previous - next > : Reply : Subscribe : Cleanse
Home   : October 2004 : Group Archive : Group : All Groups

From: George Wood <gwendalwood@...>
Date: Mon, 11 Oct 2004 22:19:37 -0700
on 10/08/2004 10:29 PM, Brian Heibert at bheibert@... wrote:

> Why won't this code create windows?
> 
> CASE UCASE$(LEFT$(lineStr,4)) = "WIN "   // doesn't work
> // WIN 1 5 5 
> lft = LEFT$(lineStr, 5)
> mid1$ = MID$(lineStr, 7)
> lft1 = MID$(lineStr, 4)
> rt1 = MID$(lineStr,4)
> lfx = MID$(lineStr,3)
> lfx1 = MID$(lineStr,3)
> type = MID$(lineStr, 10)
> 
> 
> WINDOW #lft, mid1$, (lft1,rt1) - (lfx,lfx1), type
> 
> 
> Brian
> 
> --
> 
> 
Try this:
lineStr = "WIN 1 1 5 5 9 2"
lft = val(LEFT$(lineStr, 5))
mid1$ = MID$(lineStr,1,5)
lft1 = val(MID$(lineStr,7,1))
rt1 = val(MID$(lineStr,9,1))
lfx =val(MID$(lineStr,11,1))
lfx1 = val(MID$(lineStr,13,1))
type = val(MID$(lineStr, 15,1))


WINDOW #lft, mid1$, (lft1,rt1) - (lfx,lfx1), type
GeoWood