6N [ h "$  (08@H  (08@H @@OwN@uTIMEVсv@@@@@@@@@@@@@@@@@@@@@{\ TO STARTUP RG CC CT CLEARICONS HT SETMARGIN [16 0] PR [] SETTC 1 REPEAT 8 [PR "|^̃C̃̂̂̂Ђ݂̂̂‚̂̂̂̂| PR []] SHOW "NɈÍ𑗂B SHOW "|Ӗ邩ȁH@L[ȂB| MAKE "KEY CHARCODE RC IFELSE :KEY = 13 [START] [START] END TO START CC TOP REPEAT TEXTLEN / 2 [CF DELETE TONE 500 0.2] WAIT 60 CT PR [] SETTC 6 REPEAT 8 [PR "|̃^̃C̃̂̂̂Ђ݂̂̂‚̂̂̂̂́I| PR []] WAIT 60 TOP REPEAT TEXTLEN / 2 [CF DELETE TONE 800 0.2] WAIT 60 TOP REPEAT 4 [REPEAT 2 [CD] CLEARLINE TONE 1200 2] SHOW "|ł́Co܂B@L[ȂB| MAKE "KEY CHARCODE RC IFELSE :KEY = 13 [DENKI1] [DENKI1] END TO DENKI1 CT REPEAT 15 [PR []] SETMARGIN [8 0] SETTC 4 PR "‚n߂Ă܂ł̎Ԃ́Cǂ炪ł傤H SETTC 0 CLEARICONS MAKE "KEY CHARCODE RC IFELSE :KEY = 13 [TONE 500 1 _P] [TONE 500 1 _P] END TO RG CC PU SETPOS [-100 90] SETC 6 SETSH "` PD BIGSTAMP [2 2] PU SETPOS [100 90] PD SETSH "a BIGSTAMP [2 2] HT TELL [10 15] ASK 10 [PU SETPOS [-100 0] SETC 5 SETSH 27 PD BIGSTAMP [3 3] ST HT SETC 7] ASK 15 [PU SETPOS [100 0] SETC 5 SETSH 27 PD BIGSTAMP [3 3] ST HT SETC 7] SETSH 25 BIGSTAMP [2 2] HT WAIT 60 TONE 1000 5 SHOW "L[ƁC肪‚܂B END TO _P CC SHOW "P SETSH 26 BIGSTAMP [2 2] HT ASK 10 [WAIT 300 PE SETSH 26 BIGSTAMP [2 2] HT PD SETSH 25 BIGSTAMP [2 2] HT] ASK 15 [WAIT 400 PE SETSH 26 BIGSTAMP [2 2] HT PD SETSH 25 BIGSTAMP [2 2] HT] SETICON 1 h` [GOTOU GOTOU DENKI1] SETICON 2 ha [SEIKAI WAIT 200 DENKI2]@ SETICON 3 hēx [DENKI1] bZ[W END TO bZ[W CC SHOW "`Caǂ炩NbNȂB SHOW "|xȂƂ́CuēxvNbNȂB| END TO SEIKAI TONE 800 5 CC SHOW "II SHOW "̖ւ݂܂B END TO GOTOU CC TONE 500 5 SHOW "x`W܂傤I END TO CLEAR IF NOT KEY? [STOP] MAKE "DUMMY RC CLEAR END TO DENKI2 MAKE "KEY CHARCODE RC IFELSE :KEY = 13 [TONE 500 1 _Q] [TONE 500 1 _Q] END TO _Q CC SHOW "Q@ASK 10 [SETSH 26 BIGSTAMP [2 2] HT] ASK 15 [WAIT 200 SETSH 26 BIGSTAMP [2 2] HT] TELL [10 15] WAIT 300 PE SETSH 26 BIGSTAMP [2 2] HT PD SETSH 25 BIGSTAMP [2 2] HT SETICON 1 h` [SEIKAI WAIT 200 DENKI3] SETICON 2 ha [GOTOU WAIT 200 DENKI2] SETICON 3 hēx [DENKI2] bZ[W END TO DENKI3 MAKE "KEY CHARCODE RC IFELSE :KEY = 13 [TONE 500 1 _R] [TONE 500 1 _R] END TO _R CC SHOW "R@ASK 10 [SETSH 26 BIGSTAMP [2 2] HT] ASK 15 [WAIT 200 SETSH 26 BIGSTAMP [2 2] HT] TELL 15 WAIT 400 PE SETSH 26 BIGSTAMP [2 2] HT PD SETSH 25 BIGSTAMP [2 2] HT ASK 10 [WAIT 200 PE SETSH 26 BIGSTAMP [2 2] HT PD SETSH 25 BIGSTAMP [2 2] HT] SETICON 1 h` [SEIKAI WAIT 200 DENKI4] SETICON 2 ha [GOTOU WAIT 200 DENKI3] SETICON 3 hēx [DENKI3] bZ[W END TO DENKI4 MAKE "KEY CHARCODE RC IFELSE :KEY = 13 [TONE 500 1 _S] [TONE 500 1 _S] END TO _S CC SHOW "S@SETSH 26 BIGSTAMP [2 2] HT WAIT 400 PE SETSH 26 BIGSTAMP [2 2] HT PD SETSH 25 BIGSTAMP [2 2] HT SETICON 1 h` [GOTOU WAIT 200 DENKI4] SETICON 2 ha [GOTOU WAIT 200 DENKI4] SETICON 3 h [SEIKAI WAIT 200 DENKI5] SETICON 4 hēx [DENKI4] CC SHOW "NbNȂB SHOW "|xȂƂ́CuēxvNbNȂB| END TO DENKI5 MAKE "KEY CHARCODE RC IFELSE :KEY = 13 [TONE 500 1 _T] [TONE 500 1 _T] END TO _T CC SHOW "T@ ASK 10 [SETSH 26 BIGSTAMP [2 2] HT] ASK 15 [WAIT 600 SETSH 26 BIGSTAMP [2 2] HT] ASK 10 [WAIT 800 PE SETSH 26 BIGSTAMP [2 2] HT PD SETSH 25 BIGSTAMP [2 2] HT] ASK 15 [WAIT 480 PE SETSH 26 BIGSTAMP [2 2] HT PD SETSH 25 BIGSTAMP [2 2] HT] SETICON 1 h` [CC WAIT 200 RP] SETICON 2 ha [CC WAIT 200 RQ] SETICON 3 h [CC WAIT 200 RQ] SETICON 4 hēx [CC DENKI5] CC SHOW "NbNȂB SHOW "|xȂƂ́CuēxvNbNȂB| END TO RP CLEARICONS SHOW "ł邱Ƃm߂@l܂傤B TYPE "牽L[ȂB MAKE "KEY CHARCODE RC IFELSE :KEY = 13 [TONE 500 1 STOPWATCH] [TONE 500 1 STOPWATCH] END TO RQ CLEARICONS SHOW "m߂@l܂傤B TYPE "牽L[ȂB MAKE "KEY CHARCODE RC IFELSE :KEY = 13 [TONE 500 1 STOPWATCH] [TONE 500 1 STOPWATCH] END TO ԊmFڐ TELL 0 PU SETPOS [0 -50] SETC 7 REPEAT 12 [FD 78 LABEL "* BK 78 RT 30] SETC 2 REPEAT 60 [FD 78 LABEL " BK 78 RT 6] END TO bj HT REPEAT 60 [PD FD 80 WAIT 60 PE BK 80 RT 6] PD FD 80 END TO ` :NAGASA REPEAT 4 [FD :NAGASA RT 90] END TO g PU SETPOS [-100 -100] PD ` 200 PU SETPOS [-120 -120] PD ` 240 END TO ʂ SETC 14 PU SETPOS [-109 -82] PD SETBG 7 PU SETPOS [-150 0] SETSH 18 SETC 12 PD SHADE HT END TO CC SHOW "ق̑OɂȂ鉹Ɖ̊Ԃ̒ZԂPbłB@ REPEAT 3 [TONE 440 10 WAIT 60] TONE 880 60 SHOW "XgbvEIb`łB END TO STOPWATCH GETTOOLS "TIME RG CT CLEARICONS g@ʂ@PU HOME PU REPEAT 12 [FD 88 LABEL " BK 88 RT 30] SETC 3 bj TONE 100 10 CC SHOW "|UOb܂BUOb͂PłB| SHOW "XgbvEIb`gčl܂傤B SHOW "b֐iޏꍇ́uցvCxꍇ́uēxvNbN܂Bb SETICON 1 h [ԊmFV~[V] SETICON 2 hēx [STOPWATCH] END TO TONE 1000 5 END TO ԊmFV~[V RG HT CT CC CLEARICONS ԊmFڐ PU SETPOS [-180 50] SETC 5 SETSH "` PD BIGSTAMP [2 2] PU SETPOS [180 50] SETC 4 PD SETSH "a BIGSTAMP [2 2] HT ASK 10 [PU SETPOS [-100 80] SETC 3 SETSH 27 PD BIGSTAMP [3 3] ST HT SETC 7] ASK 15 [PU SETPOS [100 80] SETC 3 SETSH 27 PD BIGSTAMP [3 3] ST HT SETC 7] ASK [10 15] [ SETSH 25 BIGSTAMP [2 2] HT WAIT 60] TYPE "L[܂傤B MAKE "KEY CHARCODE RC IFELSE :KEY = 13 [TONE 500 1 ԊmFV~[V] [TONE 500 1 ԊmFV~[V] END TO ԊmFV~[V CC SHOW "|`̂肪‚Ă鎞ԂuFvŕ\܂B| SHOW "|â肪‚Ă鎞ԂuΐFvŕ\܂B| ASK 20 [ HT PU SETPOS [-100 80] SETSH 26 PD BIGSTAMP [2 2]] TELL 25 PU SETPOS [0 -50] REPEAT 10 [REPEAT 60 [SETSH 23 PD FD 75 STAMP PE BK 75 RT 0.1] WAIT 20] ASK 20 [ HT PU SETPOS [100 80] SETSH 26 PD BIGSTAMP [2 2]] PU SETPOS [0 -50] REPEAT 14 [REPEAT 30 [SETC 5 PD FD 75 PD STAMP SETSH 23 PU PE BK 75 PU FD 70 PD SETC 4 STAMP SETSH 23 PU BK 70 RT 0.2 WAIT 1]] ASK 10 [ PU SETPOS [-100 80] PE SETSH 26 BIGSTAMP [2 2] HT PD SETSH 25 BIGSTAMP [2 2] HT] PU SETPOS [0 -50] REPEAT 8 [REPEAT 30 [SETSH 28 PD FD 70 STAMP PE BK 70 RT 0.2] WAIT 20] ASK 15 [ PU SETPOS [100 80] PE SETSH 26 BIGSTAMP [2 2] HT PD SETSH 25 BIGSTAMP [2 2] HT] SHOW "b֐iޏꍇ́uցvCxꍇ́uēxvNbN܂Bb SETICON 1 h [JIKAN] SETICON 2 hēx [ԊmFV~[V] END