home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1994 #1 / monster.zip / monster / PCBOARD / CDAVAIL2.ZIP / CD.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1994-02-05  |  3KB  |  168 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.     Integer  INTEGER004
  23.     String   STRING001
  24.     String   STRING002
  25.     String   STRING003
  26.     String   STRING004
  27.  
  28. ;------------------------------------------------------------------------------
  29.  
  30.     STRING001 = PPEPath() + PPEName() + ".CFG"
  31.     STRING002 = ""
  32.     STRING003 = ""
  33.     STRING004 = ""
  34.     INTEGER003 = 7
  35.     INTEGER001 = FileInf(STRING001, 2)
  36.     INTEGER002 = Date()
  37.     If (INTEGER002 == INTEGER001 + 45) Then
  38.         Goto LABEL002
  39.     Endif
  40.     If (INTEGER002 < INTEGER001 + 45) Then
  41.         Goto LABEL002
  42.     Endif
  43.     If (INTEGER002 > INTEGER001 + 45) Then
  44.         Goto LABEL006
  45.     Endif
  46.     :LABEL001
  47.     End
  48.     :LABEL002
  49.     Cls
  50.     PrintLn "CD Availability Inquiry PPE - Unregistered Version"
  51.     PrintLn "Mongoose Shareware - PC Florida BBS - (813) 625-0190"
  52.     Delay 90
  53.     Cls
  54.     DispFile PPEPath() + "CD.DSP", 0
  55.     FOpen 1, STRING001, 0, 2
  56.     For INTEGER004 = 1 To 30
  57.         STRING004 = ReadLine(STRING001, INTEGER004)
  58.         If (STRING004 == "") Then
  59.             Gosub LABEL003
  60.             Continue
  61.         Endif
  62.         If (Exist(STRING004)) Then
  63.             Gosub LABEL004
  64.             Continue
  65.         Endif
  66.         Gosub LABEL005
  67.     Next
  68.     AnsiPos 1, 24
  69.     Wait
  70.     Goto LABEL001
  71.     :LABEL003
  72.     INTEGER004 = INTEGER004 + 1
  73.     STRING003 = "@X08No Disc"
  74.     AnsiPos 28, INTEGER003
  75.     Print STRING003
  76.     INTEGER003 = INTEGER003 + 1
  77.     Return
  78.     :LABEL004
  79.     STRING002 = "@X0AOnline"
  80.     INTEGER004 = INTEGER004 + 1
  81.     STRING003 = ReadLine(STRING001, INTEGER004)
  82.     AnsiPos 28, INTEGER003
  83.     Print STRING002
  84.     AnsiPos 44, INTEGER003
  85.     Print STRING003
  86.     INTEGER003 = INTEGER003 + 1
  87.     Return
  88.     :LABEL005
  89.     STRING002 = "@X0COffline"
  90.     INTEGER004 = INTEGER004 + 1
  91.     AnsiPos 28, INTEGER003
  92.     Print STRING002
  93.     INTEGER003 = INTEGER003 + 1
  94.     Return
  95.     :LABEL006
  96.     Cls
  97.     Newlines 6
  98.     PrintLn "    @X1B ┌───────────────────────────────────────────────────────────────────┐ @X0B"
  99.     PrintLn "    @X1B │                                                                   │ @X0B"
  100.     PrintLn "    @X1B │ @X1EThe demonstration period for the CD-Rom Availibility Inquiry PPE  @X1B│ @X0B"
  101.     PrintLn "    @X1B │                                                                   │ @X0B"
  102.     PrintLn "    @X1B │ @X1Ehas @X1Cexpired@X1E.  Please register this program to continue it's       @X1B│ @X0B"
  103.     PrintLn "    @X1B │                                                                   │ @X0B"
  104.     PrintLn "    @X1B │ @X1Eservices to your BBS.  Thank you for choosing Mongoose Shareware. @X1B│ @X0B"
  105.     PrintLn "    @X1B │                                                                   │ @X0B"
  106.     PrintLn "    @X1B └───────────────────────────────────────────────────────────────────┘ @X0B"
  107.     Newlines 6
  108.     Wait
  109.     Goto LABEL001
  110.  
  111. ;------------------------------------------------------------------------------
  112. ;
  113. ; Usage report (before postprocessing)
  114. ;
  115. ; ■ Statements used :
  116. ;
  117. ;    1       End
  118. ;    3       Cls
  119. ;    2       Wait
  120. ;    14      Goto 
  121. ;    20      Let 
  122. ;    4       Print 
  123. ;    11      PrintLn 
  124. ;    6       If 
  125. ;    1       DispFile 
  126. ;    1       FOpen 
  127. ;    3       Gosub 
  128. ;    3       Return
  129. ;    1       Delay 
  130. ;    2       Newlines 
  131. ;    5       AnsiPos 
  132. ;
  133. ;
  134. ; ■ Functions used :
  135. ;
  136. ;    13      +
  137. ;    2       ==
  138. ;    2       <
  139. ;    1       <=
  140. ;    1       >
  141. ;    2       >=
  142. ;    6       !
  143. ;    2       &&
  144. ;    1       ||
  145. ;    1       Date()
  146. ;    2       PPEPath()
  147. ;    2       ReadLine()
  148. ;    1       Exist()
  149. ;    1       FileInf()
  150. ;    1       PPEName()
  151. ;
  152. ;------------------------------------------------------------------------------
  153. ;
  154. ; Analysis flags : No flag
  155. ;
  156. ;------------------------------------------------------------------------------
  157. ;
  158. ; Postprocessing report
  159. ;
  160. ;    1       For/Next
  161. ;    0       While/EndWhile
  162. ;    5       If/Then or If/Then/Else
  163. ;    0       Select Case
  164. ;
  165. ;------------------------------------------------------------------------------
  166. ;                 AEGiS Corp - Break the routines, code against the machines!
  167. ;------------------------------------------------------------------------------
  168.