home *** CD-ROM | disk | FTP | other *** search
/ Groovy Bytes: Behind the Moon / groovybytes.iso / GROOVY / PPE / DIGITALU / DIG_SCN.ZIP / SCN.PPE (.txt) < prev    next >
Encoding:
PCBoard Programming Language Executable  |  1995-03-30  |  8.4 KB  |  320 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.     Integer  INTEGER003
  22.     String   STRING001
  23.     String   STRING002
  24.     String   STRING003
  25.     String   STRING004
  26.     String   STRING005
  27.     String   STRING006
  28.     String   STRING007
  29.     String   STRING008
  30.     String   STRING009
  31.     String   STRING010
  32.     String   STRING011
  33.     String   STRING012
  34.     String   STRING013
  35.     String   STRING014
  36.  
  37. ;------------------------------------------------------------------------------
  38.  
  39.     :LABEL001
  40.     STRING002 = U_Name()
  41.     PrintLn "@CLS@@X0F┌────────@X07────-@X08-                                                 -@X07────-@X0F┐┌@X07──@X08-"
  42.     PrintLn "@X0F│ @X08DO YOU WiS@X07H TO SCAN F@X0FOR NEW MAiL SiN@X07CE YOUR L@X08AST LOGON   @X0FYES    NO  │@X07:@X0F  DGU  @X07:"
  43.     AnsiPos GetX(), GetY() - 1
  44.     PrintLn "@X0F└─@X07───-@X08-                                                 -@X07────@X0F─────────┘    @X08-@X07──@X0F─┘"
  45.     :LABEL002
  46.     If (INTEGER003 == 1) Then
  47.         AnsiPos 65, 2
  48.         Print "@X0F  NO  "
  49.     Endif
  50.     AnsiPos 58, 2
  51.     Print "@X0F▐@X78 @X70YES @X08▌"
  52.     INTEGER003 = 0
  53.     :LABEL003
  54.     STRING001 = Inkey()
  55.     If (STRING001 == "RIGHT") Then
  56.         INTEGER003 = 2
  57.     Else
  58.         If (STRING001 == Chr(13)) Then
  59.             INTEGER001 = 1
  60.             Goto LABEL008
  61.         Endif
  62.         Goto LABEL003
  63.     Endif
  64.     :LABEL004
  65.     If (INTEGER003 == 2) Then
  66.         AnsiPos 58, 2
  67.         Print "@X0F  YES  "
  68.     Endif
  69.     If (INTEGER003 == 3) Then
  70.         AnsiPos 73, 2
  71.         Print "@X0F  DGU  "
  72.     Endif
  73.     AnsiPos 65, 2
  74.     Print "@X0F▐@X70 NO @X08▌"
  75.     INTEGER003 = 0
  76.     :LABEL005
  77.     STRING001 = Inkey()
  78.     If (STRING001 == "LEFT") Then
  79.         INTEGER003 = 1
  80.         Goto LABEL002
  81.     Endif
  82.     If (STRING001 == "RIGHT") Then
  83.         Goto LABEL006
  84.     Endif
  85.     Select Case (STRING001)
  86.         Case Chr(13)
  87.             INTEGER001 = 2
  88.             Goto LABEL005
  89.             :LABEL006
  90.             AnsiPos 65, 2
  91.             Print "@X0F  NO  "
  92.             AnsiPos 73, 2
  93.             Print "@X0F▐@X7F @X70DGU @X08▌"
  94.             :LABEL007
  95.             STRING001 = Inkey()
  96.             If (STRING001 == "LEFT") Then
  97.                 INTEGER003 = 3
  98.                 Goto LABEL004
  99.             Endif
  100.         Case Chr(13)
  101.             INTEGER001 = 3
  102.         Case Else
  103.             Goto LABEL007
  104.     End Select
  105.     :LABEL008
  106.     If (INTEGER001 == 1) Then
  107.         PrintLn 
  108.         PrintLn 
  109.         KbdStuff Chr(13)
  110.         End
  111.     Endif
  112.     If (INTEGER001 == 2) Then
  113.         KbdStuff "N" + Chr(13)
  114.         End
  115.     Endif
  116.     If (INTEGER001 == 3) Then
  117.         Goto LABEL009
  118.     Endif
  119.     :LABEL009
  120.     PrintLn "@CLS@@X0F                       @X01██▀█▄ ██ ▄████ ▀█ ████ ▄████ ██"
  121.     PrintLn "@X01 @X04▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄ @X01██ ██ ██ ██    ▄▄  ██  ██ ██ ██ @X04▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄"
  122.     PrintLn "@X04 @X06▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒ @X01██ ██ ██ ██▐██ ██  ██  █████ ██ @X06▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒"
  123.     PrintLn "@X06 @X04▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀ @X01██ ██ ██ ██ ██ ██  ██  ██ ██ ██ ▄ @X04▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀"
  124.     PrintLn "@X04                       @X01██ ██ ▀▀ ██ ██ ██  ██  ██ ██ ██ ██"
  125.     PrintLn "@X01                       ██▄█▀ █▀ ▀███▀ ██  ██  ██ ██ ▀███▀"
  126.     PrintLn "@X07"
  127.     PrintLn "@X01        ██ ██ ▄████ ██▀█▄ ▄████ ▄████ ▄████ ▄████ ▄███▄ ██ ██ ▄████ ██▀█▄"
  128.     PrintLn "@X01 @X04▄▄▄▄▄▄ @X01██ ██ ██ ██ ██ ██ ██  @X04▄ @X01██ ██ ██    ██ ██ ██ ██ ██ ██ ██ ██ ██ ██ @X04▄▄▄▄▄"
  129.     PrintLn "@X04 @X06▒▒▒▒▒▒ @X01██ ██ ██ ██ ██ ██ ███ @X06▒ @X01████▀ ██▐██ ████▀ ██ ██ ██ ██ ██ ██ ██ ██ @X06▒▒▒▒▒"
  130.     PrintLn "@X06 @X04▀▀▀▀▀▀ @X01██ ██ ██ ██ ██ ██ ██  ▄ ██ ██ ██ ██ ██ ██ ██ ██ ██ ██ ██ ██ ██ ██ @X04▀▀▀▀▀"
  131.     PrintLn "@X04        @X01██ ██ ██ ██ ██ ██ ██ ██ ██ ██ ██ ██ ██ ██ ██ ██ ██ ██ ██ ██ ██ ██"
  132.     PrintLn "@X01        ▀███▀ ██ ██ ██▄█▀ ▀███▀ ██ ██ ▀███▀ ██ ██ ▀███▀  ███  ██ ██ ██▄█▀ [F/x]"
  133.     PrintLn ""
  134.     PrintLn "@X0F [DO YOU WANT TO BECOME A MEMBER OF DiGiTAL uNDERGROuND∙∙∙∙∙∙∙∙∙]   @X02"
  135.     :LABEL010
  136.     AnsiPos 67, 15
  137.     Print "@X0F▐@X78 @X70YES @X08▌"
  138.     AnsiPos 74, 15
  139.     Print "@X07  NO  "
  140.     :LABEL011
  141.     STRING001 = Inkey()
  142.     If (STRING001 == "RIGHT") Then
  143.         Goto LABEL012
  144.     Endif
  145.     Select Case (STRING001)
  146.         Case Chr(13)
  147.             INTEGER002 = 1
  148.             Goto LABEL011
  149.             :LABEL012
  150.             AnsiPos 67, 15
  151.             Print "@X07  YES  "
  152.             AnsiPos 74, 15
  153.             Print "@X0F▐@X70 NO @X08▌"
  154.             :LABEL013
  155.             STRING001 = Inkey()
  156.             If (STRING001 == "LEFT") Then
  157.                 Goto LABEL010
  158.             Endif
  159.         Case Chr(13)
  160.             INTEGER002 = 2
  161.         Case Else
  162.             Goto LABEL013
  163.     End Select
  164.     If (INTEGER002 == 2) Then
  165.         Goto LABEL001
  166.     Endif
  167.     PrintLn "@X07@CLS@@X0F           @X03┌── d   @X08·   @X03I   @X08∙   @X03G   @X08∙   @X03i   @X08∙   @X03T   @X08∙   @X03A   @X08·   @X03l ──┐"
  168.     PrintLn "@X03           │@X0B┌─┐┌┐     ┌───┐     ┌───┐     ┌───┐     ┌─┐┌┐     ┌───┐@X03│"
  169.     PrintLn "@X03           │@X0B│ │││┌───┐│ ─┐│     │ ┌┐│┌───┐│ ┌┐│     │ │││┌───┐│ ─┐│@X03│"
  170.     PrintLn "@X03           │@X0B│ ││││ ┌┐││ │││┌───┐│ ─┘││ ┌┐││ ─┘│┌───┐│ ││││ ┌┐││ │││@X03│"
  171.     PrintLn "@X03           │@X0B│ ││││ ││││ ││││ ┌┐││ │─┐│ │└┘│ │─┐│ ┌┐││ ││││ ││││ │││@X03│"
  172.     PrintLn "@X03           │@X0B│ ││││ ││││ ││││ │└┘│ ││││ │┌┐│ ││││ ││││ ││││ ││││ │││@X03│"
  173.     PrintLn "@X03           │@X0B│ ││││ ││││ ││││ └┐ │ ││││ ││││ ││││ ││││ ││││ ││││ │││@X03│"
  174.     PrintLn "@X03           │@X0B│ ││││ ││││ ││││ ┌┘ │ ││││ ││││ ││││ ││││ ││││ ││││ │││@X03│"
  175.     PrintLn "@X03           │@X0B│ └┘││ ││││ └┘││ │┌┐│ ││││ ││││ ││││ ││││ └┘││ ││││ └┘│@X03│"
  176.     PrintLn "@X03           │@X0B└───┘│ │││└───┘│ │││└─┘└┘│ └┘│└─┘└┘│ │││└───┘│ │││└───┘@X03│"
  177.     PrintLn "@X03       @X08┌───@X03└────┐@X0B└─┘└┘@X03┌───┐@X0B│ └┘│@X03┌───┐@X0B└───┘@X03┌───┐@X0B│ └┘│@X03┌───┐@X0B└─┘└┘@X03┌────┘@X08───┐"
  178.     PrintLn "@X08       │        @X03└─────┘   │@X0B└───┘@X03│   └─────┘   │@X0B└───┘@X03│   └─────┘        @X08│"
  179.     PrintLn "@X08       │                  @X03└─────┘             └─────┘                  @X08│"
  180.     PrintLn "@X08       ├────@X02───════                                         ════───@X08────┤"
  181.     PrintLn "@X08       │                                                               │"
  182.     PrintLn "@X08       │ [∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙] │"
  183.     PrintLn "@X08       │                                                               │"
  184.     PrintLn "@X08       └─────────────@X02───════@X0AmεMBεRSHiP  ÆPPLiCATiOn@X02════────@X08────────────┘"
  185.     AnsiPos 26, 14
  186.     Print "@X02ENTER YOUR FiRST AND LAST NAME"
  187.     AnsiPos 11, 16
  188.     InputStr "_", STRING003, 14, 59, Mask_Ascii(), 2
  189.     AnsiPos 22, 14
  190.     Print "@X02ENTER STREET/ZIP&CiTY/VOiCE/DATA/FAX!"
  191.     AnsiPos 1, 16
  192.     PrintLn "@X08       │ [∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙] │"
  193.     PrintLn "@X08       │ [∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙] │"
  194.     PrintLn "@X08       │ [∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙] │"
  195.     PrintLn "@X08       │ [∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙] │"
  196.     PrintLn "@X08       │ [∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙] │"
  197.     PrintLn "@X08       │                                                               │"
  198.     PrintLn "@X08       └─────────────@X02───════@X0AmεMBεRSHiP  ÆPPLiCATiOn@X02════────@X08────────────┘"
  199.     AnsiPos 11, 16
  200.     InputStr "_", STRING004, 14, 59, Mask_Ascii(), 2
  201.     AnsiPos 11, 17
  202.     InputStr "_", STRING005, 14, 59, Mask_Ascii(), 2
  203.     AnsiPos 11, 18
  204.     InputStr "_", STRING006, 14, 59, Mask_Ascii(), 2
  205.     AnsiPos 11, 19
  206.     InputStr "_", STRING007, 14, 59, Mask_Ascii(), 2
  207.     AnsiPos 11, 20
  208.     InputStr "_", STRING008, 14, 59, Mask_Ascii(), 2
  209.     AnsiPos 22, 14
  210.     Print "@X02     ENTER DESiRED OCCUPATiON[S]     "
  211.     AnsiPos 1, 16
  212.     PrintLn "@X08       │ [∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙] │"
  213.     PrintLn "@X08       │                                                               │"
  214.     PrintLn "@X08       └─────────────@X02───════@X0AmεMBεRSHiP  ÆPPLiCATiOn@X02════────@X08────────────┘"
  215.     Print Space(320)
  216.     AnsiPos 11, 16
  217.     InputStr "_", STRING009, 14, 59, Mask_Ascii(), 2
  218.     AnsiPos 18, 14
  219.     Print "@X02ENTER SOMETHiNG ABOUT YOURSELF (MAX. 5 LiNES)"
  220.     AnsiPos 1, 16
  221.     PrintLn "@X08       │ [∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙] │"
  222.     PrintLn "@X08       │ [∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙] │"
  223.     PrintLn "@X08       │ [∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙] │"
  224.     PrintLn "@X08       │ [∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙] │"
  225.     PrintLn "@X08       │ [∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙] │"
  226.     PrintLn "@X08       │                                                               │"
  227.     PrintLn "@X08       └─────────────@X02───════@X0AmεMBεRSHiP  ÆPPLiCATiOn@X02════────@X08────────────┘"
  228.     AnsiPos 11, 16
  229.     InputStr "_", STRING010, 14, 59, Mask_Ascii(), 2
  230.     AnsiPos 11, 17
  231.     InputStr "_", STRING011, 14, 59, Mask_Ascii(), 2
  232.     AnsiPos 11, 18
  233.     InputStr "_", STRING012, 14, 59, Mask_Ascii(), 2
  234.     AnsiPos 11, 19
  235.     InputStr "_", STRING013, 14, 59, Mask_Ascii(), 2
  236.     AnsiPos 11, 20
  237.     InputStr "_", STRING014, 14, 59, Mask_Ascii(), 2
  238.     Print STRING001
  239.     FCreate 1, PPEPath() + "MSG.$$$", 2, 0
  240.     FPutLn 1, "AUTOMATED APPLiCATiON MESSAGE FOR DiGiTAL uNDERGROuND"
  241.     FPutLn 1, "====================================================="
  242.     FPutLn 1, "@X01[@X0EHANDLE.....@X01] @X0F" + STRING002
  243.     FPutLn 1, "@X01[@X0EOCCUPATiON.@X01] @X0F" + STRING009
  244.     FPutLn 1, "@X01[@X0EREAL NAME..@X01] @X0F" + STRING003
  245.     FPutLn 1, "@X01[@X0ESTREET.....@X01] @X0F" + STRING004
  246.     FPutLn 1, "@X01[@X0ECiTY/ZiP...@X01] @X0F" + STRING005
  247.     FPutLn 1, "@X01[@X0EVOiCE......@X01] @X0F" + STRING006
  248.     FPutLn 1, "@X01[@X0EDATA.......@X01] @X0F" + STRING007
  249.     FPutLn 1, "@X01[@X0EFAX........@X01] @X0F" + STRING008
  250.     FPutLn 1, "@X01[@X0ECOMMENT 1/5@X01] @X0F" + STRING010
  251.     FPutLn 1, "@X01[@X0ECOMMENT 2/5@X01] @X0F" + STRING011
  252.     FPutLn 1, "@X01[@X0ECOMMENT 3/5@X01] @X0F" + STRING012
  253.     FPutLn 1, "@X01[@X0ECOMMENT 4/5@X01] @X0F" + STRING013
  254.     FPutLn 1, "@X01[@X0ECOMMENT 5/5@X01] @X0F" + STRING014
  255.     FPutLn 1, ""
  256.     FPutLn 1, "@X04iF YOU ARE NOT A MEMBER OF DiGiTAL uNDERGROuND AND HAVE RECEiVED"
  257.     FPutLn 1, "THiZ MAiL, CONTACT US iN OUR CHIEF HQ: TRANCENTRAL +49-2296-9232@X07"
  258.     FClose 1
  259.     Message 0, "SYSOP", U_Name(), "DiGiTAL uNDERGRoUND", "N", 0, 1, 0, PPEPath() + "MSG.$$$"
  260.     AnsiPos 29, 22
  261.     PrintLn "@X02═@X0AAPPLiCATION  RECORDED@X02═"
  262.     PrintLn 
  263.     PrintLn 
  264.     If (INTEGER002 == 1) Then
  265.         KbdStuff "Y" + Chr(13)
  266.     Endif
  267.  
  268. ;------------------------------------------------------------------------------
  269. ;
  270. ; Usage report (before postprocessing)
  271. ;
  272. ; ■ Statements used :
  273. ;
  274. ;    2       End
  275. ;    37      Goto 
  276. ;    16      Let 
  277. ;    17      Print 
  278. ;    58      PrintLn 
  279. ;    19      If 
  280. ;    1       FCreate 
  281. ;    1       FClose 
  282. ;    18      FPutLn 
  283. ;    12      InputStr 
  284. ;    3       KbdStuff 
  285. ;    32      AnsiPos 
  286. ;    1       Message 
  287. ;
  288. ;
  289. ; ■ Functions used :
  290. ;
  291. ;    17      +
  292. ;    1       -
  293. ;    19      ==
  294. ;    19      !
  295. ;    1       Space()
  296. ;    8       Chr()
  297. ;    2       U_Name()
  298. ;    5       Inkey()
  299. ;    12      Mask_Ascii()
  300. ;    2       PPEPath()
  301. ;    1       GetX()
  302. ;    1       GetY()
  303. ;
  304. ;------------------------------------------------------------------------------
  305. ;
  306. ; Analysis flags : No flag
  307. ;
  308. ;------------------------------------------------------------------------------
  309. ;
  310. ; Postprocessing report
  311. ;
  312. ;    0       For/Next
  313. ;    0       While/EndWhile
  314. ;    15      If/Then or If/Then/Else
  315. ;    2       Select Case
  316. ;
  317. ;------------------------------------------------------------------------------
  318. ;                 AEGiS Corp - Break the routines, code against the machines!
  319. ;------------------------------------------------------------------------------
  320.