1000 rem add up length of music tracks in minutes/seconds giving total 1010 rem subtract running total from length of medium giving remaining time 1020 cls 1030 dim da(50,7) 1040 print "Tape / Disk Runtime Calculator:" 1050 print 1060 input "Enter total length of tape in minutes: ";tl 1070 print 1080 input "Enter standard gap value in seconds (typically 2): ";tg 1090 print 1100 print "Begin entering lengths of each track. Enter zero to end program." 1110 print 1120 let ac = 0 1130 let trs = tl*60 : rem total length in seconds (instead of minutes) 1140 let rt = trs : rem set remaining time 1150 let n = 0 : rem number of tracks in collection 1160 input "Track length in minutes and seconds (mm:ss) -- ";t$ 1170 print 1180 if t$ = "0" then 1330 1190 let n = n+1 1200 let mm = val(left$(t$,2)) 1210 let ss = val(right$(t$,2)) 1220 let tt = mm*60+ss 1230 let ac = ac+tt+tg : rem accumumator for total run time plus gap 1240 let rt = rt-tt-tg : rem upate remaining time for track length and gap 1250 let acm = int(ac/60) : rem accumulated time in minutes 1260 let acs = ac-(acm*60) : rem accumulated time in seconds 1270 let rtm = int(rt/60) : rem remaining time in minutes 1280 let rts = rt-(rtm*60) : rem remaining time in seconds 1290 print "Track: ";n;" Time: ";t$;" Gap (s): ";tg;" Total Time: ";acm;" min ";acs;" sec -- Remaining Time: ";rtm;" min ";rts;" sec." 1300 let da(n,1) = mm : let da(n,2) = ss : let da(n,3) = tg : let da(n,4) = acm : let da(n,5) = acs : let da(n,6) = rtm : let da(n,7) = rts 1310 print 1320 goto 1160 1330 print : print 1340 print "Final Report for Tape / Disk Track Timings:" 1350 print 1360 print "Track:";tab (15);"Track Length:";tab (35);"Gap:";tab (45);"Run Time:";tab (60);"Remaining:" 1370 print "================================================================================" 1380 for i = 1 to n 1390 print using " ###";i;tab (16); 1400 print using " ##:";da(i,1); 1410 print using "##";da(i,2);tab (35); 1420 print using " ###";da(i,3);tab (45); 1430 print using " ##:";da(i,4); 1440 print using "##";da(i,5);tab (60); 1450 print using " ##:";da(i,6); 1460 print using "##";da(i,7) 1470 next i 1480 print "================================================================================" 1490 print 1500 print "End program." 1510 end