home *** CD-ROM | disk | FTP | other *** search
/ Carsten's PPE Collection / Carstens_PPE_Collection_2007.zip / S / SCUMQT10.ZIP / QUOTE2.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1994-08-16  |  3KB  |  193 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.     String   STRING001
  23.     Int      INT001
  24.     Int      INT002
  25.  
  26. ;------------------------------------------------------------------------------
  27.  
  28.     If (Exist(PPEPath() + "Q.TMP")) Goto LABEL001
  29.     FCreate 1, PPEPath() + "Q.TMP", 1, 0
  30.     FPutLn 1, ""
  31.     FClose 1
  32.     End
  33.     :LABEL001
  34.     Cls
  35.     GetUser
  36.     Gosub LABEL002
  37.     Gosub LABEL005
  38.     Gosub LABEL007
  39.     End
  40.     :LABEL002
  41.     FOpen 1, PPEPath() + "QUOTE.TXT", 0, 0
  42.     FGet 1, STRING001
  43.     FGet 1, STRING001
  44.     FGet 1, STRING001
  45.     FGet 1, STRING001
  46.     FGet 1, STRING001
  47.     If (U_LongHDR == 1) FGet 1, STRING001
  48.     FGet 1, STRING001
  49.     :LABEL003
  50.     If (Ferr(1)) Goto LABEL004
  51.     FGet 1, STRING001
  52.     PrintLn "@X07" + String(INTEGER001 + 1) + "@X07: " + STRING001
  53.     Inc INTEGER001
  54.     Goto LABEL003
  55.     :LABEL004
  56.     FClose 1
  57.     Newline
  58.     Return
  59.     :LABEL005
  60.     STRING001 = ""
  61.     InputStr ReadLine(PPEPath() + "QUOTE.CNF", 4), STRING001, 10, 4, Mask_Num() + "Qq", 256
  62.     If (Mid(Upper(STRING001), 1, 1) == "Q") Then
  63.         KbdStuff "Q" + Chr(13)
  64.         Cls
  65.         End
  66.     ElseIf (STRING001 == "") Then
  67.         Goto LABEL005
  68.     Else
  69.         INTEGER002 = STRING001
  70.     Endif
  71.     If ((INTEGER002 > INTEGER001) || (INTEGER002 < 1)) Then
  72.         KbdStuff "Q" + Chr(13)
  73.         Cls
  74.         End
  75.     Endif
  76.     :LABEL006
  77.     STRING001 = ""
  78.     InputStr ReadLine(PPEPath() + "QUOTE.CNF", 5), STRING001, 10, 4, Mask_Num() + "Qq", 256
  79.     If (Mid(Upper(STRING001), 1, 1) == "Q") Then
  80.         KbdStuff "Q" + Chr(13)
  81.         Cls
  82.         End
  83.     ElseIf (STRING001 == "") Then
  84.         Goto LABEL006
  85.     Else
  86.         INTEGER003 = STRING001
  87.     Endif
  88.     If ((INTEGER003 > INTEGER001) || (INTEGER003 < 1)) Then
  89.         KbdStuff "Q" + Chr(13)
  90.         Cls
  91.         End
  92.     Endif
  93.     Return
  94.     :LABEL007
  95.     If (Exist(PPEPath() + "Q.TMP")) Delete PPEPath() + "Q.TMP"
  96.     FOpen 1, PPEPath() + "QUOTE.TXT", 0, 0
  97.     FCreate 2, PPEPath() + "QUOTE.TMP", 1, 0
  98.     INT002 = 5
  99.     If (U_LongHDR == 1) INT002 = INT002 + 2
  100.     For INT001 = 1 To INT002
  101.         FGet 1, STRING001
  102.     Next
  103.     For INT001 = 1 To INTEGER002 - 1
  104.         FGet 1, STRING001
  105.     Next
  106.     FPutLn 2, Mid(ReadLine(PPEPath() + "QUOTE.CNF", 6), 1, 78)
  107.     For INT001 = 1 To INTEGER003 - INTEGER002 + 1
  108.         FGet 1, STRING001
  109.         FPutLn 2, Strip(Mid(ReadLine(PPEPath() + "QUOTE.CNF", 8), 1, 78), " ") + STRING001
  110.     Next
  111.     FPutLn 2, Mid(ReadLine(PPEPath() + "QUOTE.CNF", 7), 1, 78)
  112.     FClose 1
  113.     FClose 2
  114.     If (Exist(PPEPath() + "Q1.TMP")) Then
  115.         KbdFlush
  116.         KbdStuff Chr(13) + "Q" + Chr(13)
  117.     Else
  118.         If (Exist(PPEPath() + "Q1.TMP")) Goto LABEL008
  119.         KbdStuff Chr(13) + "Q" + Chr(13)
  120.         KbdFile PPEPath() + "QUOTE.TMP"
  121.     Endif
  122.     :LABEL008
  123.     Return
  124.  
  125. ;------------------------------------------------------------------------------
  126. ;
  127. ; Usage report (before postprocessing)
  128. ;
  129. ; ■ Statements used :
  130. ;
  131. ;    6       End
  132. ;    5       Cls
  133. ;    24      Goto 
  134. ;    12      Let 
  135. ;    1       PrintLn 
  136. ;    16      If 
  137. ;    2       FCreate 
  138. ;    2       FOpen 
  139. ;    4       FClose 
  140. ;    11      FGet 
  141. ;    4       FPutLn 
  142. ;    1       GetUser
  143. ;    1       Delete 
  144. ;    2       InputStr 
  145. ;    3       Gosub 
  146. ;    3       Return
  147. ;    1       Inc 
  148. ;    1       Newline
  149. ;    6       KbdStuff 
  150. ;    1       KbdFile 
  151. ;    1       KbdFlush
  152. ;
  153. ;
  154. ; ■ Functions used :
  155. ;
  156. ;    36      +
  157. ;    4       -
  158. ;    6       ==
  159. ;    5       <
  160. ;    3       <=
  161. ;    2       >
  162. ;    6       >=
  163. ;    12      !
  164. ;    6       &&
  165. ;    5       ||
  166. ;    2       Upper()
  167. ;    5       Mid()
  168. ;    1       Ferr()
  169. ;    8       Chr()
  170. ;    1       Strip()
  171. ;    1       String()
  172. ;    2       Mask_Num()
  173. ;    15      PPEPath()
  174. ;    5       ReadLine()
  175. ;    4       Exist()
  176. ;
  177. ;------------------------------------------------------------------------------
  178. ;
  179. ; Analysis flags : No flag
  180. ;
  181. ;------------------------------------------------------------------------------
  182. ;
  183. ; Postprocessing report
  184. ;
  185. ;    3       For/Next
  186. ;    0       While/EndWhile
  187. ;    7       If/Then or If/Then/Else
  188. ;    0       Select Case
  189. ;
  190. ;------------------------------------------------------------------------------
  191. ;                 AEGiS Corp - Break the routines, code against the machines!
  192. ;------------------------------------------------------------------------------
  193.