home *** CD-ROM | disk | FTP | other *** search
/ HomeWare 14 / HOMEWARE14.bin / bbsutils / fpcbnm.arj / FPCBNM.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1993-06-25  |  3KB  |  171 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 1.OO (plain) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     String   STRING001
  20.     String   STRING002
  21.     String   STRING003
  22.     String   STRING004
  23.     String   STRING005
  24.     String   STRING006
  25.     String   STRING007
  26.     String   STRING008
  27.     String   STRING009
  28.     String   STRING010
  29.     String   STRING011
  30.     String   STRING012
  31.     String   STRING013
  32.  
  33. ;------------------------------------------------------------------------------
  34.  
  35.     STRING013 = "                                   "
  36.     If ("" == "1") Goto LABEL002
  37.     If ("" == "2") Goto LABEL004
  38.     If ("" <> "") STRING001 = ""
  39.     :LABEL001
  40.     Cls
  41.     STRING001 = ""
  42.     If (Exist(PPEPath() + "NET_IN")) DispFile PPEPath() + "NET_IN", 1 + 2 + 4
  43.     InputStr "(@X0EQ@X0F)uit, Netmail Selection Command", STRING001, 15, 1, "q, Q, 1, 2", 2 + 4 + 128 + 32 + 8
  44.     If (STRING001 == "1") Goto LABEL002
  45.     If (STRING001 == "2") Goto LABEL004
  46.     If (STRING001 == "Q") Goto LABEL006
  47.     If (STRING001 == "") Goto LABEL006
  48.     Goto LABEL001
  49.     :LABEL002
  50.     Cls
  51.     If (Exist(PPEPath() + "FIDO_A")) DispFile PPEPath() + "FIDO_A", 1 + 2 + 4
  52.     Newline
  53.     DispText 199, 32768
  54.     InputText "", STRING003, 11, 60
  55.     PrintLn 
  56.     DispText 200, 32768
  57.     InputText "", STRING004, 11, 60
  58.     If (Len(STRING004) < 2) Goto LABEL006
  59.     GetUser
  60.     Select Case (U_FSEP)
  61.         Case 0
  62.             STRING002 = NoChar()
  63.         Case 1
  64.             STRING002 = YesChar()
  65.     End Select
  66.     Newline
  67.     InputStr "Enter FidoNet Node Number", STRING005, 14, 20, "1234567890/:.", 8
  68.     If (U_FSEP == 0) Goto LABEL003
  69.     KbdStuff "E " + Chr(13) + STRING003 + Chr(13) + STRING004 + Chr(13) + STRING002 + Chr(13)
  70.     KbdStuff "(" + STRING005 + ")" + Chr(13)
  71.     KbdStuff "(IMM)" + Chr(13)
  72.     Goto LABEL006
  73.     :LABEL003
  74.     KbdStuff "E " + Chr(13) + STRING003 + Chr(13) + STRING004 + Chr(13)
  75.     KbdStuff "(" + STRING005 + ")" + Chr(13)
  76.     KbdStuff "(IMM)" + Chr(13)
  77.     Goto LABEL006
  78.     :LABEL004
  79.     Cls
  80.     If (Exist(PPEPath() + "INET_A")) DispFile PPEPath() + "INET_A", 1 + 2 + 4
  81.     Newline
  82.     DispText 200, 32768
  83.     InputText "", STRING004, 11, 53
  84.     If (Len(STRING004) < 2) Goto LABEL006
  85.     Newline
  86.     GetUser
  87.     Select Case (U_FSEP)
  88.         Case 0
  89.             STRING002 = NoChar()
  90.         Case 1
  91.             STRING002 = YesChar()
  92.     End Select
  93.     FOpen 1, PPEPath() + "FPCBNM.CFG", 0, 3
  94.     FGet 1, STRING008
  95.     FClose 1
  96.     InputStr "Enter the user's NAME mail is intended for:", STRING006, 32, 60, "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ", 2 + 4 + 256
  97.     InputStr "Enter the InterNet SITE this msg is to be sent to:", STRING009, 20, 60, "abcdefghijklmnopqrstuvwxyz.", 2 + 4 + 256
  98.     InputStr "Enter the InterNet DOMAIN this msg is to be sent to:", STRING011, 20, 60, "abcdefghijklmnopqrstuvwxyz.", 2 + 4
  99.     STRING007 = Lower(STRING006)
  100.     STRING010 = Lower(STRING009)
  101.     STRING012 = Lower(STRING011)
  102.     If (U_FSEP == 0) Goto LABEL005
  103.     KbdStuff "E " + Chr(13) + "UUCP" + Chr(13) + STRING004 + Chr(13) + STRING002 + Chr(13)
  104.     KbdStuff "(" + STRING008 + ")" + Chr(13)
  105.     KbdStuff "(IMM)" + Chr(13)
  106.     KbdStuff "To: " + STRING007 + "@" + STRING010 + "." + STRING012 + Chr(13) + STRING013 + Chr(13) + STRING013 + Chr(13)
  107.     Goto LABEL006
  108.     :LABEL005
  109.     KbdStuff "E " + Chr(13) + "UUCP" + Chr(13) + STRING004 + Chr(13)
  110.     KbdStuff "(" + STRING008 + ")" + Chr(13)
  111.     KbdStuff "(IMM)" + Chr(13)
  112.     KbdStuff "To: " + STRING007 + "@" + STRING010 + "." + STRING012 + Chr(13) + STRING013 + Chr(13) + STRING013 + Chr(13)
  113.     :LABEL006
  114.     End
  115.  
  116. ;------------------------------------------------------------------------------
  117. ;
  118. ; Usage report (before postprocessing)
  119. ;
  120. ; ■ Statements used :
  121. ;
  122. ;    1       End
  123. ;    3       Cls
  124. ;    21      Goto 
  125. ;    10      Let 
  126. ;    1       PrintLn 
  127. ;    18      If 
  128. ;    3       DispFile 
  129. ;    1       FOpen 
  130. ;    1       FClose 
  131. ;    1       FGet 
  132. ;    2       GetUser
  133. ;    5       InputStr 
  134. ;    4       Newline
  135. ;    3       DispText 
  136. ;    3       InputText 
  137. ;    14      KbdStuff 
  138. ;
  139. ;
  140. ; ■ Functions used :
  141. ;
  142. ;    82      +
  143. ;    12      ==
  144. ;    1       <>
  145. ;    2       <
  146. ;    4       !
  147. ;    2       Len(
  148. ;    3       Lower()
  149. ;    28      Chr()
  150. ;    2       NoChar()
  151. ;    2       YesChar()
  152. ;    7       PPEPath()
  153. ;    3       Exist()
  154. ;
  155. ;------------------------------------------------------------------------------
  156. ;
  157. ; Analysis flags : No flag
  158. ;
  159. ;------------------------------------------------------------------------------
  160. ;
  161. ; Postprocessing report
  162. ;
  163. ;    0       For/Next
  164. ;    0       While/EndWhile
  165. ;    0       If/Then or If/Then/Else
  166. ;    2       Select Case
  167. ;
  168. ;------------------------------------------------------------------------------
  169. ;                 AEGiS Corp - Break the routines, code against the machines!
  170. ;------------------------------------------------------------------------------
  171.