Time.bas =ÈP[>o,>xp 5 TEXTSmBa `@a ¤@a z H S Main h§ nf ' Rþ °T RþP¢ h¤ h¤ nf ' S cÊ h¤ c’' Time.bas ? CAT(87);"1 - Military to AM-PM" ? "2 - AM-PM to Military" ? "3 - Time Between AM-PM" INPUT "Solve for"; a IF a=1 INPUT "Enter Military Time 100ths ";b c=60*(b/100) ? ROUND(c,1);" Minutes." FI IF a=2 INPUT "Enter AM-PM Minutes "; d c=100*(d/60) ? ROUND(c,1);" 100ths of an hour." FI IF a=3 ? "1 - AM to PM" ? "2 - AM to AM" ? "3 - PM to PM" INPUT "Solve for"; e IF e=1 INPUT "Enter AM Hour, AM Minute, PM Hour, PM Minute";f,g,h,i IF f=12 f=0 FI IF h=12 h=0 FI j=11-f+h k=60-g+i j2=j+1 k2=k-60 FI IF e=2 INPUT "Enter AM Hour, AM Minute, AM Hour, AM Minute";f,g,h,i IF f=12 f=0 FI IF h=12 h=0 FI j=(h-f)-1 k=60-g+i j2=j+1 k2=k-60 FI IF e=3 INPUT "Enter PM Hour, PM Minute, PM Hour, PM MInute";f,g,h,i IF f=12 f=0 FI IF h=12 h=0 FI j=h-f-1 k=60-g+i j2=j+1 k2=k-60 FI ?ROUND(j,1) ;" Hours ";ROUND(k,1);" Minutes or..." ?ROUND(j2,1) ;" Hours ";ROUND(k2,1) ;" Minutes." FI j2,1) ;" Hours ";ROUND(k2,1) ;" Minutes." FI