home *** CD-ROM | disk | FTP | other *** search
/ Groovy Bytes: Behind the Moon / groovybytes.iso / GROOVY / PPE / ALF / ALF_CONT.ZIP / ENTER.PPE (.txt) < prev    next >
Encoding:
PCBoard Programming Language Executable  |  1994-05-11  |  7.7 KB  |  472 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.     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.     PrintLn ""
  35.     PrintLn ""
  36.     STRING001 = GetY()
  37.     STRING001 = STRING001 - 1
  38.     FOpen 1, PPEPath() + "ENTER.CNF", 0, 2
  39.     FGet 1, STRING006
  40.     FGet 1, STRING007
  41.     FGet 1, STRING008
  42.     FGet 1, STRING009
  43.     FGet 1, STRING010
  44.     FGet 1, STRING011
  45.     FGet 1, STRING012
  46.     FClose 1
  47.     STRING002 = ReadLine(PCBDat(), 2)
  48.     STRING003 = ReadLine(PCBDat(), 94)
  49.     STRING005 = Len(STRING002) * 9
  50.     STRING004 = Len(STRING003) * 9
  51.     If (STRING005 + STRING004 == STRING006) Goto LABEL002
  52.     If (STRING005 + STRING004 <> STRING006) Goto LABEL001
  53.     End
  54.     :LABEL001
  55.     AnsiPos 33, STRING001 + 1
  56.     Print "@X8C<"
  57.     AnsiPos 35, STRING001 + 1
  58.     Print "U"
  59.     Print "N"
  60.     Print "R"
  61.     Print "E"
  62.     Print "G"
  63.     Print "I"
  64.     Print "S"
  65.     Print "T"
  66.     Print "E"
  67.     Print "R"
  68.     Print "E"
  69.     Print "D >@X08"
  70.     :LABEL002
  71.     While (Inkey() == "") Do
  72.         AnsiPos 1, STRING001
  73.         Print STRING012 + STRING007 + STRING010 + STRING008 + "P" + STRING009 + "ress Any Key to Continue" + STRING007 + STRING011
  74.         Delay 1
  75.         Goto LABEL003
  76.     EndWhile
  77.     Goto LABEL044
  78.     :LABEL003
  79.     While (Inkey() == "") Do
  80.         AnsiPos 1, STRING001
  81.         Print STRING012 + STRING010 + STRING008 + "Pr" + STRING009 + "ess Any Key to Continue" + STRING007 + STRING011
  82.         Delay 1
  83.         Goto LABEL004
  84.     EndWhile
  85.     Goto LABEL044
  86.     :LABEL004
  87.     While (Inkey() == "") Do
  88.         AnsiPos 1, STRING001
  89.         Print STRING012 + STRING010 + STRING009 + "P" + STRING008 + "re" + STRING009 + "ss Any Key to Continue" + STRING007 + STRING011
  90.         Delay 1
  91.         Goto LABEL005
  92.     EndWhile
  93.     Goto LABEL044
  94.     :LABEL005
  95.     While (Inkey() == "") Do
  96.         AnsiPos 1, STRING001
  97.         Print STRING012 + STRING010 + STRING009 + "Pr" + STRING008 + "es" + STRING009 + "s Any Key to Continue" + STRING007 + STRING011
  98.         Delay 1
  99.         Goto LABEL006
  100.     EndWhile
  101.     Goto LABEL044
  102.     :LABEL006
  103.     While (Inkey() == "") Do
  104.         AnsiPos 1, STRING001
  105.         Print STRING012 + STRING010 + STRING009 + "Pre" + STRING008 + "ss " + STRING009 + "Any Key to Continue" + STRING007 + STRING011
  106.         Delay 1
  107.         Goto LABEL007
  108.     EndWhile
  109.     Goto LABEL044
  110.     :LABEL007
  111.     While (Inkey() == "") Do
  112.         AnsiPos 1, STRING001
  113.         Print STRING012 + STRING010 + STRING009 + "Pres" + STRING008 + "s A" + STRING009 + "ny Key to Continue" + STRING007 + STRING011
  114.         Delay 1
  115.         Goto LABEL008
  116.     EndWhile
  117.     Goto LABEL044
  118.     :LABEL008
  119.     While (Inkey() == "") Do
  120.         AnsiPos 1, STRING001
  121.         Print STRING012 + STRING010 + STRING009 + "Press " + STRING008 + "An" + STRING009 + "y Key to Continue" + STRING007 + STRING011
  122.         Delay 1
  123.         Goto LABEL009
  124.     EndWhile
  125.     Goto LABEL044
  126.     :LABEL009
  127.     While (Inkey() == "") Do
  128.         AnsiPos 1, STRING001
  129.         Print STRING012 + STRING010 + STRING009 + "Press A" + STRING008 + "ny " + STRING009 + "Key to Continue" + STRING007 + STRING011
  130.         Delay 1
  131.         Goto LABEL010
  132.     EndWhile
  133.     Goto LABEL044
  134.     :LABEL010
  135.     While (Inkey() == "") Do
  136.         AnsiPos 1, STRING001
  137.         Print STRING012 + STRING010 + STRING009 + "Press An" + STRING008 + "y K" + STRING009 + "ey to Continue" + STRING007 + STRING011
  138.         Delay 1
  139.         Goto LABEL011
  140.     EndWhile
  141.     Goto LABEL044
  142.     :LABEL011
  143.     While (Inkey() == "") Do
  144.         AnsiPos 1, STRING001
  145.         Print STRING012 + STRING010 + STRING009 + "Press Any " + STRING008 + "Ke" + STRING009 + "y to Continue" + STRING007 + STRING011
  146.         Delay 1
  147.         Goto LABEL012
  148.     EndWhile
  149.     Goto LABEL044
  150.     :LABEL012
  151.     While (Inkey() == "") Do
  152.         AnsiPos 1, STRING001
  153.         Print STRING012 + STRING010 + STRING009 + "Press Any K" + STRING008 + "ey " + STRING009 + "to Continue" + STRING007 + STRING011
  154.         Delay 1
  155.         Goto LABEL013
  156.     EndWhile
  157.     Goto LABEL044
  158.     :LABEL013
  159.     While (Inkey() == "") Do
  160.         AnsiPos 1, STRING001
  161.         Print STRING012 + STRING010 + STRING009 + "Press Any Ke" + STRING008 + "y t" + STRING009 + "o Continue" + STRING007 + STRING011
  162.         Delay 1
  163.         Goto LABEL014
  164.     EndWhile
  165.     Goto LABEL044
  166.     :LABEL014
  167.     While (Inkey() == "") Do
  168.         AnsiPos 1, STRING001
  169.         Print STRING012 + STRING010 + STRING009 + "Press Any Key " + STRING008 + "to " + STRING009 + "Continue" + STRING007 + STRING011
  170.         Delay 1
  171.         Goto LABEL015
  172.     EndWhile
  173.     Goto LABEL044
  174.     :LABEL015
  175.     While (Inkey() == "") Do
  176.         AnsiPos 1, STRING001
  177.         Print STRING012 + STRING010 + STRING009 + "Press Any Key t" + STRING008 + "o C" + STRING009 + "ontinue" + STRING007 + STRING011
  178.         Delay 1
  179.         Goto LABEL016
  180.     EndWhile
  181.     Goto LABEL044
  182.     :LABEL016
  183.     While (Inkey() == "") Do
  184.         AnsiPos 1, STRING001
  185.         Print STRING012 + STRING010 + STRING009 + "Press Any Key to " + STRING008 + "Co" + STRING009 + "ntinue" + STRING007 + STRING011
  186.         Delay 1
  187.         Goto LABEL017
  188.     EndWhile
  189.     Goto LABEL044
  190.     :LABEL017
  191.     While (Inkey() == "") Do
  192.         AnsiPos 1, STRING001
  193.         Print STRING012 + STRING010 + STRING009 + "Press Any Key to C" + STRING008 + "on" + STRING009 + "tinue" + STRING007 + STRING011
  194.         Delay 1
  195.         Goto LABEL018
  196.     EndWhile
  197.     Goto LABEL044
  198.     :LABEL018
  199.     While (Inkey() == "") Do
  200.         AnsiPos 1, STRING001
  201.         Print STRING012 + STRING010 + STRING009 + "Press Any Key to Co" + STRING008 + "nt" + STRING009 + "inue" + STRING007 + STRING011
  202.         Delay 1
  203.         Goto LABEL019
  204.     EndWhile
  205.     Goto LABEL044
  206.     :LABEL019
  207.     While (Inkey() == "") Do
  208.         AnsiPos 1, STRING001
  209.         Print STRING012 + STRING010 + STRING009 + "Press Any Key to Con" + STRING008 + "ti" + STRING009 + "nue" + STRING007 + STRING011
  210.         Delay 1
  211.         Goto LABEL020
  212.     EndWhile
  213.     Goto LABEL044
  214.     :LABEL020
  215.     While (Inkey() == "") Do
  216.         AnsiPos 1, STRING001
  217.         Print STRING012 + STRING010 + STRING009 + "Press Any Key to Cont" + STRING008 + "in" + STRING009 + "ue" + STRING007 + STRING011
  218.         Delay 1
  219.         Goto LABEL021
  220.     EndWhile
  221.     Goto LABEL044
  222.     :LABEL021
  223.     While (Inkey() == "") Do
  224.         AnsiPos 1, STRING001
  225.         Print STRING012 + STRING010 + STRING009 + "Press Any Key to Conti" + STRING008 + "nu" + STRING009 + "e" + STRING007 + STRING011
  226.         Delay 1
  227.         Goto LABEL022
  228.     EndWhile
  229.     Goto LABEL044
  230.     :LABEL022
  231.     While (Inkey() == "") Do
  232.         AnsiPos 1, STRING001
  233.         Print STRING012 + STRING010 + STRING009 + "Press Any Key to Contin" + STRING008 + "ue" + STRING007 + STRING011
  234.         Delay 1
  235.         Goto LABEL023
  236.     EndWhile
  237.     Goto LABEL044
  238.     :LABEL023
  239.     While (Inkey() == "") Do
  240.         AnsiPos 1, STRING001
  241.         Print STRING012 + STRING010 + STRING009 + "Press Any Key to Continu" + STRING008 + "e" + STRING007 + STRING011
  242.         Delay 1
  243.         Goto LABEL024
  244.     EndWhile
  245.     Goto LABEL044
  246.     :LABEL024
  247.     While (Inkey() == "") Do
  248.         AnsiPos 1, STRING001
  249.         Print STRING012 + STRING010 + STRING009 + "Press Any Key to Contin" + STRING008 + "ue" + STRING007 + STRING011
  250.         Delay 1
  251.         Goto LABEL025
  252.     EndWhile
  253.     Goto LABEL044
  254.     :LABEL025
  255.     While (Inkey() == "") Do
  256.         AnsiPos 1, STRING001
  257.         Print STRING012 + STRING010 + STRING009 + "Press Any Key to Conti" + STRING008 + "nu" + STRING009 + "e" + STRING007 + STRING011
  258.         Delay 1
  259.         Goto LABEL026
  260.     EndWhile
  261.     Goto LABEL044
  262.     :LABEL026
  263.     While (Inkey() == "") Do
  264.         AnsiPos 1, STRING001
  265.         Print STRING012 + STRING010 + STRING009 + "Press Any Key to Cont" + STRING008 + "in" + STRING009 + "ue" + STRING007 + STRING011
  266.         Delay 1
  267.         Goto LABEL027
  268.     EndWhile
  269.     Goto LABEL044
  270.     :LABEL027
  271.     While (Inkey() == "") Do
  272.         AnsiPos 1, STRING001
  273.         Print STRING012 + STRING010 + STRING009 + "Press Any Key to Con" + STRING008 + "ti" + STRING009 + "nue" + STRING007 + STRING011
  274.         Delay 1
  275.         Goto LABEL028
  276.     EndWhile
  277.     Goto LABEL044
  278.     :LABEL028
  279.     While (Inkey() == "") Do
  280.         AnsiPos 1, STRING001
  281.         Print STRING012 + STRING010 + STRING009 + "Press Any Key to Co" + STRING008 + "nt" + STRING009 + "inue" + STRING007 + STRING011
  282.         Delay 1
  283.         Goto LABEL029
  284.     EndWhile
  285.     Goto LABEL044
  286.     :LABEL029
  287.     While (Inkey() == "") Do
  288.         AnsiPos 1, STRING001
  289.         Print STRING012 + STRING010 + STRING009 + "Press Any Key to C" + STRING008 + "on" + STRING009 + "tinue" + STRING007 + STRING011
  290.         Delay 1
  291.         Goto LABEL030
  292.     EndWhile
  293.     Goto LABEL044
  294.     :LABEL030
  295.     While (Inkey() == "") Do
  296.         AnsiPos 1, STRING001
  297.         Print STRING012 + STRING010 + STRING009 + "Press Any Key to " + STRING008 + "Co" + STRING009 + "ntinue" + STRING007 + STRING011
  298.         Delay 1
  299.         Goto LABEL031
  300.     EndWhile
  301.     Goto LABEL044
  302.     :LABEL031
  303.     While (Inkey() == "") Do
  304.         AnsiPos 1, STRING001
  305.         Print STRING012 + STRING010 + STRING009 + "Press Any Key t" + STRING008 + "o C" + STRING009 + "ontinue" + STRING007 + STRING011
  306.         Delay 1
  307.         Goto LABEL032
  308.     EndWhile
  309.     Goto LABEL044
  310.     :LABEL032
  311.     While (Inkey() == "") Do
  312.         AnsiPos 1, STRING001
  313.         Print STRING012 + STRING010 + STRING009 + "Press Any Key " + STRING008 + "to " + STRING009 + "Continue" + STRING007 + STRING011
  314.         Delay 1
  315.         Goto LABEL033
  316.     EndWhile
  317.     Goto LABEL044
  318.     :LABEL033
  319.     While (Inkey() == "") Do
  320.         AnsiPos 1, STRING001
  321.         Print STRING012 + STRING010 + STRING009 + "Press Any Ke" + STRING008 + "y t" + STRING009 + "o Continue" + STRING007 + STRING011
  322.         Delay 1
  323.         Goto LABEL034
  324.     EndWhile
  325.     Goto LABEL044
  326.     :LABEL034
  327.     While (Inkey() == "") Do
  328.         AnsiPos 1, STRING001
  329.         Print STRING012 + STRING010 + STRING009 + "Press Any K" + STRING008 + "ey " + STRING009 + "to Continue" + STRING007 + STRING011
  330.         Delay 1
  331.         Goto LABEL035
  332.     EndWhile
  333.     Goto LABEL044
  334.     :LABEL035
  335.     While (Inkey() == "") Do
  336.         AnsiPos 1, STRING001
  337.         Print STRING012 + STRING010 + STRING009 + "Press Any " + STRING008 + "Ke" + STRING009 + "y to Continue" + STRING007 + STRING011
  338.         Delay 1
  339.         Goto LABEL036
  340.     EndWhile
  341.     Goto LABEL044
  342.     :LABEL036
  343.     While (Inkey() == "") Do
  344.         AnsiPos 1, STRING001
  345.         Print STRING012 + STRING010 + STRING009 + "Press An" + STRING008 + "y K" + STRING009 + "ey to Continue" + STRING007 + STRING011
  346.         Delay 1
  347.         Goto LABEL037
  348.     EndWhile
  349.     Goto LABEL044
  350.     :LABEL037
  351.     While (Inkey() == "") Do
  352.         AnsiPos 1, STRING001
  353.         Print STRING012 + STRING010 + STRING009 + "Press A" + STRING008 + "ny " + STRING009 + "Key to Continue" + STRING007 + STRING011
  354.         Delay 1
  355.         Goto LABEL038
  356.     EndWhile
  357.     Goto LABEL044
  358.     :LABEL038
  359.     While (Inkey() == "") Do
  360.         AnsiPos 1, STRING001
  361.         Print STRING012 + STRING010 + STRING009 + "Press " + STRING008 + "An" + STRING009 + "y Key to Continue" + STRING007 + STRING011
  362.         Delay 1
  363.         Goto LABEL039
  364.     EndWhile
  365.     Goto LABEL044
  366.     :LABEL039
  367.     While (Inkey() == "") Do
  368.         AnsiPos 1, STRING001
  369.         Print STRING012 + STRING010 + STRING009 + "Pres" + STRING008 + "s A" + STRING009 + "ny Key to Continue" + STRING007 + STRING011
  370.         Delay 1
  371.         Goto LABEL040
  372.     EndWhile
  373.     Goto LABEL044
  374.     :LABEL040
  375.     While (Inkey() == "") Do
  376.         AnsiPos 1, STRING001
  377.         Print STRING012 + STRING010 + STRING009 + "Pre" + STRING008 + "ss " + STRING009 + "Any Key to Continue" + STRING007 + STRING011
  378.         Delay 1
  379.         Goto LABEL041
  380.     EndWhile
  381.     Goto LABEL044
  382.     :LABEL041
  383.     While (Inkey() == "") Do
  384.         AnsiPos 1, STRING001
  385.         Print STRING012 + STRING010 + STRING009 + "Pr" + STRING008 + "es" + STRING009 + "s Any Key to Continue" + STRING007 + STRING011
  386.         Delay 1
  387.         Goto LABEL042
  388.     EndWhile
  389.     Goto LABEL044
  390.     :LABEL042
  391.     While (Inkey() == "") Do
  392.         AnsiPos 1, STRING001
  393.         Print STRING012 + STRING010 + STRING009 + "P" + STRING008 + "re" + STRING009 + "ss Any Key to Continue" + STRING007 + STRING011
  394.         Delay 1
  395.         Goto LABEL043
  396.     EndWhile
  397.     Goto LABEL044
  398.     :LABEL043
  399.     While (Inkey() == "") Do
  400.         AnsiPos 1, STRING001
  401.         Print STRING012 + STRING010 + STRING008 + "Pr" + STRING009 + "ess Any Key to Continue" + STRING007 + STRING011
  402.         Delay 1
  403.         Goto LABEL002
  404.     EndWhile
  405.     :LABEL044
  406.     AnsiPos 1, STRING001
  407.     Print "@X08                                                                        "
  408.     Newline
  409.     KbdStuff Chr(13)
  410.     End
  411.  
  412. ;------------------------------------------------------------------------------
  413. ;
  414. ; Usage report (before postprocessing)
  415. ;
  416. ; ■ Statements used :
  417. ;
  418. ;    2       End
  419. ;    170     Goto 
  420. ;    6       Let 
  421. ;    56      Print 
  422. ;    2       PrintLn 
  423. ;    44      If 
  424. ;    1       FOpen 
  425. ;    1       FClose 
  426. ;    7       FGet 
  427. ;    42      Delay 
  428. ;    1       Newline
  429. ;    1       KbdStuff 
  430. ;    45      AnsiPos 
  431. ;
  432. ;
  433. ; ■ Functions used :
  434. ;
  435. ;    2       *
  436. ;    372     +
  437. ;    1       -
  438. ;    43      ==
  439. ;    1       <>
  440. ;    42      !
  441. ;    2       Len(
  442. ;    1       Chr()
  443. ;    42      Inkey()
  444. ;    2       PCBDat()
  445. ;    1       PPEPath()
  446. ;    2       ReadLine()
  447. ;    1       GetY()
  448. ;
  449. ;------------------------------------------------------------------------------
  450. ;
  451. ; Analysis flags : d
  452. ;
  453. ; d - Access PCBOARD.DAT ■ 2
  454. ;     Program gets the full pathname to PCBOARD.DAT, this may be usefull
  455. ;     for many PPE so they can find various informations on the system
  456. ;     (system paths, max number of lines in messages, ...) but it may also
  457. ;     be a way to gather vital informations.
  458. ;     ■ Search for : PCBDAT()
  459. ;
  460. ;------------------------------------------------------------------------------
  461. ;
  462. ; Postprocessing report
  463. ;
  464. ;    0       For/Next
  465. ;    42      While/EndWhile
  466. ;    0       If/Then or If/Then/Else
  467. ;    0       Select Case
  468. ;
  469. ;------------------------------------------------------------------------------
  470. ;                 AEGiS Corp - Break the routines, code against the machines!
  471. ;------------------------------------------------------------------------------
  472.