^>! :SHUTTLE1.BAS (COCO 1,2,3)>B:USES PMODE 4 FOR RENDERING>e:CONVERTED BY ANDREW L. AYERS>(:JUNE 2018, REVISED JULY 2021>2:><: BASED ON ORIGINAL SHUTTLE (GWBASIC)>F: 24 APR 96 REV.22 NOV 1998>P:>Z?VdX0:Y0:Z0:X30:Y30:Z30:AM0:BM0:CM0:DM0:EM0:FM0:GM0:HM0:IM0:D0:P0:B0:H0:U0:V0:U10:V10?_nC14?ux V(300,3),E(300)?PI3.141593? "READING PLOT DATA...PLEASE WAIT.";? NV? P1 NV? V(P,1),V(P,2),V(P,3)?Q.11@V(P,1) Q V(P,1)@V(P,2) Q V(P,2)@4V(P,3) Q V(P,3)@<܋ P@E NE@T I1 NE@_ E(I)@g I@n:@xD120@":@,P02:P12:P22@6@@:PRINT"INPUT ANY 3 ANGLES (X,Y,Z)";:INPUT P0,P1,P2@J 4,1: 1,0@T@^P0P02AhP1P12A rP2P22A$| "" 0:A?P2PI P0 255 PIAUB2PI P2 255AkH2PI P1 255Av 580AXV D CP SH: ---SEE SUB.---AYV D CP CHAZV D SPÂ ---PROJECT NE POINTS---Aր I1 NEBXV((E(I)),1)BYV((E(I)),2)B.ZV((E(I)),3)B9 710Bi E(I) 0 (U1128,V196)(U128,V96),Bz:PRINT E(I)B:PRINT U1,V1,U,VB&U1U:V1VB0 IB: P0254 290 : 330BDCH (H): SH (H)BNCP (P): SP (P)CXCB (B): SB (B)C:bAM CB CH SH SP SBC[lBM CB SH SP CH SBClvCM CP SBC}DM SH CPCEM CP CHCFM SPCGM CH SB SH SP CBCHM SH SB SP CH CBCIM CP CBCDX X XVDY Y YVDZ Z ZVDAX3 AM X BM Y CM ZDcY3 DM X EM Y FM ZDZ3 GM X HM Y IM ZDU13.5DX3Y3D V1011.5DZ3Y3DD 124D* 0,-2.2,46,1.5,-2.6,46,2.2,-4.6,46,1.7,-6.5,46,0,-6.7,46E)4 -1.7,-6.5,46,-2.2,-4.6,46,-1.5,-2.6,46Ek> 0,-.8,43,2.8,-1.5,43,4,-4.5,43,3,-7.2,43,0,-8,43,-3,-7.2,43EH -4,-4.5,43,-2.8,-1.5,43ER 0,1.7,38,4.6,0,38,5.8,-4.4,38,4,-8.2,38,0,-9,38,-4,-8.2,38E\ -5.8,-4.4,38,-4.6,0,38F0f 0,4,32.5,4.5,1,32.5,5.8,-4.6,32.5,4,-9,32.5,0,-9.5,32.5,-4,-9,32.5FQp -5.8,-4.6,32.5,-4.5,1,32.5Fz 0,8,26.3,3.5,7,26.3,7.8,2,26.3,8,-7,26.3,0,-9.8,26.3,-8,-7,26.3F -7.8,2,26.3,-3.5,7,26.3F 0,8,21.5,3.8,7.5,21.5,8,3,21.5,8,-8,21.5,0,-9.8,21.5,-8,-8,21.5G -8,3,21.5,-3.8,7.5,21.5G\ 0,8,14,4.7,7,14,8,4,14,8,-8.7,14,0,-10,14,-8,-8.7,14,-8,4,14Gl -4.7,7,14G 0,8,4,4.7,7,4,8,4,4,8,-8.7,4,0,-10,4,-8,-8.7,4,-8,4,4G -4.7,7,4Hʆ 0,8,-12,4.7,7,-12,8,4,-12,8,-8.7,-12,0,-10,-12,-8,-8.7,-12,-8,4,-12HԆ -4.7,7,-12H_ކ 0,8,-27.3,4.7,7,-27.3,8,4,-27.3,8,-8.7,-27.3,0,-10,-27.3,-8,-8.7,-27.3H} -8,4,-27.3,-4.7,7,-27.3H 0,8,-35.6,4.7,7,-35.6,8,4,-35.6,8,-8.7,-35.6,0,-10,-35.6,-8,-8.7,-35.6H -8,4,-35.6,-4.7,7,-35.6I- 0,9,-43,2,8.5,-43,8.8,1.5,-43,9,-10,-43,0,-10.8,-43,-9,-10,-43IK -8.8,1.5,-43,-2,8.5,-43I 0,9.5,-48,2,9.3,-48,9.2,1.5,-48,10,-10,-48,0,-10.2,-48,-10,-10,-48I$ -9.2,1.5,-48,-2,9.3,-48I. 8.7,-8.7,21,15,-8.7,-16,35,-10,-36,35,-10,-40J8 -8.7,-8.7,21,-15,-8.7,-16,-35,-10,-36,-35,-10,-40JHB 0,13,-37,0,33,-60,0,33,-69,0,14,-60JL 6,11,-43,6,11,-48,11,5,-43,11,5,-48,-6,11,-43,-6,11,-48,-11,5,-43JV -11,5,-48J` 259Jj -1,2,3,4,5,6,7,8,1,-9,10,11,12,13,14,15,16,9,-17,18,19,20,21,22,23,24,17K7t -25,26,27,28,29,30,31,32,25,-33,34,35,36,37,38,39,40,33Ku~ -41,42,43,44,45,46,47,48,41,-49,50,51,52,53,54,55,56,49K -57,58,59,60,61,62,63,64,57,-65,66,67,68,69,70,71,72,65K -73,74,75,76,77,78,79,80,73,-81,82,83,84,85,86,87,88,81L4 -89,90,91,92,93,94,95,96,89,-97,98,99,100,101,102,103,104,97L` -1,9,17,25,33,41,49,57,65,73,81,89,97L -2,10,18,26,34,42,50,58,66,74,82,90,98L -3,11,19,27,35,43,51,59,67,75,83,91,99LĆ -4,12,20,28,36,44,52,60,68,76,84,92,100MΆ -5,13,21,29,37,45,53,61,69,77,85,93,101MD؆ -6,14,22,30,38,46,54,62,70,78,86,94,102Mr -7,15,23,31,39,47,55,63,71,79,87,95,103M -8,16,24,32,40,48,56,64,72,80,88,96,104M -44,105,106,107,108,92M -46,109,110,111,112,94M -81,113,114,115,116,89N -82,117,118,-83,119,120N3 -87,121,122,-88,123,124N]( -117,119,-121,123,-118,120,-122,12463,71,79,87,95,103M -8,16,24,32,40,48,56,64,72,80,88,96,104M -44,105,106,107,108,92M -46,109,110,111,112,94M -81,113,114,115,116,89N -&# :SHUTTLE3.BAS (COCO 3 ONLY!)&F:USES HSCREEN 4 FOR RENDERING&b:FOR ANGLED SCREENSHOT&(:CONVERTED BY ANDREW L. AYERS&2:JULY 23, 2021&<:&F:BASED ON ORIGINAL GWBASIC SHUTTLE.BAS&P:24 APR 96 REV.22 NOV 1998&Z:'d 660'n 65497,0'x'X0:Y0:Z0:X30:Y30:Z30:AM0:BM0:CM0:DM0:EM0:FM0:GM0:HM0:IM0:D0:P0:B0:H0:U0:V0:U10:V10'C14'US13.5:VS11.5'US40:VS20' V(300,3),E(300)'PI3.141593' 80:((ȇ "SHUTTLE-3D FOR COCO 3 - READING PLOTTING DATA...PLEASE WAIT.";(1ҍ NV(@܀ P1 NV([ V(P,1),V(P,2),V(P,3)(eQ.11(}V(P,1) Q V(P,1)(V(P,2) Q V(P,2)(V(P,3) Q V(P,3)( P(" NE(, I1 NE(6 E(I)(@ I(J:(TD220(^:)h P0=-2:P1=-2:P2=-2)&rP025:P115:P245),|)d PRINT"INPUT ANY 3 ANGLES (X,Y,Z)";:INPUT P0,P1,P2)u 0,0: 1,16) 4: 0)) P0=P0+2) P1=P1+2)‚ P2=P2+2)̂)P2PI P0 255 PI)B2PI P2 255)H2PI P1 255*  670*1XV D CP SH: ---SEE SUB.---*GYV D CP CH*XZV D SP*v ---PROJECT NE POINTS---*& I1 NE*0XV((E(I)),1)*:YV((E(I)),2)*DZV((E(I)),3)*N 800*X E(I) 0 (U1320,V196)(U320,V96),+ b:PRINT E(I)+#l:PRINT U1,V1,U,V+1vU1U:V1V+9 I+P "" 650+f 65496,0: 0::+CH (H): SH (H)+CP (P): SP (P)+CB (B): SB (B)+AM CB CH SH SP SB+BM CB SH SP CH SB,CM CP SB, DM SH CP,1EM CP CH,=FM SP,^GM CH SB SH SP CB,~HM SH SB SP CH CB, IM CP CB,, X X XV,*Y Y YV,4Z Z ZV,>X3 AM X BM Y CM Z-HY3 DM X EM Y FM Z-(RZ3 GM X HM Y IM Z-9\UUSDX3Y3-JfVVSDZ3Y3-UpUU20-`zV10V-f-p 124- 0,-2.2,46,1.5,-2.6,46,2.2,-4.6,46,1.7,-6.5,46,0,-6.7,46- -1.7,-6.5,46,-2.2,-4.6,46,-1.5,-2.6,46. 0,-.8,43,2.8,-1.5,43,4,-4.5,43,3,-7.2,43,0,-8,43,-3,-7.2,43.; -4,-4.5,43,-2.8,-1.5,43.| 0,1.7,38,4.6,0,38,5.8,-4.4,38,4,-8.2,38,0,-9,38,-4,-8.2,38.ʆ -5.8,-4.4,38,-4.6,0,38.Ԇ 0,4,32.5,4.5,1,32.5,5.8,-4.6,32.5,4,-9,32.5,0,-9.5,32.5,-4,-9,32.5/ކ -5.8,-4.6,32.5,-4.5,1,32.5/I 0,8,26.3,3.5,7,26.3,7.8,2,26.3,8,-7,26.3,0,-9.8,26.3,-8,-7,26.3/g -7.8,2,26.3,-3.5,7,26.3/ 0,8,21.5,3.8,7.5,21.5,8,3,21.5,8,-8,21.5,0,-9.8,21.5,-8,-8,21.5/ -8,3,21.5,-3.8,7.5,21.50 0,8,14,4.7,7,14,8,4,14,8,-8.7,14,0,-10,14,-8,-8.7,14,-8,4,140 -4.7,7,140Z$ 0,8,4,4.7,7,4,8,4,4,8,-8.7,4,0,-10,4,-8,-8.7,4,-8,4,40i. -4.7,7,408 0,8,-12,4.7,7,-12,8,4,-12,8,-8.7,-12,0,-10,-12,-8,-8.7,-12,-8,4,-120B -4.7,7,-121L 0,8,-27.3,4.7,7,-27.3,8,4,-27.3,8,-8.7,-27.3,0,-10,-27.3,-8,-8.7,-27.31/V -8,4,-27.3,-4.7,7,-27.31|` 0,8,-35.6,4.7,7,-35.6,8,4,-35.6,8,-8.7,-35.6,0,-10,-35.6,-8,-8.7,-35.61j -8,4,-35.6,-4.7,7,-35.61t 0,9,-43,2,8.5,-43,8.8,1.5,-43,9,-10,-43,0,-10.8,-43,-9,-10,-431~ -8.8,1.5,-43,-2,8.5,-432F 0,9.5,-48,2,9.3,-48,9.2,1.5,-48,10,-10,-48,0,-10.2,-48,-10,-10,-482d -9.2,1.5,-48,-2,9.3,-482 8.7,-8.7,21,15,-8.7,-16,35,-10,-36,35,-10,-402 -8.7,-8.7,21,-15,-8.7,-16,-35,-10,-36,-35,-10,-402 0,13,-37,0,33,-60,0,33,-69,0,14,-603B 6,11,-43,6,11,-48,11,5,-43,11,5,-48,-6,11,-43,-6,11,-48,-11,5,-433RĆ -11,5,-483\Ά 2593؆ -1,2,3,4,5,6,7,8,1,-9,10,11,12,13,14,15,16,9,-17,18,19,20,21,22,23,24,173 -25,26,27,28,29,30,31,32,25,-33,34,35,36,37,38,39,40,334' -41,42,43,44,45,46,47,48,41,-49,50,51,52,53,54,55,56,494e -57,58,59,60,61,62,63,64,57,-65,66,67,68,69,70,71,72,654 -73,74,75,76,77,78,79,80,73,-81,82,83,84,85,86,87,88,814 -89,90,91,92,93,94,95,96,89,-97,98,99,100,101,102,103,104,975 -1,9,17,25,33,41,49,57,65,73,81,89,975? -2,10,18,26,34,42,50,58,66,74,82,90,985l( -3,11,19,27,35,43,51,59,67,75,83,91,9952 -4,12,20,28,36,44,52,60,68,76,84,92,1005< -5,13,21,29,37,45,53,61,69,77,85,93,1015F -6,14,22,30,38,46,54,62,70,78,86,94,1026$P -7,15,23,31,39,47,55,63,71,79,87,95,1036RZ -8,16,24,32,40,48,56,64,72,80,88,96,1046od -44,105,106,107,108,926n -46,109,110,111,112,946x -81,113,114,115,116,896 -82,117,118,-83,119,1206 -87,121,122,-88,123,1247 -117,119,-121,123,-118,120,-122,12463,71,79,87,95,1036RZ -8,16,24,32,40,48,56,64,72,80,88,96,1046od -44,105,106,107,108,926n -46,109,110,111,112,946x -81,113,114,115,116,896 -82,117,118,-83,119,1206 -87,121,122,-88,123,1247 -117,119,-121,123,->! :SHUTTLEP.BAS (COCO 1,2,3)>D:USES DOUBLE-BUFFERED PMODE 4>g:PLEASE WAIT FOR RENDERING...>(:CONVERTED BY ANDREW L. AYERS>2:JULY 26, 2021><:>F:BASED ON ORIGINAL GWBASIC SHUTTLE.BAS>P:24 APR 96 REV.22 NOV 1998>Z:>d8?mnX0:Y0:Z0:X30:Y30:Z30:AM0:BM0:CM0:DM0:EM0:FM0:GM0:HM0:IM0:D0:P0:B0:H0:U0:V0:U10:V10?xD120:C14:PI3.141593? V(300,3),E(300)?:?: "READING PLOT DATA...PLEASE WAIT.";? NV? P1 NV@ V(P,1),V(P,2),V(P,3)@Q.11@&V(P,1) Q V(P,1)@>V(P,2) Q V(P,2)@VV(P,3) Q V(P,3)@^ P@g NE@v I1 NE@ E(I)@ I@:@"VS1:HS5: VS,0:@,:@6P00:P10:P20@@:CLS:PRINT"INPUT ANY 3 ANGLES (X,Y,Z)";:INPUT P0,P1,P2AJ "" 0:A(T VS,0: 4,HS:AC^P2PI P0 255 PIAYhB2PI P2 255AorH2PI P1 255A|P0P05:P1P15:P2P25A 560AXV D CP SH: ---SEE SUB.---AYV D CP CHAZV D SPB ---PROJECT NE POINTS---B I1 NEB&XV((E(I)),1)B:YV((E(I)),2)BNZV((E(I)),3)BY 690B E(I) 0 (U1128,V196)(U128,V96),B:PRINT E(I)B:PRINT U1,V1,U,VBU1U:V1VB IBTTVS:VSHS:HSTTB& P0254 300 : 330C0CH (H): SH (H)C3:CP (P): SP (P)CPDCB (B): SB (B)CpNAM CB CH SH SP SBCXBM CB SH SP CH SBCbCM CP SBClDM SH CPCvEM CP CHCFM SPCGM CH SB SH SP CBDHM SH SB SP CH CBD"IM CP CBD(D7X X XVDFY Y YVDUZ Z ZVDwX3 AM X BM Y CM ZDY3 DM X EM Y FM ZDZ3 GM X HM Y IM ZDU13.5DX3Y3DV1011.5DZ3Y3DD 124E2 0,-2.2,46,1.5,-2.6,46,2.2,-4.6,46,1.7,-6.5,46,0,-6.7,46E_ -1.7,-6.5,46,-2.2,-4.6,46,-1.5,-2.6,46E* 0,-.8,43,2.8,-1.5,43,4,-4.5,43,3,-7.2,43,0,-8,43,-3,-7.2,43E4 -4,-4.5,43,-2.8,-1.5,43F> 0,1.7,38,4.6,0,38,5.8,-4.4,38,4,-8.2,38,0,-9,38,-4,-8.2,38FH -5.8,-4.4,38,-4.6,0,38FfR 0,4,32.5,4.5,1,32.5,5.8,-4.6,32.5,4,-9,32.5,0,-9.5,32.5,-4,-9,32.5F\ -5.8,-4.6,32.5,-4.5,1,32.5Ff 0,8,26.3,3.5,7,26.3,7.8,2,26.3,8,-7,26.3,0,-9.8,26.3,-8,-7,26.3Fp -7.8,2,26.3,-3.5,7,26.3G1z 0,8,21.5,3.8,7.5,21.5,8,3,21.5,8,-8,21.5,0,-9.8,21.5,-8,-8,21.5GO -8,3,21.5,-3.8,7.5,21.5G 0,8,14,4.7,7,14,8,4,14,8,-8.7,14,0,-10,14,-8,-8.7,14,-8,4,14G -4.7,7,14G 0,8,4,4.7,7,4,8,4,4,8,-8.7,4,0,-10,4,-8,-8.7,4,-8,4,4G -4.7,7,4H7 0,8,-12,4.7,7,-12,8,4,-12,8,-8.7,-12,0,-10,-12,-8,-8.7,-12,-8,4,-12HH -4.7,7,-12Hʆ 0,8,-27.3,4.7,7,-27.3,8,4,-27.3,8,-8.7,-27.3,0,-10,-27.3,-8,-8.7,-27.3HԆ -8,4,-27.3,-4.7,7,-27.3Iކ 0,8,-35.6,4.7,7,-35.6,8,4,-35.6,8,-8.7,-35.6,0,-10,-35.6,-8,-8.7,-35.6I -8,4,-35.6,-4.7,7,-35.6Ic 0,9,-43,2,8.5,-43,8.8,1.5,-43,9,-10,-43,0,-10.8,-43,-9,-10,-43I -8.8,1.5,-43,-2,8.5,-43I 0,9.5,-48,2,9.3,-48,9.2,1.5,-48,10,-10,-48,0,-10.2,-48,-10,-10,-48I -9.2,1.5,-48,-2,9.3,-48J 8.7,-8.7,21,15,-8.7,-16,35,-10,-36,35,-10,-40JT$ -8.7,-8.7,21,-15,-8.7,-16,-35,-10,-36,-35,-10,-40J~. 0,13,-37,0,33,-60,0,33,-69,0,14,-60J8 6,11,-43,6,11,-48,11,5,-43,11,5,-48,-6,11,-43,-6,11,-48,-11,5,-43JB -11,5,-48JL 259K/V -1,2,3,4,5,6,7,8,1,-9,10,11,12,13,14,15,16,9,-17,18,19,20,21,22,23,24,17Km` -25,26,27,28,29,30,31,32,25,-33,34,35,36,37,38,39,40,33Kj -41,42,43,44,45,46,47,48,41,-49,50,51,52,53,54,55,56,49Kt -57,58,59,60,61,62,63,64,57,-65,66,67,68,69,70,71,72,65L'~ -73,74,75,76,77,78,79,80,73,-81,82,83,84,85,86,87,88,81Lj -89,90,91,92,93,94,95,96,89,-97,98,99,100,101,102,103,104,97L -1,9,17,25,33,41,49,57,65,73,81,89,97L -2,10,18,26,34,42,50,58,66,74,82,90,98L -3,11,19,27,35,43,51,59,67,75,83,91,99M -4,12,20,28,36,44,52,60,68,76,84,92,100ML -5,13,21,29,37,45,53,61,69,77,85,93,101MzĆ -6,14,22,30,38,46,54,62,70,78,86,94,102MΆ -7,15,23,31,39,47,55,63,71,79,87,95,103M؆ -8,16,24,32,40,48,56,64,72,80,88,96,104M -44,105,106,107,108,92N -46,109,110,111,112,94N- -81,113,114,115,116,89NK -82,117,118,-83,119,120Ni -87,121,122,-88,123,124N -117,119,-121,123,-118,120,-122,12463,71,79,87,95,103M؆ -8,16,24,32,40,48,56,64,72,80,88,96,104M -44,105,106,107,108,92N -46,1!#%HUTTLE BAS SHUTTLE2BAS"SHUTTLE3BASSHUTTLEPBAS SHUTTLE1BAS$a&! :SHUTTLE2.BAS (COCO 1,2,3)&B:USES PMODE 4 FOR RENDERING&^:FOR ANGLED SCREENSHOT&(:CONVERTED BY ANDREW L. AYERS&2:JULY 2021&<:&F:BASED ON ORIGINAL GWBASIC SHUTTLE.BAS&P:24 APR 96 REV.22 NOV 1998&Z:&d'_nX0:Y0:Z0:X30:Y30:Z30:AM0:BM0:CM0:DM0:EM0:FM0:GM0:HM0:IM0:D0:P0:B0:H0:U0:V0:U10:V10'hxC14'|US13.5:VS11.5'US20:VS20' V(300,3),E(300)'PI3.141593' "READING PLOT DATA...PLEASE WAIT.";' NV' P1 NV(ȍ V(P,1),V(P,2),V(P,3)(Q.11(1V(P,1) Q V(P,1)(IV(P,2) Q V(P,2)(aV(P,3) Q V(P,3)(i P(r NE( I1 NE( E(I)(" I(,:(6D220(@:(J P0=-2:P1=-2:P2=-2(TP025:P115:P245(^)h PRINT"INPUT ANY 3 ANGLES (X,Y,Z)";:INPUT P0,P1,P2)(r 4,1: 1,0).|)< P0=P0+2)J P1=P1+2)X P2=P2+2)^)yP2PI P0 255 PI)B2PI P2 255)H2PI P1 255)́ 630)XV D CP SH: ---SEE SUB.---)YV D CP CH)ZV D SP* ---PROJECT NE POINTS---*, I1 NE*@XV((E(I)),1)*TYV((E(I)),2)*hZV((E(I)),3)*s& 760*0 E(I) 0 (U1128,V196)(U128,V96),*::PRINT E(I)*D:PRINT U1,V1,U,V*NU1U:V1V*X I*b "" 0:+l 610+vCH (H): SH (H)+<CP (P): SP (P)+YCB (B): SB (B)+yAM CB CH SH SP SB+BM CB SH SP CH SB+CM CP SB+DM SH CP+EM CP CH+FM SP+GM CH SB SH SP CB,HM SH SB SP CH CB,+IM CP CB,1,@X X XV,OY Y YV,^ Z Z ZV,X3 AM X BM Y CM Z, Y3 DM X EM Y FM Z,*Z3 GM X HM Y IM Z,4UUSDX3Y3,>VVSDZ3Y3,HUU20,RV10V-\- f 124-Jp 0,-2.2,46,1.5,-2.6,46,2.2,-4.6,46,1.7,-6.5,46,0,-6.7,46-wz -1.7,-6.5,46,-2.2,-4.6,46,-1.5,-2.6,46- 0,-.8,43,2.8,-1.5,43,4,-4.5,43,3,-7.2,43,0,-8,43,-3,-7.2,43- -4,-4.5,43,-2.8,-1.5,43. 0,1.7,38,4.6,0,38,5.8,-4.4,38,4,-8.2,38,0,-9,38,-4,-8.2,38.5 -5.8,-4.4,38,-4.6,0,38.~ 0,4,32.5,4.5,1,32.5,5.8,-4.6,32.5,4,-9,32.5,0,-9.5,32.5,-4,-9,32.5. -5.8,-4.6,32.5,-4.5,1,32.5. 0,8,26.3,3.5,7,26.3,7.8,2,26.3,8,-7,26.3,0,-9.8,26.3,-8,-7,26.3/ʆ -7.8,2,26.3,-3.5,7,26.3/IԆ 0,8,21.5,3.8,7.5,21.5,8,3,21.5,8,-8,21.5,0,-9.8,21.5,-8,-8,21.5/gކ -8,3,21.5,-3.8,7.5,21.5/ 0,8,14,4.7,7,14,8,4,14,8,-8.7,14,0,-10,14,-8,-8.7,14,-8,4,14/ -4.7,7,14/ 0,8,4,4.7,7,4,8,4,4,8,-8.7,4,0,-10,4,-8,-8.7,4,-8,4,40 -4.7,7,40O 0,8,-12,4.7,7,-12,8,4,-12,8,-8.7,-12,0,-10,-12,-8,-8.7,-12,-8,4,-120` -4.7,7,-120$ 0,8,-27.3,4.7,7,-27.3,8,4,-27.3,8,-8.7,-27.3,0,-10,-27.3,-8,-8.7,-27.30. -8,4,-27.3,-4.7,7,-27.318 0,8,-35.6,4.7,7,-35.6,8,4,-35.6,8,-8.7,-35.6,0,-10,-35.6,-8,-8.7,-35.616B -8,4,-35.6,-4.7,7,-35.61{L 0,9,-43,2,8.5,-43,8.8,1.5,-43,9,-10,-43,0,-10.8,-43,-9,-10,-431V -8.8,1.5,-43,-2,8.5,-431` 0,9.5,-48,2,9.3,-48,9.2,1.5,-48,10,-10,-48,0,-10.2,-48,-10,-10,-482j -9.2,1.5,-48,-2,9.3,-4824t 8.7,-8.7,21,15,-8.7,-16,35,-10,-36,35,-10,-402l~ -8.7,-8.7,21,-15,-8.7,-16,-35,-10,-36,-35,-10,-402 0,13,-37,0,33,-60,0,33,-69,0,14,-602 6,11,-43,6,11,-48,11,5,-43,11,5,-48,-6,11,-43,-6,11,-48,-11,5,-432 -11,5,-482 2593G -1,2,3,4,5,6,7,8,1,-9,10,11,12,13,14,15,16,9,-17,18,19,20,21,22,23,24,173 -25,26,27,28,29,30,31,32,25,-33,34,35,36,37,38,39,40,333Ć -41,42,43,44,45,46,47,48,41,-49,50,51,52,53,54,55,56,494Ά -57,58,59,60,61,62,63,64,57,-65,66,67,68,69,70,71,72,654?؆ -73,74,75,76,77,78,79,80,73,-81,82,83,84,85,86,87,88,814 -89,90,91,92,93,94,95,96,89,-97,98,99,100,101,102,103,104,974 -1,9,17,25,33,41,49,57,65,73,81,89,974 -2,10,18,26,34,42,50,58,66,74,82,90,985 -3,11,19,27,35,43,51,59,67,75,83,91,9956 -4,12,20,28,36,44,52,60,68,76,84,92,1005d -5,13,21,29,37,45,53,61,69,77,85,93,1015 -6,14,22,30,38,46,54,62,70,78,86,94,1025( -7,15,23,31,39,47,55,63,71,79,87,95,10352 -8,16,24,32,40,48,56,64,72,80,88,96,1046 < -44,105,106,107,108,926(F -46,109,110,111,112,946EP -81,113,114,115,116,896cZ -82,117,118,-83,119,1206d -87,121,122,-88,123,1246n -117,119,-121,123,-118,120,-122,12463,71,79,87,95,10352 -8,16,24,32,40,48,56,64,72,80,88,96,1046 < -44,105,10^&! :SHUTTLE1.BAS (COCO 1,2,3)&B:USES PMODE 4 FOR RENDERING&e:CONVERTED BY ANDREW L. AYERS&(:JUNE 2018, REVISED JULY 2021&2:&<:BASED ON ORIGINAL GWBASIC SHUTTLE.BAS&F:24 APR 96 REV.22 NOV 1998&P:&Z'VdX0:Y0:Z0:X30:Y30:Z30:AM0:BM0:CM0:DM0:EM0:FM0:GM0:HM0:IM0:D0:P0:B0:H0:U0:V0:U10:V10'_nC14'ux V(300,3),E(300)'PI3.141593' "READING PLOT DATA...PLEASE WAIT.";' NV' P1 NV' V(P,1),V(P,2),V(P,3)'Q.11(V(P,1) Q V(P,1)(V(P,2) Q V(P,2)(4V(P,3) Q V(P,3)(<܋ P(E NE(T I1 NE(_ E(I)(g I(n:(xD120(":(,P02:P12:P22(6(@:PRINT"INPUT ANY 3 ANGLES (X,Y,Z)";:INPUT P0,P1,P2(J 4,1: 1,0(T(^P0P02)hP1P12) rP2P22)$| "" 0:)?P2PI P0 255 PI)UB2PI P2 255)kH2PI P1 255)v 580)XV D CP SH: ---SEE SUB.---)YV D CP CH)ZV D SP)̂ ---PROJECT NE POINTS---)ր I1 NE*XV((E(I)),1)*YV((E(I)),2)*.ZV((E(I)),3)*9 710*i E(I) 0 (U1128,V196)(U128,V96),*z:PRINT E(I)*:PRINT U1,V1,U,V*&U1U:V1V*0 I*: P0254 290 : 330*DCH (H): SH (H)*NCP (P): SP (P)+XCB (B): SB (B)+:bAM CB CH SH SP SB+[lBM CB SH SP CH SB+lvCM CP SB+}DM SH CP+EM CP CH+FM SP+GM CH SB SH SP CB+HM SH SB SP CH CB+IM CP CB+,X X XV,Y Y YV,Z Z ZV,AX3 AM X BM Y CM Z,cY3 DM X EM Y FM Z,Z3 GM X HM Y IM Z,U13.5DX3Y3, V1011.5DZ3Y3,, 124,* 0,-2.2,46,1.5,-2.6,46,2.2,-4.6,46,1.7,-6.5,46,0,-6.7,46-)4 -1.7,-6.5,46,-2.2,-4.6,46,-1.5,-2.6,46-k> 0,-.8,43,2.8,-1.5,43,4,-4.5,43,3,-7.2,43,0,-8,43,-3,-7.2,43-H -4,-4.5,43,-2.8,-1.5,43-R 0,1.7,38,4.6,0,38,5.8,-4.4,38,4,-8.2,38,0,-9,38,-4,-8.2,38-\ -5.8,-4.4,38,-4.6,0,38.0f 0,4,32.5,4.5,1,32.5,5.8,-4.6,32.5,4,-9,32.5,0,-9.5,32.5,-4,-9,32.5.Qp -5.8,-4.6,32.5,-4.5,1,32.5.z 0,8,26.3,3.5,7,26.3,7.8,2,26.3,8,-7,26.3,0,-9.8,26.3,-8,-7,26.3. -7.8,2,26.3,-3.5,7,26.3. 0,8,21.5,3.8,7.5,21.5,8,3,21.5,8,-8,21.5,0,-9.8,21.5,-8,-8,21.5/ -8,3,21.5,-3.8,7.5,21.5/\ 0,8,14,4.7,7,14,8,4,14,8,-8.7,14,0,-10,14,-8,-8.7,14,-8,4,14/l -4.7,7,14/ 0,8,4,4.7,7,4,8,4,4,8,-8.7,4,0,-10,4,-8,-8.7,4,-8,4,4/ -4.7,7,40ʆ 0,8,-12,4.7,7,-12,8,4,-12,8,-8.7,-12,0,-10,-12,-8,-8.7,-12,-8,4,-120Ԇ -4.7,7,-120_ކ 0,8,-27.3,4.7,7,-27.3,8,4,-27.3,8,-8.7,-27.3,0,-10,-27.3,-8,-8.7,-27.30} -8,4,-27.3,-4.7,7,-27.30 0,8,-35.6,4.7,7,-35.6,8,4,-35.6,8,-8.7,-35.6,0,-10,-35.6,-8,-8.7,-35.60 -8,4,-35.6,-4.7,7,-35.61- 0,9,-43,2,8.5,-43,8.8,1.5,-43,9,-10,-43,0,-10.8,-43,-9,-10,-431K -8.8,1.5,-43,-2,8.5,-431 0,9.5,-48,2,9.3,-48,9.2,1.5,-48,10,-10,-48,0,-10.2,-48,-10,-10,-481$ -9.2,1.5,-48,-2,9.3,-481. 8.7,-8.7,21,15,-8.7,-16,35,-10,-36,35,-10,-4028 -8.7,-8.7,21,-15,-8.7,-16,-35,-10,-36,-35,-10,-402HB 0,13,-37,0,33,-60,0,33,-69,0,14,-602L 6,11,-43,6,11,-48,11,5,-43,11,5,-48,-6,11,-43,-6,11,-48,-11,5,-432V -11,5,-482` 2592j -1,2,3,4,5,6,7,8,1,-9,10,11,12,13,14,15,16,9,-17,18,19,20,21,22,23,24,1737t -25,26,27,28,29,30,31,32,25,-33,34,35,36,37,38,39,40,333u~ -41,42,43,44,45,46,47,48,41,-49,50,51,52,53,54,55,56,493 -57,58,59,60,61,62,63,64,57,-65,66,67,68,69,70,71,72,653 -73,74,75,76,77,78,79,80,73,-81,82,83,84,85,86,87,88,8144 -89,90,91,92,93,94,95,96,89,-97,98,99,100,101,102,103,104,974` -1,9,17,25,33,41,49,57,65,73,81,89,974 -2,10,18,26,34,42,50,58,66,74,82,90,984 -3,11,19,27,35,43,51,59,67,75,83,91,994Ć -4,12,20,28,36,44,52,60,68,76,84,92,1005Ά -5,13,21,29,37,45,53,61,69,77,85,93,1015D؆ -6,14,22,30,38,46,54,62,70,78,86,94,1025r -7,15,23,31,39,47,55,63,71,79,87,95,1035 -8,16,24,32,40,48,56,64,72,80,88,96,1045 -44,105,106,107,108,925 -46,109,110,111,112,945 -81,113,114,115,116,896 -82,117,118,-83,119,12063 -87,121,122,-88,123,1246]( -117,119,-121,123,-118,120,-122,12463,71,79,87,95,1035 -8,16,24,32,40,48,56,64,72,80,88,96,1045 -44,105,106,107,108,925 -46,109,110,111,112,945 -81,113,114,115,116,896 -