10 CLS0:D=1:E=20:A=106600:B5=1066:G=5.36233:F=99.9:V=0 13 A=88888 15 P1$="€ÁÂÀ" 16 P2$="À§« " 17 P3$="äààè" 25 P=8:GU=32.174514 30 V=V+(G^2):R=VAL(INKEY$):F=F-.2*R 31 IFV>400THENPRINT@144,"SHIELDS BURNING"; 32 IFV>500THENPRINT@480,"YOU WHERE BURNED UP.";:END 33 J8=ABS(INT(V/2)+1):SOUNDJ8,1 34 IFA<1000 THENGU=V*.1*R 36 V=V-(R*GU):A=A-V 40 IFV<=400 THENPRINT@144,"ððððððððððððððððð"; 50 D=A/100:D=1006-D 59 D=A/100:D=1005-D 60 D=(D/12)-INT(D/12):D=INT(D*13):P=(D*32)+6 62 IFYH<>PTHENFORX=0TO2:PRINT@YH+(X*32),"ððððð";:NEXTX 64 YH=P:IFA>=1000THENPRINT@417,"         "; 65 PRINT@P,P1$;:PRINT@P+32,P2$;:PRINT@P+64,P3$;:A=INT(A):V=INT(V) 68 IFR>0ORV<0THENPRINT@P+65,"õú"; 70 F=INT(F*10)/10:PRINT@336,"ALT =";A:PRINT@368,"VEL =";V:PRINT@400,"FUEL=";F:IFV>0THENPRINT@432," " 72 IF R=0THEN90 90 IF V<0THENPRINT@432,"descent stopped" 95 IFA<1000THENPRINT@417,"target luna"; 100 IF A<0 THENPRINT:GOTO200 110 FORX=0TO50:NEXTX:GOTO30 200 IF V>50THENPRINT"YOU CRASHED!":GOTO210 205 PRINT"SUCCESSFUL LANDING!" 210 INPUT"PLAY AGAIN";AN$:IFAN$="Y"THEN10