home *** CD-ROM | disk | FTP | other *** search
/ Carsten's PPE Collection / Carstens_PPE_Collection_2007.zip / T / TNH!NOM.ZIP / SYSTEM.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1996-02-13  |  2KB  |  135 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.     Integer  INTEGER001
  20.     Integer  INTEGER002
  21.     String   STRING001
  22.     String   STRING002
  23.  
  24. ;------------------------------------------------------------------------------
  25.  
  26.     FOpen 1, PPEPath() + "NOM.CFG", 0, 0
  27.     FGet 1, STRING001
  28.     INTEGER001 = 2
  29.     STRING002 = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz _!./,'"
  30.     AnsiPos 0, 16
  31.     PrintLn "@X07code : "
  32.     AnsiPos 8, 16
  33.     PrintLn ""
  34.     Delay 3
  35.     AnsiPos 9, 16
  36.     PrintLn ""
  37.     Delay 3
  38.     AnsiPos 10, 16
  39.     PrintLn ""
  40.     Delay 3
  41.     AnsiPos 11, 16
  42.     PrintLn ""
  43.     Delay 3
  44.     AnsiPos 12, 16
  45.     PrintLn ""
  46.     Delay 3
  47.     AnsiPos 13, 16
  48.     PrintLn ""
  49.     Delay 3
  50.     AnsiPos 0, 18
  51.     PrintLn ">"
  52.     Delay 1
  53.     AnsiPos 2, 18
  54.     PrintLn "d"
  55.     Delay 3
  56.     AnsiPos 3, 18
  57.     PrintLn "e"
  58.     Delay 3
  59.     AnsiPos 4, 18
  60.     PrintLn "v"
  61.     Delay 3
  62.     AnsiPos 5, 18
  63.     PrintLn "i"
  64.     Delay 3
  65.     AnsiPos 6, 18
  66.     PrintLn "c"
  67.     Delay 3
  68.     AnsiPos 7, 18
  69.     PrintLn "e"
  70.     Delay 3
  71.     AnsiPos 10, 18
  72.     PrintLn "-"
  73.     Delay 3
  74.     AnsiPos 11, 18
  75.     PrintLn "d"
  76.     Delay 3
  77.     AnsiPos 12, 18
  78.     PrintLn "v"
  79.     Delay 3
  80.     AnsiPos 13, 18
  81.     PrintLn "l"
  82.     Delay 3
  83.     AnsiPos 15, 18
  84.     PrintLn "-"
  85.     Delay 3
  86.     AnsiPos 16, 18
  87.     PrintLn "a"
  88.     Delay 3
  89.     AnsiPos 0, 19
  90.     PrintLn "reading ''M.X.S.''"
  91.     Delay 4
  92.     AnsiPos 0, 20
  93.     PrintLn "reading ''BD-E''"
  94.     Delay 4
  95.     AnsiPos 0, 21
  96.     PrintLn "reading ''WARNING''"
  97.     Delay 4
  98.     INTEGER002 = 0
  99.  
  100. ;------------------------------------------------------------------------------
  101. ;
  102. ; Usage report (before postprocessing)
  103. ;
  104. ; ■ Statements used :
  105. ;
  106. ;    3       Let 
  107. ;    23      PrintLn 
  108. ;    1       FOpen 
  109. ;    1       FGet 
  110. ;    22      Delay 
  111. ;    23      AnsiPos 
  112. ;
  113. ;
  114. ; ■ Functions used :
  115. ;
  116. ;    1       +
  117. ;    1       PPEPath()
  118. ;
  119. ;------------------------------------------------------------------------------
  120. ;
  121. ; Analysis flags : No flag
  122. ;
  123. ;------------------------------------------------------------------------------
  124. ;
  125. ; Postprocessing report
  126. ;
  127. ;    0       For/Next
  128. ;    0       While/EndWhile
  129. ;    0       If/Then or If/Then/Else
  130. ;    0       Select Case
  131. ;
  132. ;------------------------------------------------------------------------------
  133. ;                 AEGiS Corp - Break the routines, code against the machines!
  134. ;------------------------------------------------------------------------------
  135.