90 degrees angles

I need to save the rotation of objects in a program I am using. If any one knows how to get the true Pitch, Yaw, Roll of the cube at 90 degrees angles it would be helpful.

Graphics3D 640,480
SetBuffer BackBuffer()

Cam=CreateCamera()
MoveEntity Cam,0,0,-5

Cone=CreateCube()

Yaw#=0

While Not KeyDown(1)

Cls

Yaw#=Yaw#+1
If Yaw#>180 Then Yaw#=Yaw#-360

RotateEntity Cone,0,0,0,1

TurnEntity Cone,90,Yaw#,0

If KeyDown(28) Then;---How do I make this not change the cube's angle?---
	RotateEntity Cone,EntityPitch#(Cone,1),EntityYaw#(Cone,1),EntityRoll#(Cone,1),1
End If

RenderWorld()
Text 10,10,"Press Enter"
Text 10,20,Yaw#

Text 10,40,EntityPitch#(Cone,1)
Text 10,50,EntityYaw#(Cone,1)
Text 10,60,EntityRoll#(Cone,1)

Flip
Wend