View.Set ("Graphics,Offscreenonly,nobuttonbar")
fcn cnd (exps : boolean, var x : int, y : int) : boolean
    if exps then
        x := y
    end if
    result false
end cnd
var pFTString : array 0..1 of string := init ("","Paused")
var pB,pI,pT,pFTI, pX, pY, pX2, pY2, bX, bY, bXV,bYV,pW,pW2, pF, pWid, pLen, pFLocX1, pFLocX2,pFLocX3, pFLocY3,pFLocY1,pFLocY2: int := -5
var chars : array char of boolean
loop
    Input.KeyDown (chars)
    exit when /*Initalization Conditions*/cnd ((pI = -5), pF, Font.New ("Arial:24")) or cnd ((pI = -5), pFTI, 0) or cnd ((pI = -5), pB, -1) or cnd ((pI = -5), pFLocY1, maxy - 40)or cnd ((pI = -5), pFLocY3, (maxy div 4) * 3) or cnd ((pI = -5), pFLocX3, maxx div 2) or cnd ((pI = -5), pFLocY2, maxy - 40) or cnd ((pI = -5), pFLocX1, 10)or cnd ((pI = -5), pFLocX2, maxx-30)or cnd ((pI = -5), pWid, 15)or cnd ((pI = -5), pLen, 40)or cnd ((pI = -5), pW, 0) or cnd ((pI = -5), pW2, 0) or cnd ((pI = -5), pI, 0) or cnd ((pI = 0), pX, 10)or cnd ((pI = 0), bXV, ((Rand.Int (0,1)*2) -1)*100* Rand.Int (3,6)) or cnd ((pI = 0), bYV, ((Rand.Int (0,1)*2) -1)*100* Rand.Int (3,5)) or cnd ((pI = 0), pY, (maxy div 2)*1000) or cnd ((pI = 0), pX2, (maxx - 10)*1000) or cnd ((pI = 0), pY2, (maxy div 2)*1000)or cnd ((pI = 0),bX, (maxx div 2)*1000) or cnd ((pI = 0),bY, (maxy div 2)*1000) or cnd ((pI = 2), pT, Time.ElapsedCPU) or cnd ((pI = 2), pI, 0) or cnd ((pT + 3000 <= Time.ElapsedCPU) and pI = 0, pI, -1) /*Collision Conditions*/or cnd ((bX < 5000) and (pI = -1),pW2, pW2+1) or cnd ((bX < 5000) and (pI = -1),pI, 2) or cnd ((bX > (maxx - 5)*1000)and (pI = -1),pW, pW + 1) or cnd ((bX > (maxx - 5)*1000)and (pI = -1),pI, 2) or cnd ((pI = -1),bX, bX + bXV) or cnd ((pI = -1),bY, bY + bYV) or cnd ((bY < 5000) and (bYV < 0),bYV, bYV * -1) or cnd ((bY > (maxy - 5)*1000)and (bYV > 0),bYV, bYV * -1) or cnd ( (bX >= pX and bX <= pX + 19000) and (bY >= pY -40000 and bY <= pY + 40000)and (bXV < 0) or (bX <= pX2 and bX >= pX2 - 19000)and (bY >= pY2 -40000 and bY <= pY2 + 40000) and (bXV > 0),bXV, round (bXV * -1.045)) /*User Controls*/or cnd (chars ('w') and (pY < (maxy - 40)*1000),pY, pY + 1000) or cnd (chars ('s')and (pY > 40000),pY, pY - 1000) or cnd (chars (KEY_UP_ARROW)and(pY2 < (maxy - 40)*1000),pY2, pY2 + 1000) or cnd (chars (KEY_DOWN_ARROW) and (pY2 > 40000),pY2, pY2 - 1000) or cnd (chars ('p') and pB = -1 ,pB, 1)or cnd (pB = 1 and chars ('p') = false ,pI, pI * -1)  or cnd (pB = 1 and chars ('p') = false ,pB, -1) or cnd ((pI = 1) or (pI = -1), pFTI, (pI + 1) div 2)
    drawfillbox (-1,-1,maxx+1,maxy+1, black)
    drawfilloval (round (bX / 1000),round(bY / 1000),5,5,white)
    drawfillbox (round (pX / 1000),round (pY / 1000)-pLen,round(pX / 1000)+pWid,round(pY / 1000)+pLen,white)
    drawfillbox (round (pX2 / 1000),round (pY2 / 1000)-pLen,round(pX2 / 1000)-pWid,round(pY2 / 1000)+pLen,white)
    Font.Draw (pFTString (pFTI),pFLocX3 - (Font.Width (pFTString (pFTI),pF) div 2),pFLocY3, pF,white)
    Font.Draw (intstr (pW),pFLocX1,pFLocY1, pF,white)
    Font.Draw (intstr (pW2),pFLocX2,pFLocY2, pF,white)
    View.Update
end loop
%Line 23 here

var num : int
for i : 1 .. 5
    get num
    put "For ",num," men, the smallest number of coconuts is ",num ** 5 - num + 1
end for