Solar System

Enter DELETE 800-820 and then the following lines:-
105 CLS:PRIMT"Plea3e Wait :-":DIM sc{360,2):DEG:
FOR i%=l TO 360:sc(i%,l)=SIN(i%):sc(i%,2)=COS
(i%):NEXT i%
800 cod=COS(d(p, 3)) :sod=SIN(d(p, 3))
805 FOR an=l TO 360 STEP K*3
810 x=d(p,5)*sc(an,2)-d(p,4)):y=d(p,5)*sc(an,1)*
SQR(l-d(p,4)"2)
820 xl=x*cod-y*sod:yl=x*sod+y*cod

Enter year(e.g.1978):PRINT month(1-12):PRINT day(1-31):PRINT hour(0-23):PRINT minute(0-59)