[hasherfrog]

Код:

Open FileName For Input As #Handle 
Input #Handle TextStringFromFile$ 

Open FileName For Output As #Handle 
Write #Handle TextStringFromFile$

Я с детства ненавижу работу с файлами в бейсике. Когда-то давным-давно, в конце 80-х, я на областной олимпиаде по информатике конкретно попал... Для решения одной задачи надо было написать что-то про ввод/ывод данных. Поскольку в те времена не было одинаковых компьютерных классов и каждая школа извращалась как могла, выбор языка программирования для решение задачи оставляли за участниками. Т.е. на чём хочешь - на том и пиши, мы (члены комиссии) - разберёмся. Ну, умные люди написали на бейсиках, паскалях. Кто-то продвинутый - на С. А я... правильно смеётесь, на ассемблере. Кто-то, может, помнит про "Микрошу" (там z80-основа, емнип). Ну вот я и пыхтел почти всё время, отведённое на решение задач... Мда...