home *** CD-ROM | disk | FTP | other *** search
/ Groovy Bytes: Behind the Moon / groovybytes.iso / GROOVY / PPE / ALF / ALF_MESS.ZIP / ALF-MESS.PPE (.txt) next >
Encoding:
PCBoard Programming Language Executable  |  1994-06-14  |  3.8 KB  |  275 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 2.OO (plain) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     String   STRING001
  20.     String   STRING002
  21.     String   STRING003
  22.     String   STRING004
  23.     String   STRING005
  24.     String   STRING006
  25.     String   STRING007
  26.     String   STRING008
  27.     String   STRING009
  28.     String   STRING010
  29.     String   STRING011
  30.     String   STRING012
  31.     String   STRING013
  32.     String   STRING014
  33.     String   STRING015
  34.     String   STRING016
  35.     String   STRING017
  36.     String   STRING018
  37.     String   STRING019
  38.     String   STRING020
  39.     String   STRING021
  40.     String   STRING022
  41.     String   STRING023
  42.     String   STRING024
  43.     String   STRING025
  44.  
  45. ;------------------------------------------------------------------------------
  46.  
  47.     Cls
  48.     PrintLn "@X08[@X0FALF@X08] Message Enhancement Coded By: [@X0FJOE MAMA@X08]"
  49.     FOpen 1, PPEPath() + "MESSAGE.CNF", 0, 0
  50.     FGet 1, STRING011
  51.     FGet 1, STRING012
  52.     FGet 1, STRING013
  53.     FGet 1, STRING020
  54.     FGet 1, STRING018
  55.     FGet 1, STRING019
  56.     FGet 1, STRING025
  57.     FGet 1, STRING007
  58.     FGet 1, STRING005
  59.     FGet 1, STRING006
  60.     FGet 1, STRING015
  61.     FGet 1, STRING002
  62.     FGet 1, STRING003
  63.     STRING010 = 1
  64.     STRING008 = 2
  65.     Goto LABEL001
  66.     End
  67.     :LABEL001
  68.     AnsiPos STRING010, STRING008
  69.     PrintLn STRING011
  70.     PrintLn STRING018 + STRING012 + STRING019 + "  " + STRING019 + STRING013 + "@X00"
  71.     STRING016 = ""
  72.     While (STRING016 == "") Do
  73.         STRING016 = Inkey()
  74.     EndWhile
  75.     If (STRING016 == "LEFT") Goto LABEL002
  76.     If (STRING016 == "a") Goto LABEL002
  77.     If (STRING016 == "s") Goto LABEL002
  78.     If (STRING016 == "RIGHT") Goto LABEL002
  79.     If (STRING016 == Chr(32)) Goto LABEL002
  80.     If (STRING016 == Chr(13)) STRING021 = "ALL"
  81.     Goto LABEL003
  82.     If (STRING016 <> "") Goto LABEL001
  83.     Goto LABEL001
  84.     :LABEL002
  85.     AnsiPos STRING010, STRING008 + 1
  86.     PrintLn STRING019 + STRING012 + STRING019 + "  " + STRING018 + STRING013 + "@X00"
  87.     STRING017 = ""
  88.     While (STRING017 == "") Do
  89.         STRING017 = Inkey()
  90.     EndWhile
  91.     If (STRING017 == "LEFT") Goto LABEL001
  92.     If (STRING017 == "RIGHT") Goto LABEL001
  93.     If (STRING017 == "a") Goto LABEL001
  94.     If (STRING017 == "s") Goto LABEL001
  95.     If (STRING017 == Chr(32)) Goto LABEL001
  96.     If (STRING017 == Chr(13)) Goto LABEL004
  97.     If (STRING017 <> "") Goto LABEL002
  98.     Goto LABEL002
  99.     End
  100.     :LABEL003
  101.     Goto LABEL006
  102.     End
  103.     :LABEL004
  104.     PrintLn STRING020
  105.     PrintLn STRING019 + "(                                                  )"
  106.     STRING024 = GetY()
  107.     AnsiPos 2, STRING024 - 1
  108.     InputStr "_", STRING014, 8, 50, Mask_Ascii(), 4096
  109.     If (STRING014 == "") STRING021 = STRING014
  110.     PrintLn 
  111.     Goto LABEL005
  112.     End
  113.     :LABEL005
  114.     PrintLn STRING025
  115.     PrintLn STRING019 + "(                                                  )"
  116.     STRING024 = GetY()
  117.     AnsiPos 2, STRING024 - 1
  118.     STRING014 = ""
  119.     InputStr "_", STRING014, 8, 50, Mask_Ascii(), 4096
  120.     PrintLn 
  121.     STRING022 = STRING014
  122.     If (STRING014 == "") Goto LABEL014
  123.     Goto LABEL007
  124.     End
  125.     :LABEL006
  126.     PrintLn STRING025
  127.     PrintLn STRING019 + "(                                                  )"
  128.     STRING024 = GetY()
  129.     AnsiPos 2, STRING024 - 1
  130.     STRING014 = ""
  131.     InputStr "_", STRING014, 8, 50, Mask_Ascii(), 4096
  132.     PrintLn 
  133.     STRING022 = STRING014
  134.     If (STRING014 == "") Goto LABEL014
  135.     Goto LABEL010
  136.     End
  137.     :LABEL007
  138.     STRING004 = GetY()
  139.     PrintLn STRING007
  140.     Goto LABEL008
  141.     End
  142.     :LABEL008
  143.     AnsiPos 1, STRING024 + 1
  144.     PrintLn STRING018 + STRING005 + STRING019 + "  " + STRING019 + STRING006 + "@X00"
  145.     STRING016 = ""
  146.     While (STRING016 == "") Do
  147.         STRING016 = Inkey()
  148.     EndWhile
  149.     If (STRING016 == "LEFT") Goto LABEL009
  150.     If (STRING016 == "a") Goto LABEL009
  151.     If (STRING016 == "s") Goto LABEL009
  152.     If (STRING016 == "RIGHT") Goto LABEL009
  153.     If (STRING016 == Chr(32)) Goto LABEL009
  154.     If (STRING016 == Chr(13)) STRING023 = "R"
  155.     Goto LABEL010
  156.     If (STRING016 <> "") Goto LABEL008
  157.     Goto LABEL008
  158.     :LABEL009
  159.     AnsiPos 1, STRING024 + 1
  160.     PrintLn STRING019 + STRING005 + STRING019 + "  " + STRING018 + STRING006 + "@X00"
  161.     STRING016 = ""
  162.     While (STRING016 == "") Do
  163.         STRING016 = Inkey()
  164.     EndWhile
  165.     If (STRING016 == "LEFT") Goto LABEL008
  166.     If (STRING016 == "a") Goto LABEL008
  167.     If (STRING016 == "s") Goto LABEL008
  168.     If (STRING016 == "RIGHT") Goto LABEL008
  169.     If (STRING016 == Chr(32)) Goto LABEL008
  170.     If (STRING016 == Chr(13)) STRING023 = "N"
  171.     Goto LABEL010
  172.     If (STRING016 <> "") Goto LABEL008
  173.     Goto LABEL008
  174.     End
  175.     :LABEL010
  176.     STRING009 = GetY()
  177.     PrintLn STRING015
  178.     Goto LABEL011
  179.     End
  180.     :LABEL011
  181.     AnsiPos 1, STRING009 + 1
  182.     PrintLn STRING018 + STRING002 + STRING019 + "  " + STRING019 + STRING003 + "@X00"
  183.     STRING016 = ""
  184.     While (STRING016 == "") Do
  185.         STRING016 = Inkey()
  186.     EndWhile
  187.     If (STRING016 == "LEFT") Goto LABEL012
  188.     If (STRING016 == "a") Goto LABEL012
  189.     If (STRING016 == "s") Goto LABEL012
  190.     If (STRING016 == "RIGHT") Goto LABEL012
  191.     If (STRING016 == Chr(32)) Goto LABEL012
  192.     If (STRING016 == Chr(13)) STRING001 = "Y"
  193.     Goto LABEL013
  194.     If (STRING016 <> "") Goto LABEL011
  195.     Goto LABEL011
  196.     :LABEL012
  197.     AnsiPos 1, STRING009 + 1
  198.     PrintLn STRING019 + STRING002 + STRING019 + "  " + STRING018 + STRING003 + "@X00"
  199.     STRING016 = ""
  200.     While (STRING016 == "") Do
  201.         STRING016 = Inkey()
  202.     EndWhile
  203.     If (STRING016 == "LEFT") Goto LABEL011
  204.     If (STRING016 == "a") Goto LABEL011
  205.     If (STRING016 == "s") Goto LABEL011
  206.     If (STRING016 == "RIGHT") Goto LABEL011
  207.     If (STRING016 == Chr(32)) Goto LABEL008
  208.     If (STRING016 == Chr(13)) STRING001 = "N"
  209.     Goto LABEL013
  210.     If (STRING016 <> "") Goto LABEL011
  211.     Goto LABEL012
  212.     End
  213.     :LABEL013
  214.     KbdStuff STRING021 + Chr(13)
  215.     KbdStuff STRING022 + Chr(13)
  216.     KbdStuff STRING023 + Chr(13)
  217.     KbdStuff STRING001 + Chr(13)
  218.     KbdStuff STRING001 + Chr(13)
  219.     FClose 1
  220.     End
  221.     :LABEL014
  222.     KbdStuff Chr(13)
  223.     KbdStuff Chr(13)
  224.     KbdStuff Chr(13)
  225.  
  226. ;------------------------------------------------------------------------------
  227. ;
  228. ; Usage report (before postprocessing)
  229. ;
  230. ; ■ Statements used :
  231. ;
  232. ;    11      End
  233. ;    1       Cls
  234. ;    69      Goto 
  235. ;    29      Let 
  236. ;    19      PrintLn 
  237. ;    51      If 
  238. ;    1       FOpen 
  239. ;    1       FClose 
  240. ;    13      FGet 
  241. ;    3       InputStr 
  242. ;    8       KbdStuff 
  243. ;    9       AnsiPos 
  244. ;
  245. ;
  246. ; ■ Functions used :
  247. ;
  248. ;    50      +
  249. ;    3       -
  250. ;    45      ==
  251. ;    6       <>
  252. ;    6       !
  253. ;    20      Chr()
  254. ;    6       Inkey()
  255. ;    3       Mask_Ascii()
  256. ;    1       PPEPath()
  257. ;    5       GetY()
  258. ;
  259. ;------------------------------------------------------------------------------
  260. ;
  261. ; Analysis flags : No flag
  262. ;
  263. ;------------------------------------------------------------------------------
  264. ;
  265. ; Postprocessing report
  266. ;
  267. ;    0       For/Next
  268. ;    6       While/EndWhile
  269. ;    0       If/Then or If/Then/Else
  270. ;    0       Select Case
  271. ;
  272. ;------------------------------------------------------------------------------
  273. ;                 AEGiS Corp - Break the routines, code against the machines!
  274. ;------------------------------------------------------------------------------
  275.