home *** CD-ROM | disk | FTP | other *** search
/ Carsten's PPE Collection / Carstens_PPE_Collection_2007.zip / S / SCL!BRD.ZIP / BOARD.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1996-05-28  |  6KB  |  219 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.     String   STRING001
  21.     String   TSTRING002(3)
  22.     String   TSTRING003(3)
  23.     String   STRING004
  24.     String   STRING005
  25.     String   STRING006
  26.     String   STRING007
  27.     String   STRING008
  28.     String   STRING009
  29.     String   STRING010
  30.  
  31. ;------------------------------------------------------------------------------
  32.  
  33.     :LABEL001
  34.     Cls
  35.     PrintLn "@X06  _____   ______    _____   _______   ___________       __   _____   ___."
  36.     PrintLn "@X06__\_  ¼\ /  .  ¼\ __\___¼\ _\___  ¼\__\___ ¼\    |___  (_/_ / ___/__Y   l___"
  37.     PrintLn "@X06   @X03/_  _)   |    V    _   V    7  _/_    /   \   |  ¼\ /   Y_____   |   ___/____    /   |   |    |    7   |   _     /   /    /   |    Y    |    /   |   \      /@X02___/  .ªl___   .ªl___   .ªl___/    /___/    /____     l____&___   .ªl___     /"
  38.     PrintLn "@X02  /_____|  /_____|  /_____|  /____/   /____/    /_____|       /_____|  /_____/"
  39.     Gosub LABEL002
  40.     If (INTEGER001 == 3) End
  41.     If (INTEGER001 == 2) Goto LABEL004
  42.     If (INTEGER001 == 1) Goto LABEL005
  43.     :LABEL002
  44.     TSTRING002(1) = "@X03      Add a Board to the list      "
  45.     TSTRING002(2) = "@X03       Look at the BoardList       "
  46.     TSTRING002(3) = "@X03           Exit to Board           "
  47.     TSTRING003(1) = "@X12      Add a Board to the list      "
  48.     TSTRING003(2) = "@X12       Look at the BoardList       "
  49.     TSTRING003(3) = "@X12           Exit to Board           "
  50.     AnsiPos 1, 7
  51.     PrintLn "@X03@POFF@         g@@@@@@@@@@@HP   ╞@@@@@@@@@@@@@@╡_"
  52.     PrintLn "      ,╩@@@@@@@@@HK_____d@@@@@@@@@@@@@@@@@@@τ"
  53.     PrintLn "     q@@@@@@@@@@Pα╞99░9@@@@@@@H@░,@@@@@@@@@@@"
  54.     PrintLn "    J@@@@@@@@@╪░         »""»   g@@@HM╢@@@@@@K"
  55.     PrintLn "   g@@@@@@@@@H┤ _µ@*Mµ_        **@╞5∙_ @@@@@@@"
  56.     PrintLn "  g@@@@@@@@@@F  ╪░___ @            ¼9@µ╪@@@@@@"
  57.     PrintLn " _@@@@@@@@@@H  J@_╪@@■╪          __   9H@@@@@@"
  58.     PrintLn " ╪d@@@@@@@@@F   ¼░Y99░         ,@@╢╤µ╕  @@@@@@L"
  59.     PrintLn "/ ╪@@@@@@@@@┤              _╕  @&ww IL  @@@@@@1"
  60.     PrintLn "  @@@@@@@@@@          _w   Nµ  9@N@L╞╣ ]@@@@@@!"
  61.     PrintLn "  @@@@@@@@@@          ╪Q_  _]1    »░   ╪@@@@@@L"
  62.     PrintLn "  @@@@@@@@@@          ░░░ !P░┤        ,@@@@@@@"
  63.     PrintLn " |@@@@@@@@@@p                        ,@@@@@@@@"
  64.     PrintLn " |@@@@@@@@@@@p        µW@╤╤µw       g@@@@@@@@╣"
  65.     PrintLn " l@@HHHM@@@@@@b_      '^*╢@`      _°@@@@@@@@P"
  66.     PrintLn " ¼      @@@@@@@@m,_   `@*@░    _∙°@@@@@@@@@╪"
  67.     AnsiPos 44, 7
  68.     Print "@X07 BoardList by LightVader/Seclusion"
  69.     AnsiPos 44, 8
  70.     Print "@X07 Askee Art by Paszczak/Askiness"
  71.     AnsiPos 41, 10
  72.     PrintLn "@X01.-----------------------------------."
  73.     AnsiPos 41, 11
  74.     PrintLn "@X01!                                   :"
  75.     AnsiPos 41, 12
  76.     PrintLn "@X01|                                   |"
  77.     AnsiPos 41, 13
  78.     PrintLn "@X01:                                   |"
  79.     AnsiPos 41, 14
  80.     PrintLn "@X01`-----------------------------------'"
  81.     INTEGER001 = 3
  82.     AnsiPos 42, 11
  83.     Print TSTRING002(1)
  84.     AnsiPos 42, 12
  85.     Print TSTRING002(2)
  86.     AnsiPos 42, 13
  87.     Print TSTRING002(3)
  88.     :LABEL003
  89.     AnsiPos 42, 10 + INTEGER001
  90.     Print TSTRING003(INTEGER001)
  91.     Gosub LABEL006
  92.     AnsiPos 42, 10 + INTEGER001
  93.     Print TSTRING002(INTEGER001)
  94.     If (STRING001 == "UP") Dec INTEGER001
  95.     If (STRING001 == "DOWN") Inc INTEGER001
  96.     If (STRING001 == Chr(13)) Return
  97.     If (INTEGER001 == 0) INTEGER001 = 1
  98.     If (INTEGER001 == 4) INTEGER001 = 3
  99.     Goto LABEL003
  100.     Return
  101.     :LABEL004
  102.     Cls
  103.     PrintLn "@X06  _____   ______    _____   _______   ___________       __   _____   ___."
  104.     PrintLn "@X06__\_  ¼\ /  .  ¼\ __\___¼\ _\___  ¼\__\___ ¼\    |___  (_/_ / ___/__Y   l___"
  105.     PrintLn "@X06   @X03/_  _)   |    V    _   V    7  _/_    /   \   |  ¼\ /   Y_____   |   ___/____    /   |   |    |    7   |   _     /   /    /   |    Y    |    /   |   \      /@X02___/  .ªl___   .ªl___   .ªl___/    /___/    /____     l____&___   .ªl___     /"
  106.     PrintLn "@X02  /_____|  /_____|  /_____|  /____/   /____/    /_____|       /_____|  /_____/"
  107.     PrintLn ""
  108.     PrintLn "@X02 @X05Call these cool boards!"
  109.     Print "@X01.---------->--------------?--------.- ---------_-------------------------------."
  110.     Print "@X13   @X12Board Name          Phone        Sysop      nodes  open       other info     "
  111.     DispFile PPEPath() + "BOARD.DAT", 0
  112.     Print "@X12-/\        Ami/X Stylized Board List Coded by Light Vader/Seclusion          /\-"
  113.     PrintLn "@X01`---------------->--------------(-------------|---->---------^-----------------'"
  114.     Wait
  115.     Goto LABEL001
  116.     :LABEL005
  117.     Cls
  118.     PrintLn "@X06  _____   ______    _____   _______   ___________       __   _____   ___."
  119.     PrintLn "@X06__\_  ¼\ /  .  ¼\ __\___¼\ _\___  ¼\__\___ ¼\    |___  (_/_ / ___/__Y   l___"
  120.     PrintLn "@X06   @X03/_  _)   |    V    _   V    7  _/_    /   \   |  ¼\ /   Y_____   |   ___/____    /   |   |    |    7   |   _     /   /    /   |    Y    |    /   |   \      /@X02___/  .ªl___   .ªl___   .ªl___/    /___/    /____     l____&___   .ªl___     /"
  121.     PrintLn "@X02  /_____|  /_____|  /_____|  /____/   /____/    /_____|       /_____|  /_____/"
  122.     PrintLn ""
  123.     PrintLn "@X02 @X05Call these cool boards!"
  124.     Print "@X01.---------->--------------?--------.- ---------_-------------------------------."
  125.     PrintLn "@X13   @X12Board Name          Phone        Sysop      nodes  open       other info     "
  126.     AnsiPos 1, 12
  127.     Print "@X12-/\        Ami/X Stylized Board List Coded by Light Vader/Seclusion          /\-"
  128.     PrintLn "@X01`---------------->--------------(-------------|---->---------^-----------------'"
  129.     AnsiPos 18, 11
  130.     Print "@X01|"
  131.     AnsiPos 33, 11
  132.     Print "@X01:"
  133.     AnsiPos 47, 11
  134.     Print "@X01!"
  135.     AnsiPos 52, 11
  136.     Print "@X01|"
  137.     AnsiPos 62, 11
  138.     Print "@X01|"
  139.     AnsiPos 1, 11
  140.     InputStr "_", STRING004, 3, 17, Mask_Ascii(), 256
  141.     AnsiPos 19, 11
  142.     InputStr "_", STRING005, 3, 14, Mask_Ascii(), 256
  143.     AnsiPos 34, 11
  144.     InputStr "_", STRING006, 3, 13, Mask_Ascii(), 256
  145.     AnsiPos 48, 11
  146.     InputStr "_", STRING007, 3, 4, Mask_Ascii(), 256
  147.     AnsiPos 53, 11
  148.     InputStr "_", STRING008, 3, 9, Mask_Ascii(), 256
  149.     AnsiPos 63, 11
  150.     InputStr "_", STRING009, 3, 17, Mask_Ascii(), 256
  151.     AnsiPos 1, 14
  152.     Print "@X02(@X03S@X02)@X03ave or @X02(@X03D@X02)@X03iscard? "
  153.     InputStr "_", STRING010, 3, 1, "SD", 8
  154.     If (STRING010 == "D") Goto LABEL001
  155.     If (STRING010 == "") Goto LABEL001
  156.     FAppend 1, PPEPath() + "BOARD.DAT", 2, 0
  157.     FPutLn 1, "@X03" + STRING004 + "@POS:18@@X01|" + "@X03" + STRING005 + "@POS:33@@X01:@X03" + STRING006 + "@POS:47@@X01!@X03" + STRING007 + "@POS:52@@X01|@X03" + STRING008 + "@POS:62@@X01|@X03" + STRING009
  158.     FClose 1
  159.     AnsiPos 1, 20
  160.     Wait
  161.     Print "@X01"
  162.     Goto LABEL001
  163.     :LABEL006
  164.     STRING001 = Inkey()
  165.     If (STRING001 == "") Goto LABEL006
  166.     Return
  167.  
  168. ;------------------------------------------------------------------------------
  169. ;
  170. ; Usage report (before postprocessing)
  171. ;
  172. ; ■ Statements used :
  173. ;
  174. ;    1       End
  175. ;    3       Cls
  176. ;    2       Wait
  177. ;    8       Goto 
  178. ;    10      Let 
  179. ;    19      Print 
  180. ;    40      PrintLn 
  181. ;    11      If 
  182. ;    1       DispFile 
  183. ;    1       FAppend 
  184. ;    1       FClose 
  185. ;    1       FPutLn 
  186. ;    7       InputStr 
  187. ;    2       Gosub 
  188. ;    3       Return
  189. ;    1       Inc 
  190. ;    1       Dec 
  191. ;    27      AnsiPos 
  192. ;
  193. ;
  194. ; ■ Functions used :
  195. ;
  196. ;    16      +
  197. ;    11      ==
  198. ;    1       Chr()
  199. ;    1       Inkey()
  200. ;    6       Mask_Ascii()
  201. ;    2       PPEPath()
  202. ;
  203. ;------------------------------------------------------------------------------
  204. ;
  205. ; Analysis flags : No flag
  206. ;
  207. ;------------------------------------------------------------------------------
  208. ;
  209. ; Postprocessing report
  210. ;
  211. ;    0       For/Next
  212. ;    0       While/EndWhile
  213. ;    0       If/Then or If/Then/Else
  214. ;    0       Select Case
  215. ;
  216. ;------------------------------------------------------------------------------
  217. ;                 AEGiS Corp - Break the routines, code against the machines!
  218. ;------------------------------------------------------------------------------
  219.