home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1994 #1 / monster.zip / monster / PCBOARD / MTH_WUI1.ZIP / W.PPE (.txt) < prev   
PCBoard Programming Language Executable  |  1994-02-20  |  4KB  |  261 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  BOOLEAN006
  20.     Integer  INTEGER001
  21.     Integer  INTEGER002
  22.     String   STRING006
  23.  
  24. ;------------------------------------------------------------------------------
  25.  
  26.     DispFile PPEPath() + "W.PCB", 0
  27.     GetUser
  28.     Color 7
  29.     AnsiPos 44, 5
  30.     Print "Disclosed"
  31.     AnsiPos 44, 6
  32.     Print U_City
  33.     AnsiPos 44, 7
  34.     Print U_BDPhone
  35.     AnsiPos 44, 8
  36.     Print U_HVPhone
  37.     AnsiPos 44, 9
  38.     Print U_Cmnt1
  39.     AnsiPos 44, 10
  40.     If (U_Cls == 1) Print "Yes"
  41.     If (U_Cls == 0) Print "No"
  42.     AnsiPos 44, 11
  43.     If (U_Scroll == 1) Print "Yes"
  44.     If (U_Scroll == 0) Print "No"
  45.     AnsiPos 44, 12
  46.     If (U_LongHDR == 1) Print "Yes"
  47.     If (U_LongHDR == 0) Print "No"
  48.     AnsiPos 44, 13
  49.     If (U_FSEP == 1) Print "Ask"
  50.     If (U_FSEP == 0) Print "Yes"
  51.     AnsiPos 44, 14
  52.     If (U_Def79 == 1) Print "Yes"
  53.     If (U_Def79 == 0) Print "No"
  54.     :LABEL001
  55.     PutUser
  56.     AnsiPos 35, 20
  57.     PrintLn "@X09Coded by Eddie [=BROON'S BANE=] 201-XXX-XXXX"
  58.     Color 7
  59.     AnsiPos 43, 17
  60.     :LABEL002
  61.     If (BOOLEAN006) Goto LABEL003
  62.     STRING006 = Inkey()
  63.     If (STRING006 == "0") Then
  64.         AnsiPos 44, 5
  65.         Print "@X08▒▒▒▒▒▒▒▒▒▒▒▒"
  66.         AnsiPos 43, 5
  67.         InputStr " _", U_Pwd, 0, 12, Mask_Ascii(), 256 + 8
  68.         AnsiPos 44, 5
  69.         Print "@X07Disclosed   "
  70.         Goto LABEL001
  71.     Endif
  72.     If (STRING006 == "1") Then
  73.         AnsiPos 44, 6
  74.         Print "@X08▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒"
  75.         AnsiPos 43, 6
  76.         InputStr " _", U_City, 0, 24, Mask_Ascii(), 256 + 8
  77.         AnsiPos 44, 6
  78.         INTEGER001 = 24 - Len(U_City)
  79.         Print U_City
  80.         For INTEGER002 = 1 To INTEGER001
  81.             Print " "
  82.         Next
  83.         Goto LABEL001
  84.     Endif
  85.     If (STRING006 == "2") Then
  86.         AnsiPos 44, 7
  87.         Print "@X08▒▒▒▒▒▒▒▒▒▒▒▒▒"
  88.         AnsiPos 43, 7
  89.         InputStr " _", U_BDPhone, 0, 13, Mask_Ascii(), 256 + 8
  90.         AnsiPos 44, 7
  91.         INTEGER001 = 13 - Len(U_BDPhone)
  92.         Print U_BDPhone
  93.         For INTEGER002 = 1 To INTEGER001
  94.             Print " "
  95.         Next
  96.         Goto LABEL001
  97.     Endif
  98.     If (STRING006 == "3") Then
  99.         AnsiPos 44, 8
  100.         Print "@X08▒▒▒▒▒▒▒▒▒▒▒▒▒"
  101.         AnsiPos 43, 8
  102.         InputStr " _", U_HVPhone, 0, 13, Mask_Ascii(), 256 + 8
  103.         AnsiPos 44, 8
  104.         INTEGER001 = 13 - Len(U_HVPhone)
  105.         Print U_HVPhone
  106.         For INTEGER002 = 1 To INTEGER001
  107.             Print " "
  108.         Next
  109.         Goto LABEL001
  110.     Endif
  111.     If (STRING006 == "4") Then
  112.         AnsiPos 44, 9
  113.         Print "@X08▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒"
  114.         AnsiPos 43, 9
  115.         InputStr " _", U_Cmnt1, 0, 30, Mask_Ascii(), 256 + 8
  116.         AnsiPos 44, 9
  117.         INTEGER001 = 30 - Len(U_Cmnt1)
  118.         Print U_Cmnt1
  119.         For INTEGER002 = 1 To INTEGER001
  120.             Print " "
  121.         Next
  122.         Goto LABEL001
  123.     Endif
  124.     If (STRING006 == "5") Then
  125.         AnsiPos 44, 10
  126.         If (U_Cls == 1) Then
  127.             Print "No "
  128.             U_Cls = 0
  129.             Goto LABEL001
  130.         Endif
  131.         If (U_Cls == 0) Then
  132.             Print "Yes"
  133.             U_Cls = 1
  134.             Goto LABEL001
  135.         Endif
  136.     Endif
  137.     If (STRING006 == "6") Then
  138.         AnsiPos 44, 11
  139.         If (U_Scroll == 1) Then
  140.             Print "No "
  141.             U_Scroll = 0
  142.             Goto LABEL001
  143.         Endif
  144.         If (U_Scroll == 0) Then
  145.             Print "Yes"
  146.             U_Scroll = 1
  147.             Goto LABEL001
  148.         Endif
  149.     Endif
  150.     If (STRING006 == "7") Then
  151.         AnsiPos 44, 12
  152.         If (U_LongHDR == 1) Then
  153.             Print "No "
  154.             U_LongHDR = 0
  155.             Goto LABEL001
  156.         Endif
  157.         If (U_LongHDR == 0) Then
  158.             Print "Yes"
  159.             U_LongHDR = 1
  160.             Goto LABEL001
  161.         Endif
  162.     Endif
  163.     If (STRING006 == "8") Then
  164.         AnsiPos 44, 13
  165.         If (U_FSEP == 1) Then
  166.             Print "Ask"
  167.             U_FSEP = 0
  168.             Goto LABEL001
  169.         Endif
  170.         If (U_FSEP == 0) Then
  171.             Print "Yes"
  172.             U_FSEP = 1
  173.             Goto LABEL001
  174.         Endif
  175.     Endif
  176.     If (STRING006 == "9") Then
  177.         AnsiPos 44, 14
  178.         If (U_Def79 == 1) Then
  179.             Print "No "
  180.             U_Def79 = 0
  181.             Goto LABEL001
  182.         Endif
  183.         If (U_Def79 == 0) Then
  184.             Print "Yes"
  185.             U_Def79 = 1
  186.             Goto LABEL001
  187.         Endif
  188.     Endif
  189.     If ((STRING006 == "Q") || (STRING006 == "q")) Then
  190.         AnsiPos 1, 23
  191.         BOOLEAN006 = 1
  192.     Endif
  193.     Goto LABEL002
  194.     :LABEL003
  195.     Wait
  196.     Return
  197.  
  198. ;------------------------------------------------------------------------------
  199. ;
  200. ; Usage report (before postprocessing)
  201. ;
  202. ; ■ Statements used :
  203. ;
  204. ;    1       Wait
  205. ;    2       Color 
  206. ;    46      Goto 
  207. ;    24      Let 
  208. ;    39      Print 
  209. ;    1       PrintLn 
  210. ;    36      If 
  211. ;    1       DispFile 
  212. ;    1       GetUser
  213. ;    1       PutUser
  214. ;    5       InputStr 
  215. ;    1       Return
  216. ;    33      AnsiPos 
  217. ;
  218. ;
  219. ; ■ Functions used :
  220. ;
  221. ;    10      +
  222. ;    4       -
  223. ;    32      ==
  224. ;    4       <
  225. ;    4       <=
  226. ;    8       >=
  227. ;    26      !
  228. ;    8       &&
  229. ;    5       ||
  230. ;    4       Len(
  231. ;    1       Inkey()
  232. ;    5       Mask_Ascii()
  233. ;    1       PPEPath()
  234. ;
  235. ;------------------------------------------------------------------------------
  236. ;
  237. ; Analysis flags : WH
  238. ;
  239. ; W - Write user ■ 5
  240. ;     Program writes a user record. Although this may be normal for a
  241. ;     User Editor, it may also be a way to modify an account level.
  242. ;     ■ Search for : PUTUSER
  243. ;
  244. ; H - Read Password or Password History ■ 5
  245. ;     Program is reading the user's password or last password history
  246. ;     This may be ok for a password manager, but it is very suspect. Check!
  247. ;     ■ Search for : U_PWDHIST, U_PWD
  248. ;
  249. ;------------------------------------------------------------------------------
  250. ;
  251. ; Postprocessing report
  252. ;
  253. ;    4       For/Next
  254. ;    0       While/EndWhile
  255. ;    21      If/Then or If/Then/Else
  256. ;    0       Select Case
  257. ;
  258. ;------------------------------------------------------------------------------
  259. ;                 AEGiS Corp - Break the routines, code against the machines!
  260. ;------------------------------------------------------------------------------
  261.