{Tape Recording Calculator v1.1}
{Author: DK, June '97}
{programmed for Turbo Pascal}

{This is a program that can be used to easily finf out how much time}
{is left on an audio tape after recording material of a known length onto it.}
{It gives the total time recorded plus how much time is left on one side}
{of either a 60 or 90 minute tape.}
 

program cdcalc;

uses wincrt;

var
   totaltime:real;
   totalsec:integer;
   totalmin:integer;
   numsongs:integer;
   temp2:real;

procedure getseconds;
var
   lc:integer;
   temp:integer;
begin
     totalsec:=0;
     for lc:=1 to numsongs do
     begin
          write('Enter SEC part of song ',lc,':');
          readln(temp);
          totalsec:=totalsec+temp;
     end;
                     
end;

procedure getminutes;
var
   lc:integer;
   temp:integer;
begin
     totalmin:=0;
     for lc:=1 to numsongs do
     begin
          write('Enter MIN part of song ',lc,':');
          readln(temp);
          totalmin:=totalmin+temp;
     end;
end;

begin
     totaltime:=0;
     writeln('Enter time to add to songlist time(s):');
     readln(temp2);
     totaltime:=totaltime+temp2;
     writeln('Enter number of songs:');
     readln(numsongs);
     getseconds;
     getminutes;
     totaltime:=totaltime+totalmin+(totalsec/60);
     writeln('Total time = ',totaltime:8:2);
     writeln;
     writeln('Time left on one side of a 60 min tape: ', (30-totaltime):8:2);
     writeln('Time left on one side of a 90 min tape: ', (45-totaltime):8:2);
     writeln;
     writeln;
     writeln('Tape Recording Calculator v1.1 by DK, June ''97');
     writeln('http://www.ilos.net/~dk/');
     writeln('dk@ilos.net');

end.