4 PRINT "enter password:";
\r
5 COLOR 0 ' set temprorarily text color to 0, to hide password
\r
6 ' black (0) text is invisivle on black backround.
\r
8 COLOR 7 ' restore to original text color
\r
10 IF a$ <> "jerry" THEN PRINT "wrong password!": GOTO 1
\r
16 PRINT " ========================================"
\r
17 PRINT " Welcome to nuclear rocket control system"
\r
18 PRINT " ========================================"
\r
20 PRINT "..............................................................."
\r
21 PRINT ".....MMMMMM................MM...MMMMMMM.MMMMMM.MMM..MMMMMMM..MM"
\r
22 PRINT "MMMMMMMMMMMMMMM...MM.M....MMMMM.MM.MMMMMMMMMMMMMMMMMMMMMMM.MM.."
\r
23 PRINT ".MMMMMMMMMMM.M.....MMM...MM.....MMMMMMMMMMMMMMMMMMMMMM.M......."
\r
24 PRINT "..MMMMMMMMMMMM..............MMMMMMMMMMMMMMMMMMMMMMMM..M ......."
\r
25 PRINT "....MMMMMMMM...............MMMM..MMMMM.MMMMMMMMMMMMM.MM........"
\r
26 PRINT ".....MMMMMMM.............MMMMMMMM..MMM..MMMMMM.MMMMM.M........."
\r
27 PRINT "........MM...............MMMMMMMMMM.M.....MM...........M......."
\r
28 PRINT "......MMMMMM................MMMMMMM....................M......."
\r
29 PRINT ".....MMMMMMMM.................MMMMMM....................MMM...."
\r
30 PRINT "......MMMMMMM.................MMMMM...................MMMMMM..."
\r
31 PRINT "........MMMMMM..................MM....................MMMMMMM.."
\r
32 PRINT "..........MMMMM ...........................................MM.."
\r
34 LOCATE 7, 34 ' display our location
\r
38 FOR a = 9 TO 23 ' play tune
\r
42 COLOR 7, 0 ' restore default color
\r