home *** CD-ROM | disk | FTP | other *** search
/ Beijing Paradise BBS Backup / PARADISE.ISO / software / BBSDOORW / PCLPACK.ZIP / COMP.ZIP / NEW.CTL < prev    next >
Encoding:
Text File  |  1993-04-08  |  3.1 KB  |  121 lines
  1. setequal(f=%maxfarea%) ;this sets the max area to search...
  2. setequal(g=1)
  3. Jump(ST_Check)
  4. say(&CR&&11&You last checked for new files on &12&/:LASTCHK/&11&. Please enter the date to start)
  5. say(the search at or press (&14&ENTER&11&) to start at &12&/:LASTCHK/.)
  6. setequal(y=15)
  7. *askagain
  8. say(&CR&&3&Please enter the date to start at&12&: &11&(        )&15&*)
  9. back(9)
  10. SetFill(/:lastchk/)
  11. menuask%CRON%%LEN8%(*)
  12. *COMMAND
  13. setequal(n=%RESP%)
  14. if (%RESP%)=(<CR>) then setequal(n=/:LASTCHK/)
  15. ;**************
  16. If (%RESP%)=(S) then setequal(n=/:LASTCHK/)
  17. If (%RESP%)=(s) then setequal(n=/:LASTCHK/)
  18. ;**************
  19. ;Lines in between stars need to be added to allow user to select since last
  20. ;Check through the command line. 
  21. dateok(%var%n)
  22. if (%ARESP%)=(No) then goto (invdate)
  23. Jump(C_Check)
  24. loadsub(control\selfilea.ctl)
  25. clearscr
  26. defpause($7$&0&[More?]$0$&3& (&11&S&3&)top, (&11&N&3&)onstop, (&11&V&3&)iew, (&11&D&3&)ownload, (&11&T&3&)ag, (&11&H&3&)elp or (&11&C&3&)ontinue?&12&: &7&)
  27. defPif(s:stop,n:nonstop,v:view2,h:fhlp,t:tag2,d:down2)
  28. say(&11&(Spacebar) Aborts.  &14&Searching file database for "%var%n". . .&CR&)
  29. log(--,New Files Scan (%var%n))
  30. spause(3)
  31. *stsearch
  32. selfarea(%var%g)
  33. enufsec(%FILSEC%)
  34. if (%ARESP%)=(No) then goto (skcheck)
  35. *cnew
  36. eline(79)
  37. say(&7&Searching file area: %FILNAME%|)
  38. if (%CD%)=(No) then new(%FILPATH%files.bbs,12,15,7,11,3,%var%n)
  39. if (%CD%)=(Yes) then new (%CDPath%%filarea%\files.bbs,12,15,7,11,3,%var%n)
  40. iftrue (goto (enew))
  41. ifkey( )
  42. ifTrue (goto (enew)) ;did user hit stop?
  43. localkey(1)
  44. notif (%ARESP%)=(No) then goto (enew)
  45. *skcheck
  46. if (&g)=(&f) then goto (enew)
  47. inc(g)
  48. goto (stsearch)
  49.  
  50. *enew
  51. eline(79)
  52. selfarea(/:LASTDOWN/)
  53. defpause($7$&0&[Send more text?]$0$&3& (&11&S&3&)top, (&11&N&3&)onstop or (&11&C&3&)ontinue?&12&: &7&)
  54. defPif(s:stop,n:nonstop)
  55. setequal(/LASTCHK=%DATE%)
  56. setequal(k=0)
  57. display(display\newdone)
  58. Return
  59.  
  60. *invdate
  61. display(display\INVDATE)
  62. goto (askagain)
  63. *view2
  64. setequal(k=%ARESP%)
  65. loadsub(control\macros\zview.ctl)
  66. goto (blist2)
  67. *tag2
  68. setequal(k=%ARESP%)
  69. loadsub(control\macros\tfiles.ctl)
  70. goto (blist2)
  71. *down2
  72. setequal(k=%ARESP%)
  73. loadsub(control\macros\down.ctl)
  74. selfarea(/:Lastdown/)
  75. goto (blist2)
  76. *blist2
  77. spause(0)
  78. clearscr
  79. goto (cnew)
  80.         *fhlp
  81. defpause($7$&0&[Send more text?]$0$&3& (&11&S&3&)top, (&11&N&3&)onstop or (&11&C&3&)ontinue?&12&: &7&)
  82. defPif(s:stop,n:nonstop)
  83. setequal(k=%ARESP%)
  84. display(display\help\lst,/:SEC/)
  85. goto (blist2)
  86.  
  87. *C_CHECK
  88. SetEqual(z=;)
  89. ;Z will be search character (' ' or ';')
  90. Find(%RESP%,;)
  91. If (%ARESP%)=(0) Then 
  92.  Find(%RESP%, )
  93.  If(%ARESP%)=(0) then Ret
  94.  SetEqual(z= )
  95. endif
  96. ;SetEqual(/nvz=%RESP%)
  97. SetEqual(^1=%RESP%)
  98. *ST_CHECK
  99. ;SetEqual(a=%NV%Z)
  100. SetEqual(a=^:1^)
  101. Find(%VAR%A,%VAR%Z)
  102. If(%ARESP%)=(0) then Goto(NoMoreCommands)
  103. AddVar(%ARESP%+-1=b)
  104. Get(%VAR%A,1,%VAR%B)
  105. SetEqual(/resp=%ARESP%)
  106. *Cont
  107. If (%RESP%)=() Then Ret
  108. AddVar(%VAR%B+2=b)
  109. Get(%VAR%A,%VAR%B,100)
  110. ;SetEqual(/nvz=%ARESP%)
  111. SetEqual(^1=%ARESP%)
  112. Goto(COMMAND)
  113. Ret
  114.  
  115. *NoMoreCommands
  116.  SetEqual(/resp=^:1^)
  117.  SetEqual(^1=)
  118.  If (%RESP%)=() Then Ret
  119.  Goto(command)
  120.  
  121.