@name FailCake Screen test
@inputs Screen:wirelink
@outputs
@persist B1 B2
@trigger all

interval(100)

if (B1 & ~B1){
##Virus FailCake!##
S = random(2,250)
   
Screen:writeCell(100,100)
Screen:writeString("0010101",S,S,S)
Screen:writeString("101010",S,S,S)
Screen:writeString("CAKE010",S,S,S)
Screen:writeString("1010101",S,S,S)
Screen:writeString("001010",S,S,S)
Screen:writeString("0010101",S,S,S)
Screen:writeString("101010",S,S,S)
Screen:writeString("CAKE010",S,S,S)
Screen:writeString("1010101",S,S,S)
Screen:writeString("001010",S,S,S)
Screen:writeString(" |----------------------| ",1,6,S)
Screen:writeString(" | OMG! FAILCAKE VIRUS! | ",1,7,S)
Screen:writeString(" |----------------------| ",1,8,S)
Screen:writeString("1010101",S,S,S)
Screen:writeString("1010101000",S,S,S)
Screen:writeString("000110CAKE",S,S,S)
Screen:writeString("1100101",S,S,S)
Screen:writeString("11CAKE0101",S,S,S)
Screen:writeString("1010101",S,S,S)
Screen:writeString("101CAKE000",S,S,S)
Screen:writeString("1100101",S,S,S)
Screen:writeString("11CAKE0101",S,S,S)
Screen:writeString("1010101",S,S,100)
Screen:writeString("101CAKE000",S,S,S)
Screen:writeCell(100,100)
}
if((B2 & ~B2) | first()){
Screen:writeCell(100,100)
Screen:writeString(" |----------------------| ",1,6,S)
Screen:writeString(" |       Loading        | ",1,7,S)
Screen:writeString(" |----------------------| ",1,8,S)
Screen:writeCell(100,100)
}

##PROTECTION SISTEM MUAHAHAHAH##

if(duped()){selfDestructAll()}
