View.Set ("graphics:786;540,nobuttonbar")
var book, money, late : int
var zero : real
var font1 : int
var fontselect, text : string


fontselect := "Times New Roman:17"
font1 := Font.New (fontselect)
text := "How many books did you take out?"
drawfilloval (maxx div 2, maxy div 2, 175, 60, yellow)
Draw.Text (text, maxx div 2 - 160, maxy div 2, font1, 12)

drawfilloval (maxx div 2, maxy div 2 - 40, 70, 20, red)
locate (27 div 2 + 7, 80 div 2 + 2)
color (white)
colorback (red)
get book

text := "How many days late?"
drawfilloval (maxx div 2, maxy div 2, 173, 60, yellow)
Draw.Text (text, maxx div 2 - 120, maxy div 2, font1, 12)
Font.Free (font1)

drawfilloval (maxx div 2, maxy div 2 - 40, 70, 20, red)
locate (27 div 2 + 7, 80 div 2 + 2)
color (white)
colorback (red)
get late

for decreasing ypos : 195 .. 120 by 5
    drawfilloval (maxx div 2, ypos, 20, 20, 12)
    delay (40)
end for

for decreasing xpos : 390 .. 200 by 5
    drawfilloval (xpos, 120, 20, 20, 12)
    delay (40)
end for

money := book * late

delay (100)
for size : 1 .. money div 10 * 4
    drawfilloval (200, 120, size, size, 9)
    delay (10)
end for


text := money

text:= strint(money)