õö&PM1¤PM2¤PM3¤SIZE±SIZE²SIZE³SHIP¤SHIELD¤FLAME¤CLEAR¤ROWÓDOTÓÊÁVSÁBOÁPÍDISÐADÄÔPMHIGÈPMLO×COLR±COLR²COLR³X±X²X³Y±Y²Y³ÙCSPAGÅMCS¤CÓSCRSÔBHI¨BLO¨ÂËVBI¤HÉLÏWAÌRO×COÌWIÄSTARÔHFL¤HRL¤PRL¤HFR¤HRR¤PRR¤DIÒDIÆNROÔROÔHOÒÐCRASH¤CTSND¤PROP¤EXPL¤PHÉPLÏEHÉELÏÒÉbX€bX€c€€€€€ 耀 @ A€Ay"BSEBHBT‡@&@@™@@tA%A3A)@u@u@u A@!h**"BX@#BhdA$’ A%à &Bhd'@(.””)@c*Ay+,-./B˜0€1Ž2œ3ª4¸5Æ6AU789:;<Ô=Â::>ü ?@@cAA7B@cCAHDEA€@""****************************›""* BASIC HELICOPTER *›""* ADDITION TO CITY SCROLL *›""* STAN OCKERS JULY 1983 *›""****************************› 55line 10 must be 1st DIM entered after power up.› &&€;A(,;A(,‚;A(,RR°;@,±;@,²;@,³;@,´;@,µ;@,¼;@ ,(\‰;A(,(6‰7@,.>:,@6‰7A(,.>:,O6‰7@,.‰\(>:A%,-2( (2($INITIALIZING TAKES APPROX 45 SECONDS27 #@`!Œ-@@%"36°7Œ<Œ,.>:,7 Œ<))0,0,1,3,1,15,19,35,35,63,17,127,0,0›F7 #@€!Œ-@@%"36³7Œ<Œ,.>:,7 ŒP550,0,128,192,128,240,200,196,196,252,136,254,0,0›Z7 #A!Œ-@@%"36´7Œ<Œ,.>:,7 Œd%%0,0,0,1,0,65,175,71,3,1,0,3,0,0›x7 #A0!Œ-@@%"36±7Œ<Œ,.>:,7 Œ‚//0,0,0,128,0,130,245,226,192,128,0,192,0,0›Œ7 #AP!Œ-@@ %"36¼7Œ<Œ,.>:,7 Œ–EE120,20,43,128,83,221,44,233,90,29,159,73,22,199,88,77,66,55,8,3›ª7 #A€!Œ-@@%"36²7Œ<Œ,.>:,7 Œ´0,0,0,255,0,0,0›ÄPM INIT.›Å""see June '83 COMPUTE! P. 187›Æ!!article by Staffan Sandberg›È6-F:A,&@ÒBByÜ%%6Ž-AV$F:A5,%F:A4,æ%%6-AV$F:AA,%F:A@,ð6-AV$%Aú 6‘-&6’-@“-@@6”-P:‘'AV,"6•-‘&AV$”, Ž%’•6Ž%’%@”@6‘-‘%A(6’-’%@J “V colors›Y9 +@#AF+Œ-AA/"5Œ9 ŒZ32,14,86,84,8›[gAY A) A 3 A"= A#G A!SAV ] APg A0\6-?:A€,^'AY@F'B2w@h'6–-6—-'6˜-@tr'A–A—'A˜|96™-A%6š-A3'6›-A)9B2X@†'B2H™B2Iš'B2P›E6œ-@u6-@u'6ž-@u36¶-@EAeš 6€.‰6.‰6‚.‰£Main loop starts here›¤0"R:, @*º @ 06º-º%@®D6R:,!@*R:, @*º!6@ D6º-º&@°6™-™%?$º²'6¶-AUº '6¶-@´7™ @P6™-@P-Ae@7 A@¶7™!A6™-A-AeAU7 A@·Ae¸0"R:,"@*¹ @ 06¹-¹%@Â1#R:,"@*¹!6@ 16¹-¹&@Ä6œ-œ&?$¹Æœ @ 6œ-@ Èœ!A6œ-AÌ 6‚.‰B2xÎ!¶"@6€7œ,.°!67œ,.±Ð!¶"AU6€7œ,.´!67œ,.³Ö!H:,!?P!6‚7œ,.²ÛAd™à&6»-F:B2R,&»"A ê%»"@6¹-% A@ôQA8!A‰Ã-AÂ?A‘QA8@ùAe)Œ-@@C6Ä-P:H:,$@,a6€7œ,.¼7@%Ä<@%Ä,67œ,.¼7@&Ä<@ &Ä,û§-@@  § Œþ T:,"@A-A‰ÁAÀ-A8@=6œ-@%6™-A'6¹-36º-= Aè* change character set *›òD¡;@B,#A .Œ-@@B2"@6¡7Œ<Œ,.>:,D ŒüLL104,169,0,133,203,133,205,169,224,133,204,165,106,56,233,21,133,106,24›ZZ105,1,133,206,162,4,160,0,177,203,145,205,200,208,249,230,204,230,206,202,208,242,96›B6-?:C:¡,,&6 -F:A,%@46¢-AV$ B6£-¢%A$6 #A`%Œ-¢%Av¢%A h)"/Œ3 Œ6$$cc255,219,219,219,219,219,219,255,150,150,150,170,150,150,150,150,85,125,125,125,125,125,125,85›.cc85,105,105,105,105,105,105,85,255,215,215,125,125,215,215,255,170,251,170,191,170,251,170,191›8WW169,165,101,101,170,105,89,90,0,0,0,0,0,0,255,255,235,235,255,235,235,255,235,235›Bcc85,101,101,101,101,101,101,85,255,215,255,215,255,215,255,215,219,182,109,219,182,109,219,118›Ï!!* Create New Display List *›Ð/Œ-A9Ar@+Œ@…/ ŒÒ¤9@,¥9@,Ó]Œ-@@/6¦-£%AV$Œ&@FC6¤8Œ,-P:¦'AV,Y6¥8Œ,-¦&AV$¤8Œ,] ŒÕsŒ-A6A8#ŒA' Œ36§-A@GŒ-@@P§¥8Œ,a§%@¤8Œ,o6§-§%@s ŒÚ`Au@e'Av9Aw@KA`]Aa@`$3* Init. Page 6 Values *›4/ #A!!Œ-AdAg%"+Œ/ Œ6 1,1,2,0›8* VBI Scrolling Routine *›9D¨;AH,#A!.Œ-@AH2"@6¨7Œ<Œ,.>:,D Œ;H 6-C:¨,6©-P:'AV,-6ª-&AV$©9A‚ªEA„©H$<KK216,173,128,6,141,0,208,141,2,208,24,105,8,141,1,208,173,129,6,240,66›>@@16,9,173,130,6,201,1,144,57,176,7,173,130,6,201,216,176,48›?aa173,129,6,240,43,16,15,206,131,6,16,30,169,3,141,131,6,141,4,212,208,29,238,131,6,173,131,6›@PP201,4,144,10,169,0,141,131,6,141,4,212,240,9,173,131,6,141,4,212,24,144,55›H**216,162,0,173,129,6,48,16,189,4,6,56›R))233,1,157,4,6,176,19,222,5,6,144,14›\GG189,4,6,24,105,1,157,4,6,144,3,254,5,6,232,232,232,224,37,144,214›a0024,173,130,6,109,129,6,141,130,6,76,98,228›—* Insert VBI Routine *›˜2 #A"!Œ-A€A‰%"+Œ/ Œ2$¢''104,160,132,162,6,169,7,76,92,228›û* Draw Buildings *›ü #A#`6¦-£ ! "«¬­®!«"A$ #Œ-¬@#6¯-¦%AV$Œ%­ §-@®¯%§« §$  Œ A#8 dd102,1,0,2,103,11,2,6,97,5,8,8,98,8,14,6,102,11,20,6,105,3,30,8,100,5,26,6,101,8,34,4,99,6,52,8›B aa107,4,60,6,108,7,64,6,97,3,82,8,103,10,68,18,106,7,90,4,107,5,94,6,100,8,106,8,105,10,96,12›L ff98,6,114,6,102,12,120,6,106,4,126,8,101,8,134,4,230,11,148,64,99,8,150,12,233,9,164,6,97,4,170,6›V cc100,9,178,8,99,9,194,6,98,10,188,8,107,10,202,8,105,7,212,16,97,10,226,8,106,8,240,14,0,0,0,0›` #A$`j  "¬­®¬"A%t ?6¯-£%AV$¬%­%@/Œ-¯¯%®&@;ŒA2? Œ~ A$œ bb10,2,6,10,20,6,10,38,6,9,76,6,76,9,6,4,94,6,11,120,6,10,138,6,8,164,6,8,194,6,11,234,6,0,0,0›Ä #A%`Î  "¬­®¬"$Ø ?6¯-£%AV$¬%­%@/Œ-¯¯%®&@;ŒA? Œâ A% 448,38,8,11,38,16,6,76,6,8,138,6,11,138,10,0,0,0›· * Sound Strings *›¸ D¾;@,#A0.Œ-@@2"@6¾7Œ<Œ,.>:,D Œ 2,3,8,3,2,6,4,1,3,0,1›Ä D¿;@,#A0.Œ-@@2"@6¿7Œ<Œ,.>:,D ŒÆ ++20,30,14,10,20,8,30,40,10,40,60,5,0,0›È - 6-C:¿,6Â-P:'AV,-6Ã-&AV$ÂÌ E 6-C:½,6©-P:'AV,-6ª-&AV$©9ARªEAS©Ö l 6-C:¾,6À-P:'AV,-6Á-&AV$À9A‰ÁEAÀWAˆ@iA8@l$‡""* Create interrupt routine *›ˆG #AP½;@X,.Œ-@@X2"@6½7Œ<Œ,.>:,D ŒG$’BB173,253,6,133,203,173,254,6,133,204,172,255,6,177,203,240,28›”MM141,26,2,238,255,6,200,177,203,141,0,210,238,255,6,200,177,203,13,252,6›•141,1,210,238,255,6,96›–11141,255,6,141,1,210,200,177,203,141,26,2,96›€D2:HELI