cls:screen 0:cls
color 0,7:print " - ":color 15,1:locate 1,4:print string$(157,32)
locate 3,1:color 9,0:print string$(80*22,219);
color 0,7:locate 4,5:print " - "
msg$="Antivirus"
color 15,1:locate 1,40-int(len(msg$)/2):print msg$
g$="Press ENTER to begin scan"
locate 25,1:print g$;string$(80-len(g$),32);
m$="Main Menu"
color 15,1:locate 4,8:print string$((74/2)-int(len(m$)/2)-4,32);m$;string$((74/2)-int(len(m$)/2)-5,32);
color 9,0:print "п"
color 15,1:locate 5,5:print string$(69,219);:color 0,0:print "л"
color 15,1:locate 6,5:print string$(69,219);:color 0,0:print " "
color 15,1:locate 7,5:print string$(3,219);:color 1,7:print "  D";:color 0,7:print "etect";string$(17,32);:color 15,0:print "пллл";
color 15,1:print string$(14,32);"Detect";string$(14,32);:color 15,0:print "плл "
color 15,0:locate 8,5:print string$(4,219);string$(25,220);"ллл";:color 0,7:print string$(34,32);"л";:color 15,0:print "лл "
color 7,0:locate 9,37:print string$(34,219);" ";:color 15,0:print "лл "
color 15,1:locate 9,5:print string$(3,219);:color 1,7:print "  E";:color 0,7:print "xit";string$(19,32);:color 15,0:print "пллл";
color 15,0:locate 10,5:print string$(4,219);string$(25,220);"ллл";:color 0,7:print string$(34,32);"л";:color 15,0:print "лл "
ext$="Exit":dtc$="Detect"
12 d$=inkey$
if d$="" then goto 12
if d$=chr$(0)+"P" then mm$="Exit":b=0
if d$=chr$(0)+"H" then mm$="Detect":b=1
if d$=chr$(13) and mm$="Exit" then end
if d$=chr$(13) and mm$="Detect" then chkvir
color 15,1:locate 7,37:print string$(15-b,32);mm$;string$(15-b,32);:color 15,0:print "плл ":ff=1
goto 12