CLS

1
PRINT "enter password:";
COLOR 0                 ' set temprorarily text color to 0, to hide password
                        ' black (0) text is invisivle on black backround.
INPUT "", a$
COLOR 7                 ' restore to original text color

IF a$ <> "jerry" THEN PRINT "wrong password!": GOTO 1


CLS
LOCATE 1, 1
COLOR 14
PRINT "          ========================================"
PRINT "          Welcome to nuclear rocket control system"
PRINT "          ========================================"
COLOR 10, 1
PRINT "..............................................................."
PRINT ".....MMMMMM................MM...MMMMMMM.MMMMMM.MMM..MMMMMMM..MM"
PRINT "MMMMMMMMMMMMMMM...MM.M....MMMMM.MM.MMMMMMMMMMMMMMMMMMMMMMM.MM.."
PRINT ".MMMMMMMMMMM.M.....MMM...MM.....MMMMMMMMMMMMMMMMMMMMMM.M......."
PRINT "..MMMMMMMMMMMM..............MMMMMMMMMMMMMMMMMMMMMMMM..M ......."
PRINT "....MMMMMMMM...............MMMM..MMMMM.MMMMMMMMMMMMM.MM........"
PRINT ".....MMMMMMM.............MMMMMMMM..MMM..MMMMMM.MMMMM.M........."
PRINT "........MM...............MMMMMMMMMM.M.....MM...........M......."
PRINT "......MMMMMM................MMMMMMM....................M......."
PRINT ".....MMMMMMMM.................MMMMMM....................MMM...."
PRINT "......MMMMMMM.................MMMMM...................MMMMMM..."
PRINT "........MMMMMM..................MM....................MMMMMMM.."
PRINT "..........MMMMM ...........................................MM.."

LOCATE 7, 34            ' display our location
COLOR 12 + 16
PRINT "*"

FOR a = 9 TO 23         ' play tune
  SOUND 1.5 ^ a, 3
NEXT a

COLOR 7, 0              ' restore default color