PQÙ¾ÔINIT¤EXPL¤MAIN¤COORD1¤COORD2¨TOÔØÁCOORD2¤ÙÚDELAÙFRØFRÙTUØTUÙEXPÌ€€€€@€  **************************› * GRAPHIC VIOLENCE DEMO *› * A.N.A.L.O.G. COMPUTING *›( * by tom hudson *›2 **************************›<›F66***INITIALIZE THE GRAPH. VIOLENCE SUBROUTINE ***›P BZ›d##*****************************›n##** ÙÏÕÒ ÐÒÏÇÒÁÍ ÇÏÅÓ ÈÅÒÅ¡ **›x##*****************************›‚!!***************************›Œ!!* ÇÒÁÐÈÉàÖÉÏÌÅÎÃÅ ÄÅÍÏ *›–!!*         ÎÏ® ²         *›—!!*     ÄÒÏÐÐÉÎÇ ÂÏÍÂÓ    *› !!***************************›ª›´;;***SET UP GRAPH.7 FULL SCREEN AND EXPLOSION COLOR ***›¾/+@%@/0@@@È***DRAW GROUND ****›Ò= @!‰-@ @•-,‰9/AY‰= ‰Ü11***TRAP ANY ERRORS TO 'THE END' ROUTINE****›æ A ð55****RANDOMIZE START POINT FOR DROPPING BOMBS***›ú9"6†-@%H:,$AI96‰-H:,$@*****ADVANCE THE BOMB AS IT DROPS*****›! ,†‰!6‰-‰%@99****IF THE BOMBS HIT COLOR 1, SET OFF EXPLOSION****›"1 1†‰ŠŠ"@'6‡-?:C:,<†<‰,1 AP,%%****NO HIT, CONTINUE DROP******›65 @,†‰'‹-@@+ ‹5 Ap@****'THE END'*****›J9+@%@/0@@@9@T*****PLOT 'THE END'*****›^; #A!†-@@"+"ŒŽ1,Œ7/Ž; †h&&****SET OFF 200 RANDOM EXPL.****›ru-@AY6‡-?:C:,<@@%H:,$@u<@ %H:,$@U,m‹-@@@q ‹u |66****LET EXPL. DIE, THEN RE-RUN THE DEMO*********›†%‹-@A  ‹% A*****'THE END'******DATA›šgg50,25,67,25,59,25,59,45,72,25,72,45,72,35,88,35,88,25,88,45,93,25,93,45,93,25,109,25,93,35,109,35›¤ff93,45,109,45,50,50,50,70,50,50,67,50,50,60,67,60,50,70,67,70,72,70,72,50,72,50,88,70,88,70,88,50›®UU93,50,93,70,93,50,102,50,102,50,109,56,109,56,109,64,109,64,102,70,102,70,93,70›'%%***INITIALIZATION SUBROUTINE***›'F<€;@A,;@),‚;AU,ƒ;@‰,ˆ;@‰,F#B$'_6…-#†-@@‰'"‡/6…-…%‡=6ƒ7†<†,.>:‡,A †M…A™„\( COORD1 ERR_.'_6…-#†-@@‰'"‡/6…-…%‡=6ˆ7†<†,.>:‡,A †M…A™„\( COORD2 ERR_8']6…-#†-@@A'"‡/6…-…%‡=6€7†<†,.>:‡,A †M…AB7Z(INIT ERR]B']6…-#†-@@)'"‡/6…-…%‡=67†<†,.>:‡,A †M…A!˜Z(EXPL ERR]L']6…-#†-@AU'"‡/6…-…%‡=6‚7†<†,.>:‡,A †M…Bf‘Z(MAIN ERR]V'**SET UP PLOT BITS***›`'KAhA’'Ai@H9Ap@KAq@t'..6‡-?:C:€,>42,133,208,165,207,10,133,207,165,208,42,133,208,165,207›L;7724,109,9,6,133,207,165,208,109,8,6,133,208,165,88›V;::24,101,207,133,207,165,89,101,208,133,208,173,6,6,41›`;223,168,190,32,6,142,10,6,173,6,6,74,74,24,101›j;99207,133,207,165,208,105,0,133,208,160,0,173,4,6,208›t;7711,173,10,6,81,207,145,207,169,0,240,132,173,10,6›~;))73,255,49,207,145,207,169,0,240,241›€D:VIOLENCE.BASL£1œ©|