¾ÜºÙ¤Ï¥³¡¼¥ÉÃæ¤Ë½ñ¤¤¤Æ¤¢¤ê¤Þ¤¹¤¬¡¢¥Ñ¥¹¤¬¼èÆÀ¤Ç¤¤Æ¤¤¤ë¤«¤¤¤Ê¤¤¤«¤Ï¥Ñ¥¹¤òÊÑ¿ô¤ËÊݸ¤·¤Æ¤ª¤±¤Ðʬ¤«¤ê¤Þ¤¹¡£
´Êñ¤Ë¸À¤¨¤ÐÊÑ¿ô¤¬¶õ¤Ç¤¢¤ì¤Ð̤¼èÆÀ¤ÇÃæ¿È¤¬¤¢¤ì¤Ð¤½¤ì¤¬¥Ñ¥¹¤À¤ÈȽÃǤ¹¤ì¤Ð¤¤¤¤¤Ç¤¹¡£
¥Ñ¥¹¤ÎÀè¤Î¥Õ¥¡¥¤¥ë¤¬Â¸ºß¤¹¤ë¤«Èݤ«¤Ë¤Ä¤¤¤Æ¤Ç¤¢¤ì¤ÐexistÌ¿Îá¤Çʬ¤«¤ê¤Þ¤¹¡£
screen 0
sdim path, 256 // ¥Õ¥¡¥¤¥ë¥Ñ¥¹ÍÑ
sdim text // ÆâÍÆÍÑ
objsize 100, 25
// ³«¤¯¥Ü¥¿¥ó
pos 0, 0
button gosub "³«¤¯", *open
// ÊĤ¸¤ë¥Ü¥¿¥ó
pos 100, 0
button gosub "Êݸ", *save
// ¥¨¥Ç¥£¥Ã¥È¥Ü¥Ã¥¯¥¹
pos 0, 25
mesbox text, ginfo_winx, ginfo_winy - 25, 1 | 4 | 8, 0
id_mesbox = stat // objprm¤Ç»È¤¦¤¿¤á¥ª¥Ö¥¸¥§¥¯¥ÈID¤ò¼èÆÀ
stop
*open
dialog "txt", 16, "¥Æ¥¥¹¥È¥Õ¥¡¥¤¥ë"
if (stat == 0) : return // ¥¥ã¥ó¥»¥ë
path = refstr // ³«¤¯¡¦Êݸ¥À¥¤¥¢¥í¥°¤Î·ë²Ì(¥Ñ¥¹)¤Ïrefstr¤Ë³ÊǼ¤µ¤ì¤ë
exist path
sdim text, strsize // exist¤Ç¼èÆÀ¤·¤¿¥Õ¥¡¥¤¥ë¥µ¥¤¥º(strsize)¤ÇtextÊÑ¿ô¤Î¥Ð¥Ã¥Õ¥¡¤ò³ÎÊÝ
notesel text
noteload path
objprm id_mesbox, text
noteunsel
title "³«¤¤Þ¤·¤¿: [" + path + "]"
return
*save
if (path == "") {
dialog "txt", 17, "¥Æ¥¥¹¥È¥Õ¥¡¥¤¥ë"
if (stat == 0) : return // ¥¥ã¥ó¥»¥ë
path = refstr
}
notesel text
notesave path
noteunsel
title "Êݸ¤·¤Þ¤·¤¿: [" + path + "]"
return