graphics/animations/matrix2.bas

   1 ' Svjatoslav Agejenko\r
   2 ' year: 2002\r
   3 DEFINT A-Z\r
   4 DECLARE SUB putm ()\r
   5 DIM SHARED tmr AS DOUBLE\r
   6 DIM SHARED arv(1 TO 20)\r
   7 DIM SHARED lng\r
   8 DIM SHARED msg$\r
   9 RANDOMIZE 2\r
  10 \r
  11 CLS\r
  12 COLOR 10, 0\r
  13 msg$ = ""\r
  14 e = 0\r
  15 g = 0\r
  16 putm\r
  17 1\r
  18 f = 0\r
  19 IF g >= 3 THEN f = 10000: g = 0\r
  20 SOUND f, .2\r
  21 e = e + 1\r
  22 g = g + 1\r
  23 IF e > 100 THEN putm: e = 0\r
  24 \r
  25 b$ = ""\r
  26 c = 1\r
  27 FOR a = 1 TO 80\r
  28 c = c + 1\r
  29 d$ = CHR$(RND * 9 + 48)\r
  30 IF c > lng THEN c = 1: d$ = " "\r
  31 b$ = b$ + d$\r
  32 NEXT a\r
  33 LOCATE 25, 1\r
  34 PRINT b$\r
  35 IF INKEY$ <> "" THEN COLOR 7, 0: CLS : SYSTEM\r
  36 GOTO 1\r
  37 \r
  38 SUB putm\r
  39 VIEW PRINT 1 TO 25\r
  40 SELECT CASE lng\r
  41 CASE 13\r
  42 msg$ = "Are you sure the line is clear ?"\r
  43 CASE 6\r
  44 msg$ = "       Then I'll go ..."\r
  45 END SELECT\r
  46 \r
  47 LOCATE 1, 30\r
  48 PRINT "                                 "\r
  49 LOCATE 1, 30\r
  50 PRINT msg$\r
  51 c = RND * 9 + 1\r
  52 FOR b = 1 TO 3\r
  53 FOR a = c TO 10\r
  54 IF arv(a) = -1 THEN arv(a) = RND * 8 + 1: lng = lng - 1: GOTO 2\r
  55 NEXT a\r
  56 c = 1\r
  57 NEXT b\r
  58 lng = 13\r
  59 FOR a = 1 TO 20\r
  60 arv(a) = -1\r
  61 NEXT a\r
  62 CLS\r
  63 IF msg$ <> "" THEN SYSTEM\r
  64 2\r
  65 FOR a = 1 TO 20\r
  66 LOCATE 1, a\r
  67 IF arv(a) = -1 THEN b$ = " " ELSE b$ = STR$(arv(a))\r
  68 b$ = RIGHT$(b$, 1)\r
  69 PRINT b$\r
  70 NEXT a\r
  71 VIEW PRINT 2 TO 25\r
  72 END SUB\r
  73 \r