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