1 / 213

; ******************************************************************************

; ******************************************************************************. ; * New files scan v1.1 *. ; ******************************************************************************. string toets,dateformat, default_dir, tekstregel.

gage
Download Presentation

; ******************************************************************************

An Image/Link below is provided (as is) to download presentation Download Policy: Content on the Website is provided to you AS IS for your information and personal use and may not be sold / licensed / shared on other websites without getting consent from its author. Content is provided to you AS IS for your information and personal use only. Download presentation by click this link. While downloading, if for some reason you are not able to download a presentation, the publisher may have deleted the file from their server. During download, if you can't get a presentation, the file might be deleted by the publisher.

E N D

Presentation Transcript

  1. ; ******************************************************************************

  2. ; * New files scan v1.1 *

  3. ; ******************************************************************************

  4. string toets,dateformat, default_dir, tekstregel

  5. string KeyPressed, Userinput, Userinput2, areas1, areas2, areas3, temp2, cijfer

  6. integer counter, X_pos, Y_pos

  7. date temp

  8. FOPEN 1,PPEPATH()+"FOODNEW.CNF",O_RD,S_DR

  9. FGET 1,default_dir

  10. FCLOSE 1

  11. IF (!(tokcount()<>0)) goto NORMAL_START

  12. KeyPressed=tokenstr()

  13. tokenize KeyPressed

  14. gettoken Userinput

  15. gettoken Userinput2

  16. gettoken Areas1

  17. gettoken Areas2

  18. gettoken Areas3

  19. goto Skip_Input

  20. ; Wanneer 'N' alleen wordt ingeduwd!

  21. :NORMAL_START

  22. newline

  23. GOSUB HEADER

  24. dispfile PPEPATH()+"NEWMAIN.PCB",0

  25. :INVRAGEN

  26. toets=UPPER(inkey())

  27. if (toets=CHR(13)) goto CALL

  28. if (toets="S") goto CALL

  29. if (toets="D") goto DATE

  30. if (toets="T") goto TODAY

  31. if (toets="Y") goto YESTERDAY

  32. if (toets="W") goto WEEK

  33. if (toets="-") goto MIN

  34. if (toets="Q" | toets=chr(27)) goto QUIT

  35. if (toets="?") goto HELP

  36. goto invragen

  37. :HELP

  38. dispfile PPEPATH()+"NEWHELP.PCB",0

  39. wait

  40. end

  41. :QUIT

  42. print "@X07QUIT!"

  43. end

  44. ; SCAN SINCE LAST CALL

  45. :CALL

  46. cls

  47. GOSUB HEADER

  48. newline

  49. if (upper(default_dir)="A") then

  50. println " Scanning for new files since ",U_LDATE(), " in all directories..."

More Related