つ [参考にどうぞ]
#define FileName "test.txt" // ファイル名を宣言しておく(書き換え不可)
//
//
//
*label
sdim dummy,64 // 文字列
exist FileName : if (strsize != -1) { // ファイルを探す。(ある = -1より大きい, ない = -1
;
notesel a // 変数aの操作をします。
noteload FileName // 変数aにファイルの内容を読み込む
;
noteget user,0 // 変数aの0行目の内容を変数userに代入
noteget pass,1 // 変数aの1行名の内容を変数passに代入
;
noteunsel // 変数aの操作をここで終わらせる
;
} else {dialog "パスワードファイルがありません。"}
;
cls // ウィンドウ初期化
font msgothic,15,1 // フォント指定(MS ゴシック)
;
objmode 2 : objsize 100,20 // オブジェクトをフォント順次、サイズ指定
pos 10,10 : mes "パスワードを入力して下さい\n"
pos 10,30 : input dummy,200,20,8
pos (200+10),30 : button goto "OK",*bv001
stop
//
//
//
*bv001
if (dummy != pass) {dialog "パスワードが違います!!!",1,"" : goto *label}
pos 10,50 : mes "ようこそ!"+user+"さん!"
stop