#author("2018-06-16T00:08:25+09:00","","")

***sub [#q2a017db]

 sdim _4note,4000
 notesel _4note
 note_stock=_4note
 #define d_file "dat_file.dat"
 *begin
 await 100
 noteload "dat_file.dat"
 if note_stock!=_4note{
 cls 0
 pos 0,0
 mes _4note
 note_stock=_4note
 }
 goto *begin