planet  o P L A N E T was written Peter Camaron of Oxford ZX Computing oct/nov-83-124  31743{:5 "You are entering orbit about"'"the octahedral planet."'"Your aim is to make the closest"'"possible approach."'"If the image overflows the"'"screen,you have crashed."'"Control may fail hyperspace"'"jump will still operate." "Controls:"'"z for lower orbit"'"x for higher orbit"'" (each costs 1 fuel unit)"'"c for position and"'" velocity report(free)"'"n to restore control after"'" failure (cost 10)"'"m for hiperspace jump(cost 30)" (`"Your mission is completed on"'"leaving the planet (image<5)"'"Restoring control then costs 5" 2i=023 <n:31744|+i,n Fi P33!,24,124|,17,0,88X,1,0,3,237,176,201,33!,1,88X,17,0,88X,1,255,2,237,176,201 Z 580D d"Enter level(1-5)";e nefuel=0:size=0:d=1:a$="":f(x,y )=x+((y-x)y>x):k=1+e/4 x0p=-2*k*:q=-2*k*:r=-2*k* 'l=4*:m=4*:n=4* a=l*l+m*m:b=a+n*n .x1=40(*m/(a*b):x2=x1*l/m:x3=0 6y1=40(*l*n/(b*a):y2=y1*l/m:y3=-40(*a/b s=f(x1,x2) s128450 w=f(y3,y2):t=f(y1,w) t88X450 $image=f(s,t):size=f(size,image) 6:7:0: image<5490 Dd=00,15;2;"Control failure":260 J0,0;0;"Approach speed:";-(1000*(l*p+m*q+n*r)) a$="c"0;"Coordinates:";(1000*l);",";(1000*m);",";(1000*n);"Velocity:";(1000*p);",";(1000*q);",";(1000*r) 1:128+x1,88X+y1:x3-x1,y3-y1:x2-x3,y2-y3:-x1-x2,-y1-y2:-x2+x1,-y2+y1:-x3+x2,-y3+y2:x1+x3,y1+y3:-x2-x1,-y2-y1:x3+x2,y3+y2:-x1-x3,-y1-y3:-x3+x1,-y3+y1:x2+x3,y2+y3:x1-x2,y1-y2 ,0:21,0;"Image:";image /0:21,18;"Fuel used:";fuel "a$="" ,i=1200/2^e 6="m"500 @=""340T Ja$= Ti ^1a$="n"d=0d=1:fuel=fuel+10 h c=0 ra$="z"c=-1 |a$="x"c=1 1d=1d=1-(*(1+k/200)) 0l=l=p/20:m=m+q/20:n=n+r/20 u=b*b/(2*k):v=c*d/b p=p-l/u+v*l*:q=q-m/u+v*m* fuel=fuel+c*d  140 crash 2:2:  0  100d mission completed  /9 ,7;1;"Mission completed" 11 ,12 ;1;"Score:";(2*(size+2*((size-502)size>502)+10 *((size-80P)size>80P)))-fuel-5*(1-d)  100d hyperspce jump ! &w=31744| +Mi=1200:x=31756 |:32295'~,128+(*64@):i 0fuel=fuel+30 5'l=3*:m=3*:n=3* :cp=2*k*(2*-1):q=2*k*(2*-1):r=2*k*(2*-1) ? 140 D set up random attributum array Ni=0767 X'31768|+i,128+(*64@) bi l ,H,ngeueiz dk@pdqrlS0moahb Xh 06v@X'T,:s𹳄 s 06w t mag cu| mvA