From: "Armand A. Medeiros" 
Subject: Re: Reading And Writing
 
Tim Hutzler wrote:
>
> -=>Quoting Peter.waller to All <=-
>
> Pe>Subject: Reading and Writing to files
>
> Pe>Hi There,
>
> Pe>How do I Read And Write To Multiple Lines In A File?
>
> What do you mean?
>
> Do you want to read/write several lines with one statement?
>
>
> Pe>Thanx in advance,
>
>  Pe> MadMan(pete) ;o)-
> ___ Blue Wave/QWK v2.12
>
> --- Maximus/2 3.01
 
 
TYPE ManyLines
	Line1 AS STRING * 75
	Line2 AS STRING * 75
	Line3 AS STRING * 75
	Line4 AS STRING * 75
	Line5 AS STRING * 75
	Line6 AS STRING * 75
	Line7 AS STRING * 75
END TYPE
 
DIM LotsOfLines AS SHARED ManyLines
Local RecordNum%
 
 
 
 
LotsOfLines.Line1 = "this is line one"
LotsOfLines.Line2 = "this is line two"
LotsOfLines.Line3 = "this is line three"
LotsOfLines.Line4 = "this is line four"
LotsOfLines.Line5 = "this is line five"
LotsOfLines.Line6 = "this is line six"
LotsOfLines.Line7 = "this is line seven"
 
RecordNum% = 1
 
OPEN "SOMEFILE.DAT" FOR RANDOM AS #1 LEN=LEN(LotsOfLines)
PUT #1,RecordNum%,LotsOfLines
Close #1
 
.......
 
RecordNum% = 1
 
OPEN "SOMEFILE.DAT" FOR RANDOM AS #1 LEN=LEN(LotsOfLines)
GET #1,RecordNum%,LotsOfLines
Close #1
 
Locate 1,3:Print LotsOfLines.Line1;
Locate 2,3:Print LotsOfLines.Line2;
Locate 3,3:Print LotsOfLines.Line3;
Locate 4,3:Print LotsOfLines.Line4;
Locate 5,3:Print LotsOfLines.Line5;
Locate 6,3:Print LotsOfLines.Line6;
Locate 7,3:Print LotsOfLines.Line7;
 
END
 
Have fun...
 
AAM
 
*** QwkNews (tm) v2.1
 * [TN71] Internet Newsgroup: alt.lang.powerbasic
--- GEcho 1.20/Pro
---------------