home *** CD-ROM | disk | FTP | other *** search
/ ftp.wwiv.com / ftp.wwiv.com.zip / ftp.wwiv.com / pub / DOOR / BBSTRIV1.ZIP / BBSTRIV.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1994-05-07  |  2KB  |  115 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.     String   STRING001
  22.     String   STRING002
  23.     String   STRING003
  24.     String   STRING004
  25.     String   STRING005
  26.     String   STRING006
  27.     String   STRING007
  28.     String   STRING008
  29.     String   STRING009
  30.     String   STRING010
  31.  
  32. ;------------------------------------------------------------------------------
  33.  
  34.     :LABEL001
  35.     STRING009 = LTrim(RTrim(GetEnv("TRIVHOME"), " "), " ")
  36.     STRING008 = STRING009 + "\bbstriv.seq"
  37.     FOpen 1, STRING008, 0, 0
  38.     FGet 1, STRING003
  39.     FGet 1, STRING004
  40.     FGet 1, STRING005
  41.     FGet 1, STRING006
  42.     FGet 1, STRING007
  43.     FGet 1, STRING002
  44.     FClose 1
  45.     INTEGER002 = FileInf(STRING002, 4) / 300
  46.     INTEGER001 = Random(INTEGER002)
  47.     FOpen 1, STRING002, 0, 0
  48.     FSeek 1, (INTEGER001 - 1) * 300, 0
  49.     PrintLn "@CLS@BBSTriv (PPE) Written By:Bill Fink (c) 1994"
  50.     PrintLn 
  51.     PrintLn STRING004, "Question Number : ", INTEGER001, " Of ", INTEGER002, " Records."
  52.     PrintLn 
  53.     FRead 1, STRING001, 150
  54.     PrintLn STRING005, STRING001
  55.     PrintLn "@PAUSE@"
  56.     FSeek 1, 0, 1
  57.     FRead 1, STRING001, 150
  58.     PrintLn STRING006, STRING001
  59.     PrintLn 
  60.     FClose 1
  61.     STRING010 = "N"
  62.     InputYN "Enter 'Y' To Execute Again : ", STRING010, 3
  63.     If (Upper(STRING010) == "Y") Goto LABEL001
  64.     End
  65.  
  66. ;------------------------------------------------------------------------------
  67. ;
  68. ; Usage report (before postprocessing)
  69. ;
  70. ; ■ Statements used :
  71. ;
  72. ;    1       End
  73. ;    1       Goto 
  74. ;    5       Let 
  75. ;    8       PrintLn 
  76. ;    1       If 
  77. ;    2       FOpen 
  78. ;    2       FClose 
  79. ;    6       FGet 
  80. ;    1       InputYN 
  81. ;    2       FSeek 
  82. ;    2       FRead 
  83. ;
  84. ;
  85. ; ■ Functions used :
  86. ;
  87. ;    1       *
  88. ;    1       /
  89. ;    1       +
  90. ;    1       -
  91. ;    1       ==
  92. ;    1       Upper()
  93. ;    1       LTrim()
  94. ;    1       RTrim()
  95. ;    1       Random()
  96. ;    1       GetEnv()
  97. ;    1       FileInf()
  98. ;
  99. ;------------------------------------------------------------------------------
  100. ;
  101. ; Analysis flags : No flag
  102. ;
  103. ;------------------------------------------------------------------------------
  104. ;
  105. ; Postprocessing report
  106. ;
  107. ;    0       For/Next
  108. ;    0       While/EndWhile
  109. ;    0       If/Then or If/Then/Else
  110. ;    0       Select Case
  111. ;
  112. ;------------------------------------------------------------------------------
  113. ;                 AEGiS Corp - Break the routines, code against the machines!
  114. ;------------------------------------------------------------------------------
  115.