home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1994 #1 / monster.zip / monster / PCBOARD / FLLTQP30.ZIP / FLOTTO.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1994-01-04  |  9KB  |  430 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.     Integer  INTEGER029
  48.     Integer  INTEGER030
  49.     Integer  INTEGER031
  50.     Integer  INTEGER032
  51.     Integer  INTEGER033
  52.     String   STRING001
  53.     String   STRING002
  54.     String   STRING003
  55.     String   STRING004
  56.     String   STRING005
  57.     String   STRING006
  58.  
  59. ;------------------------------------------------------------------------------
  60.  
  61.     :LABEL001
  62.     Cls
  63.     PrintLn "@X00"
  64.     PrintLn "      @X7F ┌───────────────────────────────────────────────────────────────@X70┐ @XFF"
  65.     PrintLn "      @X7F │ @X70             FLORIDA LOTTERY QUIK PIK SYSTEM 3.0              @X70│ @XFF"
  66.     PrintLn "      @X7F │                    @X70written by Chuck Hogard                    @X70│ @XFF"
  67.     PrintLn "      @X7F │                                                               @X70│ @XFF"
  68.     PrintLn "      @X7F │ @X71Use this program to help you pick your Florida Lottery        @X70│ @XFF"
  69.     PrintLn "      @X7F │ @X71numbers.  It will pick five sets of numbers.  If more numbers @X70│ @XFF"
  70.     PrintLn "      @X7F │ @X71are needed just run the program again.                        @X70│ @XFF"
  71.     PrintLn "      @X7F └@X70───────────────────────────────────────────────────────────────┘ @XFF"
  72.     PrintLn ""
  73.     STRING001 = PPEPath() + "FLLOTTO.CFG"
  74.     STRING002 = ReadLine(STRING001, 1)
  75.     STRING003 = ReadLine(STRING001, 2)
  76.     STRING004 = ReadLine(STRING001, 3)
  77.     INTEGER001 = 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))
  78.     INTEGER002 = 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))
  79.     INTEGER003 = 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))
  80.     STRING005 = String(INTEGER001) + String(INTEGER002) + String(INTEGER003)
  81.     STRING006 = ""
  82.     InputStr "@X0BPick(@X0D5@X0B), Pick(@X0D6@X0B), (@X0DW@X0B)inners, (@X0DQ@X0B)uit@X07", STRING006, 10, 1, "56WQ", 270
  83.     Select Case (STRING006)
  84.         Case "6"
  85.             Log "*** Used the Lotto PPE to pick five numbers ***", 0
  86.             Goto LABEL003
  87.         Case "5"
  88.             Log "*** Used the Lotto PPE PICK 5 option ***", 0
  89.             Cls
  90.             Call PPEPath() + "FPICK5.PPE"
  91.             Goto LABEL001
  92.         Case "W"
  93.             Log "*** Viewed the Lotto PPE Winners Circle ***", 0
  94.             Cls
  95.             DispFile PPEPath() + "WINNER", 2 + 1 + 4
  96.             Wait
  97.             Goto LABEL001
  98.         Case Else
  99.             Cls
  100.             If (STRING005 == STRING004) Then
  101.                 Gosub LABEL002
  102.             Endif
  103.             PrintLn "                              @X7F ┌───────────────────@X70┐ @XFF"
  104.             PrintLn "                              @X7F │ @XF4UNREGISTERED COPY @X70│ @XFF"
  105.             PrintLn "                              @X7F └@X70───────────────────┘ @XFF"
  106.             PrintLn ""
  107.             PrintLn ""
  108.             PrintLn "                @X7F ┌────────────────────────────────────────────────@X70┐ @XFF"
  109.             PrintLn "                @X7F │ @X74PLEASE ASK YOUR SYSOP TO REGISTER THIS PROGRAM @X70│ @XFF"
  110.             PrintLn "                @X7F └@X70────────────────────────────────────────────────┘ @XFF"
  111.             Delay 91
  112.             Log "*** Exited the Lotto PPE ***", 0
  113.             :LABEL002
  114.             End
  115.     End Select
  116.     :LABEL003
  117.     INTEGER004 = 1 + Random(48)
  118.     :LABEL004
  119.     INTEGER005 = 1 + Random(48)
  120.     If (INTEGER004 == INTEGER005) Then
  121.         Gosub LABEL004
  122.     Endif
  123.     :LABEL005
  124.     INTEGER006 = 1 + Random(48)
  125.     If (INTEGER004 == INTEGER006) Then
  126.         Gosub LABEL005
  127.     ElseIf (INTEGER005 == INTEGER006) Then
  128.         Gosub LABEL005
  129.     Endif
  130.     :LABEL006
  131.     INTEGER007 = 1 + Random(48)
  132.     If (INTEGER004 == INTEGER007) Then
  133.         Gosub LABEL006
  134.     ElseIf (INTEGER005 == INTEGER007) Then
  135.         Gosub LABEL006
  136.     ElseIf (INTEGER006 == INTEGER007) Then
  137.         Gosub LABEL006
  138.     Endif
  139.     :LABEL007
  140.     INTEGER008 = 1 + Random(48)
  141.     If (INTEGER004 == INTEGER008) Then
  142.         Gosub LABEL007
  143.     ElseIf (INTEGER005 == INTEGER008) Then
  144.         Gosub LABEL007
  145.     ElseIf (INTEGER006 == INTEGER008) Then
  146.         Gosub LABEL007
  147.     ElseIf (INTEGER007 == INTEGER008) Then
  148.         Gosub LABEL007
  149.     Endif
  150.     :LABEL008
  151.     INTEGER009 = 1 + Random(48)
  152.     If (INTEGER004 == INTEGER009) Then
  153.         Gosub LABEL008
  154.     ElseIf (INTEGER005 == INTEGER009) Then
  155.         Gosub LABEL008
  156.     ElseIf (INTEGER006 == INTEGER009) Then
  157.         Gosub LABEL008
  158.     ElseIf (INTEGER007 == INTEGER009) Then
  159.         Gosub LABEL008
  160.     ElseIf (INTEGER008 == INTEGER009) Then
  161.         Gosub LABEL008
  162.     Endif
  163.     INTEGER010 = 1 + Random(48)
  164.     :LABEL009
  165.     INTEGER011 = 1 + Random(48)
  166.     If (INTEGER010 == INTEGER011) Then
  167.         Gosub LABEL009
  168.     Endif
  169.     :LABEL010
  170.     INTEGER012 = 1 + Random(48)
  171.     If (INTEGER010 == INTEGER012) Then
  172.         Gosub LABEL010
  173.     ElseIf (INTEGER011 == INTEGER012) Then
  174.         Gosub LABEL010
  175.     Endif
  176.     :LABEL011
  177.     INTEGER013 = 1 + Random(48)
  178.     If (INTEGER010 == INTEGER013) Then
  179.         Gosub LABEL011
  180.     ElseIf (INTEGER011 == INTEGER013) Then
  181.         Gosub LABEL011
  182.     ElseIf (INTEGER012 == INTEGER013) Then
  183.         Gosub LABEL011
  184.     Endif
  185.     :LABEL012
  186.     INTEGER014 = 1 + Random(48)
  187.     If (INTEGER010 == INTEGER014) Then
  188.         Gosub LABEL012
  189.     ElseIf (INTEGER011 == INTEGER014) Then
  190.         Gosub LABEL012
  191.     ElseIf (INTEGER012 == INTEGER014) Then
  192.         Gosub LABEL012
  193.     ElseIf (INTEGER013 == INTEGER014) Then
  194.         Gosub LABEL012
  195.     Endif
  196.     :LABEL013
  197.     INTEGER015 = 1 + Random(48)
  198.     If (INTEGER010 == INTEGER015) Then
  199.         Gosub LABEL013
  200.     ElseIf (INTEGER011 == INTEGER015) Then
  201.         Gosub LABEL013
  202.     ElseIf (INTEGER012 == INTEGER015) Then
  203.         Gosub LABEL013
  204.     ElseIf (INTEGER013 == INTEGER015) Then
  205.         Gosub LABEL013
  206.     ElseIf (INTEGER014 == INTEGER015) Then
  207.         Gosub LABEL013
  208.     Endif
  209.     INTEGER016 = 1 + Random(48)
  210.     :LABEL014
  211.     INTEGER017 = 1 + Random(48)
  212.     If (INTEGER016 == INTEGER017) Then
  213.         Gosub LABEL014
  214.     Endif
  215.     :LABEL015
  216.     INTEGER018 = 1 + Random(48)
  217.     If (INTEGER016 == INTEGER018) Then
  218.         Gosub LABEL015
  219.     ElseIf (INTEGER017 == INTEGER018) Then
  220.         Gosub LABEL015
  221.     Endif
  222.     :LABEL016
  223.     INTEGER019 = 1 + Random(48)
  224.     If (INTEGER016 == INTEGER019) Then
  225.         Gosub LABEL016
  226.     ElseIf (INTEGER017 == INTEGER019) Then
  227.         Gosub LABEL016
  228.     ElseIf (INTEGER018 == INTEGER019) Then
  229.         Gosub LABEL016
  230.     Endif
  231.     :LABEL017
  232.     INTEGER020 = 1 + Random(48)
  233.     If (INTEGER016 == INTEGER020) Then
  234.         Gosub LABEL017
  235.     ElseIf (INTEGER017 == INTEGER020) Then
  236.         Gosub LABEL017
  237.     ElseIf (INTEGER018 == INTEGER020) Then
  238.         Gosub LABEL017
  239.     ElseIf (INTEGER019 == INTEGER020) Then
  240.         Gosub LABEL017
  241.     Endif
  242.     :LABEL018
  243.     INTEGER021 = 1 + Random(48)
  244.     If (INTEGER016 == INTEGER021) Then
  245.         Gosub LABEL018
  246.     ElseIf (INTEGER017 == INTEGER021) Then
  247.         Gosub LABEL018
  248.     ElseIf (INTEGER018 == INTEGER021) Then
  249.         Gosub LABEL018
  250.     ElseIf (INTEGER019 == INTEGER021) Then
  251.         Gosub LABEL018
  252.     ElseIf (INTEGER020 == INTEGER021) Then
  253.         Gosub LABEL018
  254.     Endif
  255.     INTEGER022 = 1 + Random(48)
  256.     :LABEL019
  257.     INTEGER023 = 1 + Random(48)
  258.     If (INTEGER022 == INTEGER023) Then
  259.         Gosub LABEL019
  260.     Endif
  261.     :LABEL020
  262.     INTEGER024 = 1 + Random(48)
  263.     If (INTEGER022 == INTEGER024) Then
  264.         Gosub LABEL020
  265.     ElseIf (INTEGER023 == INTEGER024) Then
  266.         Gosub LABEL020
  267.     Endif
  268.     :LABEL021
  269.     INTEGER025 = 1 + Random(48)
  270.     If (INTEGER022 == INTEGER025) Then
  271.         Gosub LABEL021
  272.     ElseIf (INTEGER023 == INTEGER025) Then
  273.         Gosub LABEL021
  274.     ElseIf (INTEGER024 == INTEGER025) Then
  275.         Gosub LABEL021
  276.     Endif
  277.     :LABEL022
  278.     INTEGER026 = 1 + Random(48)
  279.     If (INTEGER022 == INTEGER026) Then
  280.         Gosub LABEL022
  281.     ElseIf (INTEGER023 == INTEGER026) Then
  282.         Gosub LABEL022
  283.     ElseIf (INTEGER024 == INTEGER026) Then
  284.         Gosub LABEL022
  285.     ElseIf (INTEGER025 == INTEGER026) Then
  286.         Gosub LABEL022
  287.     Endif
  288.     :LABEL023
  289.     INTEGER027 = 1 + Random(48)
  290.     If (INTEGER022 == INTEGER027) Then
  291.         Gosub LABEL023
  292.     ElseIf (INTEGER023 == INTEGER027) Then
  293.         Gosub LABEL023
  294.     ElseIf (INTEGER024 == INTEGER027) Then
  295.         Gosub LABEL023
  296.     ElseIf (INTEGER025 == INTEGER027) Then
  297.         Gosub LABEL023
  298.     ElseIf (INTEGER026 == INTEGER027) Then
  299.         Gosub LABEL023
  300.     Endif
  301.     INTEGER028 = 1 + Random(48)
  302.     :LABEL024
  303.     INTEGER029 = 1 + Random(48)
  304.     If (INTEGER028 == INTEGER029) Then
  305.         Gosub LABEL024
  306.     Endif
  307.     :LABEL025
  308.     INTEGER030 = 1 + Random(48)
  309.     If (INTEGER028 == INTEGER030) Then
  310.         Gosub LABEL025
  311.     ElseIf (INTEGER029 == INTEGER030) Then
  312.         Gosub LABEL025
  313.     Endif
  314.     :LABEL026
  315.     INTEGER031 = 1 + Random(48)
  316.     If (INTEGER028 == INTEGER031) Then
  317.         Gosub LABEL026
  318.     ElseIf (INTEGER029 == INTEGER031) Then
  319.         Gosub LABEL026
  320.     ElseIf (INTEGER030 == INTEGER031) Then
  321.         Gosub LABEL026
  322.     Endif
  323.     :LABEL027
  324.     INTEGER032 = 1 + Random(48)
  325.     If (INTEGER028 == INTEGER032) Then
  326.         Gosub LABEL027
  327.     ElseIf (INTEGER029 == INTEGER032) Then
  328.         Gosub LABEL027
  329.     ElseIf (INTEGER030 == INTEGER032) Then
  330.         Gosub LABEL027
  331.     ElseIf (INTEGER031 == INTEGER032) Then
  332.         Gosub LABEL027
  333.     Endif
  334.     :LABEL028
  335.     INTEGER033 = 1 + Random(48)
  336.     If (INTEGER028 == INTEGER033) Then
  337.         Gosub LABEL028
  338.     ElseIf (INTEGER029 == INTEGER033) Then
  339.         Gosub LABEL028
  340.     ElseIf (INTEGER030 == INTEGER033) Then
  341.         Gosub LABEL028
  342.     ElseIf (INTEGER031 == INTEGER033) Then
  343.         Gosub LABEL028
  344.     ElseIf (INTEGER032 == INTEGER033) Then
  345.         Gosub LABEL028
  346.     Endif
  347.     Cls
  348.     PrintLn "@POS:15@@X7F ┌─────────────────────────────────────────────@X70┐ @XFF"
  349.     If (STRING005 == STRING004) Then
  350.         PrintLn "@POS:15@@X7F │@X70@BOARDNAME:45C@@POS:62@@X70│ @XFF"
  351.     Else
  352.         PrintLn "@POS:15@@X7F │ @XF4           UNREGISTERED  VERSION            @X70│ @XFF"
  353.     Endif
  354.     PrintLn "@POS:15@@X7F │    @X71      Florida Lottery Quik Piks          @X70│ @XFF"
  355.     PrintLn "@POS:15@@X7F │                   @X71PICK  6                   @X70│ @XFF"
  356.     PrintLn "@POS:15@@X7F └@X70─────────────────────────────────────────────┘ @XFF"
  357.     PrintLn " "
  358.     PrintLn "@POS:20@PLAY A:@POS:32@" + String(INTEGER004) + "  @POS:37@" + String(INTEGER005) + "  @POS:42@" + String(INTEGER006) + "  @POS:47@" + String(INTEGER007) + "  @POS:52@" + String(INTEGER008) + "  @POS:57@" + String(INTEGER009)
  359.     PrintLn " "
  360.     PrintLn "@POS:20@PLAY B:@POS:32@" + String(INTEGER010) + "  @POS:37@" + String(INTEGER011) + "  @POS:42@" + String(INTEGER012) + "  @POS:47@" + String(INTEGER013) + "  @POS:52@" + String(INTEGER014) + "  @POS:57@" + String(INTEGER015)
  361.     PrintLn " "
  362.     PrintLn "@POS:20@PLAY C:@POS:32@" + String(INTEGER016) + "  @POS:37@" + String(INTEGER017) + "  @POS:42@" + String(INTEGER018) + "  @POS:47@" + String(INTEGER019) + "  @POS:52@" + String(INTEGER020) + "  @POS:57@" + String(INTEGER021)
  363.     PrintLn " "
  364.     PrintLn "@POS:20@PLAY D:@POS:32@" + String(INTEGER022) + "  @POS:37@" + String(INTEGER023) + "  @POS:42@" + String(INTEGER024) + "  @POS:47@" + String(INTEGER025) + "  @POS:52@" + String(INTEGER026) + "  @POS:57@" + String(INTEGER027)
  365.     PrintLn " "
  366.     PrintLn "@POS:20@PLAY E:@POS:32@" + String(INTEGER028) + "  @POS:37@" + String(INTEGER029) + "  @POS:42@" + String(INTEGER030) + "  @POS:47@" + String(INTEGER031) + "  @POS:52@" + String(INTEGER032) + "  @POS:57@" + String(INTEGER033)
  367.     PrintLn " "
  368.     PrintLn "  @X10 ┌────────────────────────────────────────────────────────────────────────@X13┐ @XFF"
  369.     PrintLn "  @X10 │ @X1FIf you win using the numbers obtained from this program, please notify @X13│ @XFF"
  370.     PrintLn "  @X10 │ @X1Fthe Sysop and he will enter your name in the Winner's Circle.          @X13│ @XFF"
  371.     PrintLn "  @X10 └@X13────────────────────────────────────────────────────────────────────────┘ @XFF"
  372.     PrintLn " "
  373.     Wait
  374.     Gosub LABEL001
  375.  
  376. ;------------------------------------------------------------------------------
  377. ;
  378. ; Usage report (before postprocessing)
  379. ;
  380. ; ■ Statements used :
  381. ;
  382. ;    1       End
  383. ;    5       Cls
  384. ;    2       Wait
  385. ;    137     Goto 
  386. ;    39      Let 
  387. ;    40      PrintLn 
  388. ;    80      If 
  389. ;    1       DispFile 
  390. ;    4       Log 
  391. ;    1       InputStr 
  392. ;    77      Gosub 
  393. ;    1       Delay 
  394. ;    1       Call 
  395. ;
  396. ;
  397. ; ■ Functions used :
  398. ;
  399. ;    117     +
  400. ;    80      ==
  401. ;    80      !
  402. ;    28      Mid()
  403. ;    28      Asc()
  404. ;    30      Random()
  405. ;    33      String()
  406. ;    3       PPEPath()
  407. ;    3       ReadLine()
  408. ;
  409. ;------------------------------------------------------------------------------
  410. ;
  411. ; Analysis flags : C
  412. ;
  413. ; C - Call child PPE ■ 3
  414. ;     This is usually normal, but may be a tricky way to launch some
  415. ;     sysop-only commands.
  416. ;     ■ Search for : CALL
  417. ;
  418. ;------------------------------------------------------------------------------
  419. ;
  420. ; Postprocessing report
  421. ;
  422. ;    0       For/Next
  423. ;    0       While/EndWhile
  424. ;    77      If/Then or If/Then/Else
  425. ;    1       Select Case
  426. ;
  427. ;------------------------------------------------------------------------------
  428. ;                 AEGiS Corp - Break the routines, code against the machines!
  429. ;------------------------------------------------------------------------------
  430.