;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

1. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

2. ;

3. ; Quick User View PPE v1.0

4. ; Written by Drew [PWA]

5. ; Last Updated 03-24-96

6. ;

7. ; Original freeware version written by Gerry Schechter.

8. ;

9. ; The original freeware version was compiled with PPLC 3.0 and did not come

10. ; with source. This is my version of that fairly useful PPE, which uses only

11. ; PPL 2.0 (since that's all that is necessary) and includes source.

12. ;

13. ; Note: there isn't too much inline commenting of how the code works, except

14. ; for the really straight-forward parts.

15. ;

16. ; BTW- screw those idiotic shareware BBS's and CD-ROM makers who take PWA

17. ; releases, edit the FILE_ID.DIZ, and delete PWA.NFO, bbs ads, etc.

18. ;

19. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

20. string tf(2)

21. string buf

22. word tmpword

23. int recnum

24. int numrecs

25. byte i

26. ; find the user name on the screen, and then get the user record #

27. ;

28. getuser

29. recnum = -1

30. for i = 1 to u_pagelen

31. buf = scrtext(1, i, 31, 0)

32. if (left(upper(buf), 6) == "FROM: ") then

33. buf = mid(buf, 7, 25)

34. if (buf == "SYSOP") then

35. recnum = 1

36. else

37. recnum = u_recnum(buf)

38. endif

39. break

40. endif

41. next i

42. savescrn

43. cls

44. ; quit/end ppe if the user doesn't exist

45. ;

46. if (recnum == -1) then

47. ansipos 32, 10

48. print "@X0CUser not found.@X07"

49. delay 20

50. restscrn