home *** CD-ROM | disk | FTP | other *** search
/ High Voltage Shareware / high1.zip / high1 / DIR10 / COMMO552.ZIP / SELECT.MAC < prev    next >
Text File  |  1993-10-14  |  5KB  |  184 lines

  1.   SELECT.MAC    Macro to select files for uploading.
  2.   ==========    (called from COMMO.MAC)
  3.  
  4.   by Fred Brucker; idea by Mark Scardina
  5.  
  6. {:start}
  7.         {setv dsksav,%_dsk}
  8.         {setv dirsav,%_dir}
  9.         {call del_send}
  10. {:cur_dir}
  11.         {setv drive,%_dsk}
  12.         {setv path,%_dir}
  13.         {comp uldir}
  14.         {ifco nouldir}
  15.         {setv path,%uldir}
  16.         {inst %uldir,:}
  17.         {comp _pos,2}
  18.         {ifco ,nodrive}
  19.         {subs drive,1,2,%uldir}
  20.         {subs path,3,66,%uldir}
  21. {:nouldir}
  22.         {call chk_path}
  23. {:nodrive}
  24.         {file %drive%%path\*.*}
  25.         {ifco dirok}
  26.         {info-q ULDIR is not a valid directory.  Change it?}
  27.         {ifco ,exit}
  28.         {input uldir,Enter new upload directory (no "\" at end)}
  29.         {goto cur_dir}
  30. {:dirok}
  31.         {exec-n %drive}
  32.         {comp path}
  33.         {ifco root}
  34.         {exec-n cd %path}
  35.         {goto topmenu}
  36. {:root}
  37.         {exec-n cd \}
  38. {:topmenu}
  39.         {file %drive%%path\*.*}
  40.         {setv x,1}
  41.         {setv endflag,0}
  42. {:f_loop}
  43.         {leng %_ffn}
  44.         {setv padlen,12}
  45.         {decr padlen,%_len}
  46.         {subs pad,1,%padlen,             }
  47.         {setv temp,%_ffn%%pad}
  48.         {leng %_ffs}
  49.         {setv padlen,9}
  50.         {decr padlen,%_len}
  51.         {subs pad,1,%padlen,             }
  52.         {setv temp,%temp%%pad%%_ffs}
  53.         {setv temp,%temp  %_ffd  %_fft}
  54.         {setv menu%x,%temp}
  55.         {setv xl,%x}
  56.         {incr x}
  57.         {file-x}
  58.         {ifco ,no_more}
  59.         {comp x,10}
  60.         {ifco ,f_loop}
  61. {:msetup}
  62.         {setv menu11,   [N]  Next page             [Enter] to start upload}
  63. {:lsetup}
  64.         {setv x,1}
  65. {:m_loop}
  66.         {comp menu%x}
  67.         {ifco disp_menu}
  68.         {setv-s temp,menu%x}
  69.         {setv _menu%x,     %x% ■  %temp}
  70.         {incr x}
  71.         {comp x,11}
  72.         {ifco ,m_loop}
  73. {:disp_menu}
  74.         {setv _menu11,%menu11}
  75.         {setv _menu12,   [T]  Top of directory      [M]  Manual entry}
  76.         {setv _menu13,   [W]  vieW/edit send list   [V]  change driVe}
  77.         {setv _menu15,   "\.." = parent directory   "\xxxxx" = subdirectory}
  78.         {setv _menter,done}
  79.         {setv _mlabel,s,s,s,s,s,s,s,s,s,,,,manual,next,,,,,,topmenu,,drive,view,done}
  80.         {setv _mcolor,%mcolor}
  81.         {window-k}
  82.         {menu 19,60,Selecting files from: %drive%%path\}
  83.         {setv file}
  84.         {call del_send}
  85.         {goto exit}
  86. {:next}
  87.         {comp endflag,1}
  88.         {ifco end_disp}
  89.         {setv x,1}
  90.         {goto f_loop}
  91. {:no_more}
  92.         {call clrmenu}
  93.         {setv menu11,   ** LAST PAGE **            [Enter] to start upload}
  94.         {setv endflag,1}
  95.         {goto lsetup}
  96. {:end_disp}
  97.         {setv endflag,0}
  98.         {goto topmenu}
  99. {:s}
  100.         {comp _msn,%xl}
  101.         {ifco-g lsetup}
  102.         {setv-s temp,menu%_msn}
  103.         {inst temp,\}
  104.         {comp _pos,1}
  105.         {ifco ,is_file}
  106.         {subs temp,2,8,%temp}
  107.         {exec-n cd %temp}
  108.         {setv path,%_dir}
  109.         {call chk_path}
  110.         {goto topmenu}
  111. {:is_file}
  112.         {comp temp}
  113.         {ifco msetup}
  114.         {inst temp, }
  115.         {subs temp,1,%_pos,%temp}
  116.         {wopen-a %_hom%^(send^).lst}
  117.         {write %drive%%path%\%temp}
  118.         {wclose}
  119.         {goto lsetup}
  120. {:done}
  121.         {setv file,@%_hom%^(send^).lst}
  122. {:exit}
  123.         {call cleanup}
  124.         {macload %_mac,%m_call}
  125. {:cleanup}
  126.         {exec-n %dsksav}
  127.         {exec-n cd %dirsav}
  128.         {setv x,1}
  129.         {call clrmenu}
  130.         {setv endflag} {setv dsksav} {setv dirsav} {setv temp} {setv drive}
  131.         {setv path} {setv x} {setv xl} {setv pad} {setv padlen}
  132.         {wind-k0}
  133.         {return}
  134. {:clrmenu}
  135.         {setv menu%x,}
  136.         {incr x}
  137.         {comp x,12}
  138.         {ifco ,clrmenu}
  139.         {return}
  140. {:chk_path}
  141.         {leng %path}
  142.         {comp _len,1}
  143.         {ifco ,not_root}
  144.         {setv path}
  145. {:not_root}
  146.         {return}
  147. {:del_send}
  148.         {ifex %_hom%^(send^).lst,,no_lst}
  149.         {exec-n del %_hom%^(send^).lst}
  150. {:no_lst}
  151.         {return}
  152. {:view}
  153.         {edit %_hom%^(send^).lst}
  154.         {goto lsetup}
  155. {:drive}
  156.         {wind-k0}
  157.         {setv temp,%drive}
  158.         {sete-p0 esc_off}
  159.         {input temp,Enter new drive letter}
  160.         {setesc}
  161.         {comp temp}
  162.         {ifco lsetup}
  163.         {subs temp,1,1,%temp}
  164.         {setv drive,%temp:}
  165.         {exec-n %drive}
  166.         {setv path,%_dir}
  167.         {call chk_path}
  168.         {goto topmenu}
  169. {:manual}
  170.         {wind-k0}
  171.         {sete-p0 esc_off}
  172.         {setv temp,%uldir\}
  173.         {input temp,Enter a filename to UPLOAD}
  174.         {comp temp} {ifco esc_off}
  175.         {wopen-a %_hom%^(send^).lst}
  176.         {write %temp}
  177.         {wclose}
  178. {:esc_off}
  179.         {setesc}
  180.         {goto lsetup}
  181.  
  182.                                 - end -
  183.  
  184.