procedure percent
(x1, y1, x2, y2, num : int)
drawfillbox (x1 - 2, y1 - 2, x2 + 2, y2 + 2, grey)
drawbox (x1 - 2, y1 - 2, x2 + 2, y2 + 2, black)
for i : 1 .. round ((x2 - x1) * num / 100) by 10
drawfillbox (x1 + i, y1, x1 + i + 7, y2, blue)
end for
end percent
put "Enter a number to be converted into hours and minutes."
put ""
put "NOTE: please enter a whole number, and not Decimals or Letters!!"
put ""
put "when you finish the typing press enter"
var minutes, minu2, newvar, newvar2 : int
get minutes
newvar := minutes div 60
newvar2 := minutes mod 60
cls
locate (8, 30)
color (1)
put "Converting..."
for i : 1 .. 100
locate (10, 34)
put i, "%"
percent (100, 100, 500, 110, i)
delay (50)
end for
cls
locate (7, 23)
put "Your Converted Number is Here"
locate (10, 25)
put newvar, "Hours and ", newvar2, " Minutes"