tutorial/group2/08.bas

   1 CLS\r
   2 \r
   3 1\r
   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
   7 INPUT "", a$\r
   8 COLOR 7                 ' restore to original text color\r
   9 \r
  10 IF a$ <> "jerry" THEN PRINT "wrong password!": GOTO 1\r
  11 \r
  12 \r
  13 CLS\r
  14 LOCATE 1, 1\r
  15 COLOR 14\r
  16 PRINT "          ========================================"\r
  17 PRINT "          Welcome to nuclear rocket control system"\r
  18 PRINT "          ========================================"\r
  19 COLOR 10, 1\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
  33 \r
  34 LOCATE 7, 34            ' display our location\r
  35 COLOR 12 + 16\r
  36 PRINT "*"\r
  37 \r
  38 FOR a = 9 TO 23         ' play tune\r
  39   SOUND 1.5 ^ a, 3\r
  40 NEXT a\r
  41 \r
  42 COLOR 7, 0              ' restore default color\r
  43 \r