1: CLS : SCREEN 0: CLS 2: PALETTE 5, 63 3: PALETTE 2, 43 4: PALETTE 3, 7 5: COLOR 0, 5: LOCATE 1, 1: PRINT " - " 6: COLOR 1, 1: LOCATE 1, 4: PRINT STRING$(77, 219); STRING$(80, 219) 7: LOCATE 3, 1: COLOR 9, 0: PRINT STRING$(80 * 22, 219); 8: COLOR 0, 5: LOCATE 4, 5: PRINT " - " 9: msg$ = "Microsoft Antivirus" 10: COLOR 15, 1: LOCATE 1, 40 - INT(LEN(msg$) / 2): PRINT msg$ 11: g$ = "Press ENTER to begin scan" 12: LOCATE 25, 1: PRINT g$; STRING$(80 - LEN(g$), 32); 13: m$ = "Main Menu" 14: 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); 15: COLOR 9, 0: PRINT "п" 16: COLOR 15, 1: LOCATE 5, 5: PRINT STRING$(69, 219); : COLOR 0, 0: PRINT "л" 17: COLOR 15, 1: LOCATE 6, 5: PRINT STRING$(69, 219); : COLOR 0, 0: PRINT " " 18: 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 "пллл"; 19: COLOR 15, 1: PRINT STRING$(14, 32); "Detect"; STRING$(14, 32); : COLOR 15, 0: PRINT "плл " 20: COLOR 15, 0: LOCATE 8, 5: PRINT STRING$(4, 219); STRING$(25, 220); "ллл"; : COLOR 0, 7: PRINT STRING$(34, 32); "л"; : COLOR 15, 0: PRINT "лл " 21: COLOR 7, 0: LOCATE 9, 37: PRINT STRING$(34, 219); " "; : COLOR 15, 0: PRINT "лл " 22: 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 "пллл"; 23: COLOR 15, 0: LOCATE 10, 5: PRINT STRING$(4, 219); STRING$(25, 220); "ллл"; : COLOR 0, 7: PRINT STRING$(34, 32); "л"; : COLOR 15, 0: PRINT "лл " 24: FOR q2 = 1 TO 5 + 2 25: 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 "лл " 26: NEXT q2 27: 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 "л " 28: FOR q3 = 1 TO 4 29: COLOR 15, 0: LOCATE 10 + q2 + q3, 5: PRINT STRING$(32, 219); STRING$(34, 219); "л"; : COLOR 15, 0: PRINT "лл " 30: NEXT q3 31: COLOR 9, 0: LOCATE 10 + q2 + q3, 6: PRINT STRING$(69, 220) 32: 33: 12 d$ = INKEY$ 34: IF d$ = CHR$(27) THEN END 35: IF d$ = "" THEN GOTO 12 36: IF d$ = CHR$(0) + "P" AND a = 1 OR d$ = CHR$(0) + "H" AND a = 1 THEN a = 0: GOTO 123 37: IF d$ = CHR$(0) + "P" AND a = 0 OR d$ = CHR$(0) + "H" AND a = 0 THEN a = 1 38: 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 39: 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 40: GOTO 12 41: 42: 43: 44: 45: 46: |