sub

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