9:ºÖíINIT¤EXPL¤MAIN¤COORD1¤COORD2¤TOÔØÁÙÚDELAÙFRØFRÙTUØTUÙEXPÌ)))Fcc©YYYYBf‘@wGeB3@VvWG @  **************************› * GRAPHIC VIOLENCE DEMO *› * A.N.A.L.O.G. COMPUTING *›( * BY TOM HUDSON *›2 **************************›<›F88*** INITIALIZE THE GRAPHIC VIOLENCE SUBROUTINE ***›P BZ›d##*****************************›n##** YOUR PROGRAM GOES HERE! **›x##*****************************›‚!!***************************›Œ!!* GRAPHIC VIOLENCE DEMO *›–!!* NUMBER 2 *› !!***************************›ª›´??*** SET UP GRAPHICS 7 FULL SCREEN AND EXPLOSION COLOR ***›¾/+@%@/0@@@È*** DRAW THE 'GROUND' ***›Ò= @!ˆ-@@•-,ˆ9/AYˆ= ˆÜ22*** TRAP ANY ERRORS TO 'THE END' ROUTINE ***›æ A ð66*** RANDOMIZE START POINT FOR DROPPING BOMBS ***›ú9"6†-@%H:,$AI96ˆ-H:,$@***** ADVANCE THE BOMB AS IT DROPS ***›! ,†ˆ!6ˆ-ˆ%@99*** IF THE BOMB HITS 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 300 RANDOM EXPLOSIONS ***›ru-@AY6‡-?:C:,<@@%H:,$@u<@ %H:,$@U,mŠ-@@@q Šu |66*** LET EXPLOSIONS 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@j'<<*** INITIALIZE GRAPHIC VIOLENCE ROUTINE AND RETURN ***›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›€D1:VIOLENTD.EMO