home *** CD-ROM | disk | FTP | other *** search
/ Amiga Elysian Archive / AmigaElysianArchive.iso / comm / tfiles.lha / TOPTEN.REXX < prev    next >
OS/2 REXX Batch file  |  1992-07-11  |  2KB  |  44 lines
  1. /* Top Files
  2.    Created 07 July 1992
  3.    Andreas Foerster SNOOPY-BBS 
  4.    +49-6101-12565 19200 Baud
  5.     */
  6.                                  /*********************/
  7. options results                         /*                   */
  8. getuser 15;ACCESS=result                     /* Welcher Level     */
  9.                                  /* darf die Topfiles */
  10. if ACCESS<8 then exit                     /* sehen             */
  11.                                  /*                   */
  12. path="Sysdata:log.hitliste"                           /* Pfad der in       */
  13.                                  /* TOPTEN.CFG steht  */
  14. Query "\c7\n2Beliebtesten Files zeigen? [\c3Ja\c7]? " /*                   */
  15. get char                             /*                   */
  16. a$=upper(result)                         /*                   */
  17. if a$ = "N" then exit                     /* Wer "N" eigibt    */
  18. transmit "\@4\*0"path                     /* bekommt nichts    */
  19. transmit "\n1               \>9\c7Press Any Key \g1"  /*                   */
  20. exit                                 /* zu sehen          */
  21.                                  /* Nur Return zeigt  */
  22.                                  /* die TOPTEN !!!    */
  23.                                  /*********************/
  24. \*
  25.  
  26.                      
  27.             ________HoPe You CaLL uS________
  28.   _________/  _____     __  ______ ____ __  \__________
  29.  \\_______  //  _  \/\  \ \/ / __ \\__ \\ \\    ______/
  30.    \_____  //\  \__/  \_/ / / / / /__ \/ \ \/\\  ___// 
  31.    //___  // _\  \/  \   / /_/ / /  /     \  // _____\
  32.   /______ \\_____/__/ \_/\____/_/\_/      /_// _______\\
  33.  
  34.                       SNOOPY - BBS
  35.  
  36.              ...C-NET Utility TOPTEN:
  37.          \\\_                              _///
  38.           \\ LINE 1           +49-6101-12565//
  39.            \ LINE 2           +49-6101-88708/
  40.  
  41. *\
  42.  
  43.  
  44.