diff -c2 ./org/trr-files.el ./new/trr-files.el
*** ./org/trr-files.el	Thu Dec 02 18:36:10 1999
--- ./new/trr-files.el	Sat Dec 04 20:22:24 1999
***************
*** 123,127 ****
      (setq TRR:record-file (concat TRR:record-dir
  				  "/"
! 				  (user-login-name)
  				  "-"
  				  temp-id
--- 123,127 ----
      (setq TRR:record-file (concat TRR:record-dir
  				  "/"
! 				  TRR:user-login-name
  				  "-"
  				  temp-id
***************
*** 228,232 ****
    (call-process TRR:update-program nil 0 nil
  		TRR:score-file-name
! 		(user-login-name)
  		(int-to-string score) 
  		(int-to-string TRR:steps)
--- 228,232 ----
    (call-process TRR:update-program nil 0 nil
  		TRR:score-file-name
! 		TRR:user-login-name
  		(int-to-string score) 
  		(int-to-string TRR:steps)
diff -c2 ./org/trr-graphs.el ./new/trr-graphs.el
*** ./org/trr-graphs.el	Thu Dec 02 18:36:10 1999
--- ./new/trr-graphs.el	Sat Dec 04 20:22:36 1999
***************
*** 203,207 ****
      (while (not (eobp))
        (insert (format "%d\t" i))
!       (if (looking-at (format "%s\t" (user-login-name)))
  	  (progn
  	    (beginning-of-line)
--- 203,207 ----
      (while (not (eobp))
        (insert (format "%d\t" i))
!       (if (looking-at (format "%s\t" TRR:user-login-name))
  	  (progn
  	    (beginning-of-line)
***************
*** 216,220 ****
  				    TRR:self-face-name))
  	    (insert " <")
! 	    (and (< (length (user-login-name)) 4)
  		 (insert "\t"))
  	    (forward-char 1)
--- 216,220 ----
  				    TRR:self-face-name))
  	    (insert " <")
! 	    (and (< (length TRR:user-login-name) 4)
  		 (insert "\t"))
  	    (forward-char 1)
diff -c2 ./org/trr-menus.el ./new/trr-menus.el
*** ./org/trr-menus.el	Thu Dec 02 18:36:10 1999
--- ./new/trr-menus.el	Sat Dec 04 23:11:40 1999
***************
*** 252,256 ****
  				   "ステップ−平均スピード（文字／分）グラフ"
  				 "STEP <-> SPEED(type / minute) Graph")
! 			       "\t" TRR:text-name))
        (TRR:select-menu))
       ((= num 5)
--- 252,256 ----
  				   "ステップ−平均スピード（文字／分）グラフ"
  				 "STEP <-> SPEED(type / minute) Graph")
! 			       "\t" TRR:text-name "\t" TRR:user-login-name))
        (TRR:select-menu))
       ((= num 5)
***************
*** 262,266 ****
  				   "ステップ−平均ミス率（/1000）グラフ"
  				 "STEP <-> avg.Miss-ratio(/1000) Graph")
! 			       "\t" TRR:text-name))
        (TRR:select-menu))
       ((= num 6)
--- 262,266 ----
  				   "ステップ−平均ミス率（/1000）グラフ"
  				 "STEP <-> avg.Miss-ratio(/1000) Graph")
! 			       "\t" TRR:text-name "\t" TRR:user-login-name))
        (TRR:select-menu))
       ((= num 6)
***************
*** 272,276 ****
  				   "ステップ−平均得点グラフ"
  				 "STEP <-> avg.SCORE Graph")
! 			       "\t" TRR:text-name))
        (TRR:select-menu))
       ((= num 7)
--- 272,276 ----
  				   "ステップ−平均得点グラフ"
  				 "STEP <-> avg.SCORE Graph")
! 			       "\t" TRR:text-name "\t" TRR:user-login-name))
        (TRR:select-menu))
       ((= num 7)
***************
*** 282,286 ****
  				   "ステップ−実行時間（分）グラフ"
  				 "STEP <-> TIME(min) Graph")
! 			       "\t" TRR:text-name))
        (TRR:select-menu))
       ((= num 8)
--- 282,286 ----
  				   "ステップ−実行時間（分）グラフ"
  				 "STEP <-> TIME(min) Graph")
! 			       "\t" TRR:text-name "\t" TRR:user-login-name))
        (TRR:select-menu))
       ((= num 8)
***************
*** 292,296 ****
  				   "ステップ−実行回数グラフ"
  				 "STEP <-> times (the number of execution of TRR) Graph")
! 			       "\t" TRR:text-name))
        (TRR:select-menu))
       ((= num 9)
--- 292,296 ----
  				   "ステップ−実行回数グラフ"
  				 "STEP <-> times (the number of execution of TRR) Graph")
! 			       "\t" TRR:text-name "\t" TRR:user-login-name))
        (TRR:select-menu))
       ((= num 9)
***************
*** 302,306 ****
  				   "ステップ−突破点数グラフ"
  				 "STEP <-> ACHIEVEMENT_SCORE Graph")
! 			       "\t" TRR:text-name))
        (TRR:select-menu))
       ((= num 10)
--- 302,306 ----
  				   "ステップ−突破点数グラフ"
  				 "STEP <-> ACHIEVEMENT_SCORE Graph")
! 			       "\t" TRR:text-name "\t" TRR:user-login-name))
        (TRR:select-menu))
       ((= num 10)
diff -c2 ./org/trr.el ./new/trr.el
*** ./org/trr.el	Thu Dec 02 18:36:10 1999
--- ./new/trr.el	Sat Dec 04 20:32:08 1999
***************
*** 484,487 ****
--- 484,490 ----
        (delete-region (point-min) (point)) ; then delete heading records
        (if TRR:japanese
+       (insert "名前: " TRR:user-login-name "\n")
+     (insert "Your name: " TRR:user-login-name "\n"))
+       (if TRR:japanese
  	  (insert (TRR:current-trr) "向けタイプトレーナ\n")
  	(insert "TRR for " (TRR:current-trr) "\n"))
***************
*** 550,553 ****
--- 553,559 ----
        (forward-line (- 6 (window-height))) ; if lines flood
        (delete-region (point-min) (point)) ; then delete lines.
+       (if TRR:japanese
+       (insert "名前: " TRR:user-login-name "\n")
+     (insert "Your name: " TRR:user-login-name "\n"))
        (insert 
         (format (if TRR:japanese