home *** CD-ROM | disk | FTP | other *** search
/ Media Share 9 / MEDIASHARE_09.ISO / pcboard / ipstuff.zip / IPSTUFF.PPS < prev   
Text File  |  1993-05-18  |  2KB  |  58 lines
  1. ;                                  IPStuff
  2. ;                               =============
  3. ;                            (c) 1993 Cal Evans
  4. ;                            All Rights Reserved
  5. ;                           1:3625/440@fidonet.org
  6. ;
  7. ;IPStuff gathers the information needed to enter a message in your
  8. ;        NetMail conference.  It mimmics the PCBoard To and Subject
  9. ;        fields but then asks for a Fido Address.  
  10. ;
  11. ;        We assume that you, the sysop have forced all messages private
  12. ;        and all messages echoed. (Otherwise, it'd be kinda silly)
  13. ;
  14. ;        You can modify this PPS to your heart's content as long as the 
  15. ;        original copyright notice stays on it.  There is no registration
  16. ;        fee due but if you do make a significant modification to it,
  17. ;        upload it to SaltAir so we can all enjoy it.  (Add you name to
  18. ;        the headder in a BY: line but make sure you leave my name on it)
  19. ;
  20. ;        To use this program, use PCBSETUP to create/modify a CMD.LST for
  21. ;        your NetMail conference.  Add 'E' to your list and specify
  22. ;        the .PPE of this file as the PPE to execute. (Don't forget the
  23. ;        path!)
  24. ;
  25. ;        The program should be fairly self explanitory, if you have 
  26. ;        questions, you can reach me via NetMail.  I'll be happy to help
  27. ;        in any way I can.
  28. ;
  29. ;        This program works in conjunction with InterPCB which is owned
  30. ;        by InterZone.
  31.  
  32. ;
  33. ;Init Variables
  34. ;
  35. String ToName,SubText,FidoAddress
  36.  
  37.  
  38. ;
  39. ; Get then needed Info
  40. ;
  41. ; TO:
  42. InputText "     To (Enter)=abort",ToName,14,25
  43. NewLine
  44. If (Len(trim(ToName," "))=0) END
  45.  
  46. ;Subject
  47. InputText "Subject (Enter)=abort",SubText,14,52
  48. NewLine
  49. If (LEN(TRIM(SubText," "))=0) END
  50.  
  51. ;Address
  52. InputText "FidoNet Address (Enter)=abort",FidoAddress,15,20
  53. NewLine
  54. If (LEN(TRIM(FidoAddress," "))=0) END
  55.  
  56. KBDSTUFF "E^M"+ToName+"^M"+SubText+"^MR^M^M@>"+FidoAddress+"^M"
  57. END
  58.