home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1994 #1 / monster.zip / monster / PCBOARD / URT_OLV2.ZIP / ONELINER.PPE (.txt) < prev   
PCBoard Programming Language Executable  |  1994-02-05  |  5KB  |  174 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   TSTRING001(11)
  20.     String   STRING002
  21.     String   STRING003
  22.     String   STRING004
  23.     String   STRING005
  24.  
  25. ;------------------------------------------------------------------------------
  26.  
  27.     GetUser
  28.     Log "UART ONELINER DOOR V2.oo WAS USED!", 1
  29.     If (Exist(PPEPath() + "ONELINER.CFG")) Goto LABEL001
  30.     FCreate 1, PPEPath() + "ONELINER.CFG", 1, 0
  31.     FPutLn 1, "@X09<< @X0EPUT BBS NAME HERE @X09>>"
  32.     FPutLn 1, "@X08"
  33.     FPutLn 1, "@X07"
  34.     FClose 1
  35.     Goto LABEL002
  36.     :LABEL001
  37.     FOpen 1, PPEPath() + "ONELINER.CFG", 0, 0
  38.     FGet 1, STRING003
  39.     FGet 1, STRING004
  40.     FGet 1, STRING005
  41.     FClose 1
  42.     :LABEL002
  43.     If (Exist(PPEPath() + "ONELINER.DAT")) Goto LABEL003
  44.     FCreate 1, PPEPath() + "ONELINER.DAT", 1, 0
  45.     FPutLn 1, " "
  46.     FPutLn 1, " "
  47.     FPutLn 1, " "
  48.     FPutLn 1, " "
  49.     FPutLn 1, " "
  50.     FPutLn 1, " "
  51.     FPutLn 1, " "
  52.     FPutLn 1, " "
  53.     FPutLn 1, " "
  54.     FPutLn 1, "UART ONELINERS V2.oo - PROGRAMMED BY: NOMAD [UART]"
  55.     FClose 1
  56.     Goto LABEL004
  57.     :LABEL003
  58.     FOpen 1, PPEPath() + "ONELINER.DAT", 0, 0
  59.     FGet 1, TSTRING001(1)
  60.     FGet 1, TSTRING001(2)
  61.     FGet 1, TSTRING001(3)
  62.     FGet 1, TSTRING001(4)
  63.     FGet 1, TSTRING001(5)
  64.     FGet 1, TSTRING001(6)
  65.     FGet 1, TSTRING001(7)
  66.     FGet 1, TSTRING001(8)
  67.     FGet 1, TSTRING001(9)
  68.     FGet 1, TSTRING001(10)
  69.     FClose 1
  70.     :LABEL004
  71.     PrintLn "@CLS@@X0D─────@X05─@X0D──@X05─@X0D─@X05─@X0D─@X05──@X0D─@X05──────@X08─@X05──@X08─@X05─@X08─@X05─@X08──@X05─@X08───── ── ─ ─  ─"
  72.     PrintLn " " + STRING003 + " @X0DO@X05N@X08ELINERS"
  73.     PrintLn "@X0D─────@X05─@X0D──@X05─@X0D─@X05─@X0D─@X05──@X0D─@X05──────@X08─@X05──@X08─@X05─@X08─@X05─@X08──@X05─@X08───── ── ─ ─  ─"
  74.     PrintLn STRING004 + " Φ " + STRING005 + TSTRING001(1)
  75.     PrintLn STRING004 + " Φ " + STRING005 + TSTRING001(2)
  76.     PrintLn STRING004 + " Φ " + STRING005 + TSTRING001(3)
  77.     PrintLn STRING004 + " Φ " + STRING005 + TSTRING001(4)
  78.     PrintLn STRING004 + " Φ " + STRING005 + TSTRING001(5)
  79.     PrintLn STRING004 + " Φ " + STRING005 + TSTRING001(6)
  80.     PrintLn STRING004 + " Φ " + STRING005 + TSTRING001(7)
  81.     PrintLn STRING004 + " Φ " + STRING005 + TSTRING001(8)
  82.     PrintLn STRING004 + " Φ " + STRING005 + TSTRING001(9)
  83.     PrintLn STRING004 + " Φ " + STRING005 + TSTRING001(10)
  84.     PrintLn "@X0D─────@X05─@X0D──@X05─@X0D─@X05─@X0D─@X05──@X0D─@X05──────@X08─@X05──@X08─@X05─@X08─@X05─@X08──@X05─@X08───── ── ─ ─  ─"
  85.     :LABEL005
  86.     PrintLn " @X0DW@X05O@X08ULD @X0DY@X05O@X08U @X0DL@X05I@X08KE @X0DT@X05O @X0DA@X05D@X08D @X0DA O@X05N@X08ELINER!? @X0D[@X08N@X05]"
  87.     PrintLn "@X0D─────@X05─@X0D──@X05─@X0D─@X05─@X0D─@X05──@X0D─@X05──────@X08─@X05──@X08─@X05─@X08─@X05─@X08──@X05─@X08───── ── ─ ─  ─"
  88.     AnsiPos 38, 15
  89.     InputText "_", STRING002, 15, 1
  90.     If (STRING002 == "") Goto LABEL008
  91.     If (STRING002 == "Y") Goto LABEL006
  92.     If (STRING002 == "N") Goto LABEL008
  93.     Goto LABEL005
  94.     :LABEL006
  95.     PrintLn "@CLS@@X0D┌ U@X05A@X08RT @X0DO@X05N@X08ELINERS @X0DV@X052@X08.oo @X05─@X08─@X05─@X08──@X05─@X08──────────────────── @X0DP@X05R@X08OGRAMMED @X0DB@X05Y@X08: @X0DN@X05O@X08MAD @X0D[@X05U@X08ART] @X0D┐"
  96.     PrintLn "@X0D│ @X0101 = DARK BLUE   @X0404 = DARK RED     @X0707 = LIGHT GREY  @X0A0A = GREEN  @X0D0D = PURPLE │"
  97.     PrintLn "@X0D│ @X0202 = DARK GREEN  @X0505 = DARK PURPLE  @X0808 = DARK GREY   @X0B0B = CYAN   @X0E0E = YELLOW @X0D│"
  98.     PrintLn "@X0D│ @X0303 = DARK CYAN   @X0606 = ORANGE       @X0909 = BLUE        @X0C0C = RED    @X0F0F = WHITE  @X0D│"
  99.     PrintLn "@X0D│┌─@X05─@X0D──@X05─@X0D─@X05─@X0D─@X05──@X0D─@X05──────@X08─@X05──@X08─@X05─@X08─@X05─@X08──@X05─@X08─────────────────────@X05─@X08──@X05─@X08─@X05─@X08─@X05──@X08─@X05──────@X0D─@X05──@X0D─@X05─@X0D─@X05─@X0D──@X05─@X0D─┐│"
  100.     PrintLn "@X0D││                                                                           ││"
  101.     PrintLn "@X0D│└─@X05─@X0D──@X05─@X0D─@X05─@X0D─@X05──@X0D─@X05──────@X08─@X05──@X08─@X05─@X08─@X05─@X08──@X05─@X08─────────────────────@X05─@X08──@X05─@X08─@X05─@X08─@X05──@X08─@X05──────@X0D─@X05──@X0D─@X05─@X0D─@X05─@X0D──@X05─@X0D─┘│"
  102.     PrintLn "@X0D└──@X05─@X0D──@X05─@X0D─@X05─@X0D─@X05──@X0D─@X05──────@X08─@X05──@X08─@X05─@X08─@X05─@X08──@X05─@X08─────────────────────@X05─@X08──@X05─@X08─@X05─@X08─@X05──@X08─@X05──────@X0D─@X05──@X0D─@X05─@X0D─@X05─@X0D──@X05─@X0D──┘"
  103.     AnsiPos 4, 6
  104.     InputText "_", TSTRING001(11), STRING005, 73
  105.     If (TSTRING001(11) == "") Goto LABEL007
  106.     FCreate 1, PPEPath() + "ONELINER.DAT", 1, 0
  107.     FPutLn 1, TSTRING001(2)
  108.     FPutLn 1, TSTRING001(3)
  109.     FPutLn 1, TSTRING001(4)
  110.     FPutLn 1, TSTRING001(5)
  111.     FPutLn 1, TSTRING001(6)
  112.     FPutLn 1, TSTRING001(7)
  113.     FPutLn 1, TSTRING001(8)
  114.     FPutLn 1, TSTRING001(9)
  115.     FPutLn 1, TSTRING001(10)
  116.     FPutLn 1, TSTRING001(11)
  117.     FClose 1
  118.     AnsiPos 1, 9
  119.     PrintLn "@X0DO@X05N@X08ELINER @X0DA@X05D@X08DED!"
  120.     Goto LABEL008
  121.     :LABEL007
  122.     AnsiPos 4, 6
  123.     PrintLn "@X0FW@X07A@X08Y @X0FT@X07O @X0FG@X07O @X0FM@X07O@X08RON!"
  124.     :LABEL008
  125.     End
  126.     Stop
  127.  
  128. ;------------------------------------------------------------------------------
  129. ;
  130. ; Usage report (before postprocessing)
  131. ;
  132. ; ■ Statements used :
  133. ;
  134. ;    1       End
  135. ;    11      Goto 
  136. ;    26      PrintLn 
  137. ;    6       If 
  138. ;    3       FCreate 
  139. ;    2       FOpen 
  140. ;    5       FClose 
  141. ;    13      FGet 
  142. ;    23      FPutLn 
  143. ;    1       GetUser
  144. ;    1       Log 
  145. ;    1       Stop
  146. ;    2       InputText 
  147. ;    4       AnsiPos 
  148. ;
  149. ;
  150. ; ■ Functions used :
  151. ;
  152. ;    39      +
  153. ;    4       ==
  154. ;    2       !
  155. ;    7       PPEPath()
  156. ;    2       Exist()
  157. ;
  158. ;------------------------------------------------------------------------------
  159. ;
  160. ; Analysis flags : No flag
  161. ;
  162. ;------------------------------------------------------------------------------
  163. ;
  164. ; Postprocessing report
  165. ;
  166. ;    0       For/Next
  167. ;    0       While/EndWhile
  168. ;    0       If/Then or If/Then/Else
  169. ;    0       Select Case
  170. ;
  171. ;------------------------------------------------------------------------------
  172. ;                 AEGiS Corp - Break the routines, code against the machines!
  173. ;------------------------------------------------------------------------------
  174.