home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1994 #1 / monster.zip / monster / PCBOARD / RIPE_G.ZIP / RIPE-G.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1994-02-14  |  3KB  |  142 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.     String   STRING001
  20.     String   STRING002
  21.     String   STRING003
  22.     String   STRING004
  23.  
  24. ;------------------------------------------------------------------------------
  25.  
  26.     :LABEL001
  27.     PrintLn "@X07"
  28.     PrintLn "                        @X01-@X09/@X01- @X05R@X0Di@X05PE @X08Logo@X07ff Mat@X0Frix @X0Ev@X011@X09.@X010@X08"
  29.     PrintLn " @X09──────────────────────────────────────────────────────────────────────────────@X08"
  30.     PrintLn "                      @X01-@X09/@X01- @X09D @X08isconn@X07ect Fr@X0Fom BBS"
  31.     PrintLn "                      @X01-@X09/@X01- @X09E @X08nter a @X07Messa@X0Fge (E-Mail)"
  32.     PrintLn "                      @X01-@X09/@X01- @X09L @X08eave t@X07he Sys@X0FOp E-Mail"
  33.     PrintLn "                      @X01-@X09/@X01- @X09P @X08age th@X07e SysO@X0Fp"
  34.     PrintLn "                      @X01-@X09/@X01- @X09Q @X08uit to @X07the B@X0FBS"
  35.     PrintLn " @X09──────────────────────────────────────────────────────────────────────────────@X07"
  36.     Newline
  37.     Print "@X0F-/- RiPE -/- Command@X08:  "
  38.     AnsiPos 29, 25
  39.     InputStr "_", STRING001, 116, 1, Mask_Ascii(), 4096 + 64
  40.     Select Case (Upper(STRING001))
  41.         Case "D"
  42.             Newline
  43.             PrintLn "@X0F @X01-@X09/@X01- @X05R@X0Di@X05PE @X08Logo@X07ff Mat@X0Frix @X0Ev@X011@X09.@X010 @X04Infrared"
  44.             Delay 25
  45.             If (Exist(PPEPath() + "goodbye.ans")) DispFile PPEPath() + "goodbye.ans", 4 + 2 + 1
  46.             KbdStuff "Y" + Chr(13)
  47.             End
  48.         Case "L"
  49.             :LABEL002
  50.             KbdStuff "N" + Chr(13)
  51.             KbdStuff "E" + Chr(13)
  52.             KbdStuff "SYSOP" + Chr(13)
  53.             KbdStuff "-/- FEEDBACK -/-" + Chr(13)
  54.             KbdStuff "R" + Chr(13)
  55.             End
  56.         Case "E"
  57.             KbdStuff "N" + Chr(13)
  58.             KbdStuff "E" + Chr(13)
  59.             KbdStuff "ALL" + Chr(13)
  60.             KbdStuff "-/-"
  61.             End
  62.         Case "Q"
  63.             Newline
  64.             PrintLn "@X01-@X09/@X01- @X05R@X0Di@X05PE @X08Logo@X07ff Mat@X0Frix @X0Ev@X011@X09.@X010 @X04Infrared @X08"
  65.             Newline
  66.             KbdStuff "N" + Chr(13)
  67.             End
  68.         Case "P"
  69.             Goto LABEL003
  70.     End Select
  71.     PrintLn "Wrong Key!@X0F"
  72.     Goto LABEL001
  73.     End
  74.     :LABEL003
  75.     Newline
  76.     Print "@X08So why @X07you wan@X0Fna chat: @X08"
  77.     InputStr "_", STRING003, 2, 50, Mask_Ascii(), 4096 + 64
  78.     Print "@X08Is This @X07an Emer@X0Fgency? @X09[@X01Y@X09/@X01N@X09] @X07"
  79.     InputStr "_", STRING002, 1, 1, Mask_Ascii(), 4096 + 64
  80.     If (Upper(STRING002) == "Y") Then
  81.         PrintLn "Now paging SysOp@X08"
  82.         PrintLn "@BEEP@.@BEEP@@BEEP@@BEEP@@BEEP@"
  83.         PrintLn 1
  84.     Endif
  85.     Goto LABEL004
  86.     End
  87.     :LABEL004
  88.     Newline
  89.     Print "Would you @X07like to leav@X0Fe Feedback? @X09[@X01Y@X09/@X01N@X09] @X07"
  90.     InputStr "_", STRING004, 1, 1, Mask_Ascii(), 4096 + 64
  91.     If (Upper(STRING004) == "Y") Then
  92.         Goto LABEL002
  93.     Endif
  94.     End
  95.  
  96. ;------------------------------------------------------------------------------
  97. ;
  98. ; Usage report (before postprocessing)
  99. ;
  100. ; ■ Statements used :
  101. ;
  102. ;    7       End
  103. ;    16      Goto 
  104. ;    4       Print 
  105. ;    15      PrintLn 
  106. ;    8       If 
  107. ;    1       DispFile 
  108. ;    4       InputStr 
  109. ;    1       Delay 
  110. ;    6       Newline
  111. ;    11      KbdStuff 
  112. ;    1       AnsiPos 
  113. ;
  114. ;
  115. ; ■ Functions used :
  116. ;
  117. ;    18      +
  118. ;    7       ==
  119. ;    7       !
  120. ;    7       Upper()
  121. ;    10      Chr()
  122. ;    4       Mask_Ascii()
  123. ;    2       PPEPath()
  124. ;    1       Exist()
  125. ;
  126. ;------------------------------------------------------------------------------
  127. ;
  128. ; Analysis flags : No flag
  129. ;
  130. ;------------------------------------------------------------------------------
  131. ;
  132. ; Postprocessing report
  133. ;
  134. ;    0       For/Next
  135. ;    0       While/EndWhile
  136. ;    2       If/Then or If/Then/Else
  137. ;    1       Select Case
  138. ;
  139. ;------------------------------------------------------------------------------
  140. ;                 AEGiS Corp - Break the routines, code against the machines!
  141. ;------------------------------------------------------------------------------
  142.