home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 5 / DATAFILE_PDCD5.iso / utilities / m / menubar / !MenuBar / Overlays / Lib_Save < prev    next >
Encoding:
Text File  |  1997-01-07  |  2.9 KB  |  6 lines
  1.  
  2. ¤ô> Lib/Save
  3. ¥#Ýòd_(hy%,Ay%,Py%,WJ%):çhy%=0…òU
  4. ¦ çAy%>-1…
  5. §y$=J$:çAy%<Cy%…D$=A$(Ay%+1)
  6. ¨
  7. ȉPy%Ê
  8. ©É-1:çAy%<Cy%…
  9. ª
  10. òz(D$)
  11. «%Ì:çAy%=Cy%+1…ÿ"Filer_OpenDir "+U$
  12. ¬Í
  13. ­É0:çAy%<Cy%…
  14. ®
  15. òz(D$)
  16. ¯Ì:òzy($ey%)
  17. °Í
  18. ±
  19. É1:òc(D$)
  20. ²É2:òx_(D$)
  21. ³É3:òz_(D$,$ey%)
  22. ´É4:òY_(D$,$ey%)
  23. µË
  24. ¶Í:á
  25. ·#ÝòY_(w$,L$):êZ$,_%:_%=¹:çw$=L$…
  26. ¸òP
  27. ¹Ì:ç¤Z(B$+"."+L$)…
  28. º\M$="'"+L$+"' already exists,OK to overwrite?":z%=¤S(M$,"Cancel,Overwrite",2):çz%<>2…_%=£
  29. »
  30. Í:ç_%…
  31. ¼^x$="A~C~DF~L~N~P~QR~S~T~V":ÿ("Copy "+B$+"."+w$+" "+B$+"."+L$+" "+x$):Z$=_$+"."+w$:ç¤Z(Z$)…
  32. ½&ÿ("Copy "+Z$+" "+_$+"."+L$+" "+x$)
  33. ¾ Í:òU:òR
  34. ¿Í
  35. ÀÍ:á
  36. Á#Ýòz_(w$,L$):êZ$,_%:_%=¹:çw$=L$…
  37. ÂòP
  38. ÃÌ:ç¤Z(B$+"."+L$)…
  39. Ä\M$="'"+L$+"' already exists,OK to overwrite?":z%=¤S(M$,"Cancel,Overwrite",2):çz%<>2…_%=£
  40. Å
  41. Í:ç_%…
  42. Æ>ÿ("Rename "+B$+"."+w$+" "+B$+"."+L$):Z$=_$+"."+w$:ç¤Z(Z$)…
  43. Ç!ÿ("Rename "+Z$+" "+_$+"."+L$)
  44. ÈÍ:çw$=X$…òc(L$)
  45. Éçw$=J$…J$=L$
  46. Ê    òU:òR
  47. ËÍ
  48. ÌÍ:á
  49. ÍÝòC_(L$):ê_%:_%=¹:çL$=""…
  50. Î4M$="Please enter bar name":z%=¤S(M$,"OK",1):_%=£
  51. ÏÍ:ç_%€¤Z(B$+"."+L$)…
  52. ÐOM$="'"+L$+"' already exists in Library":z%=¤S(M$,"Cancel,OK",2):çz%<>2…_%=£
  53. ÑÍ:ç_%…J$=L$:l%=¹
  54. Òá
  55. Ó7Ýòc(P$):êJ%,Z%,Z$:Z$=U$+".Default":çVy%€P$=X$…P$=""
  56. ÔBX$=P$:F%=®(Z$):Õ#F%,X$:ÿ("SetType "+Z$+" &FFF"):Ù#F%:F%=0:òR:á
  57. ÕŵÝòx_(P$):êZ$:Vy%=£:M$="Command: Delete bar '"+P$+"'":M$+=",Are you sure?":O$="Cancel command,Delete bar":z%=¤S(M$,O$,2):çz%=2…
  58. ÖZ$=B$+"."+P$:ç¤Z(Z$)…
  59. × È−8,6,Z$
  60. ØÍ:Z$=_$+"."+P$:ç¤Z(Z$)…
  61. Ù È−8,6,Z$
  62. Ú
  63. Í:çP$=X$…
  64. ÛNX$="":Z$=U$+".Default":F%=®(Z$):Õ#F%,X$:ÿ("SetType "+Z$+" &FFF"):Ù#F%:F%=0
  65. ÜÍ:òU
  66. ÝÍ:á
  67. Þ#Ýòzy(F$):êJ%:Vy%=£:ç¤Fy(B$,F$)…
  68. ßYÈ−&406C0:òSy:òm:J$=F$:òh(J$):ãJ%=1¸r%:Z%(J%)=J%:$C%(J%)="Menu "+ÃJ%:í:òL(J$):È−&406C2
  69. àÍ:á
  70. á&ݤFy(g$,F$):êM$,N%,z%:N%=¹:çF$=""…
  71. â8M$="Please enter library name":z%=¤S(M$,"OK",1):N%=£
  72. ãÍ:z%=-1:çN%…
  73. äçl%…
  74. å‘M$="Command: Create bar '"+F$+"'":M$+=",...but changes have been made!":O$="Ignore changes,Cancel command,Save changes":z%=¤S(M$,O$,2):ȉz%Ê
  75. æ
  76. É0,2:N%=£
  77. ç
  78. É3:òL(J$)
  79. èË
  80. é!Í:ç¤Z(g$+"."+F$)€z%<>0€z%<>2…
  81. êlM$="'"+F$+"' already exists,OK to overwrite?":z%=¤S(M$,"Cancel,Overwrite",2):çz%<>2…N%=£⇧È−8,6,g$+"."+F$
  82. ëÍ
  83. ì    Í:=N%
  84. í/ÝòL(F$):È−&406C0:òey(F$):òTy(F$):òU:çCy%=1…
  85. îX$=A$(1):òc(X$)
  86. ïÍ:È−&406C2:òAy:á
  87. ðÝÝòey(F$):êJ%,R%,e%,M_%:?D%=w%:R%=1:ãJ%=1¸r%:D%?R%=Z%(J%):R%+=1:í:ãJ%=r%+1¸&F:D%?J%=0:í:ãJ%=21¸28:D%?J%=0:í:$(D%+29)="MB":R%=48:ãJ%=1¸r%:$(D%+R%)=$C%(J%):R%+=16:í:e%=T%-D%:M_%=D%+e%:È−8,&A,B$+"."+F$,&FFD,,D%,M_%:l%=£:á
  88. ñäÝòTy(F$):êJ%,K%,L%,Q%,X%,Z$,A$,r$,R%,I$,`$:Z$=_$+"."+F$:I$=¤K("%24%mi"):`$=¤K("%zdy/%zmn/%yr"):F%=®(Z$):Õ#F%,"MenuBar2 '"+J$+"' at "+I$+" on "+`$:Õ#F%,"":w%=D%?0:R%=16:A$="":ãJ%=1¸5:A$+=Ã(D%?R%)+",":R%+=1:í:A$=ÀA$,©A$-1)+"."
  89. òœÕ#F%,Ãw%+" menus defined.  Colours are: "+A$:ãJ%=1¸w%:L%=Z%(J%):Q%=¤F(L%):X%=¤M(Q%):Õ#F%,"":A$=ÃJ%+". ":A$+=$C%(L%):r$=Ä©A$,"-"):Õ#F%,A$:Õ#F%,r$:çX%>0…
  90. ó4ãK%=1¸X%:A$=Â" "+ÃK%,2)+". ":Õ#F%,A$+¤C(L%,K%):í
  91. ô,Í:í:ÿ("SetType "+Z$+" &FFF"):Ù#F%:F%=0:á
  92. ÿ