home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1994 #1 / monster.zip / monster / PCBOARD / PRFL100.ZIP / PROFILE.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1994-03-22  |  5KB  |  238 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.     String   STRING001
  22.     String   STRING002
  23.     String   STRING003
  24.     String   STRING004
  25.     String   STRING005
  26.     String   STRING006
  27.     String   STRING007
  28.     String   STRING008
  29.     String   STRING009
  30.     String   STRING010
  31.     String   STRING011
  32.     String   STRING012
  33.     String   STRING013
  34.     String   STRING014
  35.     String   STRING015
  36.     String   STRING016
  37.     String   STRING017
  38.     String   STRING018
  39.     String   STRING019
  40.     String   STRING020
  41.     String   STRING021
  42.     String   STRING022
  43.     String   STRING023
  44.     String   STRING024
  45.     String   STRING025
  46.     String   STRING026
  47.     String   STRING027
  48.  
  49. ;------------------------------------------------------------------------------
  50.  
  51.     STRING001 = TokenStr()
  52.     Tokenize STRING001
  53.     Select Case (Upper(STRING001))
  54.         Case "H", "HELP"
  55.             Goto LABEL004
  56.         Case "SET"
  57.             Goto LABEL007
  58.         Case ""
  59.             Goto LABEL003
  60.         Case "L", "LIST"
  61.             Goto LABEL008
  62.             STRING001 = GetToken() + " " + GetToken()
  63.             Tokenize STRING001
  64.             INTEGER002 = Len(GetToken()) + 1
  65.             INTEGER001 = Len(STRING001)
  66.             INTEGER001 = INTEGER001 - INTEGER002
  67.             STRING005 = U_RecNum(STRING001)
  68.             If (STRING005 == -1) Then
  69.                 Goto LABEL005
  70.             Endif
  71.             FOpen 1, PPEPath() + "\INDEX-" + Left(Right(STRING001, INTEGER001), 1), 2, 0
  72.             :LABEL001
  73.             FGet 1, STRING002
  74.             FGet 1, STRING003
  75.             FGet 1, STRING004
  76.             INTEGER001 = Len(STRING001)
  77.         Case STRING001
  78.             FClose 1
  79.             Goto LABEL002
  80.         Case ""
  81.             Goto LABEL006
  82.         Case Else
  83.             Goto LABEL001
  84.     End Select
  85.     :LABEL002
  86.     STRING006 = Mixed(STRING001)
  87.     FClose 1
  88.     GetAltUser STRING005
  89.     Gosub LABEL010
  90.     PrintLn "@X0E***@X0FUNREGISTERED BBS@X0E***"
  91.     Newline
  92.     PrintLn "@X0COk, here's the info for@X0D ", STRING006, "@X0C..."
  93.     Newline
  94.     PrintLn "@X0AReal Name@X0F:@X0E ", Left(STRING006, 31), "@X0ASex@X0F:@X0E ", STRING010, "  @X0AAge@X0F:@X0E ", STRING011
  95.     PrintLn "@X0AMarital Status@X0F:@X0E ", Left(STRING012, 26), "@X0ALast Date on@X0F:@X0E ", U_LDate()
  96.     PrintLn "@X0AAliases@X0F:@X0E ", Left(STRING013, 33), "@X0ALast Time on@X0F:@X0E ", U_LTime()
  97.     PrintLn "@X0ACity@X0F/@X0AState@X0F:@X0E ", Mixed(U_City)
  98.     PrintLn "@X0AVoice Phone@X0E#@X0F:@X0E ", STRING014
  99.     PrintLn "@X0APhysical Description@X0F: ", STRING015
  100.     PrintLn "@X0AComp. Phone @X0E#@X0F: ", Left(STRING016, 22), "@X0ABBS Name@X0F:@X0E ", STRING017
  101.     PrintLn "@X0AFavorite Movie@X0F:@X0E", Left(STRING018, 22), "@X0AFavorite TV Show@X0F:@X0E", STRING019
  102.     PrintLn "@X0AFavorite Music@X0F:@X0E", Left(STRING020, 22), "@X0AInstrument Played@X0F:@X0E", STRING021
  103.     PrintLn "@X0AFavorite Foods@X0F:@X0E", STRING022
  104.     PrintLn "@X0AFavorite Sport@X0F:@X0E", STRING023
  105.     PrintLn "@X0AOther Hobbies@X0F/@X0AInterests@X0F:@X0E ", STRING024
  106.     PrintLn "@X0AGeneral Info@X0F:@X0E ", STRING025
  107.     PrintLn "@X0E", STRING026
  108.     PrintLn "@X0ASummary@X0F:@X0E ", Left(STRING027, 130)
  109.     End
  110.     :LABEL003
  111.     If (Exist(PPEPath() + PPEName() + ".HLP")) DispFile PPEPath() + PPEName() + ".HLP", 1
  112.     End
  113.     :LABEL004
  114.     If (Exist(PPEPath() + PPEName() + "2.HLP")) DispFile PPEPath() + PPEName() + "2.HLP", 1
  115.     End
  116.     :LABEL005
  117.     Newline
  118.     PrintLn "@X0BSorry but that user is not a current user on this BBS."
  119.     End
  120.     :LABEL006
  121.     Newline
  122.     PrintLn "@X0DSorry but that user has not filled out a Profile yet."
  123.     End
  124.     :LABEL007
  125.     Call PPEPath() + "Setup.PPE"
  126.     End
  127.     :LABEL008
  128.     Newline
  129.     PrintLn "Listing of Callers who have filled out there Profile."
  130.     PrintLn "──────────────────────────────────────────────────────────────────────────────"
  131.     FOpen 2, PPEPath() + "\LIST.DAT", 2, 0
  132.     :LABEL009
  133.     FGet 2, STRING007
  134.     FGet 2, STRING008
  135.     FGet 2, STRING009
  136.     PrintLn Left(STRING007, 25) + Left(STRING008, 25) + Left(STRING009, 25)
  137.     If ((STRING007 == "") || (STRING008 == "")) Then
  138.         End
  139.     Else
  140.         Goto LABEL009
  141.     Endif
  142.     End
  143.     :LABEL010
  144.     STRING010 = Right(Left(STRING002, 27), 1)
  145.     STRING011 = Right(Left(STRING002, 30), 2)
  146.     STRING012 = Right(Left(STRING002, 56), 25)
  147.     STRING013 = Right(Left(STRING002, 82), 25)
  148.     STRING014 = Right(Left(STRING002, 95), 12)
  149.     STRING015 = Right(Left(STRING002, 151), 55)
  150.     STRING016 = Right(Left(STRING002, 164), 12)
  151.     STRING017 = Right(Left(STRING002, 191), 26)
  152.     STRING018 = Right(Left(STRING002, 217), 25)
  153.     STRING019 = Right(Left(STRING002, 243), 25)
  154.     STRING020 = Right(Left(STRING003, 21), 20)
  155.     STRING021 = Right(Left(STRING003, 47), 20)
  156.     STRING022 = Right(Left(STRING003, 79), 30)
  157.     STRING023 = Right(Left(STRING003, 106), 25)
  158.     STRING024 = Right(Left(STRING003, 173), 65)
  159.     STRING025 = Right(Left(STRING003, 245), 70)
  160.     STRING026 = Right(Left(STRING004, 81), 80)
  161.     STRING027 = Right(STRING004, 132)
  162.     Return
  163.     End
  164.  
  165. ;------------------------------------------------------------------------------
  166. ;
  167. ; Usage report (before postprocessing)
  168. ;
  169. ; ■ Statements used :
  170. ;
  171. ;    9       End
  172. ;    24      Goto 
  173. ;    26      Let 
  174. ;    22      PrintLn 
  175. ;    10      If 
  176. ;    2       DispFile 
  177. ;    2       FOpen 
  178. ;    2       FClose 
  179. ;    6       FGet 
  180. ;    1       Gosub 
  181. ;    1       Return
  182. ;    5       Newline
  183. ;    2       Tokenize 
  184. ;    1       Call 
  185. ;    1       GetAltUser 
  186. ;
  187. ;
  188. ; ■ Functions used :
  189. ;
  190. ;    1       -
  191. ;    17      +
  192. ;    1       -
  193. ;    11      ==
  194. ;    8       !
  195. ;    3       ||
  196. ;    3       Len(
  197. ;    6       Upper()
  198. ;    29      Left()
  199. ;    19      Right()
  200. ;    1       U_LDate()
  201. ;    1       U_LTime()
  202. ;    7       PPEPath()
  203. ;    3       GetToken()
  204. ;    2       Exist()
  205. ;    1       TokenStr()
  206. ;    4       PPEName()
  207. ;    1       U_RecNum()
  208. ;    2       Mixed()
  209. ;
  210. ;------------------------------------------------------------------------------
  211. ;
  212. ; Analysis flags : RC
  213. ;
  214. ; R - Read user ■ 5
  215. ;     User records are read, this may signify that someone wants to get
  216. ;     various informations about a user (for example his password), but
  217. ;     this may also be normal for a program accessing user records (for
  218. ;     example a User Editor)
  219. ;     ■ Search for : GETALTUSER
  220. ;
  221. ; C - Call child PPE ■ 3
  222. ;     This is usually normal, but may be a tricky way to launch some
  223. ;     sysop-only commands.
  224. ;     ■ Search for : CALL
  225. ;
  226. ;------------------------------------------------------------------------------
  227. ;
  228. ; Postprocessing report
  229. ;
  230. ;    0       For/Next
  231. ;    0       While/EndWhile
  232. ;    2       If/Then or If/Then/Else
  233. ;    1       Select Case
  234. ;
  235. ;------------------------------------------------------------------------------
  236. ;                 AEGiS Corp - Break the routines, code against the machines!
  237. ;------------------------------------------------------------------------------
  238.