home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / lifeos2.zip / LIFE-1.02 / TESTS / LF / MANY_TYP.LF < prev    next >
Text File  |  1996-06-04  |  738b  |  30 lines
  1. :: t(real).
  2. persistent(f)?
  3. f<<-t(7)?
  4.  
  5. :: ga. f=t,write("OK!"),nl?
  6. :: gb. f=t,write("OK!"),nl?
  7. :: gd. f=t,write("OK!"),nl?
  8. :: ge. f=t,write("OK!"),nl?
  9. :: gf. f=t,write("OK!"),nl?
  10. :: gg. f=t,write("OK!"),nl?
  11. :: gh. f=t,write("OK!"),nl?
  12. :: gi. f=t,write("OK!"),nl?
  13. :: gj. f=t,write("OK!"),nl?
  14. :: gk. f=t,write("OK!"),nl?
  15. :: gl. f=t,write("OK!"),nl?
  16. :: gm. f=t,write("OK!"),nl?
  17. :: gn. f=t,write("OK!"),nl?
  18. :: go. f=t,write("OK!"),nl?
  19. :: gp. f=t,write("OK!"),nl?
  20. :: gq. f=t,write("OK!"),nl?
  21. :: gr. f=t,write("OK!"),nl?
  22. :: gs. f=t,write("OK!"),nl?
  23. :: gt. f=t,write("OK!"),nl?
  24. :: gu. f=t,write("OK!"),nl?
  25. :: gv. f=t,write("OK!"),nl?
  26. :: gw. f=t,write("OK!"),nl?
  27. :: gx. f=t,write("OK!"),nl?
  28. :: gy. f=t,write("OK!"),nl?
  29. :: gz. f=t,write("OK!"),nl?
  30.