10MODE7 12VDU23,1,0;0;0;0; 20*TV255 22*FX229,1 24*FX18 30REM "        40REM " 0 1 2 3 4 5 6 50CLS 60PRINT" Faraday's Cage "; 70PRINT"  "; 80PRINT" Do any other members suffer from bad "; 90PRINT" headaches after hours in front of "; 100PRINT" your computers? "; 102PRINT" Well it is more than likley that you "; 110PRINT" are using one of those c heap high "; 120PRINT" emission monitors and I hav e just the "; 130PRINT" thing to end all your suffe rings. "; 140PRINT" Sneak into the kitchen whe n the wife "; 150PRINT" isn't looking and grab t he roll of "; 160PRINT" baking foil retreat to your den while "; 170PRINT" the going is good. "; 190PRINT" Tear a 2ft square from the roll. "; 200PRINT" Place this centrally on the top of "; 210PRINT" your head, begin to form it around to "; 220PRINT" fit snuggly finish the edge s to suit, "; 230PRINT" your chance to show some artistic "; 240PRINT" flare. "; 250PRINT" You have now made what is in effect "; 270PRINT" a Faraday's Cage for your h ead which "; 280PRINT" will protect you from stray electro- "; 290PRINT" magnetic radiation, being especially "; 300PRINT" usefull in case of nuclear fallout. "; 302PRINT" "; 310: 320Q%=INKEY(100*30) 330REPEAT 340FORS%=1TO2 350FOR T%=1TO20 360PROCeor20 370Q%=INKEY(5):IFQ%=32:Q%=GET 380NEXT:NEXT 390UNTILFALSE 400: 410DEFPROCeor20 420LOCALP% 430org%=&70:end%=&74 440IFS%=1:!org%=&7C00 ELSE !org%=&7C01 450 REM !org%=go% 460!end%=&7C27+40*24 470FORI%=0TO2STEP2 480P%=&980 490[OPTI% 500LDY#0 510.loop 520LDA(org%),Y 530CMP#&80:BCSnot 540CMP#&40:BCCnot 550EOR#&20:STA(org%),Y 560.not 570INCorg%::BNEd1:INCorg%+1 580.d1 590INCorg%::BNEd2:INCorg%+1 600.d2 610LDAend%+1:CMPorg%+1:BNEloop 620LDAend%:CMPorg%:BCSloop 630RTS 640]NEXT 650CALL&980 660ENDPROC