home *** CD-ROM | disk | FTP | other *** search
/ Chip 2001 May / W2KPRK.iso / scripts.cab / fun.kix < prev    next >
Text File  |  1999-11-04  |  991b  |  75 lines
  1. ;  FUN.SCR
  2. ;
  3. ;  KiXtart demonstration script.
  4. ;
  5. ;  24-Aug-1995
  6. ;
  7. ;  Note :  This code sample is provided for demonstration purposes only.
  8. ;          Microsoft makes no warranty, either express or implied,
  9. ;          as to its usability in any given situation.
  10. ;
  11. break on
  12. cls
  13.  
  14. $x = 0
  15. $y = 10
  16. $modex = 1
  17. $modey = 1
  18.  
  19.  
  20. :loop1
  21.  
  22. color n/n
  23. at($y,$x)
  24. "      "
  25.  
  26. if $x < 40
  27.    if $x > 0
  28.       if $modex = 1
  29.          $x = $x + 1
  30.       else
  31.          $x = $x - 1
  32.       endif
  33.    else
  34.       $modex = 1
  35.       $x = 1
  36.    endif
  37. else
  38.    $modex = 0
  39.    $x = 39
  40. endif
  41.  
  42. if $y < 24
  43.    if $y > 0
  44.       if $modey = 1
  45.          $y = $y + 1
  46.       else
  47.          $y = $y - 1
  48.       endif
  49.    else
  50.       $modey = 1
  51.       $y = 1
  52.    endif
  53. else
  54.    $modey = 0
  55.    $y = 23
  56. endif
  57.  
  58. color r+/n
  59. at($y,$x)
  60. "KiX 32"
  61.  
  62. $t1 = $x
  63. $t1 = $t1 / 10
  64. $t1 = $t1 * 10
  65. if $t1 = $x
  66.    sleep 1
  67. endif
  68.  
  69.  
  70. at (0,0) "$f x= $x, y= $y, modex= $modex, modey= $modey"
  71.  
  72. goto loop1
  73.  
  74. exit 1
  75.