home *** CD-ROM | disk | FTP | other *** search
/ Media Share 9 / MEDIASHARE_09.ISO / pcboard / fpcb_106.zip / FPCBNM.PPS < prev    next >
Text File  |  1993-06-27  |  7KB  |  181 lines
  1. ;*******************************************************************
  2. ;*                                                                 *
  3. ;*                        FPCBNM.PPE  v1.06                        *
  4. ;*         PCBOARD 15.0 FidoPCB NETMAIL ASSISTANCE PROGRAM         *
  5. ;*                                                                 *
  6. ;*                      Written by  John Luce                      *
  7. ;*             Written in PCBoard Programming Language             *
  8. ;*                       Compiled on 6-27-93                       *
  9. ;*                                                                 *
  10. ;*                                                                 *
  11. ;*                    "Chronicles InfoNet BBS"                     *
  12. ;*                    203-445-0607 - [16.8 DS]                     *
  13. ;*                       FidoNet  1:320/124                        *
  14. ;*                       DoorNet  75:7203/0                        *
  15. ;*              DDS/DFN/PDN/SDN/SDS/SoundNet/UtilNet               *
  16. ;*                                                                 *
  17. ;*           Freq FPCBNM for the latest updated version            *
  18. ;*                                                                 *
  19. ;*******************************************************************
  20.  
  21.  
  22. ;*******************************************************************
  23. ;* Define variable types                                           *
  24. ;*******************************************************************
  25.  
  26. STRING Command_Line, Mail_select, Help_select, FSCREEN
  27. STRING NAME, SUBJ, NODE
  28. STRING NNAME, NNAME1, GATE, NSITE, NSITE1, NSUBJ, DOMAIN, DOMAIN1, ADLINE
  29.  
  30. ;*******************************************************************
  31. ;* Variables                                                       *
  32. ;*******************************************************************
  33.  
  34. ADLINE = "                                   "
  35.  
  36. ;*******************************************************************
  37. ;* Check the command line for any parameters                       *
  38. ;*******************************************************************
  39.  
  40. IF (Command_line = "1") GOTO FIDONET
  41. IF (Command_line = "2") GOTO UUCP
  42. IF (Command_line <> "") Mail_select = ""
  43.  
  44. ;*******************************************************************
  45. ;* Start of main program                                           *
  46. ;*******************************************************************
  47.  
  48. :START_PROG
  49.  
  50. CLS
  51. Mail_select = ""
  52.  
  53. IF (EXIST (PPEPATH() + "NET_IN")) DISPFILE PPEPATH() + "NET_IN", GRAPH + SEC + LANG
  54.  
  55. INPUTSTR " @X0F(@X0AQ@X0F)uit, Netmail Selection Command", Mail_select, 0Fh, 1, "q, Q, 1, 2", FIELDLEN + GUIDE + LFBEFORE + UPCASE
  56.  
  57. IF (Mail_select = "1") GOTO FIDONET
  58. IF (Mail_select = "2") GOTO UUCP
  59. IF (Mail_select = "Q") GOTO END_PROG
  60. IF (Mail_select = "" ) GOTO END_PROG
  61. GOTO START_PROG
  62.  
  63. ;*******************************************************************
  64. ;* Tell the user he's about to enter a FidoNet NetMail Msg         *
  65. ;*******************************************************************
  66.  
  67. : FIDONET
  68.  
  69. CLS
  70. IF (EXIST(PPEPATH() + "FIDO_A")) DISPFILE PPEPATH() + "FIDO_A", GRAPH + SEC + LANG
  71.  
  72. NEWLINE
  73. DISPTEXT 199, LOGIT
  74. INPUTTEXT "", NAME, 11, 60
  75. PRINTLN
  76. DISPTEXT 200, LOGIT
  77. INPUTTEXT "", SUBJ, 11, 60
  78. IF (LEN(SUBJ) < 2) GOTO END_PROG
  79. GETUSER
  80. IF (U_FSEP=0) THEN
  81.    FSCREEN = NOCHAR()
  82. ELSEIF (U_FSEP=1)
  83.    FSCREEN = YESCHAR()
  84. ENDIF
  85.  
  86. ;*******************************************************************
  87. ;* Ask the user for the node number of the addressee..             *
  88. ;*******************************************************************
  89.  
  90. NEWLINE
  91. INPUTSTR "@X0FEnter FidoNet Node Number@X0A", NODE, 14, 20, "1234567890/:.", FIELDLEN + GUIDE + UPCASE
  92.  
  93. IF (U_FSEP=0) GOTO ALTSTUFF
  94.  
  95. ;*******************************************************************
  96. ;* If the msg screen settings match stuff the keyboard             *
  97. ;*******************************************************************
  98.  
  99. kbdstuff "E " + chr(13) + NAME + chr(13) + subj + CHR(13) + FSCREEN + CHR(13)
  100. kbdstuff "(" + NODE + ")" + CHR(13)
  101. kbdstuff "(IMM)" + CHR(13)
  102. GOTO END_PROG
  103.  
  104. ;*******************************************************************
  105. ;* if the msg screen didn't match the first setting then stuff the *
  106. ;* keyboard this way instead                                       *
  107. ;*******************************************************************
  108. :ALTSTUFF
  109.  
  110. kbdstuff "E " + chr(13) + NAME + chr(13) + subj + CHR(13)
  111. kbdstuff "(" + NODE + ")" + CHR(13)
  112. kbdstuff "(IMM)" + CHR(13)
  113. GOTO END_PROG
  114.  
  115. :UUCP
  116. ;*******************************************************************
  117. ;* Tell the user he's about to enter a InterNet NetMail Msg        *
  118. ;*******************************************************************
  119.  
  120. CLS
  121. IF (EXIST(PPEPATH() + "INET_A")) DISPFILE PPEPATH() + "INET_A", GRAPH + SEC + LANG
  122.  
  123. NEWLINE
  124.  
  125. DISPTEXT 200, LOGIT
  126. INPUTTEXT "", SUBJ, 11, 53
  127. IF (LEN(SUBJ) < 2) GOTO END_PROG
  128. NEWLINE
  129. GETUSER
  130. IF (U_FSEP=0) THEN
  131.    FSCREEN = NOCHAR()
  132. ELSEIF (U_FSEP=1)
  133.    FSCREEN = YESCHAR()
  134. ENDIF
  135.  
  136. ;*******************************************************************
  137. ;* Read the config file for the nearest FidoNet UUCP Gateway       *
  138. ;*******************************************************************
  139.  
  140. FOPEN 1, PPEPATH() + "FPCBNM.CFG", O_RD, S_DB
  141. FGET 1, GATE
  142. FCLOSE 1
  143.  
  144. ;*******************************************************************
  145. ;* Ask the user for the node number of the addressee..             *
  146. ;*******************************************************************
  147.  
  148. INPUTSTR "@X0FEnter the user's @X0ANAME@X0F mail is intended for@X0A", NNAME, 32, 60, "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ", FIELDLEN + GUIDE + LFAFTER
  149. INPUTSTR "@X0FEnter the InterNet @X0ASITE@X0F this msg is to be sent to@X0A", NSITE, 20, 60, "abcdefghijklmnopqrstuvwxyz.", FIELDLEN + GUIDE + LFAFTER
  150. INPUTSTR "@X0FEnter the InterNet @X0ADOMAIN@X0F this msg is to be sent to@X0A", DOMAIN, 20, 60, "abcdefghijklmnopqrstuvwxyz.",  FIELDLEN + GUIDE
  151.  
  152. NNAME1 = LOWER(NNAME)
  153. NSITE1 = LOWER(NSITE)
  154. DOMAIN1= LOWER(DOMAIN)
  155.  
  156. IF (U_FSEP=0) GOTO ALTNSTUFF
  157.  
  158. ;*******************************************************************
  159. ;* If the msg screen settings match stuff the keyboard             *
  160. ;*******************************************************************
  161.  
  162. kbdstuff "E "+ CHR(13) + "UUCP" + CHR(13) + SUBJ + CHR(13) + FSCREEN + CHR(13)
  163. kbdstuff "(" + GATE + ")" + CHR(13)
  164. kbdstuff "(IMM)" + CHR(13)
  165. kbdstuff "To: " + NNAME1 + "@" + NSITE1 + "." + DOMAIN1 + CHR(13) + ADLINE + CHR(13) + ADLINE + CHR(13)
  166. GOTO END_PROG
  167.  
  168. ;*******************************************************************
  169. ;* if the msg screen didn't match the first setting then stuff the *
  170. ;* keyboard this way instead                                       *
  171. ;*******************************************************************
  172. :ALTNSTUFF
  173. kbdstuff "E "+ CHR(13) + "UUCP" + CHR(13) + SUBJ + CHR(13)
  174. kbdstuff "(" + GATE + ")" + CHR(13)
  175. kbdstuff "(IMM)" + CHR(13)
  176. kbdstuff "To: " + NNAME1 + "@" + NSITE1 + "." + DOMAIN1 + CHR(13) + ADLINE + CHR(13) + ADLINE + CHR(13)
  177. GOTO END_PROG
  178.  
  179. :END_PROG
  180. END
  181.