17 lines
401 B
Plaintext
17 lines
401 B
Plaintext
Module Using_Buffer {
|
|
M=buffer("Input.txt")
|
|
Print Len(m)
|
|
Open "Output1.txt" For Wide Output as #F
|
|
Print #F, Eval$(M);
|
|
Close #F
|
|
Edit "Output1.txt"
|
|
z=Filelen("Output1.txt")
|
|
Print z
|
|
Open "OutputAscii.txt" For Output as #F
|
|
Print #F, Eval$(M);
|
|
Close #F
|
|
Print Filelen("OutputAscii.txt")=z/2
|
|
Edit "OutputAscii.txt"
|
|
}
|
|
Using_Buffer
|