home *** CD-ROM | disk | FTP | other *** search
/ The Equalizer BBS / equalizer-bbs-collection_2004.zip / equalizer-bbs-collection / DEMOSCENE-STUFF / SAC1295B.ZIP / SAC-EOMU.ZIP / SAC-EOM.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1995-10-11  |  5KB  |  324 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  TINTEGER001(14)
  20.     Integer  INTEGER002
  21.     Integer  INTEGER003
  22.     String   TSTRING001(14)
  23.     String   TSTRING002(14)
  24.     String   STRING003
  25.     String   STRING004
  26.     String   STRING005
  27.     String   STRING006
  28.     String   STRING007
  29.     String   STRING008
  30.     String   STRING009
  31.     String   STRING010
  32.     String   STRING011
  33.  
  34. ;------------------------------------------------------------------------------
  35.  
  36.     STRING003 = "@X08"
  37.     STRING004 = "@X0F"
  38.     STRING005 = "@X08                                                                        "
  39.     TSTRING001(1) = "A"
  40.     TSTRING001(2) = "C"
  41.     TSTRING001(3) = "D"
  42.     TSTRING001(4) = "E"
  43.     TSTRING001(5) = "F"
  44.     TSTRING001(6) = "I"
  45.     TSTRING001(7) = "L"
  46.     TSTRING001(8) = "Q"
  47.     TSTRING001(9) = "U"
  48.     TSTRING001(10) = "S"
  49.     TSTRING001(11) = "SA"
  50.     TSTRING001(12) = "SC"
  51.     TSTRING001(13) = "SK"
  52.     TSTRING001(14) = "SN"
  53.     TINTEGER001(1) = 3
  54.     TINTEGER001(2) = 8
  55.     TINTEGER001(3) = 13
  56.     TINTEGER001(4) = 18
  57.     TINTEGER001(5) = 23
  58.     TINTEGER001(6) = 28
  59.     TINTEGER001(7) = 33
  60.     TINTEGER001(8) = 38
  61.     TINTEGER001(9) = 43
  62.     TINTEGER001(10) = 48
  63.     TINTEGER001(11) = 53
  64.     TINTEGER001(12) = 59
  65.     TINTEGER001(13) = 65
  66.     TINTEGER001(14) = 71
  67.     FOpen 1, PPEPath() + "SAC-EOM.CFG", 2, 0
  68.     FGet 1, STRING007
  69.     FGet 1, STRING008
  70.     FGet 1, STRING009
  71.     FGet 1, STRING010
  72.     FGet 1, STRING011
  73.     For INTEGER003 = 1 To 14
  74.         FGet 1, TSTRING002(INTEGER003)
  75.     Next
  76.     FClose 1
  77.     PrintLn "@CLS@"
  78.     AnsiPos 1, 6
  79.     PrintLn STRING009
  80.     PrintLn "@X08 ────────────────────────────────────────────────────────────────────────────"
  81.     AnsiPos 4, 8
  82.     INTEGER002 = 1
  83.     Gosub LABEL001
  84.     AnsiPos 1, 9
  85.     PrintLn "@X08 ────────────────────────────────────────────────────────────────────────────"
  86.     AnsiPos 1, 11
  87.     PrintLn "@X08 ────────────────────────────────────────────────────────────────────────────"
  88.     AnsiPos 1, 12
  89.     Print STRING011
  90.     Print "@X08@POS:63@V1.1 (c)ROY/SAC"
  91.     AnsiPos TINTEGER001(10), 8
  92.     Print STRING007, " (", TSTRING001(10), ") "
  93.     AnsiPos 2, 10
  94.     Print STRING010, STRING008, TSTRING002(10)
  95.     INTEGER002 = 10
  96.     Goto LABEL002
  97.     :LABEL001
  98.     Print STRING003, "(", STRING004, TSTRING001(INTEGER002), STRING003, ")  "
  99.     If (INTEGER002 == 14) Return
  100.     Inc INTEGER002
  101.     Goto LABEL001
  102.     :LABEL002
  103.     If (FALSE) Goto LABEL003
  104.     STRING006 = Upper(Inkey())
  105.     Select Case (STRING006)
  106.         Case "LEFT"
  107.             If (INTEGER002 > 1) Then
  108.                 AnsiPos TINTEGER001(INTEGER002), 8
  109.                 Print STRING003, " (", STRING004, TSTRING001(INTEGER002), STRING003, ") "
  110.                 Dec INTEGER002
  111.                 AnsiPos TINTEGER001(INTEGER002), 8
  112.                 Print STRING007, " (", TSTRING001(INTEGER002), ") "
  113.                 AnsiPos 2, 10
  114.                 Print STRING005
  115.                 AnsiPos 2, 10
  116.                 Print STRING010, STRING008, TSTRING002(INTEGER002)
  117.             Else
  118.                 AnsiPos TINTEGER001(INTEGER002), 8
  119.                 Print STRING003, " (", STRING004, TSTRING001(INTEGER002), STRING003, ") "
  120.                 INTEGER002 = 14
  121.                 AnsiPos TINTEGER001(INTEGER002), 8
  122.                 Print STRING007, " (", TSTRING001(INTEGER002), ") "
  123.                 AnsiPos 2, 10
  124.                 Print STRING005
  125.                 AnsiPos 2, 10
  126.                 Print STRING010, STRING008, TSTRING002(INTEGER002)
  127.             Endif
  128.         Case "RIGHT"
  129.             If (INTEGER002 < 14) Then
  130.                 AnsiPos TINTEGER001(INTEGER002), 8
  131.                 Print STRING003, " (", STRING004, TSTRING001(INTEGER002), STRING003, ") "
  132.                 Inc INTEGER002
  133.                 AnsiPos TINTEGER001(INTEGER002), 8
  134.                 Print STRING007, " (", TSTRING001(INTEGER002), ") "
  135.                 AnsiPos 2, 10
  136.                 Print STRING005
  137.                 AnsiPos 2, 10
  138.                 Print STRING010, STRING008, TSTRING002(INTEGER002)
  139.             Else
  140.                 AnsiPos TINTEGER001(INTEGER002), 8
  141.                 Print STRING003, " (", STRING004, TSTRING001(INTEGER002), STRING003, ") "
  142.                 INTEGER002 = 1
  143.                 AnsiPos TINTEGER001(INTEGER002), 8
  144.                 Print STRING007, " (", TSTRING001(INTEGER002), ") "
  145.                 AnsiPos 2, 10
  146.                 Print STRING005
  147.                 AnsiPos 2, 10
  148.                 Print STRING010, STRING008, TSTRING002(INTEGER002)
  149.             Endif
  150.         Case Chr(13)
  151.             Goto LABEL003
  152.         Case "A", Chr(27)
  153.             AnsiPos TINTEGER001(INTEGER002), 8
  154.             Print STRING003, " (", STRING004, TSTRING001(INTEGER002), STRING003, ") "
  155.             INTEGER002 = 1
  156.             AnsiPos TINTEGER001(INTEGER002), 8
  157.             Print STRING007, " (", TSTRING001(INTEGER002), ") "
  158.             AnsiPos 2, 10
  159.             Print STRING005
  160.             AnsiPos 2, 10
  161.             Print STRING010, STRING008, TSTRING002(INTEGER002)
  162.             Goto LABEL003
  163.         Case "C"
  164.             AnsiPos TINTEGER001(INTEGER002), 8
  165.             Print STRING003, " (", STRING004, TSTRING001(INTEGER002), STRING003, ") "
  166.             INTEGER002 = 2
  167.             AnsiPos TINTEGER001(INTEGER002), 8
  168.             Print STRING007, " (", TSTRING001(INTEGER002), ") "
  169.             AnsiPos 2, 10
  170.             Print STRING005
  171.             AnsiPos 2, 10
  172.             Print STRING010, STRING008, TSTRING002(INTEGER002)
  173.             Goto LABEL003
  174.         Case "D"
  175.             AnsiPos TINTEGER001(INTEGER002), 8
  176.             Print STRING003, " (", STRING004, TSTRING001(INTEGER002), STRING003, ") "
  177.             INTEGER002 = 3
  178.             AnsiPos TINTEGER001(INTEGER002), 8
  179.             Print STRING007, " (", TSTRING001(INTEGER002), ") "
  180.             AnsiPos 2, 10
  181.             Print STRING005
  182.             AnsiPos 2, 10
  183.             Print STRING010, STRING008, TSTRING002(INTEGER002)
  184.             Goto LABEL003
  185.         Case "E"
  186.             AnsiPos TINTEGER001(INTEGER002), 8
  187.             Print STRING003, " (", STRING004, TSTRING001(INTEGER002), STRING003, ") "
  188.             INTEGER002 = 4
  189.             AnsiPos TINTEGER001(INTEGER002), 8
  190.             Print STRING007, " (", TSTRING001(INTEGER002), ") "
  191.             AnsiPos 2, 10
  192.             Print STRING005
  193.             AnsiPos 2, 10
  194.             Print STRING010, STRING008, TSTRING002(INTEGER002)
  195.             Goto LABEL003
  196.         Case "F"
  197.             AnsiPos TINTEGER001(INTEGER002), 8
  198.             Print STRING003, " (", STRING004, TSTRING001(INTEGER002), STRING003, ") "
  199.             INTEGER002 = 5
  200.             AnsiPos TINTEGER001(INTEGER002), 8
  201.             Print STRING007, " (", TSTRING001(INTEGER002), ") "
  202.             AnsiPos 2, 10
  203.             Print STRING005
  204.             AnsiPos 2, 10
  205.             Print STRING010, STRING008, TSTRING002(INTEGER002)
  206.             Goto LABEL003
  207.         Case "I"
  208.             AnsiPos TINTEGER001(INTEGER002), 8
  209.             Print STRING003, " (", STRING004, TSTRING001(INTEGER002), STRING003, ") "
  210.             INTEGER002 = 6
  211.             AnsiPos TINTEGER001(INTEGER002), 8
  212.             Print STRING007, " (", TSTRING001(INTEGER002), ") "
  213.             AnsiPos 2, 10
  214.             Print STRING005
  215.             AnsiPos 2, 10
  216.             Print STRING010, STRING008, TSTRING002(INTEGER002)
  217.             Goto LABEL003
  218.         Case "L"
  219.             AnsiPos TINTEGER001(INTEGER002), 8
  220.             Print STRING003, " (", STRING004, TSTRING001(INTEGER002), STRING003, ") "
  221.             INTEGER002 = 7
  222.             AnsiPos TINTEGER001(INTEGER002), 8
  223.             Print STRING007, " (", TSTRING001(INTEGER002), ") "
  224.             AnsiPos 2, 10
  225.             Print STRING005
  226.             AnsiPos 2, 10
  227.             Print STRING010, STRING008, TSTRING002(INTEGER002)
  228.             Goto LABEL003
  229.         Case "Q"
  230.             AnsiPos TINTEGER001(INTEGER002), 8
  231.             Print STRING003, " (", STRING004, TSTRING001(INTEGER002), STRING003, ") "
  232.             INTEGER002 = 8
  233.             AnsiPos TINTEGER001(INTEGER002), 8
  234.             Print STRING007, " (", TSTRING001(INTEGER002), ") "
  235.             AnsiPos 2, 10
  236.             Print STRING005
  237.             AnsiPos 2, 10
  238.             Print STRING010, STRING008, TSTRING002(INTEGER002)
  239.             Goto LABEL003
  240.         Case "U"
  241.             AnsiPos TINTEGER001(INTEGER002), 8
  242.             Print STRING003, " (", STRING004, TSTRING001(INTEGER002), STRING003, ") "
  243.             INTEGER002 = 9
  244.             AnsiPos TINTEGER001(INTEGER002), 8
  245.             Print STRING007, " (", TSTRING001(INTEGER002), ") "
  246.             AnsiPos 2, 10
  247.             Print STRING005
  248.             AnsiPos 2, 10
  249.             Print STRING010, STRING008, TSTRING002(INTEGER002)
  250.             Goto LABEL003
  251.         Case "S"
  252.             AnsiPos TINTEGER001(INTEGER002), 8
  253.             Print STRING003, " (", STRING004, TSTRING001(INTEGER002), STRING003, ") "
  254.             INTEGER002 = 10
  255.             AnsiPos TINTEGER001(INTEGER002), 8
  256.             Print STRING007, " (", TSTRING001(INTEGER002), ") "
  257.             AnsiPos 2, 10
  258.             Print STRING005
  259.             AnsiPos 2, 10
  260.             Print STRING010, STRING008, TSTRING002(INTEGER002)
  261.             Goto LABEL003
  262.     End Select
  263.     Goto LABEL002
  264.     :LABEL003
  265.     AnsiPos 1, 14
  266.     KbdStuff TSTRING001(INTEGER002) + Chr(13)
  267.     End
  268.  
  269. ;------------------------------------------------------------------------------
  270. ;
  271. ; Usage report (before postprocessing)
  272. ;
  273. ; ■ Statements used :
  274. ;
  275. ;    1       End
  276. ;    46      Goto 
  277. ;    48      Let 
  278. ;    61      Print 
  279. ;    5       PrintLn 
  280. ;    18      If 
  281. ;    1       FOpen 
  282. ;    1       FClose 
  283. ;    6       FGet 
  284. ;    1       Gosub 
  285. ;    1       Return
  286. ;    2       Inc 
  287. ;    1       Dec 
  288. ;    1       KbdStuff 
  289. ;    64      AnsiPos 
  290. ;
  291. ;
  292. ; ■ Functions used :
  293. ;
  294. ;    3       +
  295. ;    15      ==
  296. ;    2       <
  297. ;    1       <=
  298. ;    1       >
  299. ;    2       >=
  300. ;    17      !
  301. ;    2       &&
  302. ;    2       ||
  303. ;    1       Upper()
  304. ;    3       Chr()
  305. ;    1       Inkey()
  306. ;    1       PPEPath()
  307. ;
  308. ;------------------------------------------------------------------------------
  309. ;
  310. ; Analysis flags : No flag
  311. ;
  312. ;------------------------------------------------------------------------------
  313. ;
  314. ; Postprocessing report
  315. ;
  316. ;    1       For/Next
  317. ;    0       While/EndWhile
  318. ;    2       If/Then or If/Then/Else
  319. ;    1       Select Case
  320. ;
  321. ;------------------------------------------------------------------------------
  322. ;                 AEGiS Corp - Break the routines, code against the machines!
  323. ;------------------------------------------------------------------------------
  324.