home *** CD-ROM | disk | FTP | other *** search
/ The World of Computer Software / World_Of_Computer_Software-02-385-Vol-1of3.iso / t / timwin.zip / TIMWIN2.EXE / pak / DSPAAK.CMD < prev    next >
OS/2 REXX Batch file  |  1992-08-05  |  421b  |  31 lines
  1. #include timdefs.h
  2.  
  3. parms
  4.   int windis
  5. endparms
  6. float fHoek = 270.0
  7. int regel = 0
  8.  
  9. lut 1
  10. dest p
  11. show p
  12. era q
  13. cstr miss
  14. era 1
  15. lut 3
  16. ;curs 200 128            cursor position
  17. for regel = 0 to 255  
  18.   rdvec p fHoek 0 200 128
  19.   xorvec p fHoek 0 200 128 1
  20.   ihis q regel  
  21.   fHoek += 360.0 / 256.0
  22. endfor
  23. era q 1
  24. dest p
  25. *windispl h (windis+WINLUT3+BITCOPY1)
  26. dest s
  27. rotl q
  28. *windispl i windis
  29.  
  30. stop
  31.