home *** CD-ROM | disk | FTP | other *** search
/ Groovy Bytes: Behind the Moon / groovybytes.iso / GROOVY / PPE / DIGITALU / DIG_SAM.ZIP / SAMSON.PPE (.txt) < prev    next >
Encoding:
PCBoard Programming Language Executable  |  1995-04-01  |  2.5 KB  |  180 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 3.O1 (Encryption type I) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Integer  INTEGER001
  20.     Integer  INTEGER002
  21.     String   STRING001
  22.  
  23. ;------------------------------------------------------------------------------
  24.  
  25.     PrintLn "@CLS@@X0F @X7F╔═══─@X78─────@X70────────────────WHAT dO Y@X78OU WA@X7FNT TO WATCH@X70───────────────@X78─────@X7F─═════╗@X07"
  26.     PrintLn "@X0F @X7F║   @X70LOGON SCREEN & NEWS  ONLY LOGON SCREEN  ONLY NEWSLETTER  EAT MY SHORTZ   @X7F║@X07"
  27.     PrintLn "@X0F @X7F╚═════─@X78─────@X70─────────────────dIG@X78ITA@X7FL─UNDER@X78GRO@X70UND───────────────────@X78──────@X7F─═══╝@X07"
  28.     :LABEL001
  29.     If (INTEGER002 == 2) Then
  30.         AnsiPos 27, 2
  31.         Print "@X70ONLY LOGON SCREEN"
  32.     Endif
  33.     AnsiPos 6, 2
  34.     Print "@X7ELOGON SCREEN & NEWS@X07"
  35.     INTEGER002 = 0
  36.     :LABEL002
  37.     STRING001 = Inkey()
  38.     If (STRING001 == "RIGHT") Then
  39.         INTEGER002 = 1
  40.     Else
  41.         If (STRING001 == Chr(13)) Then
  42.             INTEGER001 = 1
  43.             Goto LABEL008
  44.         Endif
  45.         Goto LABEL002
  46.     Endif
  47.     :LABEL003
  48.     If (INTEGER002 == 1) Then
  49.         AnsiPos 6, 2
  50.         Print "@X70LOGON SCREEN & NEWS"
  51.     Endif
  52.     If (INTEGER002 == 4) Then
  53.         AnsiPos 46, 2
  54.         Print "@X70ONLY NEWSLETTER"
  55.     Endif
  56.     AnsiPos 27, 2
  57.     Print "@X7EONLY LOGON SCREEN@X07"
  58.     INTEGER002 = 0
  59.     :LABEL004
  60.     STRING001 = Inkey()
  61.     If (STRING001 == "LEFT") Then
  62.         INTEGER002 = 2
  63.         Goto LABEL001
  64.     Endif
  65.     If (STRING001 == "RIGHT") Then
  66.         INTEGER002 = 3
  67.     Else
  68.         If (STRING001 == Chr(13)) Then
  69.             INTEGER001 = 2
  70.             Goto LABEL008
  71.         Endif
  72.         Goto LABEL004
  73.     Endif
  74.     :LABEL005
  75.     If (INTEGER002 == 3) Then
  76.         AnsiPos 27, 2
  77.         Print "@X70ONLY LOGON SCREEN"
  78.     Endif
  79.     If (INTEGER002 == 5) Then
  80.         AnsiPos 63, 2
  81.         Print "@X70EAT MY SHORTZ"
  82.     Endif
  83.     AnsiPos 46, 2
  84.     Print "@X7EONLY NEWSLETTER"
  85.     INTEGER002 = 0
  86.     :LABEL006
  87.     STRING001 = Inkey()
  88.     If (STRING001 == "LEFT") Then
  89.         INTEGER002 = 4
  90.         Goto LABEL003
  91.     Endif
  92.     If (STRING001 == "RIGHT") Then
  93.         INTEGER002 = 6
  94.     Else
  95.         If (STRING001 == Chr(13)) Then
  96.             INTEGER001 = 3
  97.             Goto LABEL008
  98.         Endif
  99.         Goto LABEL006
  100.     Endif
  101.     If (INTEGER002 == 6) Then
  102.         AnsiPos 46, 2
  103.         Print "@X70ONLY NEWSLETTER"
  104.     Endif
  105.     AnsiPos 63, 2
  106.     Print "@X7EEAT MY SHORTZ"
  107.     INTEGER002 = 0
  108.     :LABEL007
  109.     STRING001 = Inkey()
  110.     If (STRING001 == "LEFT") Then
  111.         INTEGER002 = 5
  112.         Goto LABEL005
  113.     Endif
  114.     If (STRING001 == Chr(13)) Then
  115.         INTEGER001 = 4
  116.     Else
  117.         Goto LABEL007
  118.     Endif
  119.     :LABEL008
  120.     If (INTEGER001 == 1) Then
  121.         DispFile PPEPath() + "LOGON.SAM", 4
  122.         Wait
  123.     Endif
  124.     If (INTEGER001 == 1) Then
  125.         DispFile PPEPath() + "NEWSL.SAM", 4
  126.         Wait
  127.     Endif
  128.     If (INTEGER001 == 2) Then
  129.         DispFile PPEPath() + "LOGON.SAM", 4
  130.         Wait
  131.     Endif
  132.     If (INTEGER001 == 3) Then
  133.         DispFile PPEPath() + "NEWSL.SAM", 1
  134.         Wait
  135.     Endif
  136.     End
  137.  
  138. ;------------------------------------------------------------------------------
  139. ;
  140. ; Usage report (before postprocessing)
  141. ;
  142. ; ■ Statements used :
  143. ;
  144. ;    1       End
  145. ;    4       Wait
  146. ;    34      Goto 
  147. ;    18      Let 
  148. ;    10      Print 
  149. ;    3       PrintLn 
  150. ;    20      If 
  151. ;    4       DispFile 
  152. ;    10      AnsiPos 
  153. ;
  154. ;
  155. ; ■ Functions used :
  156. ;
  157. ;    4       +
  158. ;    20      ==
  159. ;    20      !
  160. ;    4       Chr()
  161. ;    4       Inkey()
  162. ;    4       PPEPath()
  163. ;
  164. ;------------------------------------------------------------------------------
  165. ;
  166. ; Analysis flags : No flag
  167. ;
  168. ;------------------------------------------------------------------------------
  169. ;
  170. ; Postprocessing report
  171. ;
  172. ;    0       For/Next
  173. ;    0       While/EndWhile
  174. ;    20      If/Then or If/Then/Else
  175. ;    0       Select Case
  176. ;
  177. ;------------------------------------------------------------------------------
  178. ;                 AEGiS Corp - Break the routines, code against the machines!
  179. ;------------------------------------------------------------------------------
  180.