'   ADDTIME
'   Louis Shapiro
'   70210,306
5  cls
   locate 7,1
   print "   *  Enter 999 at Minutes to end  *"
   print "   * Enter 111 at Minutes to reset *"
10 locate 1,1
   input "Minutes";m
   if m = 999 then cls:end
   if m = 111 then goto 400
   input "Seconds";s
   locate 1,9:print "    ";
   locate 2,9:print "    ";
   locate 4,2
   print "        "
   locate 4,2
   print m;":";
   if s < 10 then print "0";
   print s
   m1 = m1+m
   s1 = s1+s
100 if s1<60 then goto 200
   s1 = s1-60
   m1 = m1+1
   goto 100
   200 if m1<60 then goto 300
   m1 = m1-60
   h1 = h1+1
   goto 200
300 box 1,26,5,36,1
   locate 3,29
   print "       "
   locate 3,29
   if h1 >0 then print h1;":";
   print m1;":";
   if s1 < 10 then print "0";
   print s1
   goto 10
400 m=0:s=0:m1=0:s1=0:h1=0
   goto 5