┌─────────────────────────────────────┐
│                                                                          │
│  ストップウオッチ（ラップタイマー付き）DOS/V 1/100 秒  98 1秒単位の測定。│
│                                                                          │
└─────────────────────────────────────┘

  【１】  起動後、１回目のスペースにて、測定スタートします。

  ★★★★★     TIMER START      ★★★★★
  03:02:43:00    03:02:43:00     00:00:00:00    03:02:43:00   00:00:00:00
  ---------------------------------------------------------------------------
  
  【２】  ２回目のスペース。[1] は、この時、スタート時刻です。

  [1]前回PUSH     [2]今回STOP     [1]--->[2]     [3]ｽﾀｰﾄ時刻   [3]--->[2]
  03:02:43:00     03:02:45:00     00:00:02:00    03:02:43:00   00:00:02:00
  ---------------------------------------------------------------------------
  
  【３】  スペースの代りに、Ｌボタンでは、１回目の PUSH で、START 時刻が設定
          されますが、表示はメッセージラインのみです。
          ２回目の  Ｌボタンで、下のように記録されます。

  ★LAP START     ★  STOP        ★LAP TIME
  03:02:49:00    00:00:05:00     00:00:05:00
  ---------------------------------------------------------------------------
  【４】 【５】までは、SPACE  L ボタン 任意です。
  ---------------------------------------------------------------------------
  【５】 ＥＳＣ で、終了。
         この場合。[3]--->[2] には、LAP TIME も加算されます。

  [1]前回PUSH    [2]終了時刻     [1]--->[2]     [3]ｽﾀｰﾄ時刻   [3]--->[2]
  03:02:49:00    03:02:59:00     00:00:10:00    03:02:43:00   00:00:16:00
  ---------------------------------------------------------------------------

  以上、一応、標準の使い方です。遊んでみて下さい。

============ LAP_PLUS.def===== dos/v 1/100 (98 sec.)
* m                      1996-07-12 ＪＵＮ
80 ^\ "lap_plus"
       ?.Ei[+,#O "trecord.dat"#m (s)?'y' #_#<  &01
       &11 u=r,&12 v=r,&13 w=r,&14 x=r,u=o,v=p,w=q,x=t,
       &15 o=r,&16 p=r,&17 q=r,&18 t=r, &01 fa-,fb-,

:A     (fb)?{ &02 }
       (fb)??{ &00 &s }
       &k (r==$1b)?{ &22 &30 >Z }
          (r==$20&&fa==1)?{ &20 &30 }
          (r==$20&&fa!=1)?{ &21 &30 fa+,}
          (r=='l'&&fb!=1)?{ &01 &23  fb+,}
          (r=='l'&&fb==1)?{ &23  fb-,} &d >A

:Z     Ei], &m("   ★ 終了しました。★")

20:    &?("  [1]前回PUSH    [2]今回STOP     [1]--->[2]     [3]ｽﾀｰﾄ時刻   $
             [3]--->[2] ")#m
       kk=k,bb=b,mm=m,hh=h,(k<t)?{bb--,kk+=100,}
       (bb<q)?{bb+=60,mm--,}((bb-q)>60)?{mm++,bb-=60}(mm<p)?{mm+=60,hh--,}
       &?("%02d:%02d:%02d:%02d    %02d:%02d:%02d:%02d     $
       %02d:%02d:%02d:%02d",o,p,q,t,h,m,b,k,hh-o,mm-p,bb-q,kk-t)

21:    &?("  ★★★★★     TIMER START     ★★★★★   ")#m &01
       &11 u=r,&12 v=r,&13 w=r,&14 x=r,u=o,v=p,w=q,x=t,
       &15 o=r,&16 p=r,&17 q=r,&18 t=r, &01 fa-,
       kk=k,bb=b,mm=m,hh=h,(k<t)?{bb--,kk+=100,}
       (bb<q)?{bb+=60,mm--,}((bb-q)>60)?{mm++,bb-=60}(mm<p)?{mm+=60,hh--,}
       &?("%02d:%02d:%02d:%02d    %02d:%02d:%02d:%02d     $
       %02d:%02d:%02d:%02d",o,p,q,t,h,m,b,k,hh-o,mm-p,bb-q,kk-t)

22:    &?("  [1]前回PUSH    [2]終了時刻     [1]--->[2]     [3]ｽﾀｰﾄ時刻   $
             [3]--->[2] ")#m
       kk=k,bb=b,mm=m,hh=h,(k<t)?{bb--,kk+=100,}
       (bb<q)?{bb+=60,mm--,}((bb-q)>60)?{mm++,bb-=60}(mm<p)?{mm+=60,hh--,}
       &?("%02d:%02d:%02d:%02d    %02d:%02d:%02d:%02d     $
       %02d:%02d:%02d:%02d",o,p,q,t,h,m,b,k,hh-o,mm-p,bb-q,kk-t) &d

23:    (fb)?{ oo=o,pp=p,qq=q,tt=t,
       &?("  ★LAP START    ★  STOP        ★LAP TIME                   $
                         ")#m
       kk=k,bb=b,mm=m,hh=h,(k<t)?{bb--,kk+=100,}
       (bb<q)?{bb+=60,mm--,}((bb-q)>60)?{mm++,bb-=60}(mm<p)?{mm+=60,hh--,}
       &?("%02d:%02d:%02d:%02d    %02d:%02d:%02d:%02d     $
       %02d:%02d:%02d:%02d",o,p,q,t,hh-oo,mm-pp,bb-qq,kk-tt,hh-oo,mm-pp,bb-qq,kk-tt)
       #m#<#m#l }


30:    &01 f=k,g=b,(k<x)?{g--,f+=100,}
       (g<w)?{g+=60,b+=60,m--,}(m<v)?{m+=60,h--,}
       &?("    %02d:%02d:%02d:%02d   $
       %02d:%02d:%02d:%02d",u,v,w,x,h-u,m-v,g-w,f-x)#m#<#m#l

00:    ax=$2c00,&i($21)h=cx>>8,m=cx&$ff,b=dx>>8,k=dx&$ff,
       &m("        ★  現在時刻 ( %02d:%02d:%02d:%02d ) $
       (進行中 SPC ->STOP  ESC ->終了)",h,m,b,k)

01:    ax=$2c00,&i($21)o=cx>>8,p=cx&$ff,q=dx>>8,t=dx&$ff,

02:    oo=o,pp=p,qq=q,tt=t,
       ax=$2c00,&i($21)h=cx>>8,m=cx&$ff,b=dx>>8,k=dx&$ff,
       kk=k,bb=b,mm=m,hh=h,(k<t)?{bb--,kk+=100,}
       (bb<q)?{bb+=60,mm--,}((bb-q)>60)?{mm++,bb-=60}(mm<p)?{mm+=60,hh--,
       }
       &m("  LAP START %02d:%02d:%02d:%02d    [ %02d:%02d:%02d:%02d ]    $
       ",o,p,q,t,hh-oo,mm-pp,bb-qq,kk-tt)

11:     (3+$)."$[8]"
12:     (3+$)."$[8]"
13:     (3+$)."$[8]"
14:     (3+$)."$[8]"
15:     (3+$)."$[8]"
16:     (3+$)."$[8]"
17:     (3+$)."$[8]"
18:     (3+$)."$[8]"
*
=============================