home *** CD-ROM | disk | FTP | other *** search
/ Hall of Fame / HallofFameCDROM.cdr / comm / st.lzh / BOUNCE.SCL < prev    next >
Text File  |  1986-05-05  |  503b  |  30 lines
  1.     ansi off | ansi on
  2.     print "^[[2J^[[H^[[7m               BOUNCE by MagicSoft           ESCape to Quit                     ^[[0m"
  3.  
  4.     let r = 5
  5.     let c = 5
  6.  
  7.     let x = 1
  8.     let y = 1
  9.  
  10.     chr e 27
  11.  
  12. :loop
  13.     if %r == 2  let x = %x*-1
  14.     if %c == 1 let y = %y*-1
  15.  
  16.     print "^[[%r;%cH*";
  17.  
  18.     inkey a|if "$a" == "$e" com|print "^[[2J^[[HEnd of BOUNCE Example SCL Program"|end
  19.  
  20.     if %r == 24 let x = %x*-1
  21.     if %c == 79 let y = %y*-1
  22.  
  23.     print "^[[%r;%cH ";
  24.  
  25.     let r = %r+%x
  26.     let c = %c+%y
  27.  
  28.     goto loop
  29.  
  30.