1 ' NTSWAP
2 '
3 ' by: Paul Carnell
4 '
5 ' This routine swaps the current
6 ' NOTE.DO file for another file in
7 ' RAM. Both NOTE.DO and the file to
8 ' be swapped must have a valid file
9 ' name (not NOTE) as their first line
10 NT$="NOTE.DO"
20 FILES
30 INPUT "FILENAME";F2$
40 OPEN NT$ FOR INPUT AS 1
50 INPUT #1,F1$
60 CLOSE 
70 NAME NT$ AS F1$+".DO"
80 NAME F2$+".DO" AS NT$
90 MENU