home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ftp.wwiv.com
/
ftp.wwiv.com.zip
/
ftp.wwiv.com
/
pub
/
INTERNET
/
TVBMAIL.ZIP
/
TVBMAIL.PPS
< prev
Wrap
Text File
|
1994-02-11
|
1KB
|
37 lines
STRING NAME
STRING SUBJECT
STRING NODEADDRESS
STRING FULLSCREEN
CLS
DISPFILE PPEPATH()+"FPOPEN", GRAPH+SEC+LANG
PRINTLN
PRINT " @X0EEnter Name (ENTER=Quit)"
INPUTTEXT "", NAME, 11, 60
IF ( LEN( NAME ) < 1 ) END
PRINTLN
PRINT "@X0EEnter Subject (ENTER=Quit)"
INPUTTEXT "", SUBJECT, 11, 60
IF ( LEN( SUBJECT ) < 1 ) END
PRINTLN
DISPTEXT 498, LOGIT
GETUSER
FULLSCREEN=NOCHAR()
if ( U_FSEP=1 ) FULLSCREEN=YESCHAR()
INPUTYN "", FULLSCREEN, 11
PRINTLN
IF ( UPPER( NAME )<>"UUCP" ) THEN
INPUTSTR "Send Netmail To What Address", NODEADDRESS, 14, 20, "1234567890/:.", UPCASE
IF ( LEN( NODEADDRESS )<>0 ) THEN
KBDSTUFF "E "+CHR( 13 )+NAME+CHR( 13 )+SUBJECT+CHR( 13 )+FULLSCREEN+CHR( 13 )
KBDSTUFF CHR( 13 )+CHR( 13 )+"("+NODEADDRESS+")"+CHR( 13 )+CHR( 13 )
ENDIF
ELSE
INPUTSTR "Send Netmail To What Internet Address", NODEADDRESS, 14, 73, "abcdefghijklmnopqrstuvwxyz1234567890@.", STACKED
IF ( LEN( NODEADDRESS )<>0 ) THEN
KBDSTUFF "E "+CHR( 13 )+"UUCP"+CHR( 13 )+SUBJECT+CHR( 13 )+FULLSCREEN+CHR( 13 )
KBDSTUFF CHR( 13 )+CHR( 13 )+"To: "+NODEADDRESS+CHR( 13 )+CHR( 13 )
ENDIF
ENDIF