home *** CD-ROM | disk | FTP | other *** search
/ Beijing Paradise BBS Backup / PARADISE.ISO / software / BBSDOORW / OCCPS12.ZIP / OCCPS.PPE (.txt) < prev    next >
Encoding:
PCBoard Programming Language Executable  |  1993-09-19  |  7.8 KB  |  302 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   STRING001
  20.     String   STRING002
  21.     String   STRING003
  22.     String   STRING004
  23.     String   STRING005
  24.     String   STRING006
  25.     String   STRING007
  26.     String   STRING008
  27.     String   STRING009
  28.     String   STRING010
  29.     String   STRING011
  30.     String   STRING012
  31.  
  32. ;------------------------------------------------------------------------------
  33.  
  34.     :LABEL001
  35.     Cls
  36.     PrintLn ""
  37.     PrintLn "      @X7F ┌───────────────────────────────────────────────────────────────@X70┐ @XFF"
  38.     PrintLn "      @X7F │ @X70           ONLINE CREDIT CARD PROCESSOR SYSTEM 1.2            @X70│ @XFF"
  39.     PrintLn "      @X7F │ @X70                  Hogard Software Solutions                   @X70│ @XFF"
  40.     PrintLn "      @X7F │                      @XF4UNREGISTERED VERSION                     @X70│ @XFF"
  41.     PrintLn "      @X7F │ @X71The use of an invalid credit card or unauthorized use of one  @X70│ @XFF"
  42.     PrintLn "      @X7F │ @X71for the purpose of accessing this board constitutes fraud and @X70│ @XFF"
  43.     PrintLn "      @X7F │ @X71will be reported to the proper law enforcement agencies.      @X70│ @XFF"
  44.     PrintLn "      @X7F └@X70───────────────────────────────────────────────────────────────┘ @XFF"
  45.     PrintLn ""
  46.     PrintLn "      @X4F ┌───────────────────────────────────────────────────────────────@X40┐ @XFF"
  47.     PrintLn "      @X4F │ @X40Registering with a credit card you will receive an @X4FIMMEDIATE  @X40│ @XFF"
  48.     PrintLn "      @X4F │ @X40access upgrade for use during this session.                   @X40│ @XFF"
  49.     PrintLn "      @X4F └@X40───────────────────────────────────────────────────────────────┘ @XFF"
  50.     PrintLn ""
  51.     PrintLn ""
  52.     PrintLn "           @X13 ┌─────────────────────────────────────────────────────@X10┐ @XFF"
  53.     PrintLn "           @X13 │ @X1EType @X1D1@X1E to Register using your credit card.          @X10│ @XFF"
  54.     PrintLn "           @X13 │ @X1EType @X1D2 @X1Eto Download REGISTER.ZIP and send by mail.   @X10│ @XFF"
  55.     PrintLn "           @X13 └@X10-────────────────────────────────────────────────────┘ @XFF"
  56.     PrintLn ""
  57.     STRING001 = ""
  58.     InputStr "@X0BWhich type registration would you prefer (@X0D1@X0B-@X0D2@X0B)@X07", STRING001, 10, 1, "12", 270
  59.     Select Case (STRING001)
  60.         Case "1"
  61.             Log "*** Entered OCCPS with Credit Card Option ***", 0
  62.             Gosub LABEL002
  63.         Case "2"
  64.             Log "*** Downloaded registration form via OCCPS ***", 0
  65.             KbdStuff "D;REGISTER.ZIP" + Chr(13)
  66.             End
  67.         Case Else
  68.             Log "*** Entered OCCPS without Registering ***", 0
  69.             End
  70.     End Select
  71.     :LABEL002
  72.     Cls
  73.     DispFile PPEPath() + "CATLOG", 2 + 1 + 4
  74.     FAppend 1, PPEPath() + "CHARGE.LOG", 2, 3
  75.     STRING002 = ""
  76.     InputStr "Enter your selection (1-3)", STRING002, 11, 1, Mask_Num(), 64
  77.     Select Case (STRING002)
  78.         Case "1"
  79.             Log "*** Placed order for Selection No 1 via OCCPS ***", 0
  80.             FPutLn 1, "********************************************************************"
  81.             FPutLn 1, "ORDERED:  Selection No " + STRING002
  82.             FPutLn 1, "Level 20 Subscription"
  83.             FPutLn 1, " "
  84.         Case "2"
  85.             Log "*** Placed order for Selection No 2 via OCCPS ***", 0
  86.             FPutLn 1, "********************************************************************"
  87.             FPutLn 1, "ORDERED:  Selection No " + STRING002
  88.             FPutLn 1, "Level 30 Subscription"
  89.             FPutLn 1, " "
  90.         Case "3"
  91.             Log "*** Placed order for Selection No 3 via OCCPS ***", 0
  92.             FPutLn 1, "********************************************************************"
  93.             FPutLn 1, "ORDERED:  Selection No " + STRING002
  94.             FPutLn 1, "Level 40 Subscription"
  95.             FPutLn 1, " "
  96.         Case Else
  97.             Cls
  98.             FClose 1
  99.             Gosub LABEL001
  100.     End Select
  101.     InputCC "Enter credit card number", STRING003, 15
  102.     If (STRING003 == "") Then
  103.         Cls
  104.         FClose 1
  105.         End
  106.     ElseIf (ValCC(STRING003) && (CCType(STRING003) <> "UNKNOWN")) Then
  107.         PrintLn ""
  108.         PrintLn "@X0EThis card was issued by:  @X0B", Left(CCType(STRING003), 20)
  109.         PrintLn "@X0E  The account number is:  @X0B", FmtCC(STRING003)
  110.         FPutLn 1, "                User: " + U_Name()
  111.         FPutLn 1, "                Date: " + String(Date()) + " (" + String(Time()) + ")"
  112.         FPutLn 1, "           Card Type: " + Left(CCType(STRING003), 20)
  113.         FPutLn 1, "         Card Number: " + FmtCC(STRING003)
  114.         STRING005 = ""
  115.         PrintLn ""
  116.         PrintLn "@X0EEnter the Card Expiration Date (as shown on card)"
  117.         InputStr "", STRING005, 11, 25, Mask_AlNum() + "/", 64
  118.         FPutLn 1, "     Expiration Date: " + STRING005
  119.         FPutLn 1, " "
  120.         STRING004 = ""
  121.         PrintLn ""
  122.         PrintLn "@X0EEnter the Cardholder's Name (as shown on card)"
  123.         InputStr "", STRING004, 11, 25, Mask_AlNum() + " ", 64
  124.         FPutLn 1, "   Cardholder's Name: " + STRING004
  125.         STRING006 = ""
  126.         PrintLn ""
  127.         PrintLn "@X0ECardholder's Street Address (Line 1)"
  128.         InputStr "", STRING006, 11, 25, Mask_AlNum() + " ", 64
  129.         FPutLn 1, "Cardholder's Address: " + STRING006
  130.         STRING007 = ""
  131.         PrintLn ""
  132.         PrintLn "@X0ECardholder's Suite or Apartment Number"
  133.         InputStr "", STRING007, 11, 25, Mask_AlNum() + " ", 64
  134.         If (STRING007 <> "") Then
  135.             FPutLn 1, "                    : " + STRING007
  136.         Endif
  137.         STRING008 = ""
  138.         PrintLn ""
  139.         PrintLn "@X0ECardholder's City (without state)"
  140.         InputStr "", STRING008, 11, 25, Mask_AlNum() + " ", 64
  141.         STRING009 = ""
  142.         PrintLn ""
  143.         PrintLn "@X0ECardholder's State"
  144.         InputStr "", STRING009, 11, 2, Mask_Alpha(), 64
  145.         STRING010 = ""
  146.         PrintLn ""
  147.         PrintLn "@X0ECardholder's Zip Code"
  148.         InputStr "", STRING010, 11, 10, Mask_Num() + "-", 64
  149.         FPutLn 1, "                    : " + STRING008 + ", " + STRING009 + "  " + STRING010
  150.         STRING011 = ""
  151.         PrintLn ""
  152.         PrintLn "@X0ECardholder's Home Phone Number"
  153.         InputStr "", STRING011, 11, 12, Mask_Num() + "-", 64
  154.         FPutLn 1, "   Home Phone Number: " + STRING011
  155.         STRING012 = ""
  156.         PrintLn ""
  157.         PrintLn "@X0ECardholder's Work Phone Number"
  158.         InputStr "", STRING012, 11, 12, Mask_Num() + "-", 64
  159.         FPutLn 1, "   Work Phone Number: " + STRING012
  160.         FPutLn 1, " "
  161.         FPutLn 1, "Credit Card Processing Completed Normally"
  162.         FClose 1
  163.         PrintLn ""
  164.         GetUser
  165.         Select Case (STRING002)
  166.             Case "1"
  167.                 If (U_Sec < 20) Then
  168.                     PrintLn "Raising your security access to level 20..."
  169.                     U_Sec = 20
  170.                     U_ExpDate = Date() + 365
  171.                     PrintLn ""
  172.                     PrintLn "Automatic upgrade Complete!"
  173.                 ElseIf (U_Sec == 20) Then
  174.                     PrintLn "Extending your level 20 security access..."
  175.                     U_ExpDate = U_ExpDate + 365
  176.                     PrintLn ""
  177.                     PrintLn "Automatic upgrade Complete!"
  178.                 Else
  179.                     PrintLn "Level requested is lower than existing level"
  180.                     PrintLn "No change in level made"
  181.                 Endif
  182.             Case "2"
  183.                 If (U_Sec < 30) Then
  184.                     PrintLn "Raising your security access to level 30..."
  185.                     U_Sec = 30
  186.                     U_ExpDate = Date() + 365
  187.                     PrintLn ""
  188.                     PrintLn "Automatic upgrade Complete!"
  189.                 ElseIf (U_Sec == 30) Then
  190.                     PrintLn "Extending your level 30 security access..."
  191.                     U_ExpDate = U_ExpDate + 365
  192.                     PrintLn ""
  193.                     PrintLn "Automatic upgrade Complete!"
  194.                 Else
  195.                     PrintLn "Level requested is lower than existing level"
  196.                     PrintLn "No change in level made"
  197.                 Endif
  198.             Case "3"
  199.                 If (U_Sec < 40) Then
  200.                     PrintLn "Raising your security access to level 40..."
  201.                     U_Sec = 40
  202.                     U_ExpDate = Date() + 365
  203.                     PrintLn ""
  204.                     PrintLn "Automatic upgrade Complete!"
  205.                     Goto LABEL003
  206.                 Endif
  207.                 If (U_Sec == 40) Then
  208.                     PrintLn "Extending your level 40 security access..."
  209.                     U_ExpDate = U_ExpDate + 365
  210.                     PrintLn ""
  211.                     PrintLn "Automatic upgrade Complete!"
  212.                     Goto LABEL003
  213.                 Endif
  214.                 PrintLn "Level requested is lower than existing level"
  215.                 PrintLn "No change in level made"
  216.         End Select
  217.         :LABEL003
  218.         PutUser
  219.         PrintLn ""
  220.         PrintLn "Your subscription will expire on ", U_ExpDate
  221.         PrintLn ""
  222.         PrintLn "@X0FThank you @X0D@USER@ @X0Ffor your order"
  223.         Log "Completed Credit Card Processing!", 0
  224.         End
  225.     Else
  226.         PrintLn ""
  227.         PrintLn "@X0EThis is an @X0CINVALID @X0ECredit Card number!"
  228.         PrintLn ""
  229.         Log "Attempted to use an INVALID Credit Card number", 0
  230.     Endif
  231.     STRING003 = ""
  232.     Gosub LABEL002
  233.  
  234. ;------------------------------------------------------------------------------
  235. ;
  236. ; Usage report (before postprocessing)
  237. ;
  238. ; ■ Statements used :
  239. ;
  240. ;    4       End
  241. ;    4       Cls
  242. ;    32      Goto 
  243. ;    21      Let 
  244. ;    74      PrintLn 
  245. ;    17      If 
  246. ;    1       DispFile 
  247. ;    1       FAppend 
  248. ;    3       FClose 
  249. ;    26      FPutLn 
  250. ;    1       GetUser
  251. ;    1       PutUser
  252. ;    8       Log 
  253. ;    11      InputStr 
  254. ;    1       InputCC 
  255. ;    3       Gosub 
  256. ;    1       KbdStuff 
  257. ;
  258. ;
  259. ; ■ Functions used :
  260. ;
  261. ;    40      +
  262. ;    12      ==
  263. ;    2       <>
  264. ;    3       <
  265. ;    17      !
  266. ;    1       &&
  267. ;    2       Left()
  268. ;    1       Chr()
  269. ;    4       Date()
  270. ;    1       Time()
  271. ;    1       U_Name()
  272. ;    2       String()
  273. ;    1       Mask_Alpha()
  274. ;    4       Mask_Num()
  275. ;    5       Mask_AlNum()
  276. ;    2       PPEPath()
  277. ;    1       ValCC()
  278. ;    2       FmtCC()
  279. ;    3       CCType()
  280. ;
  281. ;------------------------------------------------------------------------------
  282. ;
  283. ; Analysis flags : W
  284. ;
  285. ; W - Write user ■ 5
  286. ;     Program writes a user record. Although this may be normal for a
  287. ;     User Editor, it may also be a way to modify an account level.
  288. ;     ■ Search for : PUTUSER
  289. ;
  290. ;------------------------------------------------------------------------------
  291. ;
  292. ; Postprocessing report
  293. ;
  294. ;    0       For/Next
  295. ;    0       While/EndWhile
  296. ;    9       If/Then or If/Then/Else
  297. ;    3       Select Case
  298. ;
  299. ;------------------------------------------------------------------------------
  300. ;                 AEGiS Corp - Break the routines, code against the machines!
  301. ;------------------------------------------------------------------------------
  302.