home *** CD-ROM | disk | FTP | other *** search
/ Groovy Bytes: Behind the Moon / groovybytes.iso / GROOVY / PPE / ALF / ALF_LOGN.ZIP / LOGIN.PPE (.txt) < prev    next >
Encoding:
PCBoard Programming Language Executable  |  1994-07-26  |  1.5 KB  |  131 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 1.OO (plain) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Integer  INTEGER001
  20.     Integer  INTEGER002
  21.     Integer  INTEGER003
  22.     Integer  INTEGER004
  23.     Integer  INTEGER005
  24.     Integer  INTEGER006
  25.     Integer  INTEGER007
  26.     Integer  INTEGER008
  27.     Integer  INTEGER009
  28.     Integer  INTEGER010
  29.     String   STRING001
  30.     String   STRING002
  31.     String   STRING003
  32.     String   STRING004
  33.     String   STRING005
  34.  
  35. ;------------------------------------------------------------------------------
  36.  
  37.     GetToken INTEGER001
  38.     FOpen 1, PPEPath() + "LOGIN.CNF", 2, 0
  39.     FGet 1, INTEGER002
  40.     FGet 1, INTEGER003
  41.     FGet 1, INTEGER004
  42.     FGet 1, INTEGER005
  43.     FGet 1, INTEGER006
  44.     FGet 1, INTEGER007
  45.     FGet 1, INTEGER008
  46.     FGet 1, INTEGER009
  47.     FGet 1, STRING001
  48.     FGet 1, STRING002
  49.     FGet 1, STRING003
  50.     FGet 1, STRING004
  51.     FGet 1, STRING005
  52.     FGet 1, INTEGER010
  53.     FClose 1
  54.     Select Case (INTEGER001)
  55.         Case 76
  56.             AnsiPos INTEGER002, INTEGER003
  57.             Print STRING003
  58.             Delay INTEGER010
  59.             End
  60.         Case 92
  61.             AnsiPos INTEGER002, INTEGER003
  62.             Print STRING002
  63.             Delay INTEGER010
  64.             End
  65.         Case 148
  66.             AnsiPos INTEGER008, INTEGER009
  67.             Print STRING001 + "@CITY@"
  68.             AnsiPos INTEGER002, INTEGER003
  69.             Print "@CLREOL@"
  70.             AnsiPos INTEGER002, INTEGER003
  71.             Print STRING005
  72.             AnsiPos INTEGER006, INTEGER007
  73.             Print "            "
  74.             AnsiPos INTEGER006, INTEGER007
  75.             End
  76.         Case 259
  77.             DispFile PPEPath() + "LOGIN.PCB", 0
  78.             AnsiPos INTEGER002, INTEGER003
  79.             Print STRING004
  80.             AnsiPos INTEGER004, INTEGER005
  81.             End
  82.         Case 260
  83.             KbdStuff Chr(13)
  84.             End
  85.     End Select
  86.  
  87. ;------------------------------------------------------------------------------
  88. ;
  89. ; Usage report (before postprocessing)
  90. ;
  91. ; ■ Statements used :
  92. ;
  93. ;    5       End
  94. ;    9       Goto 
  95. ;    7       Print 
  96. ;    5       If 
  97. ;    1       DispFile 
  98. ;    1       FOpen 
  99. ;    1       FClose 
  100. ;    14      FGet 
  101. ;    2       Delay 
  102. ;    1       GetToken 
  103. ;    1       KbdStuff 
  104. ;    9       AnsiPos 
  105. ;
  106. ;
  107. ; ■ Functions used :
  108. ;
  109. ;    3       +
  110. ;    5       ==
  111. ;    5       !
  112. ;    1       Chr()
  113. ;    2       PPEPath()
  114. ;
  115. ;------------------------------------------------------------------------------
  116. ;
  117. ; Analysis flags : No flag
  118. ;
  119. ;------------------------------------------------------------------------------
  120. ;
  121. ; Postprocessing report
  122. ;
  123. ;    0       For/Next
  124. ;    0       While/EndWhile
  125. ;    0       If/Then or If/Then/Else
  126. ;    1       Select Case
  127. ;
  128. ;------------------------------------------------------------------------------
  129. ;                 AEGiS Corp - Break the routines, code against the machines!
  130. ;------------------------------------------------------------------------------
  131.