home *** CD-ROM | disk | FTP | other *** search
/ Groovy Bytes: Behind the Moon / groovybytes.iso / GROOVY / PPE / DIAMOND / CKDIZ130.ZIP / PCB152.ZIP / HELP.PPE (.txt) < prev    next >
Encoding:
PCBoard Programming Language Executable  |  1994-11-30  |  9.5 KB  |  233 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.     Integer  INTEGER003
  22.     Integer  INTEGER004
  23.     Integer  INTEGER005
  24.     Integer  INTEGER006
  25.     Integer  INTEGER007
  26.     Integer  INTEGER008
  27.     String   TSTRING001(24)
  28.     String   STRING002
  29.     String   STRING003
  30.     String   STRING004
  31.     String   STRING005
  32.  
  33. ;------------------------------------------------------------------------------
  34.  
  35.     Print "@X07"
  36.     If (Exist(PPEPath() + "HLP-FLD" + LangExt())) STRING005 = "HLP-FLD" + LangExt()
  37.     If (Exist(PPEPath() + "HLP-FLD") && !Exist(PPEPath() + "HLP-FLD" + LangExt())) STRING005 = "HLP-FLD"
  38.     If (LangExt() <> ".AMI") Then
  39.         INTEGER004 = 66
  40.         INTEGER005 = 10
  41.         INTEGER006 = 6
  42.         INTEGER007 = 2
  43.         STRING002 = "@X0B"
  44.         STRING003 = "@X7F"
  45.         INTEGER003 = 1
  46.         Cls
  47.         If (GrafMode() == "A") Then
  48.             PrintLn "@X0F                                                    ▄                       (r)"
  49.             PrintLn "@X0F   ▄█████  ███ ███  ██████  ▄█████  ███ ███       ▄██▀ ██████▄  ▄█▄  ███████"
  50.             PrintLn "@X0F   ███     ███▄███  ███▄▄   ███     ███▄██▀     ▄██▀   ███ ███  ▄█▄     ▄██▀"
  51.             PrintLn "@X0F   ███     ███ ███  ███     ███     ███ ███   ▄██▀     ███ ███  ███   ▄██▀"
  52.             PrintLn "@X0F   ▀█████  ███ ███  ██████  ▀█████  ███ ███ ▄██▀       ██████▀  ███  ███████"
  53.             PrintLn "@X0F                                             ▀@X07"
  54.         Endif
  55.         If (GrafMode() <> "A") Then
  56.             PrintLn "@X08          ▄   ▄    ▄               ▄   ▄            ▄   ▄         @X07▄   @X08▄     @X07(@X0Fr@X05)"
  57.             Print "@X05  @X0F▄@X7F▀@X78▄@X75▄@X58▀@X5D▄@X08▄▀@X7F▀@X78▄▄@X08▀@X7F▀@X78▄▄@X05 @X08▀@X7F▀@X78▄▄@X75▄@X58▀@X5D▄@X08▄ @X0F▄@X7F▀@X78▄@X75▄@X58▀@X5D▄@X08▄▀@X7F▀@X78▄▄@X08▀@X7F▀@X78▄▄@X08        ▄@X58▀@X5D▄@X08▀ ▀@X7F▀@X78▄▄"
  58.             PrintLn "@X08███▄  @X0F▀@X58▀@X0D▀ @X08▀@X7F▀@X78▄▄███@X58▀@X07"
  59.             PrintLn "@X0F  @X07█@X08██  ▀  @X78▄@X08██▄@X78▄@X08██  @X78▄@X08██@X05▄@X0D▄@X08█  @X78 @X08██  ▀  @X78▄@X08██▄@X78▄@X08█▀      @X0F▄@X75▄@X5D▄@X0D▀    @X78▄@X08██ ███ ▄@X0F▄@X07▄▄     @X0F▄@X75▄@X5D▄@X0D▀"
  60.             PrintLn "@X0D  @X08███     ██@X58▀@X08 ██@X58▀@X05  @X08███ ▀   ███     ██@X58▀@X08 ██@X58▀@X08    @X0F▄@X7F▀@X75▄@X0D▀      @X08███ ██@X5D @X05  @X07█@X08█@X58▀@X05   @X0F▄@X7F▀@X75▄@X0D▀"
  61.             PrintLn "@X0D  @X08▀██@X58▀▀@X5D▄@X08▄ @X58▀▀@X5D▄@X08▄@X58▀▀@X5D▄@X08▄ ██@X58▀▀▀@X5D▄@X08▄ ▀██@X58▀▀@X5D▄@X08▄ @X58▀▀@X5D▄@X08▄@X58▀▀@X5D▄@X08▄ ▄@X7F▀@X78▄@X08▀        ███@X58▀▀@X5D▄@X0D▀  @X58▀▀@X5D▄@X08▄ @X7F▀@X78▄██@X58▀▀@X5D▄@X08▄"
  62.             PrintLn "@X08       ▀    ▀   ▀       ▀       ▀    ▀   ▀   ▀                     ▀        ▀@X07"
  63.         Endif
  64.         PrintLn "@X08  @X0F▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄"
  65.         PrintLn "@X0F  @X7F█@X0F██@X7F▓@X0F█@X7F▓@X0F██@X7F▓@X0F█@X7F▓▓▓▒▒▒ ░  HELP DOCUMENT FOR THE DESCR. EDiTOR                 %  █@X07"
  66.         PrintLn "@X0F  @X7F▓@X0F██@X08█▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀@X78█  @X7F▓@X07"
  67.         PrintLn "@X0F  @X7F█▓█@X78█@X0F                                                                    @X78▓  @X7F▒@X07"
  68.         PrintLn "@X0F  @X7F█▓▓@X78█@X0F                                                                    @X78▒  @X7F░@X07"
  69.         PrintLn "@X0F  @X7F█▒▓@X78█@X08                                                                    @X78░@X78   @X07"
  70.         PrintLn "@X0F  @X7F█▒▒@X78▓@X08                                                                    @X7F @X78░ ░@X07"
  71.         PrintLn "@X0F  @X7F▓░▒@X78▒@X0F                                                                    @X7F░@X78░░▒@X07"
  72.         PrintLn "@X0F  @X7F▒ ░@X78░@X0F                                                                    @X7F▒@X78▒░▓@X07"
  73.         PrintLn "@X0F  @X7F░   @X0F                                                                    @X7F▓@X78▒▒█@X07"
  74.         PrintLn "@X0F  @X7F   @X7F░@X0F                                                                    @X7F█@X78▓▒█@X07"
  75.         PrintLn "@X0F  @X78░  @X7F▒@X0F                                                                    @X7F█@X78▓▓█@X07"
  76.         PrintLn "@X0F  @X78▒  @X7F▓@X0F                                                                    @X7F█@X78█▓█@X07"
  77.         PrintLn "@X0F  @X78▓  @X7F█@X0F▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄@X7F█@X78█@X08▓@X78█@X07"
  78.         PrintLn "@X0F  @X78█  @X7Fuse numeric/cursor keys              @X78░             ░ ░░░▒▒▒▓▓▓█▓██▓█▓@X08█▓▒@X78█@X07"
  79.         PrintLn "@X0F  @X08▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀@X07"
  80.     Endif
  81.     If (LangExt() == ".AMI") Then
  82.         INTEGER004 = 63
  83.         INTEGER005 = 9
  84.         INTEGER006 = 3
  85.         INTEGER007 = 5
  86.         STRING002 = "@X0F"
  87.         STRING003 = "@X0F"
  88.         INTEGER003 = 1
  89.         AnsiPos INTEGER007, 1 + INTEGER006
  90.         Print "@X0F ________________________________________________________________________ "
  91.         AnsiPos INTEGER007, 2 + INTEGER006
  92.         Print "@X0F|\ ________________________________________________________________   % /|"
  93.         AnsiPos INTEGER007, 3 + INTEGER006
  94.         Print "@X0F| |                                                                    | |"
  95.         AnsiPos INTEGER007, 4 + INTEGER006
  96.         Print "@X0F| |                                                                    | |"
  97.         AnsiPos INTEGER007, 5 + INTEGER006
  98.         Print "@X0F| |                                                                    | |"
  99.         AnsiPos INTEGER007, 6 + INTEGER006
  100.         Print "@X0F@X0B| @X0F|                                                                    | @X0B|"
  101.         AnsiPos INTEGER007, 7 + INTEGER006
  102.         Print "@X0B| |                                                                    | |"
  103.         AnsiPos INTEGER007, 8 + INTEGER006
  104.         Print "@X0B| |                                                                    | |"
  105.         AnsiPos INTEGER007, 9 + INTEGER006
  106.         Print "@X0B| |                                                                    | |"
  107.         AnsiPos INTEGER007, 10 + INTEGER006
  108.         Print "@X0B| @X09|                                                                    | @X0B|"
  109.         AnsiPos INTEGER007, 11 + INTEGER006
  110.         Print "@X0B@X09| |                                                                    | |"
  111.         AnsiPos INTEGER007, 12 + INTEGER006
  112.         Print "@X09| |                                                                    | |"
  113.         AnsiPos INTEGER007, 13 + INTEGER006
  114.         Print "@X09| |_____________@X0B_@X09_@X0B_____________________________________@X09_@X0B_@X09______________| |"
  115.         AnsiPos INTEGER007, 14 + INTEGER006
  116.         Print "@X09|/_use cursor/n@X0Bu@X09m@X0Beric keys______________________________@X09_@X0B_@X09______________\|@X07"
  117.     Endif
  118.     TSTRING001(1) = "Welcome to CHECK/DiZ - most Powerful File Verifier"
  119.     TSTRING001(3) = "!WARNiNG!"
  120.     TSTRING001(5) = "While selecting lines within the FiLE_DESCRiPTiON EDiTOR"
  121.     TSTRING001(6) = "you will delete all further coming lines from FILE_ID's which"
  122.     TSTRING001(7) = "look asame !"
  123.     TSTRING001(9) = "Flagging Lines only was made to kill ugly BBS adds for ever !"
  124.     TSTRING001(11) = "The Keyboard functions :"
  125.     TSTRING001(13) = "Use Cursor Keys to control Line Positions"
  126.     TSTRING001(14) = "(Right)/(Down) - move Line one row downward"
  127.     TSTRING001(15) = "(Left)/(Up) - move Line one row upwards"
  128.     TSTRING001(16) = "(SPACE) - Flag the current line for deletion"
  129.     TSTRING001(17) = "(ENTER) - Same as (SPACE) - after flag jumps one line down"
  130.     TSTRING001(18) = "(Q) - Leave the Description Editor"
  131.     TSTRING001(20) = "If the Cursor Keys dont work - try the numeric equivalents"
  132.     TSTRING001(21) = "This is a PCBoard bug - not CHECK/DiZ's !!"
  133.     TSTRING001(24) = "With ESC you can leave HELP ..."
  134.     TSTRING001(25) = "                                       ßlue M -/- Camillo '94"
  135.     INTEGER002 = 24
  136.     For INTEGER001 = 1 To INTEGER002
  137.         TSTRING001(INTEGER001) = Left(RTrim(TSTRING001(INTEGER001), Chr(32)) + " ", INTEGER004)
  138.     Next
  139.     INTEGER008 = Time() + 59
  140.     :LABEL001
  141.     AnsiPos INTEGER007 + INTEGER004 + 4, INTEGER006 + 2
  142.     Print STRING003
  143.     For INTEGER001 = Len((INTEGER003 * 100) / (INTEGER002 - INTEGER005)) To 2
  144.         Print "o"
  145.     Next
  146.     Print (INTEGER003 * 100) / (INTEGER002 - INTEGER005), STRING002
  147.     For INTEGER001 = INTEGER003 To INTEGER003 + INTEGER005 - 1
  148.         AnsiPos INTEGER007 + 6, INTEGER006 + 4 + INTEGER001 - INTEGER003
  149.         Print TSTRING001(INTEGER001)
  150.     Next
  151.     :LABEL002
  152.     If (Time() >= INTEGER008) End
  153.     STRING004 = Inkey()
  154.     If (STRING004 <> "") Goto LABEL003
  155.     Goto LABEL002
  156.     :LABEL003
  157.     INTEGER008 = Time() + 59
  158.     If (STRING004 == " ") End
  159.     If (STRING004 == Chr(27)) End
  160.     If (STRING004 == Chr(13)) End
  161.     If (Upper(STRING004) == "Q") End
  162.     If (((STRING004 == "HOME") && (INTEGER003 > 1)) || ((STRING004 == "7") && (INTEGER003 > 1))) INTEGER003 = 1
  163.     If (((STRING004 == "PGUP") && (INTEGER003 > 1)) || ((STRING004 == "9") && (INTEGER003 > 1))) INTEGER003 = INTEGER003 - INTEGER005
  164.     If (((((STRING004 == "UP") && (INTEGER003 > 1)) || ((STRING004 == "8") && (INTEGER003 > 1))) || ((STRING004 == "LEFT") && (INTEGER003 > 1))) || ((STRING004 == "4") && (INTEGER003 > 1))) Dec INTEGER003
  165.     If (((((STRING004 == "DOWN") && (INTEGER003 < INTEGER002 - INTEGER005)) || ((STRING004 == "2") && (INTEGER003 < INTEGER002 - INTEGER005))) || ((STRING004 == "RIGHT") && (INTEGER003 < INTEGER002 - INTEGER005))) || ((STRING004 == "6") && (INTEGER003 < INTEGER002 - INTEGER005))) Inc INTEGER003
  166.     If (((STRING004 == "PGDN") && (INTEGER003 < INTEGER002 - INTEGER005)) || ((STRING004 == "3") && (INTEGER003 < INTEGER002 - INTEGER005))) INTEGER003 = INTEGER003 + INTEGER005
  167.     If (((STRING004 == "END") && (INTEGER003 < INTEGER002 - INTEGER005)) || ((STRING004 == "1") && (INTEGER003 < INTEGER002 - INTEGER005))) INTEGER003 = INTEGER002 - INTEGER005
  168.     If (INTEGER003 > INTEGER002 - INTEGER005) INTEGER003 = INTEGER002 - INTEGER005
  169.     If (INTEGER003 < 1) INTEGER003 = 1
  170.     Goto LABEL001
  171.  
  172. ;------------------------------------------------------------------------------
  173. ;
  174. ; Usage report (before postprocessing)
  175. ;
  176. ; ■ Statements used :
  177. ;
  178. ;    5       End
  179. ;    1       Cls
  180. ;    13      Goto 
  181. ;    50      Let 
  182. ;    20      Print 
  183. ;    28      PrintLn 
  184. ;    23      If 
  185. ;    1       Inc 
  186. ;    1       Dec 
  187. ;    16      AnsiPos 
  188. ;
  189. ;
  190. ; ■ Functions used :
  191. ;
  192. ;    2       *
  193. ;    2       /
  194. ;    35      +
  195. ;    17      -
  196. ;    22      ==
  197. ;    3       <>
  198. ;    12      <
  199. ;    3       <=
  200. ;    9       >
  201. ;    7       >=
  202. ;    8       !
  203. ;    23      &&
  204. ;    13      ||
  205. ;    1       Len(
  206. ;    1       Upper()
  207. ;    1       Left()
  208. ;    3       Chr()
  209. ;    1       RTrim()
  210. ;    3       Time()
  211. ;    1       Inkey()
  212. ;    3       PPEPath()
  213. ;    3       Exist()
  214. ;    5       LangExt()
  215. ;    2       GrafMode()
  216. ;
  217. ;------------------------------------------------------------------------------
  218. ;
  219. ; Analysis flags : No flag
  220. ;
  221. ;------------------------------------------------------------------------------
  222. ;
  223. ; Postprocessing report
  224. ;
  225. ;    3       For/Next
  226. ;    0       While/EndWhile
  227. ;    4       If/Then or If/Then/Else
  228. ;    0       Select Case
  229. ;
  230. ;------------------------------------------------------------------------------
  231. ;                 AEGiS Corp - Break the routines, code against the machines!
  232. ;------------------------------------------------------------------------------
  233.