A.Open”filel.dat”For Input As#1
B.Open”filel.dat”For Append As#1
C.Open”filel.dat”For Output As#1
D.Open”filel.dat”For Randow As#1 Len=20