home *** CD-ROM | disk | FTP | other *** search
/ Beijing Paradise BBS Backup / PARADISE.ISO / software / BBSDOORW / PCLPACK.ZIP / NICE.ZIP / MACS.ZIP / NEW.CTL < prev    next >
Encoding:
Text File  |  1992-08-08  |  2.2 KB  |  77 lines
  1. setequal(f=%maxfarea%) ;this sets the max area to search...
  2. setequal(g=1)
  3. say(&CR&&11&You last checked for new files on &12&/:LASTCHK/&11&. Please enter the date to start)
  4. say(the search at or press (&14&ENTER&11&) to start at &12&/:LASTCHK/.)
  5. setequal(y=15)
  6. *askagain
  7. say(&CR&&3&Please enter the date to start at&12&: &11&(        )&15&*)
  8. back(9)
  9. SetFill(/:lastchk/)
  10. menuask%CRON%%LEN8%(*)
  11. setequal(n=%RESP%)
  12. if (%RESP%)=(<CR>) then setequal(n=/:LASTCHK/)
  13. dateok(%var%n)
  14. if (%ARESP%)=(No) then goto (invdate)
  15. loadsub(control\selfilea.ctl)
  16. clearscr
  17. 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&)
  18. defPif(s:stop,n:nonstop,v:view2,h:fhlp,t:tag2,d:down2)
  19. say(&11&(Spacebar) Aborts.  &14&Searching file database for "%var%n". . .&CR&)
  20. log(--,New Files Scan (%var%n))
  21. spause(3)
  22. *stsearch
  23. selfarea(%var%g)
  24. enufsec(%FILSEC%)
  25. if (%ARESP%)=(No) then goto (skcheck)
  26. *cnew
  27. eline(79)
  28. say(&7&Searching file area: %FILNAME%|)
  29. if (%CD%)=(No) then new(%FILPATH%files.bbs,12,15,7,11,3,%var%n)
  30. if (%CD%)=(Yes) then new (%CDPath%%filarea%\files.bbs,12,15,7,11,3,%var%n)
  31. iftrue (goto (enew))
  32. ifkey( )
  33. ifTrue (goto (enew)) ;did user hit stop?
  34. localkey(1)
  35. notif (%ARESP%)=(No) then goto (enew)
  36. *skcheck
  37. if (&g)=(&f) then goto (enew)
  38. inc(g)
  39. goto (stsearch)
  40.  
  41. *enew
  42. eline(79)
  43. selfarea(/:LASTDOWN/)
  44. defpause($7$&0&[Send more text?]$0$&3& (&11&S&3&)top, (&11&N&3&)onstop or (&11&C&3&)ontinue?&12&: &7&)
  45. defPif(s:stop,n:nonstop)
  46. setequal(/LASTCHK=%DATE%)
  47. setequal(k=0)
  48. display(display\newdone)
  49. Return
  50.  
  51. *invdate
  52. display(display\INVDATE)
  53. goto (askagain)
  54. *view2
  55. setequal(k=%ARESP%)
  56. loadsub(control\macros\zview.ctl)
  57. goto (blist2)
  58. *tag2
  59. setequal(k=%ARESP%)
  60. loadsub(control\macros\tfiles.ctl)
  61. goto (blist2)
  62. *down2
  63. setequal(k=%ARESP%)
  64. loadsub(control\macros\down.ctl)
  65. selfarea(/:Lastdown/)
  66. goto (blist2)
  67. *blist2
  68. spause(0)
  69. clearscr
  70. goto (cnew)
  71.         *fhlp
  72. defpause($7$&0&[Send more text?]$0$&3& (&11&S&3&)top, (&11&N&3&)onstop or (&11&C&3&)ontinue?&12&: &7&)
  73. defPif(s:stop,n:nonstop)
  74. setequal(k=%ARESP%)
  75. display(display\help\lst,/:SEC/)
  76. goto (blist2)
  77.