1: cls:screen 0:cls 2: color 0,7:print " - ":color 15,1:locate 1,4:print string$(157,32) 3: locate 3,1:color 9,0:print string$(80*22,219); 4: color 0,7:locate 4,5:print " - " 5: msg$="Antivirus" 6: color 15,1:locate 1,40-int(len(msg$)/2):print msg$ 7: g$="Press ENTER to begin scan" 8: locate 25,1:print g$;string$(80-len(g$),32); 9: m$="Main Menu" 10: 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); 11: color 9,0:print "п" 12: color 15,1:locate 5,5:print string$(69,219);:color 0,0:print "л" 13: color 15,1:locate 6,5:print string$(69,219);:color 0,0:print " " 14: 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 "пллл"; 15: color 15,1:print string$(14,32);"Detect";string$(14,32);:color 15,0:print "плл " 16: color 15,0:locate 8,5:print string$(4,219);string$(25,220);"ллл";:color 0,7:print string$(34,32);"л";:color 15,0:print "лл " 17: color 7,0:locate 9,37:print string$(34,219);" ";:color 15,0:print "лл " 18: 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 "пллл"; 19: color 15,0:locate 10,5:print string$(4,219);string$(25,220);"ллл";:color 0,7:print string$(34,32);"л";:color 15,0:print "лл " 20: ext$="Exit":dtc$="Detect" 21: 12 d$=inkey$ 22: if d$="" then goto 12 23: if d$=chr$(0)+"P" then mm$="Exit":b=0 24: if d$=chr$(0)+"H" then mm$="Detect":b=1 25: if d$=chr$(13) and mm$="Exit" then end 26: if d$=chr$(13) and mm$="Detect" then chkvir 27: color 15,1:locate 7,37:print string$(15-b,32);mm$;string$(15-b,32);:color 15,0:print "плл ":ff=1 28: goto 12 |