home *** CD-ROM | disk | FTP | other *** search
/ Carsten's PPE Collection / Carstens_PPE_Collection_2007.zip / T / THC!BBS.ZIP / BWLIST.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1995-10-25  |  4KB  |  157 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.     String   STRING001
  20.     String   STRING002
  21.     String   STRING003
  22.     String   STRING004
  23.     String   STRING005
  24.     String   STRING006
  25.     String   STRING007
  26.     String   STRING008
  27.  
  28. ;------------------------------------------------------------------------------
  29.  
  30.     :LABEL001
  31.     Cls
  32.     PrintLn " @X08─═[@X0FBBS Lister PPe' Coded By The Head Crusher@X08]═─"
  33.     PrintLn " "
  34.     PrintLn " "
  35.     PrintLn " "
  36.     PrintLn " "
  37.     PrintLn "@X08   ──═[@X0FL@X08]═[@X0FList Of Board's@X08]═──    "
  38.     PrintLn "@X08   ──═[@X0FA@X08]═[@X0FAdd a Board@X08]═──        "
  39.     PrintLn "@X08   ──═[@X0FQ@X08]═[@X0FQuit@X08]═──               "
  40.     PrintLn " "
  41.     :LABEL002
  42.     STRING001 = ""
  43.     PrintLn " "
  44.     PrintLn "@X08──═[@X0FBBS LIST@X08]═[@X0F@TIMELEFT@ MIN LEFT@X08]═──"
  45.     InputStr "@X08──═[@X0FCOMMAND@X08]═─:", STRING001, 8, 4, "laqLAQ?", 256 + 8
  46.     PrintLn " "
  47.     If (STRING001 == "?") Goto LABEL001
  48.     If (STRING001 == "L") Goto LABEL003
  49.     If (STRING001 == "A") Goto LABEL004
  50.     If (STRING001 == "G") Goto LABEL005
  51.     If (STRING001 == "Q") Goto LABEL006
  52.     PrintLn " "
  53.     PrintLn "@X08──═[@X0FInvalid Entry! Try Again...@X08]═──@BEEP@"
  54.     PrintLn " "
  55.     Goto LABEL002
  56.     :LABEL003
  57.     Cls
  58.     PrintLn "┌─────────────────────────────────────────────────────────────────────────────┐"
  59.     DispFile PPEPath() + "BWLIST.DAT", 0
  60.     PrintLn "@X08└─────────────────────────────────────────────────────────────────────────────┘"
  61.     More
  62.     Goto LABEL001
  63.     :LABEL004
  64.     Cls
  65.     PrintLn " "
  66.     PrintLn "@X08┌───══[@X0FADDING BBS ENTRY@X08]══───────────────────────────────┐"
  67.     PrintLn "@X08│═[@X0FBBS Name@X08]@X08═:@X0F                                          @X08 │"
  68.     PrintLn "@X08│═[@X0FBBS Number@X08]═@X08:@X0F                                        @X08 │"
  69.     PrintLn "@X08│═[@X0FSySGoD's Name@X08]═@X08:@X0F                                     @X08 │"
  70.     PrintLn "@X08│═[@X0FNotes@X08(@X0FGroup@X08\@X0FHours@X08)═@X08:@X0F                                 @X08 │"
  71.     PrintLn "@X08│═[@X0FPcBoArD VeR.@X08]═@X08:@X0F                                      @X08 │"
  72.     PrintLn "@X08└────────────────────────────────────────────────────────┘"
  73.     PrintLn " "
  74.     AnsiPos 15, 3
  75.     InputStr "_", STRING005, 15, 21, Mask_Ascii(), 16
  76.     AnsiPos 17, 4
  77.     InputStr "_", STRING006, 15, 14, Mask_Ascii(), 16
  78.     AnsiPos 20, 5
  79.     InputStr "_", STRING007, 15, 17, Mask_Ascii(), 16
  80.     AnsiPos 24, 6
  81.     InputStr "_", STRING003, 15, 12, Mask_Ascii(), 16
  82.     AnsiPos 19, 7
  83.     InputStr "_", STRING008, 15, 9, Mask_Ascii(), 16
  84.     PrintLn " "
  85.     AnsiPos 10, 9
  86.     InputStr "@X08──═[@X0FSave This @X08[@X0FY@X08/@X0FN@X08]═──", STRING004, 15, 1, "ynqYNQ", 256 + 8
  87.     If (STRING004 == "Y") Goto LABEL007
  88.     If (STRING004 == "N") Goto LABEL004
  89.     If (STRING004 == "Q") Goto LABEL006
  90.     Goto LABEL004
  91.     :LABEL005
  92.     PrintLn " "
  93.     InputStr "@X08──═[@X0FAre You Sure @X08[@X0FY@X08/@X0FN@X08]═── ", STRING002, 8, 2, "ynYN", 256 + 8
  94.     PrintLn " "
  95.     If (STRING002 == "") Goto LABEL001
  96.     If (STRING002 == "N") Goto LABEL001
  97.     Hangup
  98.     :LABEL006
  99.     End
  100.     :LABEL007
  101.     FAppend 1, PPEPath() + "BWLIST.DAT", 0, 0
  102.     FPutLn 1, "@X08│@X0F@POS:2@", +STRING005, "@POS:25@" + STRING006, "@POS:40@" + STRING007, "@POS:57@" + STRING003, "@POS:70@" + STRING008, "@POS:79@@X08│"
  103.     FClose 1
  104.     Goto LABEL001
  105.  
  106. ;------------------------------------------------------------------------------
  107. ;
  108. ; Usage report (before postprocessing)
  109. ;
  110. ; ■ Statements used :
  111. ;
  112. ;    1       End
  113. ;    3       Cls
  114. ;    1       More
  115. ;    15      Goto 
  116. ;    1       Let 
  117. ;    29      PrintLn 
  118. ;    10      If 
  119. ;    1       DispFile 
  120. ;    1       FAppend 
  121. ;    1       FClose 
  122. ;    1       FPutLn 
  123. ;    1       Hangup
  124. ;    8       InputStr 
  125. ;    6       AnsiPos 
  126. ;
  127. ;
  128. ; ■ Functions used :
  129. ;
  130. ;    1       +
  131. ;    9       +
  132. ;    10      ==
  133. ;    5       Mask_Ascii()
  134. ;    2       PPEPath()
  135. ;
  136. ;------------------------------------------------------------------------------
  137. ;
  138. ; Analysis flags : B
  139. ;
  140. ; B - Brute hangup ■ 1
  141. ;     Program hangup without notification. This may be a good way to
  142. ;     disconnect a user, but if used randomly, may be very nasty
  143. ;     ■ Search for : HANGUP, DTROFF
  144. ;
  145. ;------------------------------------------------------------------------------
  146. ;
  147. ; Postprocessing report
  148. ;
  149. ;    0       For/Next
  150. ;    0       While/EndWhile
  151. ;    0       If/Then or If/Then/Else
  152. ;    0       Select Case
  153. ;
  154. ;------------------------------------------------------------------------------
  155. ;                 AEGiS Corp - Break the routines, code against the machines!
  156. ;------------------------------------------------------------------------------
  157.