home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1994 #1 / monster.zip / monster / PCBOARD / PRFL100.ZIP / SETUP.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1994-03-22  |  12KB  |  451 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.     String   STRING001
  23.     String   STRING002
  24.     String   STRING003
  25.     String   STRING004
  26.     String   STRING005
  27.     String   STRING006
  28.     String   STRING007
  29.     String   STRING008
  30.     String   STRING009
  31.     String   STRING010
  32.     String   STRING011
  33.     String   STRING012
  34.     String   STRING013
  35.     String   STRING014
  36.     String   STRING015
  37.     String   STRING016
  38.     String   STRING017
  39.     String   STRING018
  40.     String   STRING019
  41.     String   STRING020
  42.     String   STRING021
  43.     String   STRING022
  44.     String   STRING023
  45.     String   STRING024
  46.     String   STRING025
  47.     String   STRING026
  48.     String   STRING027
  49.     String   STRING028
  50.     String   STRING029
  51.     String   STRING030
  52.     String   STRING031
  53.     String   STRING032
  54.     String   STRING033
  55.     String   STRING034
  56.  
  57. ;------------------------------------------------------------------------------
  58.  
  59.     INTEGER003 = 0
  60.     GetUser
  61.     STRING006 = Left(U_Name(), 25)
  62.     STRING014 = U_Name()
  63.     Tokenize STRING014
  64.     INTEGER002 = Len(GetToken()) + 1
  65.     INTEGER001 = Len(STRING014)
  66.     INTEGER001 = INTEGER001 - INTEGER002
  67.     STRING015 = U_RecNum(STRING014)
  68.     If (STRING015 == -1) Then
  69.         Goto LABEL021
  70.     Endif
  71.     STRING005 = Left(Right(STRING014, INTEGER001), 1)
  72.     FOpen 1, PPEPath() + "\INDEX-" + STRING005, 2, 0
  73.     :LABEL001
  74.     FGet 1, STRING011
  75.     FGet 1, STRING012
  76.     FGet 1, STRING013
  77.     INTEGER001 = Len(STRING014)
  78.     If (Upper(Left(STRING011, INTEGER001)) == STRING014) Then
  79.         FClose 1
  80.     ElseIf (STRING011 == "") Then
  81.         STRING002 = "False"
  82.         If (INTEGER003 == 0) Then
  83.             Frewind 1
  84.             FPutLn 1, "Dummy Info"
  85.             FPutLn 1, ";"
  86.             FPutLn 1, ";"
  87.         Else
  88.             STRING011 = ""
  89.             STRING012 = ""
  90.             STRING013 = ""
  91.             FClose 1
  92.         Endif
  93.     Else
  94.         STRING007 = Upper(Left(STRING011, 25))
  95.         INTEGER003 = INTEGER003 + 1
  96.         Goto LABEL001
  97.     Endif
  98.     Gosub LABEL022
  99.     :LABEL002
  100.     Cls
  101.     STRING001 = ""
  102.     PrintLn "@X7F┌─────────────────────────────────────────────────────────────────────────────@X70┐@X07"
  103.     PrintLn "@X7F│ @X70@SYSDATE:8@    @X75C A L L E R   P R O F I L E   I N F O R M A T I O N     @X70" + String(Time()) + "@POS:79@│@X07"
  104.     PrintLn "@X7F└@X70─────────────────────────────────────────────────────────────────────────────┘@X07"
  105.     PrintLn "@X70┌─────────────────────────────────────────────────────────────────────────────@X7F┐@X07"
  106.     PrintLn "@X70│ @X71(@X74A@X71) Age                           (@X74F@X71) Favorite Foods                        @X7F│@X07"
  107.     PrintLn "@X70│ @X71(@X74B@X71) BBS Name                      (@X74G@X71) General Info 1                        @X7F│@X07"
  108.     PrintLn "@X70│ @X71(@X74C@X71) Computer Phone Number         (@X741@X71) Hobbies/Interests                     @X7F│@X07"
  109.     PrintLn "@X70│ @X71(@X74D@X71) Home or voice phone           (@X74I@X71) Instrument Played                     @X7F│@X07"
  110.     PrintLn "@X70│ @X71(@X74E@X71) Alias(s)                      (@X74J@X71) Physical Description                  @X7F│@X07"
  111.     PrintLn "@X70│                                                                             @X7F│@X07"
  112.     PrintLn "@X70│ @X71(@X74K@X71) Favorite Movie                (@X74X@X71) Sex                                   @X7F│@X07"
  113.     PrintLn "@X70│ @X71(@X74L@X71) Favorite TV Show              (@X74Y@X71) Summary                               @X7F│@X07"
  114.     PrintLn "@X70│ @X71(@X74M@X71) Marital Status                                                          @X7F│@X07"
  115.     PrintLn "@X70│ @X71(@X74N@X71) Favorite Sport(s)             @X7F┌───────────────────────────────────────@X70┐@X70 @X7F│@X07"
  116.     PrintLn "@X70│ @X71(@X74O@X71) Favorite Music                @X7F│ @X71Name: @X74" + Left(U_Name(), 20), +"@POS:77@@X70│@X70 @X7F│@X07"
  117.     PrintLn "@X70│ @X71(@X74P@X71) General Info 2                @X7F└@X70───────────────────────────────────────┘@X70 @X7F│@X07"
  118.     PrintLn "@X70└@X7F─────────────────────────────────────────────────────────────────────────────┘@X07"
  119.     InputStr "(@X0EV@X0F)iew Current Profile,(@X0ES@X0F)ave Current Info,(@X0EQ@X0F)uit, Caller Profile Command", STRING001, 15, 1, "ABCDEFGIJKLMNOPQSVXY1", 2 + 4 + 8 + 128 + 32
  120.     Select Case (STRING001)
  121.         Case "A"
  122.             STRING008 = 3
  123.             STRING009 = "Your current Age?"
  124.             Goto LABEL003
  125.         Case "B"
  126.             STRING008 = 26
  127.             STRING009 = "Name of your BBS?"
  128.             Goto LABEL004
  129.         Case "C"
  130.             Goto LABEL018
  131.         Case "D"
  132.             Goto LABEL019
  133.         Case "E"
  134.             Goto LABEL020
  135.         Case "F"
  136.             STRING008 = 30
  137.             STRING009 = "Your Favorite Food?"
  138.             Goto LABEL005
  139.         Case "G"
  140.             STRING008 = 70
  141.             STRING009 = "General Info about yourself?"
  142.             Goto LABEL006
  143.         Case "1"
  144.             STRING008 = 65
  145.             STRING009 = "Your favorite Hobbies?"
  146.             Goto LABEL007
  147.         Case "I"
  148.             STRING008 = 20
  149.             STRING009 = "Instrument played?"
  150.             Goto LABEL008
  151.         Case "J"
  152.             STRING008 = 55
  153.             STRING009 = "Physical Description?"
  154.             Goto LABEL009
  155.         Case "K"
  156.             STRING008 = 25
  157.             STRING009 = "Favorite Movie(s)?"
  158.             Goto LABEL010
  159.         Case "L"
  160.             STRING008 = 25
  161.             STRING009 = "Favorite T.V Show(s)?"
  162.             Goto LABEL011
  163.         Case "M"
  164.             STRING008 = 25
  165.             STRING009 = "Current Marital Status?"
  166.             Goto LABEL012
  167.         Case "N"
  168.             STRING008 = 25
  169.             STRING009 = "Favorite Sport(s)?"
  170.             Goto LABEL013
  171.         Case "O"
  172.             STRING008 = 20
  173.             STRING009 = "Favorite Music?"
  174.             Goto LABEL014
  175.         Case "P"
  176.             STRING008 = 80
  177.             STRING009 = "More General Info?"
  178.             Goto LABEL015
  179.         Case "V"
  180.             Goto LABEL023
  181.         Case "X"
  182.             STRING008 = 1
  183.             STRING009 = "Enter your Sex (M)ale/(F)emale?"
  184.             Goto LABEL016
  185.         Case "Y"
  186.             STRING008 = 132
  187.             STRING009 = "Your Summary?"
  188.             Goto LABEL017
  189.         Case "Q"
  190.             End
  191.         Case "S"
  192.             Goto LABEL024
  193.         Case ""
  194.             Goto LABEL025
  195.             Goto LABEL002
  196.     End Select
  197.     :LABEL003
  198.     If (Exist(PPEPath() + "Setup_A")) DispFile PPEPath() + "Setup_A", 4 + 2 + 1
  199.     InputStr STRING009, STRING017, 14, STRING008, Mask_Ascii(), 2 + 4 + 8 + 128
  200.     If ("" == "") Goto LABEL002
  201.     Goto LABEL025
  202.     :LABEL004
  203.     If (Exist(PPEPath() + "Setup_B")) DispFile PPEPath() + "Setup_B", 4 + 2 + 1
  204.     InputStr STRING009, STRING023, 14, STRING008, Mask_Ascii(), 2 + 4 + 128
  205.     If ("" == "") Goto LABEL002
  206.     Goto LABEL025
  207.     :LABEL005
  208.     If (Exist(PPEPath() + "Setup_F")) DispFile PPEPath() + "Setup_F", 4 + 2 + 1
  209.     InputStr STRING009, STRING028, 14, STRING008, Mask_Ascii(), 2 + 4 + 128
  210.     If ("" == "") Goto LABEL002
  211.     Goto LABEL025
  212.     :LABEL006
  213.     If (Exist(PPEPath() + "Setup_G")) DispFile PPEPath() + "Setup_G", 4 + 2 + 1
  214.     InputStr STRING009, STRING031, 14, STRING008, Mask_Ascii(), 2 + 4 + 128
  215.     If ("" == "") Goto LABEL002
  216.     Goto LABEL025
  217.     :LABEL007
  218.     If (Exist(PPEPath() + "Setup_H")) DispFile PPEPath() + "Setup_H", 4 + 2 + 1
  219.     InputStr STRING009, STRING030, 14, STRING008, Mask_Ascii(), 2 + 4 + 128
  220.     If ("" == "") Goto LABEL002
  221.     Goto LABEL025
  222.     :LABEL008
  223.     If (Exist(PPEPath() + "Setup_I")) DispFile PPEPath() + "Setup_I", 4 + 2 + 1
  224.     InputStr STRING009, STRING027, 14, STRING008, Mask_Ascii(), 2 + 4 + 128
  225.     If ("" == "") Goto LABEL002
  226.     Goto LABEL025
  227.     :LABEL009
  228.     If (Exist(PPEPath() + "Setup_J")) DispFile PPEPath() + "Setup_J", 4 + 2 + 1
  229.     InputStr STRING009, STRING021, 14, STRING008, Mask_Ascii(), 2 + 4 + 128
  230.     If ("" == "") Goto LABEL002
  231.     Goto LABEL025
  232.     :LABEL010
  233.     If (Exist(PPEPath() + "Setup_K")) DispFile PPEPath() + "Setup_K", 4 + 2 + 1
  234.     InputStr STRING009, STRING024, 14, STRING008, Mask_Ascii(), 2 + 4 + 128
  235.     If ("" == "") Goto LABEL002
  236.     Goto LABEL025
  237.     :LABEL011
  238.     If (Exist(PPEPath() + "Setup_L")) DispFile PPEPath() + "Setup_L", 4 + 2 + 1
  239.     InputStr STRING009, STRING025, 14, STRING008, Mask_Ascii(), 2 + 4 + 128
  240.     If ("" == "") Goto LABEL002
  241.     Goto LABEL025
  242.     :LABEL012
  243.     If (Exist(PPEPath() + "Setup_M")) DispFile PPEPath() + "Setup_M", 4 + 2 + 1
  244.     InputStr STRING009, STRING018, 14, STRING008, Mask_Ascii(), 2 + 4 + 128
  245.     If ("" == "") Goto LABEL002
  246.     Goto LABEL025
  247.     :LABEL013
  248.     If (Exist(PPEPath() + "Setup_N")) DispFile PPEPath() + "Setup_N", 4 + 2 + 1
  249.     InputStr STRING009, STRING029, 14, STRING008, Mask_Ascii(), 2 + 4 + 128
  250.     If ("" == "") Goto LABEL002
  251.     Goto LABEL025
  252.     :LABEL014
  253.     If (Exist(PPEPath() + "Setup_O")) DispFile PPEPath() + "Setup_O", 4 + 2 + 1
  254.     InputStr STRING009, STRING026, 14, STRING008, Mask_Ascii(), 2 + 4 + 128
  255.     If ("" == "") Goto LABEL002
  256.     Goto LABEL025
  257.     :LABEL015
  258.     If (Exist(PPEPath() + "Setup_P")) DispFile PPEPath() + "Setup_P", 4 + 2 + 1
  259.     InputStr STRING009, STRING032, 14, STRING008, Mask_Ascii(), 2 + 4 + 128
  260.     If ("" == "") Goto LABEL002
  261.     Goto LABEL025
  262.     :LABEL016
  263.     If (Exist(PPEPath() + "Setup_X")) DispFile PPEPath() + "Setup_X", 4 + 2 + 1
  264.     InputStr STRING009, STRING016, 14, STRING008, Mask_Ascii(), 2 + 4 + 8 + 128
  265.     If ("" == "") Goto LABEL002
  266.     Goto LABEL025
  267.     :LABEL017
  268.     If (Exist(PPEPath() + "Setup_Y")) DispFile PPEPath() + "Setup_Y", 4 + 2 + 1
  269.     InputStr STRING009, STRING033, 14, STRING008, Mask_Ascii(), 2 + 4 + 128
  270.     If ("" == "") Goto LABEL002
  271.     Goto LABEL025
  272.     :LABEL018
  273.     If (Exist(PPEPath() + "SETUP_C")) DispFile PPEPath() + "SETUP_C", 4 + 2 + 1
  274.     PromptStr 113, STRING022, 12, Mask_Num() + "-()" + Chr(32), 2 + 4 + 8 + 128
  275.     If ("" == "") Goto LABEL002
  276.     Goto LABEL025
  277.     :LABEL019
  278.     If (Exist(PPEPath() + "SETUP_D")) DispFile PPEPath() + "SETUP_D", 4 + 2 + 1
  279.     PromptStr 114, STRING020, 12, Mask_Num() + "-()" + Chr(32), 2 + 4 + 8 + 128
  280.     If ("" == "") Goto LABEL002
  281.     Goto LABEL025
  282.     :LABEL020
  283.     If (Exist(PPEPath() + "SETUP_E")) DispFile PPEPath() + "SETUP_E", 4 + 2 + 1
  284.     PromptStr 690, STRING019, 25, Mask_Alpha() + Mask_Num() + Mask_Ascii(), 2 + 4 + 128
  285.     If ("" == "") Goto LABEL002
  286.     Goto LABEL025
  287.     :LABEL021
  288.     PrintLn "You must first be upgraded or sign up on TSCNet to use this function."
  289.     End
  290.     :LABEL022
  291.     STRING016 = Right(Left(STRING011, 27), 1)
  292.     STRING017 = Right(Left(STRING011, 30), 2)
  293.     STRING018 = Right(Left(STRING011, 56), 25)
  294.     STRING019 = Right(Left(STRING011, 82), 25)
  295.     STRING020 = Right(Left(STRING011, 95), 12)
  296.     STRING021 = Right(Left(STRING011, 151), 55)
  297.     STRING022 = Right(Left(STRING011, 164), 12)
  298.     STRING023 = Right(Left(STRING011, 191), 26)
  299.     STRING024 = Right(Left(STRING011, 217), 25)
  300.     STRING025 = Right(Left(STRING011, 243), 25)
  301.     STRING026 = Right(Left(STRING012, 21), 20)
  302.     STRING027 = Right(Left(STRING012, 47), 20)
  303.     STRING028 = Right(Left(STRING012, 79), 30)
  304.     STRING029 = Right(Left(STRING012, 106), 25)
  305.     STRING030 = Right(Left(STRING012, 173), 65)
  306.     STRING031 = Right(Left(STRING012, 245), 70)
  307.     STRING032 = Right(Left(STRING013, 81), 80)
  308.     STRING033 = Right(STRING013, 132)
  309.     Return
  310.     End
  311.     :LABEL023
  312.     STRING004 = Mixed(STRING014)
  313.     STRING034 = "E"
  314.     PrintLn "Ok, here's the info for@X0D ", STRING004, "@X0C..."
  315.     Newline
  316.     PrintLn "@X0AReal Name@X0F:@X0E ", Left(STRING004, 31), "@X0ASex@X0F:@X0E ", STRING016, "  @X0AAge@X0F:@X0E ", STRING017
  317.     PrintLn "@X0AMarital Status@X0F:@X0E ", Left(STRING018, 26), "@X0ALast Date on@X0F:@X0E ", U_LDate()
  318.     PrintLn "@X0AAliases@X0F:@X0E ", Left(STRING019, 33), "@X0ALast Time on@X0F:@X0E ", U_LTime()
  319.     PrintLn "@X0ACity@X0F/@X0AState@X0F:@X0E ", U_City
  320.     PrintLn "@X0AVoice Phone@X0E#@X0F:@X0E ", STRING020
  321.     PrintLn "@X0APhysical Description@X0F: ", STRING021
  322.     PrintLn "@X0AComp. Phone @X0E#@X0F: ", Left(STRING022, 20), "@X0ABBS Name@X0F:@X0E ", STRING023
  323.     PrintLn "@X0AFavorite Movie@X0F:@X0E", Left(STRING024, 20), "@X0AFavorite TV Show@X0F:@X0E", STRING025
  324.     PrintLn "@X0AFavorite Music@X0F:@X0E", Left(STRING026, 20), "@X0AInstrument Played@X0F:@X0E", STRING027
  325.     PrintLn "@X0AFavorite Foods@X0F:@X0E", STRING028
  326.     PrintLn "@X0AFavorite Sport@X0F:@X0E", STRING029
  327.     PrintLn "@X0AOther Hobbies@X0F/@X0AInterests@X0F:@X0E ", STRING030
  328.     PrintLn "@X0AGeneral Info@X0F:@X0E ", STRING031
  329.     PrintLn "@X0E", STRING032
  330.     PrintLn "@X0ASummary@X0F:@X0E ", Left(STRING033, 130)
  331.     InputStr "(@X0EE@X0F)dit Current Profile, (@X0EQ@X0F)uit, User Profile Command", STRING034, 15, 1, "EQ", 2 + 4 + 8 + 128 + 32
  332.     If (STRING034 == "E") Then
  333.         Goto LABEL002
  334.     Else
  335.         Goto LABEL024
  336.         End
  337.     Endif
  338.     :LABEL024
  339.     STRING011 = STRING006 + ";" + STRING016 + ";" + STRING017 + ";" + Left(STRING018, 25) + ";" + Left(STRING019, 25) + ";" + Left(STRING020, 12) + ";" + Left(STRING021, 55) + ";" + Left(STRING022, 12) + ";" + Left(STRING023, 26) + ";" + Left(STRING024, 25) + ";" + Left(STRING025, 25) + ";"
  340.     STRING012 = ";" + Left(STRING026, 25) + ";" + Left(STRING027, 21) + ";" + Left(STRING028, 31) + ";" + Left(STRING029, 26) + ";" + Left(STRING030, 66) + ";" + Left(STRING031, 70) + ";"
  341.     STRING013 = ";" + Left(STRING032, 122) + ";" + Left(STRING033, 132) + ";"
  342.     If (STRING002 == "False") Then
  343.         Goto LABEL026
  344.         End
  345.     Else
  346.         Goto LABEL027
  347.     Endif
  348.     :LABEL025
  349.     End
  350.     :LABEL026
  351.     PrintLn "Adding your Info to our Database now."
  352.     FAppend 1, PPEPath() + "\INDEX-" + STRING005, 2, 0
  353.     FPutLn 1, STRING011
  354.     FPutLn 1, STRING012
  355.     FPutLn 1, STRING013
  356.     FClose 1
  357.     FAppend 2, PPEPath() + "\LIST.DAT", 2, 0
  358.     FPutLn 2, Mixed(U_Name())
  359.     FClose 2
  360.     End
  361.     :LABEL027
  362.     PrintLn "Updating your info!"
  363.     FOpen 1, PPEPath() + "\INDEX-" + STRING005, 2, 0
  364.     :LABEL028
  365.     FGet 1, STRING003
  366.     FGet 1, STRING010
  367.     FGet 1, STRING010
  368.     If (Upper(Left(STRING003, 25)) == STRING007) Then
  369.         FPutLn 1, STRING011
  370.         FPutLn 1, STRING012
  371.         FPut 1, STRING013
  372.         FClose 1
  373.         End
  374.     Else
  375.         Goto LABEL028
  376.     Endif
  377.     End
  378.  
  379. ;------------------------------------------------------------------------------
  380. ;
  381. ; Usage report (before postprocessing)
  382. ;
  383. ; ■ Statements used :
  384. ;
  385. ;    9       End
  386. ;    1       Cls
  387. ;    121     Goto 
  388. ;    69      Let 
  389. ;    36      PrintLn 
  390. ;    65      If 
  391. ;    18      DispFile 
  392. ;    2       FOpen 
  393. ;    2       FAppend 
  394. ;    5       FClose 
  395. ;    6       FGet 
  396. ;    1       FPut 
  397. ;    9       FPutLn 
  398. ;    1       GetUser
  399. ;    17      InputStr 
  400. ;    1       Gosub 
  401. ;    1       Return
  402. ;    3       PromptStr 
  403. ;    1       Newline
  404. ;    1       Tokenize 
  405. ;    1       Frewind 
  406. ;
  407. ;
  408. ; ■ Functions used :
  409. ;
  410. ;    1       +
  411. ;    1       -
  412. ;    175     +
  413. ;    1       -
  414. ;    47      ==
  415. ;    29      !
  416. ;    3       Len(
  417. ;    3       Upper()
  418. ;    46      Left()
  419. ;    19      Right()
  420. ;    2       Chr()
  421. ;    1       Time()
  422. ;    4       U_Name()
  423. ;    1       U_LDate()
  424. ;    1       U_LTime()
  425. ;    1       String()
  426. ;    1       Mask_Alpha()
  427. ;    3       Mask_Num()
  428. ;    16      Mask_Ascii()
  429. ;    40      PPEPath()
  430. ;    1       GetToken()
  431. ;    18      Exist()
  432. ;    1       U_RecNum()
  433. ;    2       Mixed()
  434. ;
  435. ;------------------------------------------------------------------------------
  436. ;
  437. ; Analysis flags : No flag
  438. ;
  439. ;------------------------------------------------------------------------------
  440. ;
  441. ; Postprocessing report
  442. ;
  443. ;    0       For/Next
  444. ;    0       While/EndWhile
  445. ;    7       If/Then or If/Then/Else
  446. ;    1       Select Case
  447. ;
  448. ;------------------------------------------------------------------------------
  449. ;                 AEGiS Corp - Break the routines, code against the machines!
  450. ;------------------------------------------------------------------------------
  451.