home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 5 / DATAFILE_PDCD5.iso / utilities / s / suite / !Suite / Libraries / Bin < prev    next >
Encoding:
Text File  |  1995-02-07  |  2.1 KB  |  3 lines
  1.  
  2. ŷnÝòD:Þtb% 12:d%(0)=¹:k$=¤g("pro"):k$=Àk$,©k$-4):òz:K%=¤l(4096):!K%=4095:C%=K%+4:rc%=C%:sc%=C%:!C%=0:tc%=0:á
  3. ‘@Ýòz:e%=‰(f$+".Bin.*"):çe%=0:$tb%="bin":⇧:$tb%="fullbin":Ù#e%
  4. Œça%(0)>0:òj(-2,a%(0))
  5. ¤á
  6. ®Ýòva:ȉh%Ê
  7. ¸)É0:òb(l%,0,21,¬¤c(l%,0)):Vb%=¤c(l%,0)
  8. ÂÉ1,2:òy(l%,1,2,h%):ga%=h%
  9. Ì)É3:òb(l%,3,21,¬¤c(l%,3)):Xb%=¤c(l%,0)
  10. ÖXÉ4:òb(l%,4,21,¬¤c(l%,4)):R%=¤c(l%,4):òb(l%,1,22,¬R%):òb(l%,2,22,¬R%):òb(l%,3,22,¬R%)
  11. à:É5:òb(l%,5,21,¬¤c(l%,5)):jb%=¤c(l%,5):òb(l%,6,22,¬jb%)
  12. ê)É6:òb(l%,6,21,¬¤c(l%,6)):Wb%=¤c(l%,6)
  13. ô
  14. É7:òEa
  15. þË
  16. á
  17. Ýòw:çC%<>rc%:!rc%=C%-rc%
  18. çC%+©d$>K%+!K%…
  19. &;uc%=K%:K%=¤n(K%,4096):çK%=0:K%=uc%:p%=¤a(¤g("nodim")):á
  20. 0
  21. !K%+=4096
  22. :Í
  23. D<rc%=C%:!C%=0:$(C%+8)=d$:çw%=4096☓w%=8192:C%!4=1:⇧:C%!4=2
  24. N!C%+=4*((©d$Ŵ4)+3):tc%+=1:òJ:á
  25. XÝòu:ç!sc%=0:òk:á
  26. b ç¬Xb%:òm
  27. lC%+=!C%:òJ:á
  28. vÝòJ:l$=$(sc%+8):çR%…
  29. €Jòc(E%,1,Âl$,80)):çsc%!4=1:òc(E%,2,k$+"directory?")⇧òc(E%,2,k$+"file?")
  30. ⇩ç¬Xb%€tc%>1…
  31. “6òc(E%,2,k$+"selection?"):òc(E%,1,¤f(l$),78)+".*")
  32. fiÍ
  33. ¨'ãh%=3¸4:òb(E%,h%,23,ga%=2):í:òi(E%)
  34. ²Ì:òm
  35. ¼Í
  36. Æá
  37. Ðݤr:ç¬jb%:=£
  38. Ú(çWb%€Àl$,§l$,"$"))<>Àf$,§f$,"$")):=£
  39. ä=¹
  40. îUÝòm:êŶ:îŶê÷Ŷ:çfl=67734È−5,"UP":òm:á:⇧p%=¤a(ö$+" (internal error code "+Ãfi+")",¹):á
  41. ø!çVb%:C$="F":J%=5:⇧:C$="":J%=1
  42.     çXb%…
  43. 
  44. ç¬ha%á
  45. LÈ−262366,"Filer_Action"¸L%:È−266112,L%,¤f(l$)+½0:È−266113,L%,¤k(l$):ç¤r…
  46.  I$c%=f$+".Bin"+½0:È−266114,L%,1,J%,c%,©$c%:$tb%="fullbin":òj(-2,a%(0))
  47. *Ì:È−266114,L%,2,J%,0,0,0
  48. 4Í
  49. >Ì:çR%:ç¬ha%òk:á
  50. Hbsc%=K%+4:j$=¤f($(sc%+8)):È−262366,"Filer_Action"¸L%:È−266112,L%,j$+½0:ãd%=1¸tc%:ç$(sc%+8)<>""…
  51. ROh$="":vc%=sc%:ãwc%=d%¸tc%:c$=$(vc%+8):ç¤f(c$)=j$…h$+=¤k(c$)+" ":$(vc%+8)=""
  52. \vc%+=!vc%:ç©h$<200:íwc%
  53. fh$=Àh$):È−266113,L%,h$+½0
  54. pÍ
  55. zsc%+=!sc%:íd%:ç¤r…
  56. ☓I$c%=f$+".Bin"+½0:È−266114,L%,1,J%,c%,©$c%:$tb%="fullbin":òj(-2,a%(0))
  57. ‰Ì:È−266114,L%,2,J%,0,0,0
  58. —Í
  59. ¢òk:á
  60. ¬Í
  61. ¶÷Ŷ
  62. Àá
  63. Ê…ÝòEa:$tb%="bin":òj(-2,a%(0)):È−262366,"Filer_Action"¸L%:È−266112,L%,f$+".Bin"+½0:h$="":d%=0:õ:È−12,9,f$+".Bin",c%,1,d%,255,"*"¸,,,xc%,d%
  64. Ô:çxc%>0:c$="":G%=c%:È”?G%>0:c$+=½?G%:G%+=1:Î:h$+=c$+" "
  65. Þ4ýd%=-1:È−266113,L%,h$+½0:È−266114,L%,2,5,0,0,0:á
  66. èÝòk:K%=¤o(K%):òD:òf(E%):á
  67. ÿ