home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1994 #1 / monster.zip / monster / PCBOARD / PIC_NUP1.ZIP / NUP.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1994-02-24  |  2KB  |  143 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.     String   STRING005
  24.     String   STRING006
  25.     String   STRING007
  26.     String   STRING008
  27.     String   STRING009
  28.     String   STRING010
  29.     String   STRING011
  30.     String   STRING012
  31.  
  32. ;------------------------------------------------------------------------------
  33.  
  34.     FOpen 1, PPEPath() + "NUP.CNF", 2, 0
  35.     FGet 1, STRING002
  36.     FGet 1, STRING001
  37.     FGet 1, STRING003
  38.     FGet 1, STRING004
  39.     FGet 1, STRING005
  40.     FGet 1, STRING006
  41.     FGet 1, STRING007
  42.     FGet 1, STRING009
  43.     FGet 1, STRING011
  44.     FClose 1
  45.     STRING002 = Upper(STRING002)
  46.     STRING010 = ""
  47.     InputStr STRING003, STRING008, 14, 0, "NnYy", 256 + 4096 + 2
  48.     STRING008 = Upper(STRING008)
  49.     If (STRING008 == "Y") Then
  50.         If (STRING002 == "YES") Then
  51.             Newline
  52.             Goto LABEL001
  53.             End
  54.         Endif
  55.         If (STRING002 == "NO") Then
  56.             End
  57.         Endif
  58.         End
  59.     Endif
  60.     If (STRING008 == "N") Then
  61.         Newline
  62.         PrintLn STRING007
  63.         Hangup
  64.     Endif
  65.     End
  66.     :LABEL001
  67.     InputStr STRING004 + "_", STRING012, 14, 75, Mask_Ascii(), 256 + 4096 + 8
  68.     STRING012 = Upper(STRING012)
  69.     If (STRING012 == STRING001) Then
  70.         PrintLn STRING006
  71.         KbdStuff Chr(13)
  72.         End
  73.     Endif
  74.     If (STRING012 <> STRING001) Then
  75.         STRING010 = STRING010 + 1
  76.         If (STRING010 == "3") Then
  77.             PrintLn STRING011
  78.             Newline
  79.             PrintLn STRING007
  80.             Hangup
  81.         Endif
  82.         If (STRING010 <> "3") Then
  83.             PrintLn STRING009
  84.             Newline
  85.             Goto LABEL001
  86.         Endif
  87.         End
  88.     Endif
  89.     End
  90.  
  91. ;------------------------------------------------------------------------------
  92. ;
  93. ; Usage report (before postprocessing)
  94. ;
  95. ; ■ Statements used :
  96. ;
  97. ;    7       End
  98. ;    10      Goto 
  99. ;    5       Let 
  100. ;    5       PrintLn 
  101. ;    8       If 
  102. ;    1       FOpen 
  103. ;    1       FClose 
  104. ;    9       FGet 
  105. ;    2       Hangup
  106. ;    2       InputStr 
  107. ;    4       Newline
  108. ;    1       KbdStuff 
  109. ;
  110. ;
  111. ; ■ Functions used :
  112. ;
  113. ;    7       +
  114. ;    6       ==
  115. ;    2       <>
  116. ;    8       !
  117. ;    3       Upper()
  118. ;    1       Chr()
  119. ;    1       Mask_Ascii()
  120. ;    1       PPEPath()
  121. ;
  122. ;------------------------------------------------------------------------------
  123. ;
  124. ; Analysis flags : B
  125. ;
  126. ; B - Brute hangup ■ 1
  127. ;     Program hangup without notification. This may be a good way to
  128. ;     disconnect a user, but if used randomly, may be very nasty
  129. ;     ■ Search for : HANGUP, DTROFF
  130. ;
  131. ;------------------------------------------------------------------------------
  132. ;
  133. ; Postprocessing report
  134. ;
  135. ;    0       For/Next
  136. ;    0       While/EndWhile
  137. ;    8       If/Then or If/Then/Else
  138. ;    0       Select Case
  139. ;
  140. ;------------------------------------------------------------------------------
  141. ;                 AEGiS Corp - Break the routines, code against the machines!
  142. ;------------------------------------------------------------------------------
  143.