Menu
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