100 REM * TIME CALCULATION PROGRAM * 110 AN$="":CLS 120 PRINT:PRINT"(A) COMPUTE ELAPSED INTERVAL" 130 PRINT:PRINT"(B) COMPUTE TOTAL TIME" 140 PRINT:PRINT"(C) QUIT" 150 PRINT:INPUT"ENTER YOUR CHOICE";AN$ 160 IF AN$="A" OR AN$="a" THEN GOSUB 4000:GOSUB 2005 170 IF AN$="B" OR AN$="b" THEN GOSUB 4000:GOSUB 1005 180 IF AN$="C" OR AN$="c" THEN MENU 190 GOTO 100 200 END 1000 REM * TOTAL HOURS,MINS,SECS * 1005 H=0:M=0:H1=0:M1=0:AN$="" 1010 CLS:PRINT:PRINT"[ENTER 0,0 TO END]" 1020 PRINT:PRINT"INPUT " ;H$;"S,";M$;"S ":INPUT H,M 1030 IF H=0 AND M=0 THEN GOTO 1100 1040 H1=H1+H 1050 M1=M1+M 1060 GOTO 1010 1100 IF M1 => 60 THEN H1=H1+1 ELSE 1200 1110 M1=M1-60 1120 IF M1 <= 59 THEN 1200 1130 GOTO 1100 1200 CLS 1210 PRINT:PRINT"TOTAL ";H$;"S= ";H1 1220 PRINT:IF M1 <= 0 THEN PRINT"TOTAL ";M$;"S= 0"ELSE PRINT"TOTAL ";M$;"S= ";M1 1230 GOSUB 3000 1240 IF AN$="Y" OR AN$="y" THEN 1005 1250 RETURN 1260 END 2000 REM * SPAN OF TIME * 2005 CLS:SH=0:SM=0:QH=0:QM=0:H=0:M=0: AN$="" 2010 PRINT:PRINT"INPUT START ";H$;",";M$;" ":INPUT SH,SM 2020 CLS 2030 PRINT:PRINT"INPUT STOP ";H$;",";M$;" ":INPUT QH,QM 2040 IF SH>QH THEN 2300 2100 H=QH-SH 2110 IF SM>QM THEN H=H-1 2120 M=SM+QM 2130 IF SM>0 THEN M=60-SM 2140 M=M+QM 2150 IF M>59 THEN M=M-60 2160 CLS 2170 PRINT H$;"S: ";H 2180 PRINT M$;"S: ";M 2190 GOSUB 3000 2200 IF AN$="Y" OR AN$="y" THEN 2005 2210 RETURN 2220 END 2300 SH=24-SH 2310 H=SH+QH 2320 GOTO 2120 2330 RETURN 2340 END 3000 PRINT:INPUT"INPUT ANOTHER CALCULATION (Y/N)";AN$ 3010 RETURN 3020 END 4000 REM * SELECT HR/MIN OR MIN/SEC * 4010 AN$="":CLS 4020 PRINT:PRINT"(A) HOURS/MINUTES" 4030 PRINT:PRINT"(B) MINUTES/SECONDS" 4040 PRINT:INPUT"ENTER CHOICE ";AN$ 4050 IF AN$="A" OR AN$="a" THEN H$="HOUR":M$="MINUTE":RETURN 4060 IF AN$="B" OR AN$="b" THEN H$="MINUTE":M$="SECOND":RETURN 4070 IF AN$<>"A" OR AN$<>"a" OR AN$<>"B" OR AN$<>"b" THEN 4010 4080 END