; Key Logging System (KLogS) 001a ; copyleft 2011-05-15 sugiura@nagoya-u.jp instruction = "Write what you want in 60 minutes without looking up dictionaries." *prep notesel rogu kakikomi = "" pos 30, 50 mes instruction pos 30, 100 mesbox kakikomi, 540, 250, 1, 0 button goto "Finish", *owari *main repeat onkey gosub *kiroku await loop stop *owari noteadd "---------------" noteadd kakikomi notesave "writinglog.txt" end *kiroku jikan = str(gettime(4)*3600000 + gettime(5)*60000 + gettime(6)*1000 + gettime(7)) moji = "\t" + strf("%c", iparam) noteadd jikan + moji return