home *** CD-ROM | disk | FTP | other *** search
/ Carsten's PPE Collection / Carstens_PPE_Collection_2007.zip / T / TBH-FTS.ZIP / STORY.PPE (.txt) < prev   
PCBoard Programming Language Executable  |  1994-05-16  |  4KB  |  196 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.     String   TSTRING001(19)
  21.     String   STRING002
  22.     String   STRING003
  23.  
  24. ;------------------------------------------------------------------------------
  25.  
  26.     TSTRING001(19) = "Hell's Keeper IS and Alwayz Will B THE BEST !"
  27.     While ((INTEGER001 < 40) && (TSTRING001(19) <> "")) Do
  28.         Cls
  29.         Gosub LABEL001
  30.         Gosub LABEL002
  31.         Gosub LABEL003
  32.     EndWhile
  33.     Gosub LABEL004
  34.     End
  35.     :LABEL001
  36.     Print "@X01·   · ·∙∙∙---───────────────────────────@X09────────────────────────────────────@X0F───┐"
  37.     Print "                    @X01· @X0FS@X09t@X01ory@X0FL@X09i@X01ner @X0F- B@X09y @X0FH@X09e@X01ll's @X0FK@X09e@X01eper @X0F[@X09T@X01BH] ·                    @X0F│"
  38.     Print "                                                                               @X09│"
  39.     Print "                                                                               │"
  40.     Print "                                                                               @X01│"
  41.     Print "                                                                               │"
  42.     Print "                                                                               ∙"
  43.     Print "                                                                               ∙"
  44.     Print "                                                                               ·"
  45.     PrintLn "                                                                               ·"
  46.     Print "@X01                                                                               ·"
  47.     PrintLn " "
  48.     PrintLn " "
  49.     PrintLn " "
  50.     Print "@X01                                                                               ·"
  51.     Return
  52.     :LABEL002
  53.     FOpen 1, PPEPath() + "STORY.DAT", 0, 0
  54.     FGet 1, TSTRING001(1)
  55.     FGet 1, TSTRING001(2)
  56.     FGet 1, TSTRING001(3)
  57.     FGet 1, TSTRING001(4)
  58.     FGet 1, TSTRING001(5)
  59.     FGet 1, TSTRING001(6)
  60.     FGet 1, TSTRING001(7)
  61.     FGet 1, TSTRING001(8)
  62.     FGet 1, TSTRING001(9)
  63.     FGet 1, TSTRING001(10)
  64.     FGet 1, TSTRING001(11)
  65.     FGet 1, TSTRING001(12)
  66.     FGet 1, TSTRING001(13)
  67.     FGet 1, TSTRING001(14)
  68.     FGet 1, TSTRING001(15)
  69.     FGet 1, TSTRING001(16)
  70.     FGet 1, TSTRING001(17)
  71.     FGet 1, TSTRING001(18)
  72.     FGet 1, TSTRING001(19)
  73.     INTEGER001 = INTEGER001 + 19
  74.     Return
  75.     :LABEL003
  76.     Print "@X0F"
  77.     AnsiPos 2, 4
  78.     Print TSTRING001(1)
  79.     AnsiPos 2, 5
  80.     Print TSTRING001(2)
  81.     AnsiPos 2, 6
  82.     Print TSTRING001(3)
  83.     AnsiPos 2, 7
  84.     Print TSTRING001(4)
  85.     AnsiPos 2, 8
  86.     Print TSTRING001(5)
  87.     AnsiPos 2, 9
  88.     Print TSTRING001(6)
  89.     AnsiPos 2, 10
  90.     Print TSTRING001(7)
  91.     AnsiPos 2, 11
  92.     Print TSTRING001(8)
  93.     AnsiPos 2, 12
  94.     Print TSTRING001(9)
  95.     AnsiPos 2, 13
  96.     Print TSTRING001(10)
  97.     AnsiPos 2, 14
  98.     Print TSTRING001(11)
  99.     AnsiPos 2, 15
  100.     Print TSTRING001(12)
  101.     AnsiPos 2, 16
  102.     Print TSTRING001(13)
  103.     AnsiPos 2, 17
  104.     Print TSTRING001(14)
  105.     AnsiPos 2, 18
  106.     Print TSTRING001(15)
  107.     AnsiPos 2, 19
  108.     Print TSTRING001(16)
  109.     AnsiPos 2, 20
  110.     Print TSTRING001(17)
  111.     AnsiPos 2, 21
  112.     Print TSTRING001(18)
  113.     AnsiPos 2, 22
  114.     Print TSTRING001(19)
  115.     Wait
  116.     Return
  117.     :LABEL004
  118.     Cls
  119.     Gosub LABEL001
  120.     AnsiPos 2, 4
  121.     STRING003 = "Y"
  122.     InputYN "@X0FA@X09d@X01d @X0Fa @X0FS@X09t@X01ory@X0FL@X09i@X01ne ", STRING003, 0
  123.     If (STRING003 == NoChar()) Then
  124.         Return
  125.     Endif
  126.     AnsiPos 2, 6
  127.     PrintLn "@X0FE@X09n@X01ter @X0FL@X09i@X01ne :"
  128.     InputText "", STRING002, 15, 75
  129.     FClose 1
  130.     If (Len(STRING002) < 10) Then
  131.         Goto LABEL005
  132.     Endif
  133.     FAppend 2, PPEPath() + "STORY.DAT", 1, 3
  134.     FPutLn 2, STRING002
  135.     FClose 2
  136.     Return
  137.     :LABEL005
  138.     PrintLn ""
  139.     PrintLn "@X8FL@X89a@X81mer ! @X0FY@X09o@X01ur @X0FL@X09i@X01ne @X0FI@X09s@X01n't @X0FL@X09o@X01ng @X0FE@X09n@X01ough @X0F!"
  140.     End
  141.  
  142. ;------------------------------------------------------------------------------
  143. ;
  144. ; Usage report (before postprocessing)
  145. ;
  146. ; ■ Statements used :
  147. ;
  148. ;    2       End
  149. ;    2       Cls
  150. ;    1       Wait
  151. ;    5       Goto 
  152. ;    3       Let 
  153. ;    31      Print 
  154. ;    7       PrintLn 
  155. ;    3       If 
  156. ;    1       FOpen 
  157. ;    1       FAppend 
  158. ;    2       FClose 
  159. ;    19      FGet 
  160. ;    1       FPutLn 
  161. ;    1       InputYN 
  162. ;    5       Gosub 
  163. ;    5       Return
  164. ;    1       InputText 
  165. ;    21      AnsiPos 
  166. ;
  167. ;
  168. ; ■ Functions used :
  169. ;
  170. ;    3       +
  171. ;    1       ==
  172. ;    1       <>
  173. ;    2       <
  174. ;    3       !
  175. ;    1       &&
  176. ;    1       Len(
  177. ;    1       NoChar()
  178. ;    2       PPEPath()
  179. ;
  180. ;------------------------------------------------------------------------------
  181. ;
  182. ; Analysis flags : No flag
  183. ;
  184. ;------------------------------------------------------------------------------
  185. ;
  186. ; Postprocessing report
  187. ;
  188. ;    0       For/Next
  189. ;    1       While/EndWhile
  190. ;    2       If/Then or If/Then/Else
  191. ;    0       Select Case
  192. ;
  193. ;------------------------------------------------------------------------------
  194. ;                 AEGiS Corp - Break the routines, code against the machines!
  195. ;------------------------------------------------------------------------------
  196.