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