Download
slide1 n.
Skip this Video
Loading SlideShow in 5 Seconds..
;::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: PowerPoint Presentation
Download Presentation
;:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

;:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

99 Views Download Presentation
Download Presentation

;:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

- - - - - - - - - - - - - - - - - - - - - - - - - - - E N D - - - - - - - - - - - - - - - - - - - - - - - - - - -
Presentation Transcript

  1. ;:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::;:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

  2. ;: Locate A File SecT/Pr ::

  3. ;:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::[15-Jan-96]:::::;:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::[15-Jan-96]:::::

  4. STRING File,TMP(2),Stuff

  5. Integer X,Y

  6. Newline

  7. Let X = Getx()

  8. Let Y = Gety()

  9. Ansipos X,Y

  10. Print " @X03Locate A File @X08By SecT / Psychic Release "

  11. Delay 2

  12. Ansipos X,Y

  13. Print " @X03Locate A File@X07 By SecT / Psychic Release "

  14. Delay 2

  15. Ansipos X,Y

  16. Print " @X03Locate A File@X0F By SecT / Psychic Release "

  17. Delay 2

  18. Ansipos X,Y

  19. Print " @X03Locate A File@X07 By SecT / Psychic Release "

  20. Delay 2

  21. Ansipos X,Y

  22. Print " @X03Locate A File@X08 By SecT / Psychic Release "

  23. Delay 2

  24. Freshline

  25. Newline

  26. Print "@X09þ @X03Filename To Find...:"

  27. Inputstr "_" ,File,1,12,Mask_Ascii(),LFAFTER

  28. IF (File = "") Goto Abort

  29. Print "@X09þ @X03Combine With New File Scan@X08.[@X03y@X08/@X0BN@X08].:"

  30. Inputstr "_" ,TMP(0),1,1,"NnYy",LFAFTER

  31. If (TMP(0) = "Y") let tmp(0) = ";N"

  32. If (TMP(0) = "y") let tmp(0) = ";N"

  33. If (Tmp(0) = "N") Let Tmp(0) = ""

  34. If (Tmp(0) = "n") Let Tmp(0) = ""

  35. Print "@X09þ @X03Mark Files For Download@X08....@X08[@X03y@X08/@X0BN@X08].:"

  36. Inputstr "_" ,TMP(1),1,1,"NnYy",LFAFTER

  37. If (TMP(1) = "Y") let tmp(1) = ";D"

  38. If (TMP(1) = "y") let tmp(1) = ";D"

  39. If (Tmp(1) = "N") Let Tmp(1) = ""

  40. If (Tmp(1) = "n") Let Tmp(1) = ""

  41. Print "@X09þ @X03Use Non-Stop Scanning@X08......@X08[@X03y@X08/@X0BN@X08].:"

  42. Inputstr "_" ,TMP(2),1,1,"NnYy",Lfafter

  43. If (TMP(2) = "Y") let tmp(2) = ";NS"

  44. If (TMP(2) = "y") let tmp(2) = ";NS"