home *** CD-ROM | disk | FTP | other *** search
/ Media Share 9 / MEDIASHARE_09.ISO / pcboard / ppage10b.zip / PPE-PAGE.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1993-05-03  |  5KB  |  276 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.     Integer  INTEGER001
  20.     Integer  INTEGER002
  21.     Integer  INTEGER003
  22.     Integer  INTEGER004
  23.     Integer  INTEGER005
  24.     Integer  INTEGER006
  25.     Integer  INTEGER007
  26.     Integer  INTEGER008
  27.     Integer  INTEGER009
  28.     String   STRING001
  29.     String   STRING002
  30.     String   STRING003
  31.     String   STRING004
  32.     String   STRING005
  33.     String   STRING006
  34.     String   TSTRING007(251)
  35.     String   STRING008
  36.     String   STRING009
  37.     String   STRING010
  38.     Time     TIME001
  39.     Time     TIME002
  40.     Time     TIME003
  41.  
  42. ;------------------------------------------------------------------------------
  43.  
  44.     If (Exist(PPEPath() + "PPE-PAGE.CNF") == 0) Then
  45.         PrintLn 
  46.         PrintLn "ERROR: File " + "" + " not found!  Please nodify SysOp..."
  47.         PrintLn 
  48.         Wait
  49.         End
  50.     Endif
  51.     FOpen 1, PPEPath() + "PPE-PAGE.CNF", 0, 0
  52.     FGet 1, INTEGER002
  53.     FGet 1, INTEGER003
  54.     FGet 1, STRING004
  55.     FGet 1, STRING005
  56.     FGet 1, STRING006
  57.     FGet 1, STRING001
  58.     FGet 1, STRING002
  59.     FGet 1, STRING003
  60.     FClose 1
  61.     GetUser
  62.     Log U_Name() + " (" + String(U_Sec) + ") SysOp Page at (" + Left(String(Time()), 5) + ")", 0
  63.     If (Exist(STRING001) > 0) Then
  64.         FOpen 1, STRING001, 0, 0
  65.         FGet 1, INTEGER006
  66.         For INTEGER007 = 1 To INTEGER006
  67.             FGet 1, TSTRING007(INTEGER007)
  68.             If (U_Name() == Upper(TSTRING007(INTEGER007))) Goto LABEL003
  69.         Next
  70.         FClose 1
  71.     Endif
  72.     TIME003 = Time()
  73.     If (Len(STRING004) == 5) STRING004 = STRING004 + ":00"
  74.     If (Len(STRING005) == 5) STRING005 = STRING005 + ":00"
  75.     STRING006 = Left(STRING006 + "YYYYYYY", 7)
  76.     TIME001 = STRING004
  77.     TIME002 = STRING005
  78.     If ((U_Sec < INTEGER002) || (U_Sec > INTEGER003)) Goto LABEL004
  79.     If (((TIME001 <= TIME002) && (TIME001 <> 0)) && (TIME002 <> 0)) Then
  80.         If ((TIME003 < TIME001) || (TIME003 > TIME002)) Goto LABEL005
  81.     Else
  82.         If ((TIME003 < TIME001) && (TIME003 > TIME002)) Goto LABEL005
  83.     Endif
  84.     If (Upper(Mid(STRING006, Dow(Date()) + 1, 1)) == "N") Goto LABEL006
  85.     Cls
  86.     If (Exist(STRING002)) Then
  87.         DispFile STRING002, 4 + 2 + 1
  88.     Else
  89.         PrintLn "@X70┌────────────────────────────────────────────────────────────────────────────@X7F┐@X07"
  90.         PrintLn "@X70│ @X75* @X74PCBOARD @X75*     @X70==@X71 O  P  E  R  A  T  O  R    P  A  G  E @X70==     @X75* @X74PCBOARD @X75* @X7F│@X07"
  91.         PrintLn "@X70└@X7F────────────────────────────────────────────────────────────────────────────┘@X07"
  92.     Endif
  93.     PrintLn 
  94.     InputText "Why do you want to page the SysOp", STRING009, 14, 43
  95.     If ((STRING009 == "") || (Len(STRING009) <= 3)) Goto LABEL009
  96.     If (STRING009 <> "") Gosub LABEL001
  97.     Log "Reason: " + STRING009, 0
  98.     TIME003 = Time()
  99.     Newlines 2
  100.     Print "@X0EPage ends in 30 seconds. @X0C(@X0ECtrl-K@X0C) @X0EAborts @X0F."
  101.     While (TIME003 + 30 > Time()) Do
  102.         INTEGER008 = Abort()
  103.         If (INTEGER008) Goto LABEL010
  104.         STRING010 = KInkey()
  105.         If (STRING010 == Chr(32)) Goto LABEL008
  106.         INTEGER001 = INTEGER001 + 1
  107.         If (INTEGER001 % 100 == 0) Then
  108.             Print "@X0F."
  109.             INTEGER009 = INTEGER009 + 1
  110.             If (INTEGER009 % 2 == 0) Then
  111.                 Print "@X09."
  112.                 Sound 1100
  113.                 Delay 8
  114.                 Sound 800
  115.                 Delay 6
  116.             Endif
  117.             Sound 0
  118.         Endif
  119.     EndWhile
  120.     If (PageStat() == 0) PageOn
  121.     Goto LABEL002
  122.     End
  123.     :LABEL001
  124.     WrUNet PcbNode(), "Paging SysOp", U_Name(), U_City, "", ""
  125.     INTEGER004 = GetX()
  126.     INTEGER005 = GetY()
  127.     AnsiPos 1, 1
  128.     Color 63
  129.     SPrintLn "┌────────────────────────────────────────────────────────────────────────────┐"
  130.     SPrintLn "│ [SysOp] - Press (SPACE) to acknowledge Operator Page, (ESC) when finished. │"
  131.     SPrintLn "└────────────────────────────────────────────────────────────────────────────┘"
  132.     Color DefColor()
  133.     AnsiPos INTEGER004, INTEGER005
  134.     Return
  135.     :LABEL002
  136.     Newlines 2
  137.     If (Exist(STRING003)) Then
  138.         DispFile STRING003, 4 + 2 + 1
  139.     Else
  140.         PrintLn "@X0CSorry, the Sysop is not currently available for CHAT!"
  141.     Endif
  142.     Goto LABEL007
  143.     :LABEL003
  144.     FClose 1
  145.     PrintLn 
  146.     PrintLn "@X0CSorry, the Sysop is not currently available for CHAT!"
  147.     Goto LABEL007
  148.     :LABEL004
  149.     PrintLn 
  150.     PrintLn "@X0ESorry, insufficient Security to page for SysOp!"
  151.     Goto LABEL007
  152.     :LABEL005
  153.     PrintLn 
  154.     PrintLn "@X70┌────────────────────────────────────────────────────────────────────────────@X7F┐@X07"
  155.     PrintLn "@X70│ @X71Sorry, @FIRST@, you may only PAGE for the SysOp in the HOURS listed below:@POS:78@@X7F│@X07"
  156.     PrintLn "@X70└@X7F────────────────────────────────────────────────────────────────────────────┘@X07"
  157.     PrintLn 
  158.     PrintLn "@X70┌────────────────────────────────────────────────────────────────────────────@X7F┐@X07"
  159.     PrintLn "@X70│ @X74Beginning Time: @X7E" + String(TIME001) + " am                       @X74Ending Time: @X7E" + String(TIME002) + " pm @X7F│@X07"
  160.     PrintLn "@X70└@X7F────────────────────────────────────────────────────────────────────────────┘@X07"
  161.     Goto LABEL007
  162.     :LABEL006
  163.     PrintLn 
  164.     PrintLn "@X70┌────────────────────────────────────────────────────────────────────────────@X7F┐@X07"
  165.     PrintLn "@X70│ @X71Sorry, @FIRST@, you may only PAGE for the SysOp in the DAYS listed below: @POS:78@@X7F│@X07"
  166.     PrintLn "@X70└@X7F────────────────────────────────────────────────────────────────────────────┘@X07"
  167.     PrintLn 
  168.     PrintLn "@X07@X70┌────────────────────────────────────────────────────────────────────────────@X7F┐@X07"
  169.     PrintLn "@X70│  @X74SUN@X70=@X71" + Mid(STRING006, 1, 1) + "      @X74MON@X70=@X71" + Mid(STRING006, 2, 1) + "      @X74TUE@X70=@X71" + Mid(STRING006, 3, 1) + "      @X74WED@X70=@X71" + Mid(STRING006, 4, 1) + "      @X74THU@X70=@X71" + Mid(STRING006, 5, 1) + "      @X74FRI@X70=@X71" + Mid(STRING006, 6, 1) + "      @X74SAT@X70=@X71" + Mid(STRING006, 7, 1) + "   @X7F│@X07"
  170.     PrintLn "@X70└@X7F────────────────────────────────────────────────────────────────────────────┘@X07"
  171.     :LABEL007
  172.     PrintLn 
  173.     InputYN "Would you like to leave a comment to the Sysop instead Y/N", STRING008, 10
  174.     If (STRING008 <> YesChar()) Stop
  175.     KbdStuff "C" + Chr(13) + "Y" + Chr(13)
  176.     End
  177.     :LABEL008
  178.     Chat
  179.     End
  180.     :LABEL009
  181.     End
  182.     :LABEL010
  183.     ResetDisp
  184.     If (PageStat() == 0) PageOn
  185.     Newlines 1
  186.     End
  187.  
  188. ;------------------------------------------------------------------------------
  189. ;
  190. ; Usage report (before postprocessing)
  191. ;
  192. ; ■ Statements used :
  193. ;
  194. ;    6       End
  195. ;    1       Cls
  196. ;    1       Wait
  197. ;    2       Color 
  198. ;    28      Goto 
  199. ;    15      Let 
  200. ;    3       Print 
  201. ;    29      PrintLn 
  202. ;    23      If 
  203. ;    2       DispFile 
  204. ;    2       FOpen 
  205. ;    3       FClose 
  206. ;    10      FGet 
  207. ;    1       ResetDisp
  208. ;    1       GetUser
  209. ;    2       Log 
  210. ;    1       InputYN 
  211. ;    1       Gosub 
  212. ;    1       Return
  213. ;    2       Delay 
  214. ;    3       Newlines 
  215. ;    1       Stop
  216. ;    1       InputText 
  217. ;    1       KbdStuff 
  218. ;    1       WrUNet 
  219. ;    2       AnsiPos 
  220. ;    3       Sound 
  221. ;    1       Chat
  222. ;    3       SPrintLn 
  223. ;    2       PageOn
  224. ;
  225. ;
  226. ; ■ Functions used :
  227. ;
  228. ;    2       %
  229. ;    43      +
  230. ;    11      ==
  231. ;    4       <>
  232. ;    4       <
  233. ;    3       <=
  234. ;    5       >
  235. ;    2       >=
  236. ;    9       !
  237. ;    5       &&
  238. ;    4       ||
  239. ;    3       Len(
  240. ;    2       Upper()
  241. ;    8       Mid()
  242. ;    2       Left()
  243. ;    3       Chr()
  244. ;    1       Abort()
  245. ;    1       Date()
  246. ;    4       Time()
  247. ;    3       U_Name()
  248. ;    1       Dow()
  249. ;    1       YesChar()
  250. ;    4       String()
  251. ;    2       PPEPath()
  252. ;    1       PcbNode()
  253. ;    4       Exist()
  254. ;    1       GetX()
  255. ;    1       GetY()
  256. ;    1       DefColor()
  257. ;    1       KInkey()
  258. ;    2       PageStat()
  259. ;
  260. ;------------------------------------------------------------------------------
  261. ;
  262. ; Analysis flags : No flag
  263. ;
  264. ;------------------------------------------------------------------------------
  265. ;
  266. ; Postprocessing report
  267. ;
  268. ;    1       For/Next
  269. ;    1       While/EndWhile
  270. ;    7       If/Then or If/Then/Else
  271. ;    0       Select Case
  272. ;
  273. ;------------------------------------------------------------------------------
  274. ;                 AEGiS Corp - Break the routines, code against the machines!
  275. ;------------------------------------------------------------------------------
  276.