start tok64 d64-b3zBdi
1 REM *** * ***** ***  (c)mr.p.
2 REM  *    * * * *    (peter karlsson)
3 REM  *  * * * * ***  for sys pd 1991
4 REM"{141}{up}{sh asterisk*7}*{sh asterisk*2}*{sh asterisk}*{sh asterisk}*{sh asterisk}*{sh asterisk}*{sh asterisk*20}
5 REM  *  * * * * ***  dec.19,1991 thu
6 POKE53280,.:POKE53281,.
7 PRINT"{green}{clear}{down}{right*2}time{space*2}{yellow}(c)1991 mr.p./peter karlsson{down*5}
8 h=-1:m=-1:s=-1
9 INPUT"{yellow}enter starttime: {green}hours{yellow}";h:IFh<.ORh>23ORh<>INT(h)THENPRINT"{up*2}":GOTO9
10 INPUT"{space*15}{green}minutes{yellow}";m:IFm<.ORm>59ORm<>INT(m)THENPRINT"{up*2}":GOTO10
11 INPUT"{space*15}{green}seconds{yellow}";s:IFs<.ORs>59ORs<>INT(s)THENPRINT"{up*2}":GOTO11
12 t=h*3600+m*60+s
13 PRINT"{home}{down*3}{right}{light blue}time one:{space*4}{cyan}"MID$(STR$(100+h),3)":"MID$(STR$(100+m),3);
14 PRINT":"MID$(STR$(100+s),3)"{down*7}
15 h=-1:m=-1:s=-1
16 INPUT"{yellow}enter time to add: {green}hrs{yellow}";h
17 IFh<-23ORh>23ORh<>INT(h)THENPRINT"{up*2}":GOTO16
18 INPUT"{space*15}{green}minutes{yellow}";m:IFm<.ORm>59ORm<>INT(m)THENPRINT"{up*2}":GOTO18
19 INPUT"{space*15}{green}seconds{yellow}";s:IFs<.ORs>59ORs<>INT(s)THENPRINT"{up*2}":GOTO19
20 q=SGN(h):q=q-(q=.):t=t+h*3600+(m*q)*60+(q*s):q=SGN(h):h=ABS(h)
21 PRINT"{home}{down*4}{right}{light blue}time two:{space*4}{cyan}"MID$(STR$(100+h),3)":"MID$(STR$(100+m),3);
22 PRINT":"MID$(STR$(100+s),3):IFq<.THENPRINT"{up}{right*13}{yellow}-
23 d=INT(t/86400):t=t-d*86400:IFt<.THENt=t+86400
24 h=INT(t/3600):t=t-h*3600:m=INT(t/60):s=t-m*60
25 PRINT"{home}{down*5}{right}{light blue}sum:{space*9}{cyan}"MID$(STR$(100+h),3)":"MID$(STR$(100+m),3);
26 PRINT":"MID$(STR$(100+s),3);
27 IFd<.THENPRINT" past day
28 IFd>.THENPRINT" following day
29 PRINT"{home}{down*19}{white}press any key to continue, or q to quit
30 POKE198,.:WAIT198,1:GETa$:IFa$<>"q"THENRUN
31 PRINT"{gray}{clear}";
stop tok64
(bastext 1.0)