home *** CD-ROM | disk | FTP | other *** search
/ Groovy Bytes: Behind the Moon / groovybytes.iso / GROOVY / PPE / ALF / ALF_PLEN.ZIP / ALF-PLEN.PPE (.txt) < prev    next >
Encoding:
PCBoard Programming Language Executable  |  1994-08-01  |  939 b   |  80 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.  
  22. ;------------------------------------------------------------------------------
  23.  
  24.     If (TokCount() <> 0) Then
  25.         STRING001 = GetToken()
  26.         Gosub LABEL001
  27.         KbdStuff "P " + STRING001 + Chr(13)
  28.         End
  29.         STRING001 = GetToken()
  30.         KbdStuff "P " + STRING001 + Chr(13)
  31.     Endif
  32.     :LABEL001
  33.     DispFile PPEPath() + "lines.txt", 0
  34.     InputStr "@X07What number do you see on the top of the screen? ", STRING002, 13, 3, "1234567890", 256 + 8
  35.     KbdStuff "P " + Chr(13)
  36.     KbdStuff STRING002 + Chr(13)
  37.  
  38. ;------------------------------------------------------------------------------
  39. ;
  40. ; Usage report (before postprocessing)
  41. ;
  42. ; ■ Statements used :
  43. ;
  44. ;    1       End
  45. ;    1       Goto 
  46. ;    2       Let 
  47. ;    1       If 
  48. ;    1       DispFile 
  49. ;    1       InputStr 
  50. ;    1       Gosub 
  51. ;    4       KbdStuff 
  52. ;
  53. ;
  54. ; ■ Functions used :
  55. ;
  56. ;    8       +
  57. ;    1       <>
  58. ;    1       !
  59. ;    4       Chr()
  60. ;    1       PPEPath()
  61. ;    2       GetToken()
  62. ;    1       TokCount()
  63. ;
  64. ;------------------------------------------------------------------------------
  65. ;
  66. ; Analysis flags : No flag
  67. ;
  68. ;------------------------------------------------------------------------------
  69. ;
  70. ; Postprocessing report
  71. ;
  72. ;    0       For/Next
  73. ;    0       While/EndWhile
  74. ;    1       If/Then or If/Then/Else
  75. ;    0       Select Case
  76. ;
  77. ;------------------------------------------------------------------------------
  78. ;                 AEGiS Corp - Break the routines, code against the machines!
  79. ;------------------------------------------------------------------------------
  80.