home *** CD-ROM | disk | FTP | other *** search
/ Carsten's PPE Collection / Carstens_PPE_Collection_2007.zip / S / SPEAK11.ZIP / SPEAK.PPE (.txt) < prev   
PCBoard Programming Language Executable  |  1993-12-09  |  3KB  |  168 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.     String   STRING001
  22.     String   STRING002
  23.     String   STRING003
  24.     String   STRING004
  25.     String   STRING005
  26.     String   STRING006
  27.     String   STRING007
  28.     String   STRING008
  29.  
  30. ;------------------------------------------------------------------------------
  31.  
  32.     Gosub LABEL005
  33.     Newline
  34.     PrintLn "@CLS@"
  35.     PrintLn STRING008 + "╒════════════════════════════════════════════════════════════════════════════╕"
  36.     PrintLn STRING008 + "│" + STRING003 + "     You are  preparing to Broadcast  a message to another  Node or Node." + STRING008 + "   │"
  37.     PrintLn STRING008 + "│" + STRING003 + "     Please make sure the  content of your  message will not offend other" + STRING008 + "   │"
  38.     PrintLn STRING008 + "│" + STRING003 + "     users.  All Broadcasts are subject to monitoring.            -SysOp." + STRING008 + "   │"
  39.     PrintLn STRING008 + "╘════════════════════════════════SPEAK v1.1══════════════════════════════════╛"
  40.     :LABEL001
  41.     PrintLn " "
  42.     STRING002 = "Y"
  43.     InputStr STRING003 + "Would you like to broadcast a message to another Node", STRING002, STRING003, 1, "YN", 2 + 8
  44.     If (STRING002 == "N") Then
  45.         Goto LABEL006
  46.     Endif
  47.     :LABEL002
  48.     Newline
  49.     PrintLn " "
  50.     PrintLn STRING004 + "Enter the message you would like to broadcast in 60 Characters or less."
  51.     PrintLn " "
  52.     Input STRING005 + "What", STRING001
  53.     If (STRING001 == "") Then
  54.         Newline
  55.         PrintLn STRING004 + "You have failed to enter anything!"
  56.         Goto LABEL001
  57.     Endif
  58.     PrintLn " "
  59.     PrintLn STRING004 + "Please review the information you entered to ensure it is correct!"
  60.     PrintLn " "
  61.     PrintLn STRING005 + "'" + STRING001 + "'"
  62.     PrintLn " "
  63.     InputStr STRING004 + "Is This Statement Right", STRING002, STRING003, 1, "YN", 2 + 8
  64.     If (STRING002 == "N") Then
  65.         Goto LABEL002
  66.     Endif
  67.     :LABEL003
  68.     Newline
  69.     PrintLn " "
  70.     :LABEL004
  71.     InputStr STRING007 + "Enter the Node you want to target", INTEGER001, STRING007, 5, "1234567890", 2 + 8
  72.     If (INTEGER001 == 0) Then
  73.         Newline
  74.         PrintLn ""
  75.         PrintLn STRING004 + "There is no Node 0."
  76.         Goto LABEL004
  77.     Endif
  78.     If (INTEGER001 > INTEGER002) Then
  79.         Newline
  80.         PrintLn ""
  81.         PrintLn STRING004 + "ERROR : Target Node not available on this BBS!"
  82.         Goto LABEL004
  83.     Endif
  84.     Newline
  85.     PrintLn ""
  86.     PrintLn STRING007 + "You entered " + String(INTEGER001) + " as the destination."
  87.     PrintLn ""
  88.     InputStr STRING007 + "Is this node right", STRING002, STRING003, 1, "YN", 2 + 8
  89.     If (STRING002 == "N") Then
  90.         Goto LABEL003
  91.     Endif
  92.     RdUNet INTEGER001
  93.     Broadcast INTEGER001, INTEGER001, "Shout from Node " + String(PcbNode()) + ": " + STRING001
  94.     Newline
  95.     PrintLn " "
  96.     PrintLn STRING008 + "Message Sent.  Returning to Main."
  97.     Goto LABEL006
  98.     :LABEL005
  99.     FOpen 1, PPEPath() + "SPEAK.CNF", 0, 0
  100.     If (Ferr(1)) Then
  101.         SPrintLn "ERROR : Error in CNF.  Refer to DOCS or Call SOLITUDE 714-834-0711!"
  102.         End
  103.     Else
  104.         FGet 1, INTEGER002
  105.         FGet 1, STRING003
  106.         FGet 1, STRING004
  107.         FGet 1, STRING005
  108.         FGet 1, STRING006
  109.         FGet 1, STRING007
  110.         FGet 1, STRING008
  111.         FClose 1
  112.         Return
  113.     Endif
  114.     :LABEL006
  115.     End
  116.  
  117. ;------------------------------------------------------------------------------
  118. ;
  119. ; Usage report (before postprocessing)
  120. ;
  121. ; ■ Statements used :
  122. ;
  123. ;    2       End
  124. ;    15      Goto 
  125. ;    1       Let 
  126. ;    26      PrintLn 
  127. ;    7       If 
  128. ;    1       Input 
  129. ;    1       FOpen 
  130. ;    1       FClose 
  131. ;    7       FGet 
  132. ;    4       InputStr 
  133. ;    1       Gosub 
  134. ;    1       Return
  135. ;    8       Newline
  136. ;    1       Broadcast 
  137. ;    1       RdUNet 
  138. ;    1       SPrintLn 
  139. ;
  140. ;
  141. ; ■ Functions used :
  142. ;
  143. ;    42      +
  144. ;    5       ==
  145. ;    1       >
  146. ;    7       !
  147. ;    1       Ferr()
  148. ;    2       String()
  149. ;    1       PPEPath()
  150. ;    1       PcbNode()
  151. ;
  152. ;------------------------------------------------------------------------------
  153. ;
  154. ; Analysis flags : No flag
  155. ;
  156. ;------------------------------------------------------------------------------
  157. ;
  158. ; Postprocessing report
  159. ;
  160. ;    0       For/Next
  161. ;    0       While/EndWhile
  162. ;    7       If/Then or If/Then/Else
  163. ;    0       Select Case
  164. ;
  165. ;------------------------------------------------------------------------------
  166. ;                 AEGiS Corp - Break the routines, code against the machines!
  167. ;------------------------------------------------------------------------------
  168.