graphics/animations/txtpal.bas

   1 ' Svjatoslav Agejenko 2003.01\r
   2 ' svjatoslav@svjatoslav.eu\r
   3 \r
   4 DEFINT A-Z\r
   5 CLS\r
   6 COLOR 7\r
   7 \r
   8 FOR b = 1 TO 500\r
   9 COLOR RND * 15\r
  10 PRINT RND;\r
  11 NEXT b\r
  12 \r
  13 COLOR 0, 1\r
  14 FOR y = 5 TO 20\r
  15 FOR x = 20 TO 50\r
  16 LOCATE y, x\r
  17 PRINT " "\r
  18 NEXT x\r
  19 NEXT y\r
  20 LOCATE 10, 25\r
  21 PRINT "[ TEST ]"\r
  22 \r
  23 LOCATE 15, 37\r
  24 COLOR 2\r
  25 PRINT "[ TEST ]"\r
  26 \r
  27 wa = 1\r
  28 p = &H3DA\r
  29 1\r
  30 w = w + 1\r
  31 a = INP(p)\r
  32 IF a >= 128 THEN a = a - 128\r
  33 IF a >= 64 THEN a = a - 64\r
  34 IF a >= 32 THEN a = a - 32\r
  35 IF a >= 16 THEN a = a - 16\r
  36 IF a < 8 THEN GOTO 1\r
  37 \r
  38 frm = frm + 1\r
  39 IF frm > 10000 THEN frm = -10000\r
  40 \r
  41 \r
  42 IF w > 300 THEN wa = wa + 1 ELSE wa = wa - 1\r
  43 IF w < 250 THEN wa = wa - 5\r
  44 IF w > 3000 THEN wa = wa + 30\r
  45 IF w > 1000 THEN wa = wa + 5\r
  46 \r
  47 IF INKEY$ <> "" THEN\r
  48   OUT &H3C8, 0\r
  49   OUT &H3C9, 0\r
  50   OUT &H3C9, 0\r
  51   OUT &H3C9, 0\r
  52   SYSTEM\r
  53 END IF\r
  54 \r
  55 FOR a = 0 TO 70\r
  56   b = a * 6 + frm\r
  57   OUT &H3C8, 0\r
  58   OUT &H3C9, SIN(b / 20) * 30 + 30\r
  59   OUT &H3C9, SIN(b / 27) * 30 + 30\r
  60   OUT &H3C9, SIN(b / 31) * 30 + 30\r
  61   FOR u = 1 TO wa\r
  62   NEXT u\r
  63 NEXT a\r
  64 \r
  65 w = 0\r
  66 GOTO 1\r
  67 \r