home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1994 #1 / monster.zip / monster / PCBOARD / PIC_OL2.ZIP / 1LINER.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1994-02-23  |  4KB  |  213 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.     Integer  INTEGER001
  20.     Integer  INTEGER002
  21.     Integer  INTEGER003
  22.     String   STRING001
  23.     String   STRING002
  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   TSTRING011(16)
  33.     String   TSTRING012(15)
  34.     String   STRING013
  35.     String   STRING014
  36.     String   STRING015
  37.     String   STRING016
  38.     String   STRING017
  39.     String   STRING018
  40.  
  41. ;------------------------------------------------------------------------------
  42.  
  43.     INTEGER003 = 0
  44.     TSTRING012(0) = ""
  45.     TSTRING012(1) = "@X01"
  46.     TSTRING012(2) = "@X02"
  47.     TSTRING012(3) = "@X03"
  48.     TSTRING012(4) = "@X04"
  49.     TSTRING012(5) = "@X05"
  50.     TSTRING012(6) = "@X06"
  51.     TSTRING012(7) = "@X07"
  52.     TSTRING012(8) = "@X08"
  53.     TSTRING012(9) = "@X09"
  54.     TSTRING012(10) = "@X0A"
  55.     TSTRING012(11) = "@X0B"
  56.     TSTRING012(12) = "@X0C"
  57.     TSTRING012(13) = "@X0D"
  58.     TSTRING012(14) = "@X0E"
  59.     TSTRING012(15) = "@X0F"
  60.     STRING016 = "1liner.hlp"
  61.     STRING017 = "@X07@X08─────────[ @X0FOneliners version 1@X08.@X0F1 @X07Written By @X0FSticky Fingaz and Helios @X08]──────────"
  62.     FOpen 1, PPEPath() + "1liner.cfg", 2, 0
  63.     FGet 1, STRING002
  64.     If (Len(STRING002) == 0) STRING002 = "1LINER.BOT"
  65.     FGet 1, STRING007
  66.     If (Len(STRING007) == 0) STRING007 = "1LINER.BOT"
  67.     FGet 1, INTEGER001
  68.     If ((INTEGER001 < 1) || (INTEGER001 > 16)) INTEGER001 = 16
  69.     FGet 1, STRING006
  70.     If (Len(STRING006) == 0) STRING006 = "@X05 -> @X07"
  71.     FGet 1, STRING010
  72.     If ((STRING010 <> "YES") && (STRING010 <> "yes")) Then
  73.         STRING009 = ""
  74.     Else
  75.         STRING009 = "@X07"
  76.     Endif
  77.     FGet 1, STRING003
  78.     FGet 1, STRING014
  79.     If (Len(STRING014) == 0) STRING014 = "@X0F"
  80.     STRING014 = STRING014 + "_"
  81.     FGet 1, STRING015
  82.     If (Len(STRING015) == 0) STRING015 = "@X0CYou Fucking MORON!"
  83.     FGet 1, STRING013
  84.     If (Len(STRING013) == 0) STRING013 = "@X09Your Oneliner As been Added"
  85.     FGet 1, STRING018
  86.     FClose 1
  87.     GetUser
  88.     If (U_Sec < STRING003) Goto LABEL001
  89.     If (Exist(PPEPath() + STRING002)) Then
  90.         DispFile PPEPath() + STRING002, 4 + 2 + 1
  91.     Else
  92.         PrintLn "@CLS@@X0BOneliners v@X07.@X0F1 @X07Coded By @X0F Sticky Fingaz & HelioS"
  93.         PrintLn "@X08───────────────────────────────────────────────────────────────────────────────"
  94.     Endif
  95.     FOpen 1, PPEPath() + "1LINER.DAT", 2, 0
  96.     INTEGER002 = 1
  97.     While (!Ferr(1) && (INTEGER002 <= INTEGER001)) Do
  98.         If ((STRING010 <> "YES") && (STRING010 <> "yes")) Then
  99.             STRING008 = TSTRING012(0)
  100.         Else
  101.             STRING008 = TSTRING012(Random(14) + 1)
  102.         Endif
  103.         FGet 1, STRING004
  104.         TSTRING011(INTEGER002) = STRING004
  105.         If (Len(STRING004) > 0) Then
  106.             PrintLn STRING006 + STRING008 + TSTRING011(INTEGER002) + STRING009
  107.         Endif
  108.         INTEGER002 = INTEGER002 + 1
  109.     EndWhile
  110.     If (Exist(PPEPath() + STRING007)) Then
  111.         DispFile PPEPath() + STRING007, 4 + 2 + 1
  112.     Else
  113.         PrintLn " "
  114.     Endif
  115.     FClose 1
  116.     STRING001 = "N"
  117.     InputStr STRING018, STRING001, 14, 1, "NnYy", 256 + 4096 + 2
  118.     STRING001 = Upper(STRING001)
  119.     If (STRING001 == "N") Goto LABEL002
  120.     INTEGER003 = 0
  121.     If (STRING001 == "Y") Newline
  122.     DispFile PPEPath() + "ENTER.PCB", 1
  123.     InputStr STRING014, STRING005, 14, 75, Mask_Ascii(), 256 + 4096
  124.     If (STRING005 == "") Then
  125.         Newline
  126.         Print STRING015
  127.         Newline
  128.         Goto LABEL002
  129.         End
  130.     Endif
  131.     FCreate 1, PPEPath() + "1LINER.DAT", 2, 0
  132.     If (INTEGER002 >= INTEGER001) Then
  133.         INTEGER002 = 1
  134.         While ((Len(TSTRING011(INTEGER002 + 1)) > 0) && (INTEGER002 <= INTEGER001)) Do
  135.             FPutLn 1, TSTRING011(INTEGER002 + 1)
  136.             INTEGER002 = INTEGER002 + 1
  137.         EndWhile
  138.     Endif
  139.     FPutLn 1, STRING005
  140.     FClose 1
  141.     PrintLn "@CLREOL@"
  142.     Print STRING013
  143.     Goto LABEL002
  144.     Log "", 0
  145.     :LABEL001
  146.     End
  147.     :LABEL002
  148.     PrintLn "@POS:50@@X07-@X08Sf @X07[@X08PRiMAL@X07/@X08PiC@X07] @X07'@X0894"
  149.     ClrEol
  150.     End
  151.  
  152. ;------------------------------------------------------------------------------
  153. ;
  154. ; Usage report (before postprocessing)
  155. ;
  156. ; ■ Statements used :
  157. ;
  158. ;    3       End
  159. ;    1       ClrEol
  160. ;    19      Goto 
  161. ;    39      Let 
  162. ;    2       Print 
  163. ;    6       PrintLn 
  164. ;    19      If 
  165. ;    3       DispFile 
  166. ;    1       FCreate 
  167. ;    2       FOpen 
  168. ;    3       FClose 
  169. ;    11      FGet 
  170. ;    2       FPutLn 
  171. ;    1       GetUser
  172. ;    1       Log 
  173. ;    2       InputStr 
  174. ;    3       Newline
  175. ;
  176. ;
  177. ; ■ Functions used :
  178. ;
  179. ;    24      +
  180. ;    9       ==
  181. ;    4       <>
  182. ;    2       <
  183. ;    2       <=
  184. ;    3       >
  185. ;    1       >=
  186. ;    10      !
  187. ;    4       &&
  188. ;    1       ||
  189. ;    8       Len(
  190. ;    1       Upper()
  191. ;    1       Ferr()
  192. ;    1       Random()
  193. ;    1       Mask_Ascii()
  194. ;    8       PPEPath()
  195. ;    2       Exist()
  196. ;
  197. ;------------------------------------------------------------------------------
  198. ;
  199. ; Analysis flags : No flag
  200. ;
  201. ;------------------------------------------------------------------------------
  202. ;
  203. ; Postprocessing report
  204. ;
  205. ;    0       For/Next
  206. ;    2       While/EndWhile
  207. ;    7       If/Then or If/Then/Else
  208. ;    0       Select Case
  209. ;
  210. ;------------------------------------------------------------------------------
  211. ;                 AEGiS Corp - Break the routines, code against the machines!
  212. ;------------------------------------------------------------------------------
  213.