View.Set ("offscreenonly")
View.Update
setscreen ("graphics:1024;768")
var font : int := Font.New ("chinaone:40:bold")
var change, j, l: int
change := 1
j := 1
l := 600
procedure bob
drawfilloval (l, 300, 20, 20, green)
drawline (l, 300, l, 200, green)
drawline (l, 200, l + 25, 150, green)
drawline (l, 200, l - 25, 150, green)
drawline (l, 250, l + 40, 275, green)
drawline (l, 250, l - 40, 275, green)
drawfilloval (l + 40, 275, 8, 8, green)
drawfilloval (l - 40, 275, 8, 8, green)
drawline (l - 25, 250, l + 25 ,225, green)
drawline (l - 5, 250, l - 10, 225, green)
end bob
procedure john
drawfilloval (j, 300, 20, 20, black)
drawline (j, 300, j, 200, black)
drawline (j, 200, j + 25, 150, black)
drawline (j, 200, j - 25, 150, black)
drawline (j, 250, j + 40, 275, black)
drawline (j, 250, j - 40, 275, black)
drawfilloval (j + 40, 275, 8, 8, black)
drawfilloval (j - 40, 275, 8, 8, black)
drawline (j - 25, 250, j + 25 ,225, black)
drawline (j - 5, 250, j - 10, 225, black)
l := l - 1
end john
loop
bob
john
if change = 1 then
j := j + 1
elsif change = -1 then
View.Update
end if
delay (1)
cls                                                             
change := -change
exit when l = j + 95
bob
john
delay (10)
end loop
drawfillstar (100, 250, 500, 600, red)
Font.Draw ("KAPOW!!", 200, 400, font, black)
cls
bob
john