1 REM******
2 REM* EVENT TIMER
3 REM* WM V R SMITH
4 REM* ARTSCI INC
5 REM******
10 CLS
20 FL=0:F1=0:F2=0
100 LOCATE0,0
102 IF F2=0 THEN 110
104 PRINT"EVENT: ";
105 PRINT MID$(T$,TC,10)
106 TC=TC+1:IF TC>LEN(T$)-10 THEN TC=1
109 GOTO 120
110 PRINT"**EVENT TIMER**"
120 IF FL=0 THEN 125
122 PRINT"     ":GOTO130
125 PRINT"1-START"
130 PRINT"2-STOP ";
132 IF FL=0 THEN 139
135 PRINT TIME$;
139 PRINT
140 IF F2=0 THEN 145
141 PRINT"COST:  ";
142 ET$=TIME$:GOSUB470:C=TT*R
143 PRINT USING"####,.##";C;
144 GOTO 150
145 PRINT"3-TITLE";
150 I$=INKEY$
160 I=VAL(I$)
170 ON I GOTO 200,400,600
175 IF FL=0 THEN 100
176 LOCATE0,1
177 PRINT"START: ";
178 PRINTST$
180 GOTO 100
200 IF FL=1 THEN 100
206 FL=1
210 ST$=TIME$
215 GOSUB 410
220 GOTO 100
400 REM*** STOP
405 GOSUB 410
407 GOTO1000
410 ET$=TIME$
430 T=VAL(ST$)*60*60
440 T1=VAL(MID$(ST$,4,2))*60
450 T2=VAL(MID$(ST$,7,2))
460 TS=T+T1+T2
470 T=VAL(ET$)*60*60
480 T1=VAL(MID$(ET$,4,2))*60
490 T2=VAL(MID$(ET$,7,2))
500 ET=T+T1+T2
510 TT=ET-TS
520 IF TT<0 THEN TT=TS-ET
530 HT=INT(TT/360)
540 T1=TT-(HT*360)
550 MT=INT(T1/60)
560 ST=T1-(MT*60)
570 RETURN
599 IF INKEY$="" THEN 199
600 REM
605 F2=1
610 CLS
620 PRINT"TITLE ";
630 INPUT T$
635 IF T$="" THEN F2=0
636 LOCATE0,0
640 LOCATE 0,3
650 PRINT"             ";
660 LOCATE0,3
670 PRINT"RATE PER HOUR:";
675 INPUT R$:R=VAL(R$)
680 R=(R/60)/60
685 TC=1
690 CLS
695 GOTO 100
1000 REM
1010 LPRINT"*************"
1020 LPRINT" EVENT:
1030 LPRINT
1035 T$=T$+" "
1040 L=LEN(T$):X=1
1041 Y=23
1042 IF MID$(T$,Y+X,1)=" " THEN 1045
1043 Y=Y-1:IF Y>1 THEN 1042
1045 LPRINT MID$(T$,X,Y)
1046 X=X+Y+1
1047 IF X<L THEN 1041
1048 TC=1
1049 LPRINT
1050 LPRINT"START:  ";ST$
1060 LPRINT"FINISH: ";ET$
1070 LPRINT"TIME TAKEN:"
1080 LPRINT "    ";HT;" HOURS"
1090 LPRINT "    ";MT;" MINS"
1100 LPRINT "    ";ST;" SECONDS"
1110 LPRINT
1112 LPRINT"RATE: ";
1115 LPRINT USING"######,.##";VAL(R$)
1120 LPRINT"COST: ";
1130 LPRINT USING"######,.##";C
1140 GOTO10