home *** CD-ROM | disk | FTP | other *** search
/ Beijing Paradise BBS Backup / PARADISE.ISO / software / BBSDOORW / AFG_B014.ZIP / TEMPLATE.ZIP / QUERY.APL < prev    next >
Encoding:
Text File  |  1995-09-16  |  2.4 KB  |  83 lines
  1. ; Template file: QUERY.APL
  2. ; Type         : AreaMgr
  3. ;
  4. ; This template generates a three different lists:
  5. ;
  6. ; 1 - A list of all the fileechos a system only receives files in.
  7. ; 2 - A list of all the fileechos a system only sends files in,
  8. ; 3 - A list of all the fileechos a system both sends and receives files in.
  9. ;
  10. @assign(@bcount,0)
  11. @assign(@count,0)
  12.  
  13. @assign(@doneheader,"No")
  14. @areabegin
  15. @test(@echostat,=,"+")
  16. @test(@doneheader,=,"No")
  17.   Your system receives files from our system for the following fileechos:
  18.  
  19.   File echo     Description                                Avg Kb   Avg Files
  20.   ---------------------------------------------------------------------------
  21. @assign(@doneheader,"Yes")
  22. @end
  23.   @just(@fileecho,L,14)@just(@echodesc,L,39) @just(@avgkb,R,9)   @just(@avgfiles,R,9)
  24. @add(@count,1)
  25. @add(@bcount,1)
  26. @end
  27. @end
  28. @test(@doneheader,=,"Yes")
  29.   ---------------------------------------------------------------------------
  30.   @count file echo(s)
  31. @end
  32.  
  33. @assign(@count,0)
  34.  
  35. @assign(@doneheader,"No")
  36. @areabegin
  37. @test(@echostat,=,"*")
  38. @test(@doneheader,=,"No")
  39.   Our system receives files from your system for the following fileechos:
  40.  
  41.   File echo     Description                                Avg Kb   Avg Files
  42.   ---------------------------------------------------------------------------
  43. @assign(@doneheader,"Yes")
  44. @end
  45.   @just(@fileecho,L,14)@just(@echodesc,L,39) @just(@avgkb,R,9)   @just(@avgfiles,R,9)
  46. @add(@count,1)
  47. @add(@bcount,1)
  48. @end
  49. @end
  50. @test(@doneheader,=,"Yes")
  51.   ---------------------------------------------------------------------------
  52.   @count file echo(s)
  53. @end
  54.  
  55. @assign(@count,0)
  56.  
  57. @assign(@doneheader,"No")
  58. @areabegin
  59. @test(@echostat,=,"&")
  60. @test(@doneheader,=,"No")
  61.   We both send files to each other for the following fileechos:
  62.  
  63.   File echo     Description                                Avg Kb   Avg Files
  64.   ---------------------------------------------------------------------------
  65. @assign(@doneheader,"Yes")
  66. @end
  67.   @just(@fileecho,L,14)@just(@echodesc,L,39) @just(@avgkb,R,9)   @just(@avgfiles,R,9)
  68. @add(@count,1)
  69. @add(@bcount,1)
  70. @end
  71. @end
  72. @test(@doneheader,=,"Yes")
  73.   ---------------------------------------------------------------------------
  74.   @count file echo(s)
  75. @end
  76.  
  77. @test(@bcount,=,0)
  78.   You are not connected to any file echos.
  79. @end
  80.  
  81. ---
  82.  * Origin: use %HELP for help using the AreaMgr in ALLFIX (@akatouse)
  83.