CLS
COLOR 2: PRINT "YOU HAVE ENTERED MILITARY SECURITY PLEASE ENTER THE CORRECT 4-DIGIT PASSWORD."
COLOR 15: PRINT "Password:   ": P$ = INPUT$(1): LOCATE 2, 13: PRINT CHR$(15)
C$ = INPUT$(1): LOCATE 2, 14: PRINT CHR$(15)
PC$ = INPUT$(1): LOCATE 2, 15: PRINT CHR$(15)
CP$ = INPUT$(1): LOCATE 2, 16: PRINT CHR$(15)
PRINT ""
PRINT "CHECKING EXISTING PASSWORD"
SLEEP 3
IF P$ = "1" THEN RUN "A:\INTERNET.BAS"
LOCATE 9, 30: COLOR 28: PRINT "INCORRECT PASSWORD"
SLEEP 1
LOCATE 11, 29: COLOR 4: PRINT "COMPUTER DIALING 911"
COLOR 15
PRINT "                           ÚÄÄÄÄÄÄÂÄÄÄÄÄÄÂÄÄÄÄÄ¿"
PRINT "                           ³  1   ³  2   ³  3  ³"
PRINT "                           ÃÄÄÄÄÄÄÅÄÄÄÄÄÄÅÄÄÄÄÄ´"
PRINT "                           ³  4   ³  5   ³  6  ³"
PRINT "                           ÃÄÄÄÄÄÄÅÄÄÄÄÄÄÅÄÄÄÄÄ´"
PRINT "                           ³  7   ³  8   ³  9  ³"
PRINT "                           ÀÄÄÄÄÄÄÁÄÄÄÄÄÄÁÄÄÄÄÄÙ"
LOCATE 17, 45: COLOR 4: PRINT "9"
BEEP
SLEEP 1
LOCATE 17, 45: COLOR 15: PRINT "9"
SLEEP 1
LOCATE 13, 31: COLOR 4: PRINT "1"
BEEP
SLEEP 1
LOCATE 13, 31: COLOR 15: PRINT "1"
SLEEP 1
LOCATE 13, 31: COLOR 4: PRINT "1"
BEEP
SLEEP 1
LOCATE 13, 31: COLOR 15: PRINT "1"
DO
LOOP