home *** CD-ROM | disk | FTP | other *** search
/ Groovy Bytes: Behind the Moon / groovybytes.iso / GROOVY / PPE / Q_TIP / Q_BC121.ZIP / BCAST.PPE (.txt) < prev    next >
Encoding:
PCBoard Programming Language Executable  |  1994-01-17  |  3.4 KB  |  181 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.     String   STRING001
  21.     String   STRING002
  22.     String   STRING003
  23.     String   STRING004
  24.  
  25. ;------------------------------------------------------------------------------
  26.  
  27.     STRING003 = TokenStr()
  28.     If (STRING003 <> "") Then
  29.         KbdStuff "BR " + STRING003
  30.         Newline
  31.         PrintLn "@X0F≡ @X09Sending Message @X0F≡"
  32.     Else
  33.         Cls
  34.         Newlines 2
  35.         PrintLn "@X0F      ≡ @X09Current Node Status @X0F≡"
  36.         PrintLn 
  37.         PrintLn "@X08(@X0F#@X08) (@X0FS@X08)  (@X0FName@X07(@X0FLocation@X07)@X08)"
  38.         PrintLn "@X02─── ─── ───────────────────────────────────"
  39.         RdUNet 1
  40.         If (UN_Stat() == "") Goto LABEL001
  41.         Print "@X0B@POS:2@1"
  42.         If (Upper(UN_Stat()) == "A") Print "@X0E@POS:6@φ"
  43.         PrintLn "@X0B@POS:10@" + UN_Name() + " @X03(@X0B" + UN_City() + "@X03)"
  44.         STRING002 = "1"
  45.         :LABEL001
  46.         RdUNet 2
  47.         If ((UN_Stat() == "") || (UN_Stat() == " ")) Goto LABEL002
  48.         Print "@X0B@POS:2@2"
  49.         If (Upper(UN_Stat()) == "A") Print "@X0E@POS:6@φ"
  50.         PrintLn "@X0B@POS:10@" + UN_Name() + " @X03(@X0B" + UN_City() + "@X03)"
  51.         STRING002 = "2"
  52.         :LABEL002
  53.         RdUNet 3
  54.         If ((UN_Stat() == "") || (UN_Stat() == " ")) Goto LABEL003
  55.         Print "@X0B@POS:2@3"
  56.         If (Upper(UN_Stat()) == "A") Print "@X0E@POS:6@φ"
  57.         PrintLn "@X0B@POS:10@" + UN_Name() + " @X03(@X0B" + UN_City() + "@X03)"
  58.         STRING002 = "3"
  59.         :LABEL003
  60.         RdUNet 4
  61.         If ((UN_Stat() == "") || (UN_Stat() == " ")) Goto LABEL004
  62.         Print "@X0B@POS:2@4"
  63.         If (Upper(UN_Stat()) == "A") Print "@X0E@POS:6@φ"
  64.         PrintLn "@X0B@POS:10@" + UN_Name() + " @X03(@X0B" + UN_City() + "@X03)"
  65.         STRING002 = "4"
  66.         :LABEL004
  67.         RdUNet 5
  68.         If ((UN_Stat() == "") || (UN_Stat() == " ")) Goto LABEL005
  69.         Print "@X0B@POS:2@5"
  70.         If (Upper(UN_Stat()) == "A") Print "@X0E@POS:6@φ"
  71.         PrintLn "@X0B@POS:10@" + UN_Name() + " @X03(@X0B" + UN_City() + "@X03)"
  72.         STRING002 = "5"
  73.         :LABEL005
  74.         RdUNet 6
  75.         If ((UN_Stat() == "") || (UN_Stat() == " ")) Goto LABEL006
  76.         Print "@X0B@POS:2@6"
  77.         If (Upper(UN_Stat()) == "A") Print "@X0E@POS:6@φ"
  78.         PrintLn "@X0B@POS:10@" + UN_Name() + " @X03(@X0B" + UN_City() + "@X03)"
  79.         STRING002 = "6"
  80.         :LABEL006
  81.         RdUNet 7
  82.         If ((UN_Stat() == "") || (UN_Stat() == " ")) Goto LABEL007
  83.         Print "@X0B@POS:2@7"
  84.         If (Upper(UN_Stat()) == "A") Print "@X0E@POS:6@φ"
  85.         PrintLn "@X0B@POS:10@" + UN_Name() + " @X03(@X0B" + UN_City() + "@X03)"
  86.         STRING002 = "7"
  87.         :LABEL007
  88.         RdUNet 8
  89.         If ((UN_Stat() == "") || (UN_Stat() == " ")) Goto LABEL008
  90.         Print "@X0B@POS:2@8"
  91.         If (Upper(UN_Stat()) == "A") Print "@X0E@POS:6@φ"
  92.         PrintLn "@X0B@POS:10@" + UN_Name() + " @X03(@X0B" + UN_City() + "@X03)"
  93.         STRING002 = "8"
  94.         :LABEL008
  95.         RdUNet 9
  96.         If ((UN_Stat() == "") || (UN_Stat() == " ")) Goto LABEL009
  97.         Print "@X0B@POS:2@9"
  98.         If (Upper(UN_Stat()) == "A") Print "@X0E@POS:6@φ"
  99.         PrintLn "@X0B@POS:10@" + UN_Name() + " @X03(@X0B" + UN_City() + "@X03)"
  100.         STRING002 = "9"
  101.         :LABEL009
  102.         RdUNet 10
  103.         If ((UN_Stat() == "") || (UN_Stat() == " ")) Goto LABEL010
  104.         Print "@X0B@POS:2@10"
  105.         If (Upper(UN_Stat()) == "A") Print "@X0E@POS:6@φ"
  106.         PrintLn "@X0B@POS:10@" + UN_Name() + " @X03(@X0B" + UN_City() + "@X03)"
  107.         STRING002 = "10"
  108.         :LABEL010
  109.         Newlines 2
  110.         PrintLn " @X0Eφ @X09= User available"
  111.         InputStr " @X09Send Message to Node # (1-" + STRING002 + ")@X05: _", INTEGER001, 15, 2, "0123456789 ", 64
  112.         If ((INTEGER001 == "") || (INTEGER001 == " ")) Goto LABEL011
  113.         Newlines 2
  114.         PrintLn "@X09 Please Enter the Message to send / 70 Chars Max@X05:"
  115.         InputStr "@X0F >@X07 _", STRING001, 7, 70, Mask_Ascii(), 64 + 8
  116.         If ((STRING001 == "") || (STRING001 == " ")) Goto LABEL011
  117.         STRING004 = U_Name()
  118.         PrintLn "@X09 Sending MeSSaGe @X0F"
  119.         Broadcast INTEGER001, INTEGER001, STRING004 + ": " + STRING001
  120.         Goto LABEL012
  121.         :LABEL011
  122.         PrintLn 
  123.         PrintLn " @X09Aborted! "
  124.     Endif
  125.     :LABEL012
  126.     Newline
  127.     PrintLn "@X08BroadCast V1.21 ■ SLe (01.18.94)"
  128.     Newline
  129.  
  130. ;------------------------------------------------------------------------------
  131. ;
  132. ; Usage report (before postprocessing)
  133. ;
  134. ; ■ Statements used :
  135. ;
  136. ;    1       Cls
  137. ;    16      Goto 
  138. ;    12      Let 
  139. ;    20      Print 
  140. ;    21      PrintLn 
  141. ;    23      If 
  142. ;    2       InputStr 
  143. ;    3       Newline
  144. ;    3       Newlines 
  145. ;    1       KbdStuff 
  146. ;    1       Broadcast 
  147. ;    10      RdUNet 
  148. ;
  149. ;
  150. ; ■ Functions used :
  151. ;
  152. ;    46      +
  153. ;    33      ==
  154. ;    1       <>
  155. ;    1       !
  156. ;    11      ||
  157. ;    10      Upper()
  158. ;    1       U_Name()
  159. ;    1       Mask_Ascii()
  160. ;    29      UN_Stat()
  161. ;    10      UN_Name()
  162. ;    10      UN_City()
  163. ;    1       TokenStr()
  164. ;
  165. ;------------------------------------------------------------------------------
  166. ;
  167. ; Analysis flags : No flag
  168. ;
  169. ;------------------------------------------------------------------------------
  170. ;
  171. ; Postprocessing report
  172. ;
  173. ;    0       For/Next
  174. ;    0       While/EndWhile
  175. ;    1       If/Then or If/Then/Else
  176. ;    0       Select Case
  177. ;
  178. ;------------------------------------------------------------------------------
  179. ;                 AEGiS Corp - Break the routines, code against the machines!
  180. ;------------------------------------------------------------------------------
  181.