Time.bas=ÈP[>o,>xp5TEXTSmBa`@a ¤@a zHSMainh§nf'Rþ°TRþP¢h¤h¤nf'ScÊ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

    Source: geocities.com/renwand