home *** CD-ROM | disk | FTP | other *** search
/ Media Share 9 / MEDIASHARE_09.ISO / pcboard / grafd200.zip / GRAF-D.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1993-05-07  |  5KB  |  247 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 1.OO (plain) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Boolean  BOOLEAN001
  20.     Boolean  BOOLEAN002
  21.     Boolean  BOOLEAN003
  22.     Boolean  BOOLEAN004
  23.     Integer  INTEGER001
  24.     Integer  INTEGER002
  25.     String   STRING001
  26.     String   STRING002
  27.     String   STRING003
  28.     String   STRING004
  29.     String   STRING005
  30.     String   STRING006
  31.     String   STRING007
  32.     String   STRING008
  33.     String   STRING009
  34.     String   STRING010
  35.     String   STRING011
  36.     String   STRING012
  37.     String   STRING013
  38.     String   STRING014
  39.  
  40. ;------------------------------------------------------------------------------
  41.  
  42.     STRING003 = ""
  43.     STRING007 = Chr(8) + Chr(32) + Chr(8)
  44.     INTEGER002 = 50
  45.     STRING008 = Chr(27)
  46.     STRING009 = Chr(13) + Chr(10)
  47.     STRING003 = GetToken()
  48.     While (STRING003 <> "") Do
  49.         Select Case (Mid(Upper(STRING003), 2, 1))
  50.             Case "W"
  51.                 INTEGER002 = Mid(STRING003, InStr(STRING003, ":") + 1, 2)
  52.                 If ((INTEGER002 < 1) || (INTEGER002 == "")) INTEGER002 = 50
  53.             Case "C"
  54.                 BOOLEAN004 = 1
  55.         End Select
  56.         STRING003 = GetToken()
  57.     EndWhile
  58.     STRING003 = ""
  59.     PrintLn "Testing your system capability..."
  60.     If (OnLocal()) Then
  61.         BOOLEAN001 = 1
  62.     Else
  63.         Print STRING008 + "[!"
  64.         Print STRING007 + STRING007 + STRING007
  65.         Print STRING008 + " F"
  66.         Print STRING007 + STRING007 + STRING007
  67.         Print STRING008 + "[6n"
  68.         Print STRING007 + STRING007 + STRING007 + STRING007
  69.         STRING003 = Chr(MGetByte())
  70.         While ((STRING003 == "") && (INTEGER001 <= INTEGER002)) Do
  71.             STRING003 = Chr(MGetByte())
  72.             If (STRING003 <> "") Then
  73.                 BOOLEAN003 = 1
  74.                 Continue
  75.             Endif
  76.             Delay 2
  77.             INTEGER001 = INTEGER001 + 2
  78.         EndWhile
  79.         Select Case (STRING003)
  80.             Case "R"
  81.                 While ((STRING003 <> "") || (Len(STRING005) < 9)) Do
  82.                     STRING005 = STRING005 + STRING003
  83.                     STRING003 = Chr(MGetByte())
  84.                     If (STRING003 == "") Then
  85.                         Delay 2
  86.                         STRING003 = Chr(MGetByte())
  87.                     Endif
  88.                 EndWhile
  89.                 If (Left(STRING005, 3) == "RIP") Then
  90.                     BOOLEAN002 = 1
  91.                     BOOLEAN001 = 1
  92.                 Endif
  93.             Case STRING008
  94.                 While (STRING003 <> "") Do
  95.                     STRING005 = STRING005 + STRING003
  96.                     STRING003 = Chr(MGetByte())
  97.                     If (STRING003 == "") Then
  98.                         Delay 2
  99.                         STRING003 = Chr(MGetByte())
  100.                     Endif
  101.                 EndWhile
  102.                 Tokenize STRING005
  103.                 STRING003 = GetToken()
  104.                 STRING003 = Mid(STRING003, 2, Len(STRING003 - 1))
  105.                 If (((STRING003 >= 0) || (STRING003 <= 80)) && (Right(GetToken(), 1) == "R")) Then
  106.                     BOOLEAN001 = 1
  107.                     Goto LABEL001
  108.                 Endif
  109.                 BOOLEAN001 = 0
  110.             Endif
  111.     End Select
  112.     :LABEL001
  113.     STRING002 = "Do you want graphics (Enter)="
  114.     STRING004 = ReadLine(PCBDat(), 257)
  115.     If (STRING004) Then
  116.         STRING006 = ReadLine(PCBDat(), 179)
  117.         FCreate 1, STRING006 + "ANSI-D.$$$", 2, 2
  118.         FPutLn 1, "The PPE shown in the subject, could not run properly because you"
  119.         FPutLn 1, "have your system configured to Default to Yes for the 'Do you want"
  120.         FPutLn 1, "graphics prompt'.  You need to change that setting in to 'N' in"
  121.         FPutLn 1, "PCBSetup | Configuration Options | Configuration Switches."
  122.         FPutLn 1, ""
  123.         FClose 1
  124.         Message 0, "SYSOP", PPEPath() + PPEName() + ".PPE", "Your Configuration", "R", Date() + 2, 0, 0, STRING006 + "ANSI-D.$$$"
  125.         PrintLn 
  126.         Print "Do you want graphics (Enter)=no"
  127.         End
  128.     Endif
  129.     If (BOOLEAN001) Then
  130.         If (BOOLEAN002) Then
  131.             If (BOOLEAN004) Then
  132.                 PrintLn STRING009 + STRING008 + "[45;30m▓▒░" + STRING008 + "[37;1m     RIPscrip detected and it will be the default    " + STRING008 + "[0m" + STRING008 + "[45;30m ░▒▓" + STRING008 + "[0m"
  133.             Else
  134.                 STRING002 = STRING002 + "RIPscrip"
  135.             Endif
  136.         ElseIf (BOOLEAN004) Then
  137.             PrintLn STRING009 + STRING008 + "[45;30m▓▒░" + STRING008 + "[37;1m     ANSI detected and it will be the default    " + STRING008 + "[0m" + STRING008 + "[45;30m ░▒▓" + STRING008 + "[0m"
  138.         Else
  139.             STRING002 = STRING002 + "yes"
  140.         Endif
  141.         If (BOOLEAN004) STRING002 = STRING002 + "default"
  142.         InputStr STRING002, STRING001, 7, 6, "QSR" + YesChar() + NoChar(), 128 + 256 + 2 + 16 + 8
  143.     Else
  144.         If (BOOLEAN004) Then
  145.             PrintLn STRING009 + "[* No graphics capabilities detected.  This will be the default *]"
  146.             STRING002 = STRING002 + "default"
  147.         Else
  148.             STRING002 = STRING002 + "no"
  149.         Endif
  150.         InputStr STRING002, STRING001, 7, 6, "QSR" + YesChar() + NoChar(), 2 + 128 + 256 + 16 + 8
  151.         If (STRING001 == "") STRING001 = NoChar()
  152.     Endif
  153.     If (InStr(STRING001, "NS")) Then
  154.         STRING010 = "NS"
  155.         STRING001 = Left(STRING001, InStr(STRING001, "NS") - 1) + Right(STRING001, Len(STRING001) - InStr(STRING001, "NS") + 1)
  156.     Endif
  157.     If (InStr(STRING001, YesChar())) STRING012 = YesChar() + ";"
  158.     If (InStr(STRING001, NoChar())) STRING014 = NoChar() + ";"
  159.     If (InStr(STRING001, "Q")) STRING011 = "Q;"
  160.     If (InStr(STRING001, "R")) STRING013 = "R;"
  161.     If ((BOOLEAN002 && (STRING014 == "")) && (STRING012 == "")) Then
  162.         STRING013 = "R;"
  163.     ElseIf ((BOOLEAN001 && (STRING014 == "")) && (STRING013 == "")) Then
  164.         STRING012 = YesChar() + ";"
  165.     Endif
  166.     If ((STRING013 <> "") && (STRING012 <> "")) STRING013 = ""
  167.     If ((STRING013 <> "") && (STRING014 <> "")) STRING013 = ""
  168.     If ((STRING012 <> "") && (STRING014 <> "")) STRING012 = ""
  169.     KbdStuff STRING013 + STRING012 + STRING014 + STRING011 + STRING010
  170.     End
  171.  
  172. ;------------------------------------------------------------------------------
  173. ;
  174. ; Usage report (before postprocessing)
  175. ;
  176. ; ■ Statements used :
  177. ;
  178. ;    2       End
  179. ;    38      Goto 
  180. ;    48      Let 
  181. ;    7       Print 
  182. ;    5       PrintLn 
  183. ;    33      If 
  184. ;    1       FCreate 
  185. ;    1       FClose 
  186. ;    5       FPutLn 
  187. ;    2       InputStr 
  188. ;    3       Delay 
  189. ;    1       Tokenize 
  190. ;    1       KbdStuff 
  191. ;    1       Message 
  192. ;
  193. ;
  194. ; ■ Functions used :
  195. ;
  196. ;    69      +
  197. ;    3       -
  198. ;    15      ==
  199. ;    10      <>
  200. ;    2       <
  201. ;    2       <=
  202. ;    1       >=
  203. ;    23      !
  204. ;    9       &&
  205. ;    3       ||
  206. ;    3       Len(
  207. ;    2       Upper()
  208. ;    4       Mid()
  209. ;    2       Left()
  210. ;    2       Right()
  211. ;    12      Chr()
  212. ;    8       InStr()
  213. ;    1       Date()
  214. ;    5       NoChar()
  215. ;    5       YesChar()
  216. ;    2       PCBDat()
  217. ;    1       PPEPath()
  218. ;    2       ReadLine()
  219. ;    1       OnLocal()
  220. ;    4       GetToken()
  221. ;    1       PPEName()
  222. ;    6       MGetByte()
  223. ;
  224. ;------------------------------------------------------------------------------
  225. ;
  226. ; Analysis flags : d
  227. ;
  228. ; d - Access PCBOARD.DAT ■ 2
  229. ;     Program gets the full pathname to PCBOARD.DAT, this may be usefull
  230. ;     for many PPE so they can find various informations on the system
  231. ;     (system paths, max number of lines in messages, ...) but it may also
  232. ;     be a way to gather vital informations.
  233. ;     ■ Search for : PCBDAT()
  234. ;
  235. ;------------------------------------------------------------------------------
  236. ;
  237. ; Postprocessing report
  238. ;
  239. ;    0       For/Next
  240. ;    4       While/EndWhile
  241. ;    15      If/Then or If/Then/Else
  242. ;    2       Select Case
  243. ;
  244. ;------------------------------------------------------------------------------
  245. ;                 AEGiS Corp - Break the routines, code against the machines!
  246. ;------------------------------------------------------------------------------
  247.