home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1994 #1 / monster.zip / monster / PCBOARD / VSW_WZ10.ZIP / WHOZON.PPE (.txt) < prev   
PCBoard Programming Language Executable  |  1994-03-12  |  7KB  |  241 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 2.OO (plain) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Boolean  BOOLEAN001
  20.     Boolean  BOOLEAN002
  21.     Boolean  BOOLEAN003
  22.     Boolean  BOOLEAN004
  23.     Boolean  BOOLEAN005
  24.     Integer  INTEGER001
  25.     String   STRING001
  26.     String   STRING002
  27.     String   STRING003
  28.     String   STRING004
  29.     String   STRING005
  30.     String   STRING006
  31.     String   STRING007
  32.     String   STRING008
  33.  
  34. ;------------------------------------------------------------------------------
  35.  
  36.     GetUser
  37.     PrintLn 
  38.     PrintLn "@X0F ┌─@X08─@X07─@X08────────────────────────────────────────────────────────────────────────┐"
  39.     PrintLn "@X07 │ W H O Z O N  VO.O1         @X0F∙ @X07DARK INVENTOR @X0F∙ @X07VSW PPE DIVISION @X0F∙ @X07(C)1994 @X0F∙ @X07│"
  40.     PrintLn "@X08 └──────────────────────────────────────────────────────────────────────@X07──@X08─@X0F──┘"
  41.     RdUNet 1
  42.     Gosub LABEL001
  43.     If (BOOLEAN005 == 1) PrintLn "@X08 │ @X0F1@X08─(@X04" + STRING008 + "@X08)─[" + STRING005 + Left(STRING004, 17) + "@X08]─[@X03" + STRING006 + Left(STRING003, 20) + "@X08]─[@X02" + STRING007 + Left(STRING001, 22) + "@X08] │"
  44.     RdUNet 2
  45.     Gosub LABEL001
  46.     If (BOOLEAN005 == 1) PrintLn "@X08 │ @X0F2@X08─(@X04" + STRING008 + "@X08)─[" + STRING005 + Left(STRING004, 17) + "@X08]─[@X03" + STRING006 + Left(STRING003, 20) + "@X08]─[@X02" + STRING007 + Left(STRING001, 22) + "@X08] │"
  47.     RdUNet 3
  48.     Gosub LABEL001
  49.     If (BOOLEAN005 == 1) PrintLn "@X08 │ @X0F3@X08─(@X04" + STRING008 + "@X08)─[" + STRING005 + Left(STRING004, 17) + "@X08]─[@X03" + STRING006 + Left(STRING003, 20) + "@X08]─[@X02" + STRING007 + Left(STRING001, 22) + "@X08] │"
  50.     RdUNet 4
  51.     Gosub LABEL001
  52.     If (BOOLEAN005 == 1) PrintLn "@X07 │ @X0F4@X08─(@X04" + STRING008 + "@X08)─[" + STRING005 + Left(STRING004, 17) + "@X08]─[@X03" + STRING006 + Left(STRING003, 20) + "@X08]─[@X02" + STRING007 + Left(STRING001, 22) + "@X08] │"
  53.     RdUNet 5
  54.     Gosub LABEL001
  55.     If (BOOLEAN005 == 1) PrintLn "@X07 │ @X0F5@X08─(@X04" + STRING008 + "@X08)─[" + STRING005 + Left(STRING004, 17) + "@X08]─[@X03" + STRING006 + Left(STRING003, 20) + "@X08]─[@X02" + STRING007 + Left(STRING001, 22) + "@X08] │"
  56.     RdUNet 6
  57.     Gosub LABEL001
  58.     If (BOOLEAN005 == 1) PrintLn "@X07 │ @X0F6@X08─(@X04" + STRING008 + "@X08)─[" + STRING005 + Left(STRING004, 17) + "@X08]─[@X03" + STRING006 + Left(STRING003, 20) + "@X08]─[@X02" + STRING007 + Left(STRING001, 22) + "@X08] │"
  59.     RdUNet 7
  60.     Gosub LABEL001
  61.     If (BOOLEAN005 == 1) PrintLn "@X07 │ @X0F7@X08─(@X04" + STRING008 + "@X08)─[" + STRING005 + Left(STRING004, 17) + "@X08]─[@X03" + STRING006 + Left(STRING003, 20) + "@X08]─[@X02" + STRING007 + Left(STRING001, 22) + "@X08] │"
  62.     RdUNet 8
  63.     Gosub LABEL001
  64.     If (BOOLEAN005 == 1) PrintLn "@X07 │ @X0F8@X08─(@X04" + STRING008 + "@X08)─[" + STRING005 + Left(STRING004, 17) + "@X08]─[@X03" + STRING006 + Left(STRING003, 20) + "@X08]─[@X02" + STRING007 + Left(STRING001, 22) + "@X08] │"
  65.     RdUNet 9
  66.     Gosub LABEL001
  67.     If (BOOLEAN005 == 1) PrintLn "@X07 │ @X0F9@X08─(@X04" + STRING008 + "@X08)─[" + STRING005 + Left(STRING004, 17) + "@X08]─[@X03" + STRING006 + Left(STRING003, 20) + "@X08]─[@X02" + STRING007 + Left(STRING001, 22) + "@X08] │"
  68.     RdUNet 0
  69.     Gosub LABEL001
  70.     If (BOOLEAN005 == 1) PrintLn "@X07 │ @X0F0@X08─(@X04" + STRING008 + "@X08)─[" + STRING005 + Left(STRING004, 17) + "@X08]─[@X03" + STRING006 + Left(STRING003, 20) + "@X08]─[@X02" + STRING007 + Left(STRING001, 22) + "@X08] │"
  71.     PrintLn "@X0F └─@X07───@X08───────────────────────────────────────────────────────────────────────┘"
  72.     PrintLn "  @X07   ─═@X0FVSW@X07═─      PPE Division - Only for those who deserve it.    ─═@X0FVSW@X07═─ "
  73.     End
  74.     :LABEL001
  75.     STRING001 = "Status Unknown"
  76.     STRING003 = UN_City()
  77.     STRING008 = "φ"
  78.     STRING005 = "@X0B"
  79.     STRING006 = "@X0B"
  80.     STRING007 = "@X02"
  81.     BOOLEAN005 = 1
  82.     If (UN_Stat() == "") BOOLEAN005 = 0
  83.     If (UN_Stat() == "U") Then
  84.         STRING001 = "User Unavailable"
  85.         STRING005 = "@X03"
  86.         STRING006 = "@X03"
  87.         STRING007 = "@X08"
  88.         STRING008 = " "
  89.         If (U_Name() == UN_Name()) Then
  90.             STRING005 = "@X0B"
  91.             STRING006 = "@X0B"
  92.             STRING007 = "@X02"
  93.             STRING001 = "Running WHOZON V1.0!"
  94.         Endif
  95.         If (U_Name() == UN_Name()) STRING008 = "φ"
  96.     Endif
  97.     If (UN_Stat() == "A") Then
  98.         STRING001 = "Browsing Around"
  99.         STRING007 = "@X0A"
  100.         STRING008 = "φ"
  101.     Endif
  102.     If (UN_Stat() == "G") STRING001 = "Multi Node Chatting"
  103.     If (UN_Stat() == "P") Then
  104.         STRING001 = "Paging the SySop"
  105.         STRING005 = "@X03"
  106.         STRING006 = "@X03"
  107.         STRING008 = " "
  108.     Endif
  109.     If (UN_Stat() == "W") Then
  110.         STRING001 = "Wait / Drop to OS"
  111.         STRING007 = "@X02"
  112.     Endif
  113.     If (UN_Stat() == "B") Then
  114.         STRING001 = "Out of code in OS"
  115.         STRING007 = "@X02"
  116.     Endif
  117.     If (UN_Stat() == "L") Then
  118.         STRING001 = "Logoff Pending"
  119.         STRING007 = "@X02"
  120.     Endif
  121.     If (UN_Stat() == "R") Then
  122.         STRING001 = "Recycling Node"
  123.         STRING007 = "@X02"
  124.     Endif
  125.     If (UN_Stat() == "M") STRING001 = "Reading Messages"
  126.     If (UN_Stat() == "S") Then
  127.         STRING001 = "Answering Script"
  128.         STRING005 = "@X03"
  129.         STRING006 = "@X03"
  130.         STRING008 = " "
  131.     Endif
  132.     If (UN_Stat() == "E") Then
  133.         STRING001 = "Entering Message"
  134.         STRING005 = "@X03"
  135.         STRING006 = "@X03"
  136.         STRING008 = " "
  137.         For INTEGER001 = 4 To 7
  138.             If (Mid(UN_Oper(), INTEGER001, 2) == "=>") STRING002 = Mid(UN_Oper(), INTEGER001 + 3, 15)
  139.         Next
  140.         STRING001 = "MSG [TO " + STRING002 + "]"
  141.     Endif
  142.     If (UN_Stat() == "Y") STRING001 = "Open for Callers"
  143.     If (UN_Stat() == "Z") STRING001 = "Node is Offline"
  144.     If (UN_Stat() == "N") STRING001 = "Running Event"
  145.     If (UN_Stat() == "D") STRING001 = "Running Door"
  146.     If (UN_Stat() == "T") Then
  147.         STRING005 = "@X03"
  148.         STRING006 = "@X03"
  149.         STRING007 = "@X0C"
  150.         STRING001 = "Transferring File(s)"
  151.         STRING008 = " "
  152.         For INTEGER001 = 5 To 18
  153.             If (Mid(UN_Oper(), INTEGER001, 3) == "(Z)") BOOLEAN001 = 1
  154.             If (Mid(UN_Oper(), INTEGER001, 3) == "(B)") BOOLEAN004 = 1
  155.             If (Mid(UN_Oper(), INTEGER001, 3) == "(H)") BOOLEAN003 = 1
  156.             If (Mid(UN_Oper(), INTEGER001, 3) == "(X)") BOOLEAN002 = 1
  157.         Next
  158.         If (BOOLEAN001 == 1) Then
  159.             If (Mid(UN_Oper(), 2, 1) == "D") STRING001 = "ZMODEM [Leeching]"
  160.             If (Mid(UN_Oper(), 2, 1) == "U") STRING001 = "ZMODEM [Pumping]"
  161.         Endif
  162.         If (BOOLEAN003 == 1) STRING001 = "HS/LINK Rulez [UL+DL]"
  163.         If (BOOLEAN002 == 1) Then
  164.             If (Mid(UN_Oper(), 2, 1) == "D") STRING001 = "XMODEM Lamer [DL]"
  165.             If (Mid(UN_Oper(), 2, 1) == "U") STRING001 = "XMODEM Laler [UL]"
  166.         Endif
  167.         If (BOOLEAN004 == 1) STRING001 = "BIMODEM [UL+DL]"
  168.         BOOLEAN001 = 0
  169.         BOOLEAN003 = 0
  170.         BOOLEAN002 = 0
  171.         BOOLEAN004 = 0
  172.     Endif
  173.     STRING004 = UN_Name()
  174.     If (UN_Name() == "") Then
  175.         STRING008 = " "
  176.         STRING004 = "Waiting for RING"
  177.         STRING003 = "----------------------"
  178.         STRING005 = "@X08"
  179.         STRING006 = "@X08"
  180.         STRING007 = "@X08"
  181.     Endif
  182.     If (UN_Stat() == "O") Then
  183.         STRING007 = "@X0F"
  184.         STRING001 = "Login Procedure"
  185.         STRING004 = "Ring Detected!"
  186.     Endif
  187.     Return
  188.     End
  189.  
  190. ;------------------------------------------------------------------------------
  191. ;
  192. ; Usage report (before postprocessing)
  193. ;
  194. ; ■ Statements used :
  195. ;
  196. ;    2       End
  197. ;    19      Goto 
  198. ;    82      Let 
  199. ;    16      PrintLn 
  200. ;    46      If 
  201. ;    1       GetUser
  202. ;    10      Gosub 
  203. ;    1       Return
  204. ;    10      RdUNet 
  205. ;
  206. ;
  207. ; ■ Functions used :
  208. ;
  209. ;    115     +
  210. ;    44      ==
  211. ;    2       <
  212. ;    2       <=
  213. ;    4       >=
  214. ;    17      !
  215. ;    4       &&
  216. ;    2       ||
  217. ;    10      Mid()
  218. ;    30      Left()
  219. ;    2       U_Name()
  220. ;    18      UN_Stat()
  221. ;    4       UN_Name()
  222. ;    1       UN_City()
  223. ;    10      UN_Oper()
  224. ;
  225. ;------------------------------------------------------------------------------
  226. ;
  227. ; Analysis flags : No flag
  228. ;
  229. ;------------------------------------------------------------------------------
  230. ;
  231. ; Postprocessing report
  232. ;
  233. ;    2       For/Next
  234. ;    0       While/EndWhile
  235. ;    15      If/Then or If/Then/Else
  236. ;    0       Select Case
  237. ;
  238. ;------------------------------------------------------------------------------
  239. ;                 AEGiS Corp - Break the routines, code against the machines!
  240. ;------------------------------------------------------------------------------
  241.