CLS : SCREEN 0: CLS
PALETTE 5, 63
PALETTE 2, 43
PALETTE 3, 7
COLOR 0, 5: LOCATE 1, 1: PRINT " - "
COLOR 1, 1: LOCATE 1, 4: PRINT STRING$(77, 219); STRING$(80, 219)
LOCATE 3, 1: COLOR 9, 0: PRINT STRING$(80 * 22, 219);
COLOR 0, 5: LOCATE 4, 5: PRINT " - "
msg$ = "Microsoft 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, 2: PRINT "  D"; : COLOR 0, 2: 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 0, 3: PRINT "  E"; : COLOR 1, 3: PRINT "x"; : COLOR 0, 3: PRINT "it"; 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 "лл "
FOR q2 = 1 TO 5 + 2
COLOR 15, 0: LOCATE 10 + q2, 5: PRINT STRING$(4, 219); STRING$(25, 219); "ллл"; : COLOR 0, 7: PRINT STRING$(34, 32); "л"; : COLOR 15, 0: PRINT "лл "
NEXT q2
COLOR 15, 0: LOCATE 10 + q2, 5: PRINT STRING$(4, 219); STRING$(26, 219); "ллл"; : COLOR 15, 0: PRINT STRING$(34, 220); "л"; : COLOR 15, 0: PRINT "л "
FOR q3 = 1 TO 4
COLOR 15, 0: LOCATE 10 + q2 + q3, 5: PRINT STRING$(32, 219); STRING$(34, 219); "л"; : COLOR 15, 0: PRINT "лл "
NEXT q3
COLOR 9, 0: LOCATE 10 + q2 + q3, 6: PRINT STRING$(69, 220)

12 d$ = INKEY$
IF d$ = CHR$(27) THEN END
IF d$ = "" THEN GOTO 12
IF d$ = CHR$(0) + "P" AND a = 1 OR d$ = CHR$(0) + "H" AND a = 1 THEN a = 0: GOTO 123
IF d$ = CHR$(0) + "P" AND a = 0 OR d$ = CHR$(0) + "H" AND a = 0 THEN a = 1
123 IF a = 1 THEN COLOR 15, 1: LOCATE 7, 37: PRINT STRING$(15, 32); "Exit"; STRING$(15, 32); : COLOR 15, 0: PRINT "плл ": PALETTE 2, 7: PALETTE 3, 43
IF a = 0 THEN COLOR 15, 1: LOCATE 7, 37: PRINT STRING$(14, 32); "Detect"; STRING$(14, 32); : COLOR 15, 0: PRINT "плл ": PALETTE 3, 7: PALETTE 2, 43
GOTO 12