home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1994 #1 / monster.zip / monster / PCBOARD / FLLTQP30.ZIP / FPICK5.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1994-01-04  |  6KB  |  301 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.     Integer  INTEGER005
  24.     Integer  INTEGER006
  25.     Integer  INTEGER007
  26.     Integer  INTEGER008
  27.     Integer  INTEGER009
  28.     Integer  INTEGER010
  29.     Integer  INTEGER011
  30.     Integer  INTEGER012
  31.     Integer  INTEGER013
  32.     Integer  INTEGER014
  33.     Integer  INTEGER015
  34.     Integer  INTEGER016
  35.     Integer  INTEGER017
  36.     Integer  INTEGER018
  37.     Integer  INTEGER019
  38.     Integer  INTEGER020
  39.     Integer  INTEGER021
  40.     Integer  INTEGER022
  41.     Integer  INTEGER023
  42.     Integer  INTEGER024
  43.     Integer  INTEGER025
  44.     Integer  INTEGER026
  45.     Integer  INTEGER027
  46.     Integer  INTEGER028
  47.     String   STRING001
  48.     String   STRING002
  49.     String   STRING003
  50.     String   STRING004
  51.     String   STRING005
  52.  
  53. ;------------------------------------------------------------------------------
  54.  
  55.     INTEGER001 = 1 + Random(25)
  56.     :LABEL001
  57.     INTEGER002 = 1 + Random(25)
  58.     If (INTEGER001 == INTEGER002) Then
  59.         Gosub LABEL001
  60.     Endif
  61.     :LABEL002
  62.     INTEGER003 = 1 + Random(25)
  63.     If (INTEGER001 == INTEGER003) Then
  64.         Gosub LABEL002
  65.     ElseIf (INTEGER002 == INTEGER003) Then
  66.         Gosub LABEL002
  67.     Endif
  68.     :LABEL003
  69.     INTEGER004 = 1 + Random(25)
  70.     If (INTEGER001 == INTEGER004) Then
  71.         Gosub LABEL003
  72.     ElseIf (INTEGER002 == INTEGER004) Then
  73.         Gosub LABEL003
  74.     ElseIf (INTEGER003 == INTEGER004) Then
  75.         Gosub LABEL003
  76.     Endif
  77.     :LABEL004
  78.     INTEGER005 = 1 + Random(25)
  79.     If (INTEGER001 == INTEGER005) Then
  80.         Gosub LABEL004
  81.     ElseIf (INTEGER002 == INTEGER005) Then
  82.         Gosub LABEL004
  83.     ElseIf (INTEGER003 == INTEGER005) Then
  84.         Gosub LABEL004
  85.     ElseIf (INTEGER004 == INTEGER005) Then
  86.         Gosub LABEL004
  87.     Endif
  88.     INTEGER006 = 1 + Random(25)
  89.     :LABEL005
  90.     INTEGER007 = 1 + Random(25)
  91.     If (INTEGER006 == INTEGER007) Then
  92.         Gosub LABEL005
  93.     Endif
  94.     :LABEL006
  95.     INTEGER008 = 1 + Random(25)
  96.     If (INTEGER006 == INTEGER008) Then
  97.         Gosub LABEL006
  98.     ElseIf (INTEGER007 == INTEGER008) Then
  99.         Gosub LABEL006
  100.     Endif
  101.     :LABEL007
  102.     INTEGER009 = 1 + Random(25)
  103.     If (INTEGER006 == INTEGER009) Then
  104.         Gosub LABEL007
  105.     ElseIf (INTEGER007 == INTEGER009) Then
  106.         Gosub LABEL007
  107.     ElseIf (INTEGER008 == INTEGER009) Then
  108.         Gosub LABEL007
  109.     Endif
  110.     :LABEL008
  111.     INTEGER010 = 1 + Random(25)
  112.     If (INTEGER006 == INTEGER010) Then
  113.         Gosub LABEL008
  114.     ElseIf (INTEGER007 == INTEGER010) Then
  115.         Gosub LABEL008
  116.     ElseIf (INTEGER008 == INTEGER010) Then
  117.         Gosub LABEL008
  118.     ElseIf (INTEGER009 == INTEGER010) Then
  119.         Gosub LABEL008
  120.     Endif
  121.     INTEGER011 = 1 + Random(25)
  122.     :LABEL009
  123.     INTEGER012 = 1 + Random(25)
  124.     If (INTEGER011 == INTEGER012) Then
  125.         Gosub LABEL009
  126.     Endif
  127.     :LABEL010
  128.     INTEGER013 = 1 + Random(25)
  129.     If (INTEGER011 == INTEGER013) Then
  130.         Gosub LABEL010
  131.     ElseIf (INTEGER012 == INTEGER013) Then
  132.         Gosub LABEL010
  133.     Endif
  134.     :LABEL011
  135.     INTEGER014 = 1 + Random(25)
  136.     If (INTEGER011 == INTEGER014) Then
  137.         Gosub LABEL011
  138.     ElseIf (INTEGER012 == INTEGER014) Then
  139.         Gosub LABEL011
  140.     ElseIf (INTEGER013 == INTEGER014) Then
  141.         Gosub LABEL011
  142.     Endif
  143.     :LABEL012
  144.     INTEGER015 = 1 + Random(25)
  145.     If (INTEGER011 == INTEGER015) Then
  146.         Gosub LABEL012
  147.     ElseIf (INTEGER012 == INTEGER015) Then
  148.         Gosub LABEL012
  149.     ElseIf (INTEGER013 == INTEGER015) Then
  150.         Gosub LABEL012
  151.     ElseIf (INTEGER014 == INTEGER015) Then
  152.         Gosub LABEL012
  153.     Endif
  154.     INTEGER016 = 1 + Random(25)
  155.     :LABEL013
  156.     INTEGER017 = 1 + Random(25)
  157.     If (INTEGER016 == INTEGER017) Then
  158.         Gosub LABEL013
  159.     Endif
  160.     :LABEL014
  161.     INTEGER018 = 1 + Random(25)
  162.     If (INTEGER016 == INTEGER018) Then
  163.         Gosub LABEL014
  164.     ElseIf (INTEGER017 == INTEGER018) Then
  165.         Gosub LABEL014
  166.     Endif
  167.     :LABEL015
  168.     INTEGER019 = 1 + Random(25)
  169.     If (INTEGER016 == INTEGER019) Then
  170.         Gosub LABEL015
  171.     ElseIf (INTEGER017 == INTEGER019) Then
  172.         Gosub LABEL015
  173.     ElseIf (INTEGER018 == INTEGER019) Then
  174.         Gosub LABEL015
  175.     Endif
  176.     :LABEL016
  177.     INTEGER020 = 1 + Random(25)
  178.     If (INTEGER016 == INTEGER020) Then
  179.         Gosub LABEL016
  180.     ElseIf (INTEGER017 == INTEGER020) Then
  181.         Gosub LABEL016
  182.     ElseIf (INTEGER018 == INTEGER020) Then
  183.         Gosub LABEL016
  184.     ElseIf (INTEGER019 == INTEGER020) Then
  185.         Gosub LABEL016
  186.     Endif
  187.     INTEGER021 = 1 + Random(25)
  188.     :LABEL017
  189.     INTEGER022 = 1 + Random(25)
  190.     If (INTEGER021 == INTEGER022) Then
  191.         Gosub LABEL017
  192.     Endif
  193.     :LABEL018
  194.     INTEGER023 = 1 + Random(25)
  195.     If (INTEGER021 == INTEGER023) Then
  196.         Gosub LABEL018
  197.     ElseIf (INTEGER022 == INTEGER023) Then
  198.         Gosub LABEL018
  199.     Endif
  200.     :LABEL019
  201.     INTEGER024 = 1 + Random(25)
  202.     If (INTEGER021 == INTEGER024) Then
  203.         Gosub LABEL019
  204.     ElseIf (INTEGER022 == INTEGER024) Then
  205.         Gosub LABEL019
  206.     ElseIf (INTEGER023 == INTEGER024) Then
  207.         Gosub LABEL019
  208.     Endif
  209.     :LABEL020
  210.     INTEGER025 = 1 + Random(25)
  211.     If (INTEGER021 == INTEGER025) Then
  212.         Gosub LABEL020
  213.     ElseIf (INTEGER022 == INTEGER025) Then
  214.         Gosub LABEL020
  215.     ElseIf (INTEGER023 == INTEGER025) Then
  216.         Gosub LABEL020
  217.     ElseIf (INTEGER024 == INTEGER025) Then
  218.         Gosub LABEL020
  219.     Endif
  220.     STRING001 = PPEPath() + "FLLOTTO.CFG"
  221.     STRING002 = ReadLine(STRING001, 1)
  222.     STRING003 = ReadLine(STRING001, 2)
  223.     STRING004 = ReadLine(STRING001, 3)
  224.     INTEGER026 = Asc(Mid(STRING002, 1, 1)) + Asc(Mid(STRING002, 2, 1)) + Asc(Mid(STRING002, 3, 1)) + Asc(Mid(STRING002, 4, 1)) + Asc(Mid(STRING002, 5, 1)) + Asc(Mid(STRING002, 6, 1)) + Asc(Mid(STRING002, 7, 1)) + Asc(Mid(STRING002, 8, 1)) + Asc(Mid(STRING002, 9, 1)) + Asc(Mid(STRING002, 10, 1))
  225.     INTEGER027 = Asc(Mid(STRING003, 1, 1)) + Asc(Mid(STRING003, 2, 1)) + Asc(Mid(STRING003, 3, 1)) + Asc(Mid(STRING003, 4, 1)) + Asc(Mid(STRING003, 5, 1)) + Asc(Mid(STRING003, 6, 1)) + Asc(Mid(STRING003, 7, 1)) + Asc(Mid(STRING003, 8, 1))
  226.     INTEGER028 = Asc(Mid(STRING002, 11, 1)) + Asc(Mid(STRING002, 12, 1)) + Asc(Mid(STRING002, 13, 1)) + Asc(Mid(STRING002, 14, 1)) + Asc(Mid(STRING002, 15, 1)) + Asc(Mid(STRING002, 16, 1)) + Asc(Mid(STRING002, 17, 1)) + Asc(Mid(STRING002, 18, 1)) + Asc(Mid(STRING002, 19, 1)) + Asc(Mid(STRING002, 20, 1))
  227.     STRING005 = String(INTEGER026) + String(INTEGER027) + String(INTEGER028)
  228.     Cls
  229.     PrintLn "@POS:15@@X7F ┌─────────────────────────────────────────────@X70┐ @XFF"
  230.     If (STRING005 == STRING004) Then
  231.         PrintLn "@POS:15@@X7F │@X70@BOARDNAME:45C@@POS:62@@X70│ @XFF"
  232.     Else
  233.         PrintLn "@POS:15@@X7F │ @XF4           UNREGISTERED  VERSION            @X70│ @XFF"
  234.     Endif
  235.     PrintLn "@POS:15@@X7F │    @X71      Florida Lottery Quik Piks          @X70│ @XFF"
  236.     PrintLn "@POS:15@@X7F │                   @X71PICK  5                   @X70│ @XFF"
  237.     PrintLn "@POS:15@@X7F └@X70─────────────────────────────────────────────┘ @XFF"
  238.     PrintLn " "
  239.     PrintLn "@POS:20@PLAY A:@POS:32@" + String(INTEGER001) + "  @POS:37@" + String(INTEGER002) + "  @POS:42@" + String(INTEGER003) + "  @POS:47@" + String(INTEGER004) + "  @POS:52@" + String(INTEGER005)
  240.     PrintLn " "
  241.     PrintLn "@POS:20@PLAY B:@POS:32@" + String(INTEGER006) + "  @POS:37@" + String(INTEGER007) + "  @POS:42@" + String(INTEGER008) + "  @POS:47@" + String(INTEGER009) + "  @POS:52@" + String(INTEGER010)
  242.     PrintLn " "
  243.     PrintLn "@POS:20@PLAY C:@POS:32@" + String(INTEGER011) + "  @POS:37@" + String(INTEGER012) + "  @POS:42@" + String(INTEGER013) + "  @POS:47@" + String(INTEGER014) + "  @POS:52@" + String(INTEGER015)
  244.     PrintLn " "
  245.     PrintLn "@POS:20@PLAY D:@POS:32@" + String(INTEGER016) + "  @POS:37@" + String(INTEGER017) + "  @POS:42@" + String(INTEGER018) + "  @POS:47@" + String(INTEGER019) + "  @POS:52@" + String(INTEGER020)
  246.     PrintLn " "
  247.     PrintLn "@POS:20@PLAY E:@POS:32@" + String(INTEGER021) + "  @POS:37@" + String(INTEGER022) + "  @POS:42@" + String(INTEGER023) + "  @POS:47@" + String(INTEGER024) + "  @POS:52@" + String(INTEGER025)
  248.     PrintLn " "
  249.     PrintLn "  @X10 ┌────────────────────────────────────────────────────────────────────────@X13┐ @XFF"
  250.     PrintLn "  @X10 │ @X1FIf you win using the numbers obtained from this program, please notify @X13│ @XFF"
  251.     PrintLn "  @X10 │ @X1Fthe Sysop and he will enter your name in the Winner's Circle.          @X13│ @XFF"
  252.     PrintLn "  @X10 └@X13────────────────────────────────────────────────────────────────────────┘ @XFF"
  253.     PrintLn " "
  254.     Wait
  255.     End
  256.  
  257. ;------------------------------------------------------------------------------
  258. ;
  259. ; Usage report (before postprocessing)
  260. ;
  261. ; ■ Statements used :
  262. ;
  263. ;    1       End
  264. ;    1       Cls
  265. ;    1       Wait
  266. ;    82      Goto 
  267. ;    33      Let 
  268. ;    22      PrintLn 
  269. ;    51      If 
  270. ;    50      Gosub 
  271. ;
  272. ;
  273. ; ■ Functions used :
  274. ;
  275. ;    98      +
  276. ;    51      ==
  277. ;    51      !
  278. ;    28      Mid()
  279. ;    28      Asc()
  280. ;    25      Random()
  281. ;    28      String()
  282. ;    1       PPEPath()
  283. ;    3       ReadLine()
  284. ;
  285. ;------------------------------------------------------------------------------
  286. ;
  287. ; Analysis flags : No flag
  288. ;
  289. ;------------------------------------------------------------------------------
  290. ;
  291. ; Postprocessing report
  292. ;
  293. ;    0       For/Next
  294. ;    0       While/EndWhile
  295. ;    51      If/Then or If/Then/Else
  296. ;    0       Select Case
  297. ;
  298. ;------------------------------------------------------------------------------
  299. ;                 AEGiS Corp - Break the routines, code against the machines!
  300. ;------------------------------------------------------------------------------
  301.