Thanks Mark.  This worked.  Thanks also to Jeff.

--Bill

*-----------------------------------------------------------------------
-----

  include BP BASELINE.R8

  openpath '/u2/SOFTWARE/BP/'  to  F.This  else  null

                           Source.Code.File.ID = 'BASELINE.R0'

  read R.File from F.This, Source.Code.File.ID  else  R.File = ''

                           Total.Nbr.Lines.Of.Code = dcount(R.File, AM)
  for This.Line.Nbr = 1 to Total.Nbr.Lines.Of.Code

    This.Line = R.File<This.Line.Nbr>

    crt This.Line

  next This.Line.Nbr

*-----------------------------------------------------------------------
-------
The.End:

  crt
  crt ' [<] ' :

  input Ans

  crt @(-1)

  END 
 

-----Original Message-----
From: [email protected]
[mailto:[email protected]] On Behalf Of Mark Eastwood
Sent: Wednesday, May 20, 2009 4:46 PM
To: [email protected]
Subject: RE: [U2] Opening UniBasic Source Code Into A UniBasic

Is BASELINE.RO a Program? If so, then you just want to open the BP (i.e.
remove program from path), then READ program as you would any item.

Mark


-----Original Message-----
From: [email protected]
[mailto:[email protected]] On Behalf Of Brutzman, Bill
Sent: Wednesday, May 20, 2009 1:35 PM
To: [email protected]
Subject: [U2] Opening UniBasic Source Code Into A UniBasic

I am writing on how to open a Unix file of UniBasic source code.

When I try a 


  openpath '/u2/SOFTWARE/BP/BASELINE.R0'  to  F.This  then
-------
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/

Reply via email to