FnOff 
PlotsOff 
AxesOff:GridOff:ClrDraw
ClrHome:Degree
Disp "Plane/Boat:"
Input "Bearing=",B
Repeat Sù0:Input "Speed=",S:End
Disp "Wind/Current:"
Input "Bearing=",C
Repeat Tù0:Input "Speed=",T:End
ú(abs(S)+abs(T))94/62*1.5üXmin:(abs(S)+abs(T))94/62*1.5üXmax:ú(abs(S)+abs(T))*1.5üYmin:(abs(S)+abs(T))*1.5üYmax

90-BüB:90-CüC
Scos(B)+Tcos(C)üU
Ssin(B)+Tsin(C)üV
ð(UÜ+VÜ)üZ:
If Uø0:90-tanñ(V/U)üÁ
If U=0 and Vù0:0üÁ
If U<0:180+ÁüÁ
Pt-On(0,0,2)
Line(0,0,Scos(B),Ssin(B))
Text(0,0,"Plane/Boat")
For(X,1,500):End
Line(Scos(B),Ssin(B),U,V)
Text(0,0,"Wind/Current")
For(X,1,500):End
Pt-On(U,V,2)
Line(0,0,U,V)
Text(0,0,"Result                            ")
For(X,1,500):End
Text(0,0,"Bearing="):Text(6,0,"Speed=")
Text(0,35,Á)
Text(6,35,Z)
Text(56,0,"("):Text(56,5,U):Text(56,45,","):Text(56,50,V):Text(56,89,")")
Text(0,75,"John"):Text(6,75,"Chen")