home *** CD-ROM | disk | FTP | other *** search
/ ticalc.org / ticalc_org_rev_b.iso / archives / 80 / basic / graphics / kaleid.80
Encoding:
Text File  |  2001-07-01  |  685 b   |  31 lines
  1. Kaleidoscope
  2.  
  3. Version: 1.0, 980205
  4. Creator: Daniel Bergman.
  5. Description: The program makes a kaleidoscope-effect on the screen.
  6. Comments: "->" is the "STO>"-button, "@X" and "@Y" are "delta X" and "delta Y".
  7. Known bugs: None.
  8. Size: 110 bytes.
  9.  
  10. For more games and programs, please visit http://ti80.burtrask.net.
  11.  
  12. PROGRAM:KALEIDO
  13. 1->XMIN
  14. 1->YMIN
  15. 0->XSCL
  16. 0->YSCL
  17. 1->@X
  18. 1->@Y
  19. CLRDRAW
  20. LBL 0
  21. RANDINT(1,30)->A
  22. RANDINT(1,22)->B
  23. PT-CHANGE(32+A,24+B
  24. PT-CHANGE(32-A,24+B
  25. PT-CHANGE(32-A,24-B
  26. PT-CHANGE(32+A,24-B
  27. GOTO 0
  28.  
  29. --------------------------------------------------------------------
  30. Copyright (C) 1998 by Daniel Bergman & Mattias MorΘn
  31. http://ti80.burtrask.net