home *** CD-ROM | disk | FTP | other *** search
/ Groovy Bytes: Behind the Moon / groovybytes.iso / GROOVY / PPE / MOZICART / MOZ_ANUM.ZIP / ANUM.PPE (.txt) < prev    next >
Encoding:
PCBoard Programming Language Executable  |  1995-06-06  |  1.6 KB  |  122 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 3.O1 (Encryption type I) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Boolean  BOOLEAN001
  20.     Boolean  BOOLEAN002
  21.     Date     DATE001
  22.     Integer  INTEGER001
  23.     String   STRING001
  24.     String   STRING002
  25.     String   STRING003
  26.     String   STRING004
  27.     String   STRING005
  28.  
  29. ;------------------------------------------------------------------------------
  30.  
  31.     If (Exist(PPEPath() + PPEName() + ".MSG")) Goto LABEL001
  32.     PrintLn "@X0AAutomatic New User Message @X0F-@X0A v1.0 Coded by @X02VEN@X0Ai@X02OR"
  33.     PrintLn "@X0AA MOZ@X02[iC]@X0AART@X0F Production 1995."
  34.     PrintLn "@X0FMessage to send not found. PPE Aborted!"
  35.     Delay 12
  36.     End
  37.     :LABEL001
  38.     If (Exist(PPEPath() + PPEName() + ".CFG")) Goto LABEL002
  39.     PrintLn "@X0AAutomatic New User Message @X0F-@X0A v1.0 Coded by @X02VEN@X0Ai@X02OR"
  40.     PrintLn "@X0AA MOZ@X02[iC]@X0AART@X0F Production 1995."
  41.     PrintLn "@X0FConfiguration file not found. PPE Aborted!"
  42.     Delay 12
  43.     End
  44.     :LABEL002
  45.     SaveScrn
  46.     FOpen 1, PPEPath() + PPEName() + ".CFG", 0, 2
  47.     FGet 1, STRING002
  48.     FGet 1, STRING003
  49.     FGet 1, STRING004
  50.     PrintLn "@X0AAutomatic New User Message @X0F-@X0A v1.0 Coded by @X02VEN@X0Ai@X02OR"
  51.     PrintLn "@X0AA MOZ@X02[iC]@X0AART@X0F Production 1995."
  52.     PrintLn "@X0FChecking configuration ..."
  53.     Delay 10
  54.     PrintLn "@X0FChecking message ..."
  55.     Delay 10
  56.     PrintLn "@X02Done!"
  57.     Delay 7
  58.     ShowOff
  59.     INTEGER001 = 0
  60.     STRING001 = ""
  61.     PrintLn STRING002
  62.     PrintLn STRING003
  63.     PrintLn STRING004
  64.     DATE001 = Date() + 3
  65.     BOOLEAN001 = 0
  66.     BOOLEAN002 = 0
  67.     STRING005 = PPEPath() + PPEName() + ".MSG"
  68.     Message INTEGER001, STRING001, STRING002, STRING003, STRING004, DATE001, BOOLEAN001, BOOLEAN002, STRING005
  69.     ConfFlag 0, 16
  70.     ShowOn
  71.  
  72. ;------------------------------------------------------------------------------
  73. ;
  74. ; Usage report (before postprocessing)
  75. ;
  76. ; ■ Statements used :
  77. ;
  78. ;    2       End
  79. ;    3       Goto 
  80. ;    6       Let 
  81. ;    14      PrintLn 
  82. ;    2       If 
  83. ;    1       ConfFlag 
  84. ;    1       FOpen 
  85. ;    3       FGet 
  86. ;    5       Delay 
  87. ;    1       Message 
  88. ;    1       SaveScrn
  89. ;    1       ShowOn
  90. ;    1       ShowOff
  91. ;
  92. ;
  93. ; ■ Functions used :
  94. ;
  95. ;    9       +
  96. ;    1       Date()
  97. ;    4       PPEPath()
  98. ;    2       Exist()
  99. ;    4       PPEName()
  100. ;
  101. ;------------------------------------------------------------------------------
  102. ;
  103. ; Analysis flags : F
  104. ;
  105. ; F - Change conference flags status ■ 2
  106. ;     This may be normal for a SELECT replacement but it may also be
  107. ;     a way to get access to conferences a user is not allowed to.
  108. ;     ■ Search for : CONFFLAG, CONFUNFLAG
  109. ;
  110. ;------------------------------------------------------------------------------
  111. ;
  112. ; Postprocessing report
  113. ;
  114. ;    0       For/Next
  115. ;    0       While/EndWhile
  116. ;    0       If/Then or If/Then/Else
  117. ;    0       Select Case
  118. ;
  119. ;------------------------------------------------------------------------------
  120. ;                 AEGiS Corp - Break the routines, code against the machines!
  121. ;------------------------------------------------------------------------------
  122.