home *** CD-ROM | disk | FTP | other *** search
/ Carsten's PPE Collection / Carstens_PPE_Collection_2007.zip / S / STF-UNPW.ZIP / UNIXQ.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1995-06-16  |  2KB  |  106 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.     String   STRING001
  20.  
  21. ;------------------------------------------------------------------------------
  22.  
  23.     Print "Welcome to A/UX Server Node @NODE@, located in London, UK."
  24.     Newline
  25.     Print "Running NexComm 15.6.1 Copyright (C) 1992-95 NexComm Communications."
  26.     Newline
  27.     Print "Registration NXC-1561. You are connected to Server Node @NODE@ at @CARRIER@ baud"
  28.     Newline
  29.     Print "Connection occured at @LOGTIME@ @LOGDATE@"
  30.     Newline
  31.     Newline
  32.     Print "Trying 143.45.32.10 6666....."
  33.     Delay 10
  34.     Print "."
  35.     Delay 10
  36.     Print "."
  37.     Delay 10
  38.     Print "."
  39.     Newline
  40.     Print "Connection Failed. Server is Unreachable."
  41.     Newline
  42.     Print "Trying 143.45.32.10 6667..... "
  43.     Newline
  44.     Print "Connection established."
  45.     Newline
  46.     Print "Escape character is `^]'."
  47.     Newline
  48.     Newline
  49.     Print "Terminal type: ansi, rip, askii. (A/r/n)? "
  50.     :LABEL001
  51.     STRING001 = Inkey()
  52.     If (Upper(STRING001) == "Y") Goto LABEL002
  53.     If (Upper(STRING001) == "A") Goto LABEL002
  54.     If (Upper(STRING001) == "N") Goto LABEL003
  55.     If (Upper(STRING001) == "R") Goto LABEL004
  56.     If (STRING001 == Chr(13)) Goto LABEL002
  57.     Goto LABEL001
  58.     :LABEL002
  59.     Print "A"
  60.     End
  61.     :LABEL003
  62.     Print "N"
  63.     End
  64.     :LABEL004
  65.     Print "R"
  66.     End
  67.  
  68. ;------------------------------------------------------------------------------
  69. ;
  70. ; Usage report (before postprocessing)
  71. ;
  72. ; ■ Statements used :
  73. ;
  74. ;    3       End
  75. ;    6       Goto 
  76. ;    1       Let 
  77. ;    16      Print 
  78. ;    5       If 
  79. ;    3       Delay 
  80. ;    11      Newline
  81. ;
  82. ;
  83. ; ■ Functions used :
  84. ;
  85. ;    5       ==
  86. ;    4       Upper()
  87. ;    1       Chr()
  88. ;    1       Inkey()
  89. ;
  90. ;------------------------------------------------------------------------------
  91. ;
  92. ; Analysis flags : No flag
  93. ;
  94. ;------------------------------------------------------------------------------
  95. ;
  96. ; Postprocessing report
  97. ;
  98. ;    0       For/Next
  99. ;    0       While/EndWhile
  100. ;    0       If/Then or If/Then/Else
  101. ;    0       Select Case
  102. ;
  103. ;------------------------------------------------------------------------------
  104. ;                 AEGiS Corp - Break the routines, code against the machines!
  105. ;------------------------------------------------------------------------------
  106.