wheel of fortune program, what does this mean? - Illegal picture ID number '0'

[kronos44]

when i run my program it gives me this retarded error message that says "Illegal picture ID number '0'"
it happens on this line: wheelDegree := Pic.Rotate (wheel, i, centreX, centreY)

here's the section of the program with the error:

%pic of wheel
var wheel : int := Pic.New (0, 0, 500, 500)

%draw pointer
var xp : array 1 .. 3 of int := init (70, 30, 30)
var yp : array 1 .. 3 of int := init (250, 260, 240)
drawfillpolygon (xp, yp, 3, blue)

%draw scores
drawfillbox (5, 5, 100, 100, 1)
drawfillbox (400, 5, 495, 100, 1)
Font.Draw (p1, 15, 80, nameFont, white)
Font.Draw (p2, 410, 80, nameFont, white)


%wheel spinning time
var degreeOfSpin : int
var wheelDegree : int
var loseTurn1, loseTurn2 : int
loseTurn1 := 0
loseTurn2 := 0
var lostTurns1, lostTurns2 : int
lostTurns1 := 0
lostTurns2 := 0
var p1cash, p2cash : int
p1cash := 0
p2cash := 0
var p1fontCash, p2fontCash : string
p1fontCash := ""
p2fontCash := ""

loop

if loseTurn1 not= 1 or lostTurns1 > 1 then
loseTurn1 := 0
lostTurns1 := 0
put p1, " press enter to spin"
loop
getch (go)
if go = chr (10) then
randint (degreeOfSpin, 540, 1440)

for i : 0 .. degreeOfSpin by 20
%rotate wheel, rotated wheel pic becomes wheeldegree
wheelDegree := Pic.Rotate (wheel, i, centreX, centreY)
cls

%draw scores
%drawfillbox (5, 5, 100, 100, 1)
%Font.Draw (p1, 15, 80, nameFont, white)
%drawfillbox (400, 5, 495, 100, 1)
%Font.Draw (p2, 410, 80, nameFont, white)

%draw new rotated wheel
Pic.Draw (wheelDegree, 0, 0, picCopy)
%draw pointer
drawfillpolygon (xp, yp, 3, blue)
delay (10)
end for
exit
end if

end loop

[Clayton]

You don't need to create another topic to ask a question you already asked in another thread. For that reason, I'm locking this one.