}~8(N(HIBYTLOBYTCLSEGTEMPHICHRSPEESCRLSTEBYTCFLACHAPAINLFENCPTHEIGHWIDTGRNSCRLWILINELECLOUSCRSPCFLAROOMLEFTEMMFILSCRNSZSTORCHIMNESHRUANTENNTREODDHOUSTRUNTREETOBDIDLSZMEHIBASLOBASDLBASSCRNHSCRNLSCROLSCROLLDLIROUDLIROUTMFILLWINDOCHRBAOFFSECHARTOTADLITBLSZDLITABLEDLITABLPARAMBASSCRLINISCRLADSCRLLESCRLCLDLIADVVBLKCRITICA  !"#$%&'()*+,-./0123456789:;<=>?@ABCD $$*** SCROLLING STREET SCENE ***$$*** Example 13 ***$$******************************F A@dHi/Lo Byte Calculationn6-P:'AV,x6-&$AV$Initialize&&;@$,;@$,;@,B67@,.>:,367@$,.>:,B67@,. B AP A` A& AAVAY@5 A( A0 B " B0T6-@|5#@@K:5ATAUMain Animation LoopCOLD RESTART'F:B2y,"@'6-?:B, F:AT,"AUAH)@6-&@H0ATAU< H6-  AlConvert to Screen Valuev6-)!A'6-&A()6-A(7 @6-&@2) 76-%@6-%%$@d$Send Info to Screen) 6-B:, @$)67%@,.6-%@- A"-@  6-$%6-@:7<,, A +!%@$%%@#+ A!0*"A! 4"@6-%@d>)%%$@$%&@) A!0H%%$%&@R \ f6-%%O:,%p6-z6-&@%&$Put In Fence @A"@j"@6-@:Q,$ A16-6@; A"PF6-@:E,P AV6-` A"Pj A"@T6-@:A, A%6-6@/ A"P:6-@:D,D AJ6-T A"P$Poke In Data%%$%$` $$Copy First Page Onto Last Pagej -@t -@$~ ""%$%&@%%F:%$%,     $( //Clear the Screen - Fill the Screen With 02 6-?:<<<,< $ Put in Clouds and Sidewalk R6.ԽԽ$6-@06-@<6-@H6-@R A  D6. Խ 6-@.6-%@:6-@D A  P"6..6-@:6-F6-@$P A  $ CREATE RANDOM DISPLAY 6- 6-@ 6-6- %%6-P:H:@,$@%@, 6 H:@,$A@E,6-@6 A0 6 H:@,$@U@5,6-@6 A0 6-@ 6-+H:@,?`, ("(6-+H:@,?@,  @6-& 6-+H:@,?P,0 6-+H:@,?P,: 7 6.-&@A5A7A97 A D  @ A$$N Plant Some FoliageX 6-6-b H#"*"*!@<6-+H:@,?0,HA4@l Make a treev 6-@6. 6 H:@,$@@,6-@6 A2` 6 H:@,$@ @,6-@6 A2` 6 H:@,$@@,6-@6 A2` 6 H:@,$@@,6-@6 A2` 6-@ A)6-P:H:@,$+&@,%@,5"@A6- 1 6-&!@%6-&@16-@ ##6-+@&,$@%@ 67,. "@A3@ -@&@ 6-%@67,.tt   6-%@67,. "@A3 -@&@* 6-%@67,.BV4  > ,H:@,?P,67%@,.KLR C%6-P:H:@,$@%@,C"@) @A4p\ '"@6-%@' A4pf 6-@ A4pp Make a shrubz S%6-P:H:@,$@%@,+6.7"@I67@ ,.S A4p 67@,.  %6-6-% A   @A1@ A0@ Width 2 !@6-@ 6-@ "@6-@ 67,.INZU A5` 67,.IOZX 56-%@5-%+&@,$@@ .H:@,?P$67,.. A5 67,. 67@ ,."A6@$4H:@,?P*67@,.WW4 A6@.67@,.EQ8$t Width 3~##6-+@&,$@%@&* @&67&@,.`67,.ZTX,H:@,?P"6., A7` 6.56-%@5-%+&@,$@@ 67,. 67@,.67@,.WWW$< Width 4F##6-+@&,$@%@P'"@67,.HTTJ' A@PZ,,!@))H:@,?33A@n6-@x)67@,.INZU) A967@,.IOZX6-)67@ ,. ITTO) AA- *#67&@,.`HJYTTJ- A@P=67&@,.HJ%"367,.HTTJ= A@P0H:@,?P&67,.YTTJ0 A@P67,.HTTM56-%@5-%+&@,$@@0H:@,?%&67,.0 A@67,. 67@,.67@!,.WEQW$Set Up Memory Locations6-6-@46-@H!!6-@$@$%$@ 6-%2'6-%@'$AV AQp<6-F:A,&F6-P6-$AV%Z 6-%d 6- An 6-6-x6-%@H 6-C:, 6-C:, 6-C:,$pSet Up the Display Listz+@%@AYA%@A%@A%@@q%@%@%@@%A(-@ 6-%$6-@-"@)"@-6-@%A("@6-@q%@%@$ 6- A%@%@$$%@ %@$. 8%@(@%A(B%@)@L%@0@%A(V%@1@e`%@2j%@3t 6- A~AAA`Aa0@@70@@@Q0@@k0@@0@@ @$@$$Set Up Alternate Character SetJ6-F:A,&&@T6-$AVh#6-@($@#6-@5r #B0|"6-!!-%%%$@&@" 6-% 6 +3  In Character Set Data6-%@ $* INITIALIZE ROUTINE STRINGS+Set SCROLL routine +;A,+mm67@,.ZPLbحHYZ01PQNPJNQP-mF PYP +mm67@,.Z-FMԭPmDDED8mQDEE(DDEPBCPgP*+mm67A,.ZDQDEBmPBRCCSA))P )ȭRmRȭSmSP4+AA67Aq,..YZPFDEBCP\+Set DLI routinef+;@,p+mm67@,.ZP LbKHHH]^$%KHȱȱȌKh ԍЎЌЭ]^hz+67@,.hh@+&&Read Color Values Into DLI Table+6-@#BU+ ;,+ 6-C:,+-&@+"+ %, P-Set MFILL routineZ-;@A,d-<<67@,.)hhhhhhh̥ͥ`-$.!!Set Parameters for Routines.6-A$/6-%@l/6-%@&v/6-%@(/6-%@0/6-%@1/6-%@6/6-AH/6-@f/6-?:<<@<,/ 6- A0  0%@ 0 6- A*0 40%@>0@H0 6- AR0 \0%@0$2 Install Interrupt Routines2@26-%@ A2 2%@26-%@ A3%@3%@r3|3@3BBA3$YCharacter Set DataY 38646Y0,3,15,31,63,63,127,127Y##0,192,240,248,252,252,254,254Z127,127,127,63,63,31,15,7 Z%%254,254,254,252,252,248,240,224Z4,31,4,31,4,4,4,4Z48,48,48,63,54,54,54,54(Z3,3,3,3,3,3,3,32Z%%255,195,219,219,219,219,219,219