ABú*M¤ÉÁSTARÔALÔFUEÌGRAÖTHRUSÔFRACÔVEÌEMPTÙÎLÎÊØÙÌÒFLAMÅACCEÌÓYPOÓPOÓB‰AAB‰ADC`A™P@? À#P @ @ @B‰2À@@!(A€@$$******************************›$$* LUNAR V *›$$* by *›$$* STAN OCKERS *›$$* from ACE NEWSLETTER,EUGENE *›$$* OREGON, U.S.A. *›$$******************************› "€;@ ,"AYPOKE MISSILE -GR.ROUTINES›%-A”A "‚!‚% $00170,189,233,6,133,203,189,238,6,133,204,96›&ii104,104,104,32,58,6,104,133,206,104,133,205,188,243,6,162,0,161,205,201,0,240,7,145,203,230,205,200›'208,243,96›(hh104,104,104,32,58,6,188,243,6,200,192,126,176,21,177,203,208,247,136,177,203,240,6,200,145,203,136›)&&208,245,200,145,203,254,243,6,96›*hh104,104,104,32,58,6,188,243,6,192,1,240,19,208,1,200,177,203,240,6,136,145,203,200,208,245,136,145›+203,222,243,6,96›,99104,104,104,32,58,6,160,0,152,145,203,200,16,251,96›0 * VECTORS FOR PLAYER MEM *›2€6‚-F:A,&@&BBy‚:At‚%@NAu‚%@`AirApA(€6ƒ-AV$‚:* POKE IMAGE DATA *›<!-ƒƒ%@("‚‚! >aa8,60,126,195,126,60,24,126,165,129,0,90,90,66,36,36,36,24,24,24,0,24,60,126,255,126,60,24,0›b* INITIALISE VARIABLES *›d6„-AE6…-A'6†-@36‡-@?6ˆ-?K6‰-W6Š-c6‹-@o6Œ-@B2W“AY@4+@f Ah* MAIN LOOP STARTS HERE *›i;B2u@'@w;‹!@A n* DRAW MOUNTAINS IF N=1 *›o #Aps-@@!"Ž‘/-9-Ž%&O(@>:AC,S ]-Ž%&s(@>:AT,rq-@‘-Ž%&%3(@>:AR,7 ; O-@@[-@"q(@>:AA,t v440,17,3,4,6,16,4,5,13,13,5,1,1,22,3,3,12,22,5,2›w* ERASE PREV.STARS *›x#AP%Œz "ŽŽ"A&|" -Ž(@ " A"}* DRAW NEW STARS *›~#AP%‹ "ŽŽ"A2) -Ž(@>:Ap,) A'‚* INSTRUMENT LABELS *›„p-'(@ALT=9-@L(@FUEL=^-@#p(@VEL=†%%* INITIALISE MISSILE GRAPHICS *›‡'AY@F'B2w@Š* LANDER POS. AND COLOR *›Œ9B2HA('Ay@9AA”* FLAME POS. AND COLOR *›–9B2IA('A€@!9A@h¼!!* ERASE OLD - DRAW LANDER *›¾g6‚-?:A<,16‚-?:A<@,NA€F:Ay,%@g6‚-?:A<<ƒ,¿ * SKIP FLAME 40% OF TIME *›À H:,!?`AÃ/6’-ƒ%@ &P:‡,/6‚-?:A<@<’,Æ* UPDATE VARIABLES *›È 6“-‡&†Ü 6‰-‰%ˆ$“ð 6„-„%ˆ$‰ú* TEST FOR SURFACE *›:„ !-@0(@0: A  6…-…&ˆ$‡"* TEST FOR FUEL GONE *›,3… 6…-'6Š-@36‡-êŠ"@APïUPDAT THRUST WITH STICK *›ô6”-R:,þ”"@6‡-'”"@*‡ @ '6‡-‡%?P* UPDATE POSITION *›&a2@@%@‡A6•-+‹$AP&„,'@%@MAy•aA€•%@N* PRINT VARIABLES *›Xu-@)(@P:„, ;-@@#O(@P:‰, a-@u(@P:…, ]* TEST FOR NEW SCREEN *›b9•!A6Œ-‹#6‹-‹&@/6•-@9 Al9• @6Œ-‹#6‹-‹%@/6•-A9 A²* REDO MAIN LOOP *›¼ Az* TEST FOR LOSING *›„:%2@:‰ 6@A P…* LANDED SAFELY *›†6‚-?:A<@,‰h-@,6€.MISSION CONTROL:6 AD(@^6€.LUNAR V HAS LANDED.h AŽS6€.CONGRATULATIONS ON& A?6€.A PERFECT FLIGHT !I AS A €´* CRASHED *›¶Š6‚-?:A<,16‚-?:A<@,R6‚-?:A<@<ƒ%@!,f-@@xB2W@ŠB2W@¸•%2A@@7B2IA IB2W@]-@@0a ƒ2@A@@@•B2IAº‡B2W@)-@@0- O2q2@u ‡A@»h-@,6€.MISSION CONTROL:6 AD(@^6€.LUNAR V WENT OUT OFh AÀr6€.CONTROL AND DUG A% AR(@CRATER P:O:‰,$@, FEETh6€.INTO THE MOON'Sr AÊ6€.SURFACE. AÏ* TEST FOR START KEY *›ÔFF:B2y,"@*AY<B2wF AÞ A €ç* MESSAGE SUBROUTINE *›è£-@B:€,&@/(@€7<,Q2@P@@e-@@i ‹2Ÿ-@@£ ò (@€7<,$* DATA FOR STARS *›1,4,7,11,16,5,0›2,4,6,10,15,3,5,5,5,16,0›8,3,12,7,18,18,2,1,16,2,0›7,7,10,10,17,3,0› 4,2,7,18,17,4,13,15,0›!5,3,14,14,12,9,2,13,0›" 1,2,18,4,13,13,11,1,5,15,0›#!!5,3,19,4,14,10,3,14,13,18,0›$5,2,18,7,9,16,1,7,16,13,0›%8,3,9,15,15,2,0›&2,2,9,9,19,4,0›'9,3,1,5,16,14,0,0›€D:LUNARV