^D[COLUSHAPLIND@P@@@@4A%FAFTERIMAGE TESTPBY NICK KOZIUPAZ (c) 1987, ANTIC PUBLISHINGd AnCOLOR CHOICEx (} (AR@##( 6(6(+Choose the color of the object to focus on:K((1) Red(2) Blue.( 3) Yellow<( 4) GreenK( 5) Purple( 6) Orange)@1"@I6-@'6-@1 AP1"@P6-@'6-@1 AP1"@Q6-@'6-@1 AP1"@R6-@'6-@1 AP1"@S6-@'6-@1 AP1"@T6-@'6-@1 AP ApSHAPE CHOICE (} (##( 6(6(+Choose the shape of the object to focus on:"C(( 1) Circle$( 2) Square5( 3) TriangleC( 4) Cross,)@6%"@I6-@% A`@%"@P6-@% A`J%"@Q6-@% A`T%"@R6-@% A`^ Ah''AAAA`r A|CIRCLE TESTU+@%@'A@9A@C@UA@ #AAe@-@ ",7!@U7@@S: 0-@A5 A@-@A% $AA77,33,78,33,79,33,80,33,81,33,82,33,83,33,84,34,85,34,86,34AA87,35,88,35,89,36,90,37,91,38,92,39,92,40,93,40,93,41,93,42AA94,42,94,43,94,44,94,45,95,45,95,46,95,47,95,48,95,49,95,50AA95,51,94,51,94,52,94,53,94,54,93,54,93,55,93,56,92,56,92,57AA91,58,90,59,89,60,88,61,87,61,86,62,85,62,84,62,83,63,82,63&AA81,63,80,63,79,63,78,63,77,63,76,62,75,62,74,62,73,61,72,610AA71,60,70,59,69,58,68,57,68,56,67,56,67,55,67,54,66,54,66,53:AA66,52,66,51,65,51,65,50,65,49,65,48,65,47,65,46,65,45,66,45DAA66,44,66,43,66,42,67,42,67,41,67,40,68,40,68,39,69,38,70,37N))71,36,72,35,73,35,74,34,75,34,76,34XSQUARE TESTbU+@%@'A@9A@C@UA@lK,@d@5'/@@59/@@bK/@d@bvAe@X -@b@56@,,@dT@@S:X 0-@A5 A@-@A% $TRIANGLE TESTU+@%@'A@9A@C@UA@9-@`A),@@25/@d9 0-@A5 A@-@A% $CROSS TESTU+@%@'A@9A@C@UA@ 3-@u@#,@5//@b3 3-@D@S#,@d//@3  0*-@A5 4A@>-@A% $7 +AR@1@7(}/( (/(! '('( by Nick Koziupa-@AP .@.@@K:, (} (,( +(+(Do you need instructions (Y/N)?$)@."@A8"@x$B A`LINSTRUCTIONSV11()}ᠠ`Y(2(' This program demonstrates afterimagesY(!(how your eyes percieve an image jO#(after it has disappeared.)&(O($ After selecting an object to view,tW.(&the screen will change to a dull shadeW($of white. Within seconds, the shape~S(( will appear at the center of theS(&screen. Fix your eyes upon the centerN&(of the object. After about 15N(#seconds, the object will disappear.Y.(&Continue to look at the area where theY(&shape had been. If the experiment wasP+(#successful, the image will still beP( visible, but now in the opposite>(color.(>((ݠ F:B2y,@A$D1:AFTIMAGE.BAS