home *** CD-ROM | disk | FTP | other *** search
/ Media Share 9 / MEDIASHARE_09.ISO / pcboard / seted10.zip / SETED.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1993-05-05  |  6KB  |  278 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.     String   STRING008
  20.     String   STRING009
  21.     String   STRING010
  22.     String   STRING011
  23.     String   STRING012
  24.     String   STRING013
  25.     String   STRING014
  26.     String   STRING015
  27.     String   STRING016
  28.  
  29. ;------------------------------------------------------------------------------
  30.  
  31.     STRING014 = " 1234567890qwertyuiopasdfghjklzxcvbnmQWERTYUIOPASDFGHJKLZXCVBNM"
  32.     STRING015 = "~!@#$%^&*()_+|\=-{}][:';<>.,?/1234567890qwertyuiopasdfghjklzxcvbnmQWERTYUIOPASDFGHJKLZXCVBNM"
  33.     GetUser
  34.     :LABEL001
  35.     Cls
  36.     PrintLn "SETED V1.0 Copyright 1993 By Ralph LoBianco"
  37.     PrintLn "@X0E Your User Settings "
  38.     PrintLn "@X0E1 @X0F- @X0BYour Password is                      : @X0F", U_Pwd
  39.     PrintLn "@X0E2 @X0F- @X0BYour City is                          : @X0F", U_City
  40.     PrintLn "@X0E3 @X0F- @X0BBusiness/Data Phone #                 : @X0F", U_BDPhone
  41.     PrintLn "@X0E4 @X0F- @X0BHome/Voice Phone #                    : @X0F", U_HVPhone
  42.     PrintLn "@X0E5 @X0F- @X0BBrand Of CPU                          : @X0F", U_Cmnt1
  43.     STRING010 = U_Cls
  44.     Gosub LABEL028
  45.     PrintLn "@X0E6 @X0F- @X0BClear Screen Between Messages         : @X0F", STRING011
  46.     STRING010 = U_Scroll
  47.     Gosub LABEL028
  48.     PrintLn "@X0E7 @X0F- @X0BScroll Multi Screen Messages          : @X0F", STRING011
  49.     STRING010 = U_LongHDR
  50.     Gosub LABEL028
  51.     PrintLn "@X0E8 @X0F- @X0BUse Long Headers when Reading Messages: @X0F", STRING011
  52.     If ((U_FSE == 0) && (U_FSEP == 0)) STRING009 = "N"
  53.     If ((U_FSE == 1) && (U_FSEP == 0)) STRING009 = "Y"
  54.     If ((U_FSEP == 1) && (U_FSE == 0)) STRING009 = "A"
  55.     PrintLn "@X0E9 @X0F- @X0BFull Screen Editor                    : @X0F", STRING009
  56.     STRING010 = U_Def79
  57.     Gosub LABEL028
  58.     PrintLn "@X0E10@X0F- @X0BSet Editor Workspace default to 79 Col: @X0F", STRING011
  59.     STRING016 = 10
  60.     If (Psa(1) == 1) Gosub LABEL002
  61.     If (Psa(3) == 1) Gosub LABEL003
  62.     Goto LABEL004
  63.     :LABEL002
  64.     PrintLn "@X0E11@X0F- @X0BAlias Name                            : @X0F", U_Alias
  65.     STRING016 = 11
  66.     PrintLn " "
  67.     Return
  68.     :LABEL003
  69.     PrintLn "@X0E Address Information"
  70.     PrintLn "@X0E", STRING016 + 1, "@X0F- @X0BStreet (1 of 2): @X0F", U_Addr(0)
  71.     PrintLn "@X0E", STRING016 + 2, "@X0F- @X0BStreet (2 of 2): @X0F", U_Addr(1)
  72.     PrintLn "@X0E", STRING016 + 3, "@X0F- @X0BCity           : @X0F", U_Addr(2)
  73.     PrintLn "@X0E", STRING016 + 4, "@X0F- @X0BProvince/State : @X0F", U_Addr(3)
  74.     PrintLn "@X0E", STRING016 + 5, "@X0F- @X0BPostal/Zip Code: @X0F", U_Addr(4)
  75.     PrintLn "@X0E", STRING016 + 6, "@X0F- @X0BCountry        : @X0F", U_Addr(5)
  76.     STRING016 = STRING016 + 6
  77.     Return
  78.     :LABEL004
  79.     InputStr "                                       EDIT 1 - " + STRING016 + " or Q to Quit?", STRING008, 14, 2, "1234567890Q", 10
  80.     PrintLn 
  81.     If (STRING008 == "") Goto LABEL001
  82.     If (STRING008 == "1") Goto LABEL007
  83.     If (STRING008 == "2") Goto LABEL009
  84.     If (STRING008 == "3") Goto LABEL010
  85.     If (STRING008 == "4") Goto LABEL011
  86.     If (STRING008 == "5") Goto LABEL012
  87.     If (STRING008 == "6") Goto LABEL013
  88.     If (STRING008 == "7") Goto LABEL014
  89.     If (STRING008 == "8") Goto LABEL015
  90.     If (STRING008 == "9") Goto LABEL016
  91.     If (STRING008 == "10") Goto LABEL020
  92.     If (Psa(1) == 0) Goto LABEL005
  93.     If (STRING008 == "11") Goto LABEL021
  94.     :LABEL005
  95.     If (Psa(3) == 0) Goto LABEL006
  96.     If (STRING008 == String(STRING016 - 5)) Goto LABEL022
  97.     If (STRING008 == String(STRING016 - 4)) Goto LABEL023
  98.     If (STRING008 == String(STRING016 - 3)) Goto LABEL024
  99.     If (STRING008 == String(STRING016 - 2)) Goto LABEL025
  100.     If (STRING008 == String(STRING016 - 1)) Goto LABEL026
  101.     If (STRING008 == String(STRING016 - 0)) Goto LABEL027
  102.     :LABEL006
  103.     If (STRING008 == "Q") Goto LABEL030
  104.     :LABEL007
  105.     InputStr "@X0AEnter New Password Now :", STRING012, 14, 12, STRING015, 10
  106.     PrintLn 
  107.     If (STRING012 == "") Goto LABEL001
  108.     InputStr "@X0AEnter Again To verify :", STRING013, 14, 12, STRING015, 10
  109.     PrintLn 
  110.     If (STRING012 <> STRING013) Goto LABEL008
  111.     U_Pwd = STRING013
  112.     Goto LABEL001
  113.     :LABEL008
  114.     PrintLn "Passwords Don't Match Try Again..."
  115.     PrintLn 
  116.     Goto LABEL007
  117.     :LABEL009
  118.     InputStr "@X0AEnter Your City : ", U_City, 14, 12, STRING014, 10
  119.     PrintLn 
  120.     Goto LABEL001
  121.     :LABEL010
  122.     InputStr "@X0AEnter Your Data Phone Number : ", U_BDPhone, 14, 12, "1234567890-()", 10
  123.     PrintLn 
  124.     Goto LABEL001
  125.     :LABEL011
  126.     InputStr "@X0AEnter Your Home/Voice Phone Number : ", U_HVPhone, 14, 12, "1234567890-()", 10
  127.     PrintLn 
  128.     Goto LABEL001
  129.     :LABEL012
  130.     InputStr "@X0AEnter Your Computer Type : ", U_Cmnt1, 14, 12, STRING014, 10
  131.     PrintLn 
  132.     Goto LABEL001
  133.     :LABEL013
  134.     STRING010 = U_Cls
  135.     Gosub LABEL028
  136.     InputYN "@X0AClear Screen Between Messages", STRING011, 14
  137.     PrintLn 
  138.     Gosub LABEL029
  139.     U_Cls = STRING010
  140.     Goto LABEL001
  141.     :LABEL014
  142.     STRING010 = U_Scroll
  143.     Gosub LABEL028
  144.     InputYN "@X0AScroll Multi Screen Messages", STRING011, 14
  145.     PrintLn 
  146.     Gosub LABEL029
  147.     U_Scroll = STRING010
  148.     Goto LABEL001
  149.     :LABEL015
  150.     STRING010 = U_LongHDR
  151.     Gosub LABEL028
  152.     InputYN "@X0AUse Long headers when reading messages", STRING011, 14
  153.     PrintLn 
  154.     Gosub LABEL029
  155.     U_LongHDR = STRING010
  156.     Goto LABEL001
  157.     :LABEL016
  158.     InputStr "@X0AFull Screen Editor (Yes/No/Ask)", STRING009, 14, 1, "YNA", 10
  159.     If (STRING009 == "Y") Gosub LABEL017
  160.     If (STRING009 == "N") Gosub LABEL018
  161.     If (STRING009 == "A") Gosub LABEL019
  162.     PrintLn 
  163.     Goto LABEL001
  164.     :LABEL017
  165.     U_FSE = 1
  166.     U_FSEP = 0
  167.     Return
  168.     :LABEL018
  169.     U_FSE = 0
  170.     U_FSEP = 0
  171.     Return
  172.     :LABEL019
  173.     U_FSE = 0
  174.     U_FSEP = 1
  175.     Return
  176.     :LABEL020
  177.     STRING010 = U_Def79
  178.     Gosub LABEL028
  179.     InputYN "@X0ASet Editor workspace default to 79 columns", STRING011, 14
  180.     PrintLn 
  181.     Gosub LABEL029
  182.     U_Def79 = STRING010
  183.     Goto LABEL001
  184.     :LABEL021
  185.     InputStr "@X0AAlias Name", U_Alias, 14, 20, STRING014, 10
  186.     PrintLn 
  187.     Goto LABEL001
  188.     :LABEL022
  189.     InputStr "@X0AStreet (1 of 2):", U_Addr(0), 14, 30, STRING014, 10
  190.     PrintLn 
  191.     Goto LABEL001
  192.     :LABEL023
  193.     InputStr "@X0AStreet (2 of 2):", U_Addr(1), 14, 30, STRING014, 10
  194.     PrintLn 
  195.     Goto LABEL001
  196.     :LABEL024
  197.     InputStr "@X0ACity:", U_Addr(2), 14, 30, STRING014, 10
  198.     PrintLn 
  199.     Goto LABEL001
  200.     :LABEL025
  201.     InputStr "@X0AProvince/State:", U_Addr(3), 14, 30, STRING014, 10
  202.     PrintLn 
  203.     Goto LABEL001
  204.     :LABEL026
  205.     InputStr "@X0APostal/Zip Code:", U_Addr(4), 14, 12, "1234567890-", 10
  206.     PrintLn 
  207.     Goto LABEL001
  208.     :LABEL027
  209.     InputStr "@X0ACountry:", U_Addr(5), 14, 10, STRING014, 10
  210.     PrintLn 
  211.     Goto LABEL001
  212.     :LABEL028
  213.     If (STRING010 == 1) STRING011 = "Y"
  214.     If (STRING010 == 0) STRING011 = "N"
  215.     Return
  216.     :LABEL029
  217.     If (STRING011 == "Y") STRING010 = 1
  218.     If (STRING011 == "N") STRING010 = 0
  219.     Return
  220.     :LABEL030
  221.     PutUser
  222.  
  223. ;------------------------------------------------------------------------------
  224. ;
  225. ; Usage report (before postprocessing)
  226. ;
  227. ; ■ Statements used :
  228. ;
  229. ;    1       Cls
  230. ;    42      Goto 
  231. ;    31      Let 
  232. ;    42      PrintLn 
  233. ;    35      If 
  234. ;    1       GetUser
  235. ;    1       PutUser
  236. ;    15      InputStr 
  237. ;    4       InputYN 
  238. ;    17      Gosub 
  239. ;    7       Return
  240. ;
  241. ;
  242. ; ■ Functions used :
  243. ;
  244. ;    9       +
  245. ;    6       -
  246. ;    37      ==
  247. ;    1       <>
  248. ;    3       &&
  249. ;    6       String()
  250. ;    4       Psa()
  251. ;
  252. ;------------------------------------------------------------------------------
  253. ;
  254. ; Analysis flags : WH
  255. ;
  256. ; W - Write user ■ 5
  257. ;     Program writes a user record. Although this may be normal for a
  258. ;     User Editor, it may also be a way to modify an account level.
  259. ;     ■ Search for : PUTUSER
  260. ;
  261. ; H - Read Password or Password History ■ 5
  262. ;     Program is reading the user's password or last password history
  263. ;     This may be ok for a password manager, but it is very suspect. Check!
  264. ;     ■ Search for : U_PWDHIST, U_PWD
  265. ;
  266. ;------------------------------------------------------------------------------
  267. ;
  268. ; Postprocessing report
  269. ;
  270. ;    0       For/Next
  271. ;    0       While/EndWhile
  272. ;    0       If/Then or If/Then/Else
  273. ;    0       Select Case
  274. ;
  275. ;------------------------------------------------------------------------------
  276. ;                 AEGiS Corp - Break the routines, code against the machines!
  277. ;------------------------------------------------------------------------------
  278.