home *** CD-ROM | disk | FTP | other *** search
/ ftp.wwiv.com / ftp.wwiv.com.zip / ftp.wwiv.com / pub / INTERNET / TVBMAIL.ZIP / TVBMAIL.PPS < prev   
Text File  |  1994-02-11  |  1KB  |  37 lines
  1. STRING NAME
  2. STRING SUBJECT
  3. STRING NODEADDRESS
  4. STRING FULLSCREEN
  5.  
  6. CLS
  7.  
  8. DISPFILE PPEPATH()+"FPOPEN", GRAPH+SEC+LANG
  9. PRINTLN
  10. PRINT "   @X0EEnter Name (ENTER=Quit)"
  11. INPUTTEXT "", NAME, 11, 60
  12. IF ( LEN( NAME ) < 1 ) END
  13. PRINTLN
  14. PRINT "@X0EEnter Subject (ENTER=Quit)"
  15. INPUTTEXT "", SUBJECT, 11, 60
  16. IF ( LEN( SUBJECT ) < 1 ) END
  17. PRINTLN
  18. DISPTEXT 498, LOGIT
  19. GETUSER
  20. FULLSCREEN=NOCHAR()
  21. if ( U_FSEP=1 ) FULLSCREEN=YESCHAR()
  22. INPUTYN "", FULLSCREEN, 11
  23. PRINTLN
  24. IF ( UPPER( NAME )<>"UUCP" ) THEN
  25.   INPUTSTR "Send Netmail To What Address", NODEADDRESS, 14, 20, "1234567890/:.", UPCASE
  26.   IF ( LEN( NODEADDRESS )<>0 ) THEN
  27.     KBDSTUFF "E "+CHR( 13 )+NAME+CHR( 13 )+SUBJECT+CHR( 13 )+FULLSCREEN+CHR( 13 )
  28.     KBDSTUFF CHR( 13 )+CHR( 13 )+"("+NODEADDRESS+")"+CHR( 13 )+CHR( 13 )
  29.   ENDIF
  30. ELSE
  31.   INPUTSTR "Send Netmail To What Internet Address", NODEADDRESS, 14, 73, "abcdefghijklmnopqrstuvwxyz1234567890@.", STACKED
  32.   IF ( LEN( NODEADDRESS )<>0 ) THEN
  33.     KBDSTUFF "E "+CHR( 13 )+"UUCP"+CHR( 13 )+SUBJECT+CHR( 13 )+FULLSCREEN+CHR( 13 )
  34.     KBDSTUFF CHR( 13 )+CHR( 13 )+"To: "+NODEADDRESS+CHR( 13 )+CHR( 13 )
  35.   ENDIF
  36. ENDIF
  37.