?=2CBNH0GH D TSLRH> A>H"0GL54.HUXZ(/D"4HGXL6XBD$1"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"BBBFLH,%"H-%"H.%"JA%"%%X-%4*W+Z+% LG%4*$BJC?*(I XXIIH,<(* 8A>(+SH,IQ?H+3%2 %$$$G5UIUXXHTH->(-!%VX-*-%2A0BAC PARACHUTE, AN AEROPLAY BY STIEMER 30.9.1972?MA4BBE?MA>BCS Z=FX(,6,,,,)?MBXBEF I=0,4;F J=0,2;S Z=FDIS(3,-240+I,200+J);D 1.9?MB*BFS Z=FDIS(1,-200+I,100);D 1.95?M ?BGF I=0,3;S Z=FDIS(2,-200+I,0);D 1.96?MCQBHS Z=FDIS(1,-200+I,-100);D 1.97?MC]BSF N=1,500;S A=S+1?MC*BTS Z=FX(,6,,,,);S A=0?MUVB^G 2.01?MU"C T "TAKE CARE OF THE WIND !"?MD^DAT " ";S C=0.5;S X0=120;S Y0=180;S X=60;S Y=180;D 16?MD3DBS X0=70;S Y0=180;S X=60;S Y=180;D 16?MEHDCS X0=90;S Y0=180;S X=80;S Y=180;D 16?ME^DDS X0=110;S Y0=180;S X=100;S Y=180;D 16?ME4DES X0=130;S Y0=180;S X=120;S Y=180;D 1 ?MFJDFS X0=150;S Y0=180;S X=140;S Y=180;D 16?MF DGS X0=170;S Y0=180;S X=160;S Y=180;D 16?MF4FAS Z=FX(,289,60,180,120,100,80,180)?MGIFBS Z=FX(,289,100,180,120,100,120,180)?MG^FCS Z=FX(,289,160,180,120,100,180,180)?MG/FDS Z=FX(,289,140,180,120,100)?MHKHAS Z FX(,289,110,90,130,90,130,110,110,110,110,90)?MH HCS Y=50;S X=120;S X0=120;S Y0=80;D 15?MH5HDS X=180;S Y=80;S X0=220;S Y0=80;D 15?MIIHES Z=FX(,289,110,60,120,50,130,60)?MV HFS Z=FX(,289,190,90,180,80,190,70)?MWKHJS Z=FDIS(1,-270,260)?MJDJBS XO=-270;S YO=- 20;S XP=270;S YP=-220;S XC=4?MJ&JCS XD=5.4;S SX=10; S SC=1;S XM=540;S XN=0;S MO=289;T %3.0;D 29?MJ7LAS A=FRAN()*50;S IX=A-FITR(A)?MKLLBS IX=IX*100;I (IX-20)6.03,6.03,6.01?MKTLCS U(81)=IX?MK%LDI (U(81)-50) 6.05,6.05,6.03?MLGLES Z=FDIS();T "YOU HAVE A WINDS EED (U(H) IN KT) OF:",U(81),!!?ML!LGA "WHERE WOULD YOU LIKE TO LAND (1-540) " L?ML2LLS ZI=L-270;S ZJ=-220;S H=10?ML?LMS Z=FX(,288,,,ZI,ZJ)?MM\LOS Z=FSQT(3);S Z=FX(,1,-H,-H*Z/3,2*H,,-H,H*Z,-H,-H*Z)?MM9LPT !!,"NEGATIV SIGN OF U(H) CAUSES INVERTED WIND!",!?MZ^LQA "STEER YOUR FALLING SPEED (V IN M/SEC, E.G. 5.1) : "V(1);T !?MYCLVS =V(1);S U=U(81)/2;C KT/2=M/SEC?MOPBS DX=FABS(X)-FABS(-270+L)?MOPPEI (FABS(DX)-3) 9.7,9.7,8.4?MWQP(I (FABS(DX)-10) 9.5,9.5,9.04?MPGSFT "YEAH, LUCKY CHANCE, THE GREEN BARETS ARE WAITING FOR YOU!",!;G 11.1?MP VJA !!"ONCE MORE (YES OR NO)"W; I (W-0YES)11.21,1.20,11.1?MP1VUS Z=FX(,6,,,,)?MQGVVS I=0,3;S Z=FDIS(2,-200+I,100);D 11.30?MQKVYQ?MQ!V^T !"THE WHOLE WORLD IS A BIG SCHOOL"!?MQ0^JS Z=FX(0,289,X,Y,X0,Y0)?MRA JS Z=FX(C*360,281,X,Y,X0,Y0)?MRV&JS Z=FX(3,MO,X0,Y0,X,Y);S X0=X;S 0=Y?MR)8JS X=XO+(X-XN)*((XP-XO)/(XM-XN))?MR<8TS Y=YO+(Y-YN)*((YP-YO)/(YM-YN))?MSQ8^S Z=FX(6,MO,X0,Y0,X,Y);S X0=X;S Y0=Y?MS*:^S I=0;S X=XO;S X0=XO;S Y0=YO;D 29.60;D 29.55?MS1:-S I=I+1?MTT:2S X=X+(XP-XO)/XD;F X1=X0,(X-X0)/SX,X;S Z=FX(,289,X1,Y0,X1,Y0-3)?MT& 7S Z=FX(,289,X0,Y0,X,Y0,X,Y0-6)?MUH:AI (IZ-2)31.02,31.0 ,31.06?M[C>BS IZ=IZ+1;S V1=V?MX/>EGOTO 7.03?M[ >FT "NO MORE CORRECTION",!;GOTO 7.03?MY[NAS X0=120;S Y0=100;S MO=289;S I=0;S XA=120?MY*NBI (I-320)7.03,8.02,8.02?MZENCS I=I+5;S X=XA-5*FSQT(I)*(U/V);S Y=100-I;D 28.3?MN0NDGOTO 7.02?MX >DS XA=XA+5*FSQT(I)*(U/V U/V1)?MZ-LRI (V(1)-5)6.22,6.22,6.19?MN\LST "NO!!! YOU ARE TOO QUICK.";GOTO 6.17?MZM>CA "NEW FALLING SPEED: "V,!;I (V-5)31.04,31.04,31.07?M>GT "NO!!TOO QUICK!";GOTO 31.03?M*(21*3&2. GI.MNJ22ZI3O7R+ACT04^D.C.H4&5DZUJVZ4R4N4<(.E8!R4JU> *IN4ZE.EBJ3CAQ!%WEG CA AGFT WTQ!A A!G $DG A!QWDT\$! GA!$TDVRE%CDV$D3P%UECS QWGA!FWUU%TSSIQQ ?%3 .C 0?CQ=8CA8?]).C)8,C)0>CA>*C 0*AI.8,D5C1:0C8CS8=C%:>B30(AI(8A0E0A I *8K0> *SO1BU[2K19H>P*Q;$[0 *?S7K6[1O1[2S1K1C:K6[1K22C.0B2B /BH.??0+)0ASHKG[1[0K4[3/B[;[<[= ([^0B8A IB+,0AK^[H[7B2C/T4K2C +WV2C/.O->G>N4=4?2GFD(+V/MEJ<8^8"8 ;T \K[ ^KZ ]/&8O+?K 2A +]K8[9K;[:K< :S:S9+02I/78H?;DBWU2C/?[(04=/=.C??:Y?[KJ^AKK03X&BX&BKKCF<(*0CI>(+CKKCG> KHKJZCJE?*20BJEJC=H*2ZCKK069H8T[K[MJE[NO* KK&B:K-03:0AJ^A +&BKB +&BK-&B2C.F JE8!*\AXHDNAAZD!?86/KL[MSM+RSN+P02/O6O2C \/XZ)8 K][/K- + /S/K. + /O/S/ //,=Q8XLL K52A 62I/7V>38H[+05K82A 62I/70!=<&KNJJI?H.NJ",.= :P:?9?4&JN06:J"Z!JM2J!Z!JL2J Z JI*GAEMD* *DN/Z.A <;CAQ!%WEG CAGAGFT WTQ!A A!G $DG A!QWDT\$! GA!$TDVRE%CDV$D=P%UECS QWGA!FWUU%TSSIQQ ?%3 .C 0?CQ=8CA8?]).C)8,C)0>CA>*C 0*AI.8,D5C1:0C8CS8=C%:>B30(AI(8A0E A I"337 N=70^ FX0AAT0AJB*D?(D0L FX DL F0 B$>AYG4AD.>BOL-C 84BC4>\\>CA=0B8/C 8BU5 C?8HBP5=BO7^BS79BT70BV5(6=02;Z[ K([)K 9H[ K)(+2[7/.A8[.0A 82C/9 . V4*4B06 KE/RB5*0B,7EKR+OCR* B * B * B 2 */3U/N.MBJ.1Z0*6B .5B6*0B * B * B 2 * +MCP3I& 3NWRA7D"J*L2/SE7U S3SWT/MJ 25J-2 J 3A S+CB * B * B * B 2 GP+L68 VB8* B * B * B 6 B 3AWG. V1"M6J.JF0.0^6. ^ .3B4* B * B * B . L.7^7.MBJ.1^0*0B .4B2*0B 3RGE+DB,2 * +MCS=S,C,CVCDKA4J&HD+>&\-J??M?Y[BYCHPX^5+?B0+?C?\+E6CF7TCBCX[2M??V>[0 BMBE=CBNBGBCC BJBMA?B.?A>?0A?OB??>H->8XR8AYXVJVXKJU%)IZXHX2IZXW%*% ;D<%&*OB*A%&%&IZXOXP%%H]XK%0%1+2*9PV%,ITH5> %6H0XHX2H7%;%0 *0%5%.)?% FI%7<()?XRHR8A*ZFD%0H6I >(+RX^ 9H C:H&> %6H %/8DX7%1%%%1+ +*H,9FH,8DH7X7%%%1%6+*H,H7X7%%%1+ 8PH7AF<0%6> K;8P8DX5/B.? PPLPHI0Z9M+WUWUWUWUWUWU<\LWUY&=^9F8F8F.K%,HR%"%O%5H5?H*3%-8HSXI%:%3%6% FF%$5%7<(*98AXXH5? *0%9%3*9%9X7*U%-%6% FH%$5%$OLKXR.>FIFSX98 HH9\K8 H.?EGHKXKHK9 HY>X%6/HB:OQX98 HKQ8A\K8 H,9O\: O\XIS\IOHIOX9LI\KP9+%IOH/\D;: O,S,XIIOX9LK\IP9+3/,W BJBOBWH=I WUH5FHFL<:%,%-%6HSXR%%H6IN>(-=%(K>*HH6=%"%%%(K> %+%%%)H6IN> *$%8<(*98AXXH5?%9%3*;%9X7* HS*+XV-!H5?(*9%)*4OV%0%(O7/H6SJB>(+O%1/ +TOQ8 HJX,(S$/$.&H^> +4%%/.%*% 7>\B/.H]FHFLCSCFCICDCGCCCACTCLCECWCMCQCRBJ%4& PK& IIXZH%=HPZ?(PZ %6% NJ$+03:LK0/P.*V% LCH6%"J-:P^8A%YL X6*B% NK%X*CPV%%% LCG;%)*[%%%,H7X**DH?$38AH?%)%%*DB:%,%-%6H0XHX2H7%;HHXW$4YPV%%%)% >J9%&*;H08AXHX2%*% 9J9%&+FF[<(H68!X9OLSLXJLJ=H+ H9> +THJOLX9L9X9,9SL;/L3= 0LK/X3K.X4: 0&/-W3[0V>+/:/,J;J8W KBJ9B1KJB%B"B!BB$B B,B;BM%4B"BM%6X2%&%%%(O7*VH6ARH1X1%%%(O7*V*Q%2* H1X.&0LKX1&/$+[OI\XXHX8!HY?(*1LX8!H1>(+EHXH8*!P NAHYHE9!HK>P%6HYH8XYH1\XPXKO\XPX$GE 4X-!HXXILI8!KO> *,PXPX-!B H6IL> /O%%+P=P=GV[+7B"H6IM> S[H6KVX,H,?H/[H6KW?(S[/[$GKX(3X[XX$-^8XRLKX9,9J!JZJ)J&X*J+J+FHFLHMH,%"H-%"H.%"JA%"%%X-%4*W+Z+% LG%4*$BJC?%6I XXIIH,<(* 8A>(+SH,IQ?H+3%2 %$$$GDX5UIUXXHTH->(-!LKX-*-%2B,B;BMB=%TE%$$JY?H$)$G82XIUXX" .WNRFV COIH,IQ?.]H IP? R].]PVLKX-J\LK8!H,> %6%%. B70B%-.2PV%%H6IN> *7HO8 HSX/I[8!HS>()?2ILS\UI[X9L9<(+WXZHS9!HZ>XH/HZ\9HZ+I8 HSXIH/8 HSXJH/H0X0HH8 HJXZHHH/XHLJ\IPZ+(*3BP$4X6%(NS/-%)/-U[V(V^U5VXUOU:VTVUV,U=WBVAU7CX%4* *R*KH6IJ< %6I]X02I][2A)?%,H0XH%5PSH5?%8%3)?%8X7*UI\XY-!FFI[XUI[XSHSXIH79!%:<(*6>X*7HSXU%8< *&(%).HV> +VI>(8AY*=IH+ESLPP+%HQARX6H6IC>(+KH6K./X%!B82ILU\0H0\UH1< \HHH8AX02A/0/0J+FL2BG/G/2(AP?60Y* 0^AF<(*MIS.LW6H7%/AR""IB%)H7""K.X6%).UT^AFXZIKX[**P[XZHZJK=*(:H[%)HZIK%)."= <(H6IN<(*>H?$3.5H?$3H>*(+ZH9AR< ]2A/BIR]+TUXP2+/H1%;X19ISK9HH>P/]%6 C?A XD> %/X18 X2/]W82ILR2A/4H4S&2ILO2A/:R BJ ==Z8HZA0!*U0"XNN5<(*U0$XN^5J58AA J3Z50Y*&0^AF<(*&ISZ2J2JB>(+ H\> %6J2X\0I**0JX &+Z[2$JA9DJ0A,BMYPYSYSBJH\=(*7Z>X\J>.6T=Z60AN4> +A0BHN> +LJ60&XN+SJ6^4J48AAGJ3Z40A.>[VFF: KVX70AHN> +[0B+"ISX7PNIEX/8 J3XH2A\HP/+)X\J3Z5J3Z4/2K$IA%)%+PR%7<(+?X7IA%)%)%+H?%)IVY*)?H2> *LHH8!HW?.!J)%)HHX92IP2*"L9ARIC> * 8 X28 HHXHL9AAX1.!UXL9AAHF> *X\9*YC\I\XXHY8!HX>(-!LX/NKMXOXP%%%)%%%)%%%)PXLX L%%%)PX$GDX%XH?%)H8IIHX*+T"C=:()L 6F6ED!% NK$+[KC 2K !KC%>(+(.J-^ZLZKCXCY=*?4Y7JYJZ2K&HZ)% NJJ)9DX%JXX$-^J LV,R[0)Z 0*09.[0:2IV(2A.[A=77[:% NJ$+2K.)J > -!R IDX7X5.8DQKQ[P$+<(+(=H+T"% NJ$+"$+"% NJ$+"$+"KSX3-^8^8^V>[+8!"JZ03:$4["K!03:K"++VDA[M2I P2ASP/"KRX3-^T=2K //+=9Q/ >K?=+;JX?H+;OR++1:OR/0V6=&2ZFV IF[ JBXNI TAFQ!(PSCPX0GRL>6Y0FV XGRL>6YFV IZXOI/HYOH$ XPIP8YPH$ XCCPXDCU&Y&SXDTSCAPXMJP8XNMOIRDX1IUPIXCTWHUAQCTWHLAPZII/LZJH$ HDTVABPVBPUBTWHXAG^V1APDXH&+UWDXPNOCBXSOCBPSICAPTECBXSSDODPDIDVOR NO ";G 10.4?MUPSET RE=1;R?MPDC\XFAPREAP8[V0"OP[PO"["KU8 >(*\KU [O[K$S[<(* [*LKV>(/ KOC]K!ZZ2C/VMKR[PK"8J8JC]KO[OO S K^<(*5K <(*>K\[QMKR<(*S[P*%K%[QK\[ K\ K ZA*/K\[QKOC]> */KWKO[OKV< KXK [SM<0 C]B:A2C1B>"B:KY0&0!+(KZ0&0!+,/ MKR<(*S[P*%K%[QK\[ K\ K ZA*/K\[Q ^TW %*K/25EW9:"+<]QU>.(J?WT% K*2/E59W":<+Q]>U(.?JTW %*K/25EW9:"+<]QU>.(J?WT% K*2/E59W":<+Q]>U(.?JTW %*K/25EW9:"+<]QU>.(J?WT% NNDS]E.:JHU5TX"+(0EWQ)B&*SDE].J:UHT5"X(+HSXH,CRDB;NRHM??CRDB;D^[M2;CRDABMBYZMTG%=K8Y>1"0?1*720J3&7:;\LP/*CK29K8X8 17:19>(*VK51!K61!:+H1!OB8A>(+F9A3$3Y?*&K( *K) ++G;,K7>(*5;$K6>(+JI 4JJ 3+KW1+L0&00000000P/0!*6H/IX?H+ITXTXTXTXTXTXTX0&0A% DQ0BK09<(+$?HK6IPX/K,XIK-\IP/+[K09?HIDK.K/X]/ RL3K3GI+I.DAWUE0&OXFV1PD3RV,GB B$2%!X1% L PXLX/9RDH,CRDNRZ-FH,CLB;H%?H TX[$GK6=$+[U$G86>F=V>6=&=6>KH3VCE[VV=J?3VCB&>KV3VF=[VQKNKUH$X$P[-^$G6=CN^=-^+R+VDS:LB?K63VC3&>K0&>K-&=[V/,(TT N??[D$\?;[F,,T N&TWSS?=\W8*L;H%?H3X[$G6]V H%?H*Q$GF ^]6]: [2.S ZS2.\$G6]F^V].\+B+R+N NH%<(%6?H$)$G7.V H%<(-^?*4$GF .7.: X[HEX$8 O.X%X&X 8A .$G/6]G.V 7.+K( .K% .K" .K .K\ .KY .KV .N].\ ??"?? !??UOCG?>!K:I?>U][A?= &G9?(+.K]H[= +-K[=:8!H[8!XZH[HZ>(+HZ8A?HIE^PZ+CIB%)+C8 K^[^**E?:G?61(1,?:-L ZS]/^.8 H[X[S\++8 [\+KLL+K: ZIB%)RLL^S\+28 [\+3; H%X(H%?H$)/92HX&X$X%X [LX(H6J4<(*PII> *Q8 X(&6H6J5>(*P"W..VH6J2>(.W%1.W* H,[K"7SL> %6&6*XH6IJ?H.WH6J3? .WH6AR* <;<&=U= G.."H XH&X"H%X![JMM[MKKXX"X![KJ.7C/CH 9DX H&8DX&H%8DX%KJ8D[J/M/H;H HX 8DH&H"X&8DH%H!X%8DKJ[J/[5J;H!=H9P8HX!H"8HX"H8HXP /,/,&*SDE]L;JYK]: %?K\K^%) +X[H$=H*W< K!?(*\$G $8AH[*I$G *8 *U % &K(XLH$9 [,KX$%WS,*%O&<(*8K"?H*48A\LP$K"P[8O&P[8\A$?=RB = YO > FH6IL>(*B BH6IM> *Q F E COE8!X[KHX$ D G$G4XH6KA> *& F B DH H[X[$GDXH[<(.?*1$G"=4X8A*6$G"94X8 H[X[*&DT?=Y&Y Y(<;..W9;/LG.;]H\W.=WSO>P/"PK-!BJ32K=8 [=;X K=< 8> K?IVY*//3FI8 X 0NAF<(+RISX6/Q%/!$H0;X XN<(.Z2J2AS>(*NIDBX IFB2H X J3B2>(*YL X R8 H XMJ29F8FAG<(*7J4Z2N2<(*5Z2KDXLIOX/LM\LP/*-.26AD5;KC*;KCXM8 H XLIOX/LL\MP/*>*A 5 8*A : 9 ; 7*AH%> +UX$X%X&X *A%$% %$$$+=H+"8 Z2XH%> %6%TE%$$%$<8+0%<8%$ 6R2++*A 6*A9+8D;]6S/,7//[5F5E9G535M5K?/;H 8!X H&8 (+IH!<(H"<(H>(.SH 8!H$<(*;ZCJC=8![RKRK^?H*=JC?*5/SR*1*;8 H X SSR*8RS.SH ?+DH$?.S+FH$?JC? .SH X$H!X%H"X&HX .S/,Z. )H$?(++8AXK(X "SWP +$P&H% )H! *BH" *CH& )H! *CH" *D*3Z(%6H 8!8AT?+ (A/S4A8HH$X$IT%H!?8 X(H%<(/&?H$)H!<(/&/T5P;]:1:.:5F;H8!XH"8 (+3H%9D?H+0%W9 H$X$+ >6/]X$/]7/;2H%=H8!?H 5/6-99;AH$G2>(*5$GB *1H%8!J9> *1H&8!J:=8!8A?-^$G28*WX$-^XMC]*"?F[ =CI[WH0WHYWH]W+N%%%)H6IN> +LHN> +R2J//=KXZH 8F8F(%/8D(8J8H((:H?%)/W=$C.IK%)HZ/(GAPR,2ILI2A/0U"2I\H2A/52I >2A/?DX37R^ 7ESR3EZ 7UKE2 7G7I T6,SSA*M2I?D* B6/IF=2,7N7ESS"M&J3W R+TCE2(GI.,F62)6 7EOS3T&(2)^,7MSI3W&(6)N,+TAI6).JF62I?F3RGM+T" +I22+F:721Z,.7F.")*M26NI7OSN7IWNE*M6IKW3IWT2 &(/A^,")*M27ZI3O7R+AT2/6 /IGW2 ;E+D> ")*M2IGC+LCL3E XT*M2I;ED*MBLBZ Note: Lines longer than 256 characters were wrapped