home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1994 #1 / monster.zip / monster / PCBOARD / AR_CFG15.ZIP / CONFIG.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1994-03-05  |  5KB  |  304 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.     Integer  INTEGER001
  20.     Integer  INTEGER002
  21.     Integer  INTEGER003
  22.     Integer  INTEGER004
  23.     String   STRING006
  24.     String   STRING007
  25.     String   STRING008
  26.     String   STRING009
  27.     String   STRING010
  28.     String   STRING011
  29.  
  30. ;------------------------------------------------------------------------------
  31.  
  32.     Cls
  33.     DispFile PPEPath() + "CONFIG.ANS", 0
  34.     GetUser
  35.     AnsiPos 36, 10
  36.     Print "@USER@"
  37.     AnsiPos 36, 11
  38.     Print U_Sec
  39.     AnsiPos 36, 12
  40.     Print "@LASTDATEON@"
  41.     AnsiPos 36, 13
  42.     Print "@DLBYTES@"
  43.     AnsiPos 36, 14
  44.     Print "@UPBYTES@"
  45.     AnsiPos 36, 15
  46.     Print "@BYTESLEFT@"
  47.     AnsiPos 18, 4
  48.     Print U_Pwd
  49.     AnsiPos 18, 5
  50.     Print U_City
  51.     AnsiPos 18, 6
  52.     Print U_BDPhone
  53.     AnsiPos 18, 7
  54.     Print U_HVPhone
  55.     AnsiPos 18, 8
  56.     Print U_Ver
  57.     STRING006 = U_Cls
  58.     Gosub LABEL015
  59.     AnsiPos 71, 2
  60.     Print STRING007
  61.     STRING006 = U_Scroll
  62.     Gosub LABEL015
  63.     AnsiPos 71, 3
  64.     Print STRING007
  65.     STRING006 = U_LongHDR
  66.     Gosub LABEL015
  67.     AnsiPos 71, 4
  68.     Print STRING007
  69.     STRING006 = U_FSE
  70.     Gosub LABEL015
  71.     AnsiPos 71, 5
  72.     Print STRING007
  73.     STRING006 = U_Def79
  74.     Gosub LABEL015
  75.     AnsiPos 71, 6
  76.     Print STRING007
  77.     STRING006 = U_Expert
  78.     Gosub LABEL015
  79.     AnsiPos 71, 7
  80.     Print STRING007
  81.     :LABEL001
  82.     STRING010 = ""
  83.     STRING009 = ""
  84.     INTEGER003 = ""
  85.     STRING006 = ""
  86.     STRING007 = ""
  87.     AnsiPos 12, 17
  88.     :LABEL002
  89.     If (FALSE) Goto LABEL003
  90.     STRING008 = Inkey()
  91.     STRING008 = Lower(STRING008)
  92.     If (STRING008 == "q") Goto LABEL016
  93.     If (STRING008 == "p") Goto LABEL004
  94.     If (STRING008 == "n") Goto LABEL005
  95.     If (STRING008 == "d") Goto LABEL006
  96.     If (STRING008 == "u") Goto LABEL007
  97.     If (STRING008 == "v") Goto LABEL008
  98.     If (STRING008 == "m") Goto LABEL009
  99.     If (STRING008 == "s") Goto LABEL010
  100.     If (STRING008 == "l") Goto LABEL011
  101.     If (STRING008 == "f") Goto LABEL012
  102.     If (STRING008 == "e") Goto LABEL013
  103.     If (STRING008 == "x") Goto LABEL014
  104.     Goto LABEL002
  105.     :LABEL003
  106.     End
  107.     :LABEL004
  108.     INTEGER001 = "18"
  109.     INTEGER002 = "4"
  110.     STRING010 = U_Pwd
  111.     INTEGER004 = 12
  112.     INTEGER003 = Len(STRING010)
  113.     AnsiPos INTEGER001, INTEGER002
  114.     Print Space(INTEGER003 + 1)
  115.     AnsiPos INTEGER001, INTEGER002
  116.     InputStr "_", U_Pwd, 14, INTEGER004, " abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ`1234567890-=\!@#$%^&*()_+|,./?:", 8 + 4096
  117.     Goto LABEL001
  118.     End
  119.     :LABEL005
  120.     INTEGER001 = "18"
  121.     INTEGER002 = "5"
  122.     STRING010 = U_City
  123.     INTEGER004 = 24
  124.     INTEGER003 = Len(STRING010)
  125.     AnsiPos INTEGER001, INTEGER002
  126.     Print Space(INTEGER003 + 1)
  127.     AnsiPos INTEGER001, INTEGER002
  128.     InputStr "_", U_City, 14, INTEGER004, " abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ`1234567890-=\!@#$%^&*()_+|,./?:", 8 + 4096
  129.     Goto LABEL001
  130.     End
  131.     :LABEL006
  132.     INTEGER001 = "18"
  133.     INTEGER002 = "6"
  134.     STRING010 = U_BDPhone
  135.     INTEGER004 = 12
  136.     INTEGER003 = Len(STRING010)
  137.     AnsiPos INTEGER001, INTEGER002
  138.     Print Space(INTEGER003 + 1)
  139.     AnsiPos INTEGER001, INTEGER002
  140.     InputStr "_", U_BDPhone, 14, INTEGER004, " abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ`1234567890-=\!@#$%^&*()_+|,./?:", 8 + 4096
  141.     Goto LABEL001
  142.     End
  143.     :LABEL007
  144.     INTEGER001 = "18"
  145.     INTEGER002 = "7"
  146.     STRING010 = U_HVPhone
  147.     INTEGER004 = 12
  148.     INTEGER003 = Len(STRING010)
  149.     AnsiPos INTEGER001, INTEGER002
  150.     Print Space(INTEGER003 + 1)
  151.     AnsiPos INTEGER001, INTEGER002
  152.     InputStr "_", U_HVPhone, 14, INTEGER004, " abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ`1234567890-=\!@#$%^&*()_+|,./?:", 8 + 4096
  153.     Goto LABEL001
  154.     End
  155.     :LABEL008
  156.     INTEGER001 = "18"
  157.     INTEGER002 = "8"
  158.     STRING010 = U_Ver
  159.     INTEGER004 = 10
  160.     INTEGER003 = Len(STRING010)
  161.     AnsiPos INTEGER001, INTEGER002
  162.     Print Space(INTEGER003 + 1)
  163.     AnsiPos INTEGER001, INTEGER002
  164.     InputStr "_", U_Ver, 14, INTEGER004, " abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ`1234567890-=\!@#$%^&*()_+|,./?:", 8 + 4096
  165.     Goto LABEL001
  166.     End
  167.     :LABEL009
  168.     If (U_Cls == "0") STRING006 = "1"
  169.     If (U_Cls == "1") STRING006 = "0"
  170.     If (STRING006 == "0") STRING007 = "NO!"
  171.     If (STRING006 == "1") STRING007 = "YEP"
  172.     AnsiPos 71, 2
  173.     Print STRING007
  174.     U_Cls = STRING006
  175.     Goto LABEL001
  176.     End
  177.     :LABEL010
  178.     If (U_Scroll == "0") STRING006 = "1"
  179.     If (U_Scroll == "1") STRING006 = "0"
  180.     If (STRING006 == "0") STRING007 = "NO!"
  181.     If (STRING006 == "1") STRING007 = "YEP"
  182.     AnsiPos 71, 3
  183.     Print STRING007
  184.     U_Scroll = STRING006
  185.     Goto LABEL001
  186.     End
  187.     :LABEL011
  188.     If (U_LongHDR == "0") STRING006 = "1"
  189.     If (U_LongHDR == "1") STRING006 = "0"
  190.     If (STRING006 == "0") STRING007 = "NO!"
  191.     If (STRING006 == "1") STRING007 = "YEP"
  192.     AnsiPos 71, 4
  193.     Print STRING007
  194.     U_LongHDR = STRING006
  195.     Goto LABEL001
  196.     End
  197.     :LABEL012
  198.     If (U_FSE == "0") STRING006 = "1"
  199.     If (U_FSE == "1") STRING006 = "0"
  200.     If (STRING006 == "0") STRING007 = "NO!"
  201.     If (STRING006 == "1") STRING007 = "YEP"
  202.     AnsiPos 71, 5
  203.     Print STRING007
  204.     U_FSE = STRING006
  205.     Goto LABEL001
  206.     End
  207.     :LABEL013
  208.     If (U_Def79 == "0") STRING006 = "1"
  209.     If (U_Def79 == "1") STRING006 = "0"
  210.     If (STRING006 == "0") STRING007 = "NO!"
  211.     If (STRING006 == "1") STRING007 = "YEP"
  212.     AnsiPos 71, 6
  213.     Print STRING007
  214.     U_Def79 = STRING006
  215.     Goto LABEL001
  216.     End
  217.     :LABEL014
  218.     If (U_Expert == "0") STRING006 = "1"
  219.     If (U_Expert == "1") STRING006 = "0"
  220.     If (STRING006 == "0") STRING007 = "NO!"
  221.     If (STRING006 == "1") STRING007 = "YEP"
  222.     AnsiPos 71, 7
  223.     Print STRING007
  224.     U_Expert = STRING006
  225.     Goto LABEL001
  226.     End
  227.     :LABEL015
  228.     If (STRING006 == "0") STRING007 = "NO!"
  229.     If (STRING006 == "1") STRING007 = "YEP"
  230.     Return
  231.     :LABEL016
  232.     Cls
  233.     FClose 2
  234.     STRING011 = "@X0FL@X0BC@X03/@X08PPE By A@X03R@X0Be@X0FS"
  235.     Print STRING011
  236.     Newline
  237.     DispText 273, 256
  238.     PutUser
  239.     Newline
  240.     Wait
  241.  
  242. ;------------------------------------------------------------------------------
  243. ;
  244. ; Usage report (before postprocessing)
  245. ;
  246. ; ■ Statements used :
  247. ;
  248. ;    12      End
  249. ;    2       Cls
  250. ;    1       Wait
  251. ;    25      Goto 
  252. ;    71      Let 
  253. ;    29      Print 
  254. ;    39      If 
  255. ;    1       DispFile 
  256. ;    1       FClose 
  257. ;    1       GetUser
  258. ;    1       PutUser
  259. ;    5       InputStr 
  260. ;    6       Gosub 
  261. ;    1       Return
  262. ;    2       Newline
  263. ;    1       DispText 
  264. ;    34      AnsiPos 
  265. ;
  266. ;
  267. ; ■ Functions used :
  268. ;
  269. ;    11      +
  270. ;    38      ==
  271. ;    1       !
  272. ;    5       Len(
  273. ;    1       Lower()
  274. ;    5       Space()
  275. ;    1       Inkey()
  276. ;    1       PPEPath()
  277. ;
  278. ;------------------------------------------------------------------------------
  279. ;
  280. ; Analysis flags : WH
  281. ;
  282. ; W - Write user ■ 5
  283. ;     Program writes a user record. Although this may be normal for a
  284. ;     User Editor, it may also be a way to modify an account level.
  285. ;     ■ Search for : PUTUSER
  286. ;
  287. ; H - Read Password or Password History ■ 5
  288. ;     Program is reading the user's password or last password history
  289. ;     This may be ok for a password manager, but it is very suspect. Check!
  290. ;     ■ Search for : U_PWDHIST, U_PWD
  291. ;
  292. ;------------------------------------------------------------------------------
  293. ;
  294. ; Postprocessing report
  295. ;
  296. ;    0       For/Next
  297. ;    0       While/EndWhile
  298. ;    0       If/Then or If/Then/Else
  299. ;    0       Select Case
  300. ;
  301. ;------------------------------------------------------------------------------
  302. ;                 AEGiS Corp - Break the routines, code against the machines!
  303. ;------------------------------------------------------------------------------
  304.