'これを実行するとセーブデータ.txtというファイルができまつ
cls
'----------ゲームデータ
name$ = "moyomoto"'ゲームの主人公の名前
dim flug(10)'ゲームのフラグ
flug(0) = 3 : flug(1) = 1
flug(2) = 4 : flug(3) = 1
flug(4) = 5 : flug(5) = 9
flug(6) = 2 : flug(7) = 6
flug(8) = 5 : flug(9) = 3
flug(10) = 5
'----------データセーブ
p_file = open file ("セーブデータ.txt")
fwrite p_file, name$
for i=0 to 10
fwrite p_file, flug(i)
next i
close file p_file
'----------データロード
p_file = open file ("セーブデータ.txt")
fread p_file, name$
for i=0 to 10
fread p_file, flug(i)
next i
close file p_file