1000 rem calculate elapsed time
1010 dim t$(2)
1020 cls
1030 print "Calulate Elapsed Time:"
1040 print "========================================================================================================================"
1050 print
1060 input "Enter start time in format (hh:mm): ";t$(2)
1070 print
1080 input "Enter finish time in format (hh:mm): ";t$(1)
1090 print
1100 rem
1110 let t1 = val(left$(t$(1),2))*60+val(right$(t$(1),2))
1120 let t2 = val(left$(t$(2),2))*60+val(right$(t$(2),2))
1130 let t3 = t1-t2
1140 let h = int(t3/60)
1150 let m = t3-h*60
1160 print "The elapsed time is ";h;" hours and ";m;" minutes."
1170 print
1180 print "------------------------------------------------------------------------------------------------------------------------"
1190 print "End program."
1200 end