home *** CD-ROM | disk | FTP | other *** search
/ Current Shareware 1994 January / SHAR194.ISO / graphuti / lparser2.zip / MUT09.LS < prev    next >
Text File  |  1993-07-14  |  573b  |  32 lines
  1. # --- L-System Parser/Mutator --- Lj Lapre --- 
  2. 15
  3. 10
  4. 60
  5. C
  6. C=%LABHT
  7. B=[???????zZZZ]
  8. A=[zf&&&&&&&&&"""[pj>>>>>>>>>S]|[qj<<<<<<<<<S]]
  9. p=Ft+:'p
  10. q=Ft-:'q
  11. j=;"j
  12. S=['''!!r%^^r]
  13. r=[Z?Z?Zu]
  14. u=Z[co]!'^::u
  15. L=[c">>>>[s]>>>>[s]>>>>[s]>>>[s]>>>>>>[s]>>>[s]>>>>[s]>>>>[s]]
  16. s=+++li+++dccc??""FF
  17. l=Fh+:'l
  18. d=FFF'd
  19. i=;i
  20. H=["">>>>>>>>>&&&&&&??FFFF!![???h][???k]%^^[??k]]
  21. k=[Z?Z?Za]
  22. a=Z[co]!'a
  23. o=&&&&&&&&&!!!!!F
  24. h=[^^kcccc"Z][^^ecccc"Z]
  25. g=z!+z!+z!+z
  26. e=z!-z!-z!-z
  27. T=[f---------??""""""mccccF]
  28. m=Ft+;'m
  29. t=['::c!!!&&[f<<<n]^^^^f>>>n]
  30. n=[c{--z++z++z--|--z++z++z}]
  31. @
  32.