mg}ΜOΥ
Η
2Νί°Όή/2Νί°Όή
dim s,d as integer
tH[NbN
label1.text=""
label2.text=""
timer1.enabled=true
timer1.inteval=250
timer2.enabled=true
timer2.inteval=500
s=0
d=0
^C}[PNbN
if s mod 2 = 0 then
label1.text="(FB)F"
else
label1.text="(fLBM)f"
end if
s=s+1
^C}[QNbN
if d mod 6 = 0 then
label2.text="^`"
else If d mod 6 = 1 then
label2.text="^`J`"
else If d mod 6 = 2 then
label2.text="^`J`m`"
else if d mod 6 = 3 then
label2.text="^`J`m`c`"
else if d mod 6 = 4 then
label2.text="^`J`m`c``"
else if d mod 6 = 5 then
label2.text=""
end if
d=d+1