home *** CD-ROM | disk | FTP | other *** search
/ Media Share 9 / MEDIASHARE_09.ISO / pcboard / entr_msg.zip / ENTR_MSG.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1993-03-24  |  5KB  |  222 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.     Boolean  BOOLEAN001
  20.     Date     DATE001
  21.     Integer  INTEGER001
  22.     String   STRING001
  23.     String   STRING002
  24.     String   TSTRING003(9,3)
  25.     String   STRING004
  26.     String   STRING005
  27.     String   STRING006
  28.     String   STRING007
  29.     String   STRING008
  30.     String   STRING009
  31.     Time     TIME001
  32.  
  33. ;------------------------------------------------------------------------------
  34.  
  35.     DATE001 = 0
  36.     TIME001 = 0
  37.     STRING004 = ""
  38.     BOOLEAN001 = 0
  39.     STRING007 = "A"
  40.     GetUser
  41.     If ((CurConf() == 6) || (CurConf() == 7)) Then
  42.         If (CurConf() == 6) STRING006 = "BETA"
  43.         If (CurConf() == 7) STRING006 = "DevBeta"
  44.         If ((CurSec() > 100) && !(U_Name() == "STEVE CATMULL")) Goto LABEL002
  45.         PrintLn 
  46.         InputYN "Is this a " + STRING006 + " report", STRING001, 14
  47.         Log "ENTR_MSG: Asked if alpha/beta report", 0
  48.         If (Upper(STRING001) == YesChar()) Goto LABEL001
  49.         If (Upper(STRING001) == NoChar()) Goto LABEL002
  50.         If (STRING001 == "") Goto LABEL002
  51.         End
  52.         :LABEL001
  53.         If (CurConf() == 6) STRING005 = "679"
  54.         If (CurConf() == 7) STRING005 = "123456789"
  55.         INTEGER001 = Left(STRING005, 1)
  56.         Gosub LABEL013
  57.         DispFile PPEPath() + Left(STRING006, 5) + "MSG", 7
  58.         InputStr "Which product is the report for", INTEGER001, 14, 1, STRING005, 414
  59.         If (INTEGER001 == 1) Goto LABEL008
  60.         If (INTEGER001 == 2) Goto LABEL008
  61.         If (INTEGER001 == 3) Goto LABEL008
  62.         If (INTEGER001 == 4) Goto LABEL008
  63.         If (INTEGER001 == 5) Goto LABEL008
  64.         If (INTEGER001 == 6) Goto LABEL008
  65.         If (INTEGER001 == 7) Goto LABEL008
  66.         If (INTEGER001 == 8) Goto LABEL008
  67.         If (INTEGER001 == 9) Goto LABEL009
  68.     Endif
  69.     :LABEL002
  70.     GetToken STRING008
  71.     If (STRING008 == "") Goto LABEL003
  72.     STRING009 = STRING009 + " " + STRING008
  73.     Goto LABEL002
  74.     :LABEL003
  75.     If (STRING009 == "") Then
  76.         If ((CurConf() == 0) || (CurConf() == 1)) Goto LABEL004
  77.         KbdStuff "E" + STRING009 + Chr(13)
  78.         End
  79.         :LABEL004
  80.         InputStr "     To (Enter)=`ALL'", STRING002, 14, 25, Mask_Ascii(), 414
  81.         If ((Upper(STRING002) == "ALL") || (STRING002 == "")) Goto LABEL005
  82.         PrintLn "@X0AMaking sure message is not addressed to @X0FALL@X0A." + Chr(13)
  83.         KbdStuff "E " + STRING002 + STRING009 + Chr(13) + Chr(13)
  84.         End
  85.         :LABEL005
  86.         DispFile PPEPath() + "PRIVALL", 7
  87.         Log "Entr_Msg: Warned about addressing message to ALL", 0
  88.         InputStr "Would you like to (@X00@X0FC@XFF)ontinue or (@X00@X0FA@XFF)bort your message", STRING007, 14, 1, "CA", 414
  89.         If (STRING007 == "C") KbdStuff "E ALL" + Chr(13) + Chr(13)
  90.         End
  91.     Endif
  92.     If ((CurConf() == 0) || (CurConf() == 1)) Goto LABEL006
  93.     KbdStuff "E" + STRING009 + Chr(13)
  94.     End
  95.     :LABEL006
  96.     If (Upper(STRING009) == " ALL") Goto LABEL007
  97.     PrintLn 
  98.     PrintLn "@X0AMaking sure message is not addressed to @X0FALL@X0A." + Chr(13)
  99.     KbdStuff "E " + STRING009 + Chr(13) + Chr(13)
  100.     End
  101.     :LABEL007
  102.     DispFile PPEPath() + "PRIVALL", 7
  103.     InputStr "Would you like to (@X00@X0FC@XFF)ontinue or (@X00@X0FA@XFF)bort your message", STRING007, 14, 1, "CA", 414
  104.     If (STRING007 == "C") KbdStuff "E ALL" + Chr(13) + Chr(13)
  105.     End
  106.     :LABEL008
  107.     Gosub LABEL011
  108.     KbdStuff "E" + Chr(13) + TSTRING003(INTEGER001, 1) + Chr(13) + STRING006 + " report" + Chr(13) + Chr(13) + Chr(13)
  109.     KbdStuff "@X40┌────────────────────────────────────────────────────────@X4C┐@X07" + Chr(13)
  110.     KbdStuff "@X40│@X4F " + TSTRING003(INTEGER001, 2) + " " + String(DATE001) + " "
  111.     If (!(TIME001 == 0)) KbdStuff String(TIME001)
  112.     KbdStuff "@X4C@POS:57@ │@X07" + Chr(13)
  113.     KbdStuff "@X40└@X4C────────────────────────────────────────────────────────┘@X07" + Chr(13)
  114.     KbdStuff Chr(13)
  115.     End
  116.     :LABEL009
  117.     Gosub LABEL011
  118.     InputStr "Enter description of product", STRING004, 14, 10, Mask_AlNum(), 158
  119.     KbdStuff "E" + Chr(13) + TSTRING003(INTEGER001, 1) + Chr(13) + TSTRING003(INTEGER001, 2) + " " + STRING004 + " " + String(DATE001) + " "
  120.     If (TIME001 == 0) Goto LABEL010
  121.     KbdStuff String(TIME001) + Chr(13)
  122.     KbdStuff Chr(13)
  123.     :LABEL010
  124.     End
  125.     :LABEL011
  126.     Newlines 2
  127.     :LABEL012
  128.     BOOLEAN001 = 0
  129.     InputDate "Enter date of executable", DATE001, 14
  130.     If (DATE001 == 0) BOOLEAN001 = 1
  131.     If (BOOLEAN001) Then
  132.         PrintLn Chr(13) + "@X00@X0CYou must enter the date of the executable you are testing.@XFF" + Chr(13)
  133.         Goto LABEL012
  134.     Endif
  135.     PrintLn 
  136.     InputTime "Enter time of executable", TIME001, 14
  137.     PrintLn 
  138.     Return
  139.     :LABEL013
  140.     TSTRING003(1, 1) = "DAVID TERRY"
  141.     TSTRING003(1, 2) = "PCBOARD.EXE -"
  142.     TSTRING003(2, 1) = "DAVID TERRY"
  143.     TSTRING003(2, 2) = "PCBSETUP.EXE -"
  144.     TSTRING003(3, 1) = "DAVID TERRY"
  145.     TSTRING003(3, 2) = "PCBSM.EXE -"
  146.     TSTRING003(4, 1) = "DAVID TERRY"
  147.     TSTRING003(4, 2) = "PCBFILER.EXE -"
  148.     TSTRING003(5, 1) = "LOUIS ZIRKEL"
  149.     TSTRING003(5, 2) = "PCBPACK.EXE -"
  150.     TSTRING003(6, 1) = "SCOTT ROBISON"
  151.     TSTRING003(6, 2) = "PCBEDIT.EXE -"
  152.     TSTRING003(7, 1) = "SYSOP"
  153.     TSTRING003(7, 2) = "PCBMODEM.EXE -"
  154.     TSTRING003(8, 1) = "SCOTT ROBISON"
  155.     TSTRING003(8, 2) = "PPL(C): -"
  156.     TSTRING003(9, 1) = "SYSOP"
  157.     TSTRING003(9, 2) = "OTHER: "
  158.     Return
  159.  
  160. ;------------------------------------------------------------------------------
  161. ;
  162. ; Usage report (before postprocessing)
  163. ;
  164. ; ■ Statements used :
  165. ;
  166. ;    9       End
  167. ;    24      Goto 
  168. ;    31      Let 
  169. ;    7       PrintLn 
  170. ;    30      If 
  171. ;    3       DispFile 
  172. ;    1       GetUser
  173. ;    2       Log 
  174. ;    5       InputStr 
  175. ;    1       InputYN 
  176. ;    1       InputDate 
  177. ;    1       InputTime 
  178. ;    3       Gosub 
  179. ;    2       Return
  180. ;    1       Newlines 
  181. ;    1       GetToken 
  182. ;    16      KbdStuff 
  183. ;
  184. ;
  185. ; ■ Functions used :
  186. ;
  187. ;    52      +
  188. ;    33      ==
  189. ;    1       >
  190. ;    10      !
  191. ;    1       &&
  192. ;    4       ||
  193. ;    4       Upper()
  194. ;    2       Left()
  195. ;    27      Chr()
  196. ;    1       U_Name()
  197. ;    1       NoChar()
  198. ;    1       YesChar()
  199. ;    4       String()
  200. ;    1       Mask_AlNum()
  201. ;    1       Mask_Ascii()
  202. ;    10      CurConf()
  203. ;    3       PPEPath()
  204. ;    1       CurSec()
  205. ;
  206. ;------------------------------------------------------------------------------
  207. ;
  208. ; Analysis flags : No flag
  209. ;
  210. ;------------------------------------------------------------------------------
  211. ;
  212. ; Postprocessing report
  213. ;
  214. ;    0       For/Next
  215. ;    0       While/EndWhile
  216. ;    3       If/Then or If/Then/Else
  217. ;    0       Select Case
  218. ;
  219. ;------------------------------------------------------------------------------
  220. ;                 AEGiS Corp - Break the routines, code against the machines!
  221. ;------------------------------------------------------------------------------
  222.