home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 15 / CD_ASCQ_15_070894.iso / vrac / pw_menu.zip / SETUP.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1994-05-11  |  4KB  |  183 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   TSTRING001(22)
  22.     String   TSTRING002(22)
  23.     String   TSTRING003(22)
  24.     String   TSTRING004(22)
  25.     String   TSTRING005(22)
  26.     String   TSTRING006(22)
  27.     String   STRING007
  28.     String   STRING008
  29.     String   STRING009
  30.     String   STRING010
  31.     String   STRING011
  32.     String   STRING012
  33.     String   STRING013
  34.     String   STRING014
  35.  
  36. ;------------------------------------------------------------------------------
  37.  
  38.     STRING007 = PPEPath() + "\MENU.IDX"
  39.     If (Exist(STRING007)) Goto LABEL001
  40.     Newline
  41.     InputStr "The configuration file does not exist.  Create it", STRING008, 14, 1, "YN", 8 + 128 + 256 + 16384
  42.     If (STRING008 == YesChar()) Then
  43.         FCreate 1, STRING007, 2, 0
  44.         FWrite 1, Left("Menuing configuration file version 1.0", 157), 157
  45.         FClose 1
  46.     Else
  47.         PrintLn "@X0EAborting operation......."
  48.         Goto LABEL004
  49.     Endif
  50.     :LABEL001
  51.     FOpen 1, STRING007, 2, 0
  52.     FSeek 1, 157, 1
  53.     INTEGER001 = 0
  54.     For INTEGER001 = 1 To 22
  55.         FRead 1, TSTRING001(INTEGER001), 15
  56.         FRead 1, TSTRING002(INTEGER001), 60
  57.         FRead 1, TSTRING003(INTEGER001), 60
  58.         FRead 1, TSTRING004(INTEGER001), 1
  59.         FRead 1, TSTRING005(INTEGER001), 20
  60.         FRead 1, TSTRING006(INTEGER001), 1
  61.     Next
  62.     :LABEL002
  63.     Cls
  64.     FClose 1
  65.     INTEGER001 = 0
  66.     For INTEGER001 = 1 To 22
  67.         PrintLn "@X0E", String(INTEGER001), ". - ", "@X0F", RTrim(TSTRING001(INTEGER001), " "), " @X03", RTrim(TSTRING003(INTEGER001), " "), "@X07"
  68.     Next
  69.     STRING008 = ""
  70.     InputStr "Enter the number you wish to modify (Q = quit)", STRING008, 14, 2, "0123456789Q", 8 + 2
  71.     If (STRING008 == "Q") Goto LABEL004
  72.     If (STRING008 == "") Goto LABEL002
  73.     :LABEL003
  74.     INTEGER002 = S2I(STRING008, 10)
  75.     STRING008 = ""
  76.     STRING009 = TSTRING001(INTEGER002)
  77.     STRING010 = TSTRING002(INTEGER002)
  78.     STRING011 = TSTRING003(INTEGER002)
  79.     STRING012 = TSTRING004(INTEGER002)
  80.     STRING013 = TSTRING005(INTEGER002)
  81.     STRING014 = TSTRING006(INTEGER002)
  82.     Cls
  83.     InputStr "Enter new name", STRING009, 14, 15, Mask_Ascii(), 2 + 128 + 256
  84.     PrintLn "@X0EEnter new path/filename up to 60 characters:"
  85.     InputStr "", STRING010, 14, 60, Mask_File(), 2 + 8
  86.     Newline
  87.     PrintLn "@X0EEnter the new description up to 60 characters:"
  88.     InputStr "", STRING011, 14, 60, Mask_Ascii(), 2 + 256
  89.     InputYN "Requires Doorway", STRING012, 14
  90.     Newline
  91.     PrintLn "@X0EEnter new command line switches (if any) up to 40 characters:"
  92.     InputStr "", STRING013, 14, 40, Mask_Ascii(), 2 + 8 + 256
  93.     InputYN "Is this a display-only file", STRING014, 14
  94.     Cls
  95.     PrintLn "@X0EYou have entered the following information:"
  96.     Newline
  97.     PrintLn "             @X0BName: @X0F", STRING009
  98.     PrintLn "    @X0BPath/filename: @X0F", STRING010
  99.     PrintLn "      @X0BDescription: @X0F", STRING011
  100.     PrintLn " @X0BRequires Doorway: @X0F", STRING012
  101.     PrintLn "       @X0BParameters: @X0F", STRING013
  102.     PrintLn "     @X0BDisplay only: @X0F", STRING014
  103.     Newline
  104.     InputYN "Is this correct", STRING008, 14
  105.     If (STRING008 == YesChar()) Then
  106.         FOpen 1, STRING007, 1, 0
  107.         FSeek 1, INTEGER002 * 157, 1
  108.         FWrite 1, Left(STRING009, 15), 15
  109.         FWrite 1, Left(STRING010, 60), 60
  110.         FWrite 1, Left(STRING011, 60), 60
  111.         FWrite 1, Left(STRING012, 1), 1
  112.         FWrite 1, Left(STRING013, 20), 20
  113.         FWrite 1, Left(STRING014, 1), 1
  114.         FClose 1
  115.     Else
  116.         Goto LABEL003
  117.     Endif
  118.     STRING008 = YesChar()
  119.     Newline
  120.     InputYN "Add/Modify another", STRING008, 14
  121.     If (STRING008 == YesChar()) Goto LABEL001
  122.     :LABEL004
  123.  
  124. ;------------------------------------------------------------------------------
  125. ;
  126. ; Usage report (before postprocessing)
  127. ;
  128. ; ■ Statements used :
  129. ;
  130. ;    3       Cls
  131. ;    14      Goto 
  132. ;    17      Let 
  133. ;    12      PrintLn 
  134. ;    8       If 
  135. ;    1       FCreate 
  136. ;    2       FOpen 
  137. ;    3       FClose 
  138. ;    6       InputStr 
  139. ;    4       InputYN 
  140. ;    6       Newline
  141. ;    2       FSeek 
  142. ;    6       FRead 
  143. ;    7       FWrite 
  144. ;
  145. ;
  146. ; ■ Functions used :
  147. ;
  148. ;    1       *
  149. ;    13      +
  150. ;    5       ==
  151. ;    2       <
  152. ;    2       <=
  153. ;    4       >=
  154. ;    5       !
  155. ;    4       &&
  156. ;    2       ||
  157. ;    7       Left()
  158. ;    2       RTrim()
  159. ;    4       YesChar()
  160. ;    1       String()
  161. ;    1       Mask_File()
  162. ;    3       Mask_Ascii()
  163. ;    1       PPEPath()
  164. ;    1       Exist()
  165. ;    1       S2I()
  166. ;
  167. ;------------------------------------------------------------------------------
  168. ;
  169. ; Analysis flags : No flag
  170. ;
  171. ;------------------------------------------------------------------------------
  172. ;
  173. ; Postprocessing report
  174. ;
  175. ;    2       For/Next
  176. ;    0       While/EndWhile
  177. ;    2       If/Then or If/Then/Else
  178. ;    0       Select Case
  179. ;
  180. ;------------------------------------------------------------------------------
  181. ;                 AEGiS Corp - Break the routines, code against the machines!
  182. ;------------------------------------------------------------------------------
  183.