A.Open"c:\Test2.dat"For Output As#1<br/>Put#1,1,P<br/>Close#1
B.Open"c:\Test2.dat"For Random As#1<br/>Get#1,1.P<br/>Close#1
C.Open"c:\Test2.dat"For Random As#1 Len=Len(P)<br/>Put#1,1,p<br/>Close#1
D.Open"c:\Test2.dat"For Random As#1 Len=Len(P)<br/>Get#1,1,P<br/>Close#1