home *** CD-ROM | disk | FTP | other *** search
/ Der Mediaplex Sampler - Die 6 von Plex / 6_v_plex.zip / 6_v_plex / DISK6 / OS_14 / OS2RR011.ZIP / RR.CMD < prev    next >
OS/2 REXX Batch file  |  1993-02-19  |  30KB  |  777 lines
  1. /*****************************************************************************/
  2. /*                                                                           */
  3. /*                                                                           */
  4. /* RR - ReXX REQUESTER                                                       */
  5. /*                                                                           */
  6. /* Revision 0.11 (19/02/93)                                                  */
  7. /*                                                                           */
  8. /* (C) Copyright 1993 by Martin Adirsch.                                     */
  9. /*                                                                           */
  10. /* This is 'FreeWare'.  As such, it may be copied and distributed            */
  11. /* freely.  If you want to use part of it in your own program, please        */
  12. /* give credit where credit is due.  If you want to change the               */
  13. /* program, please refer the change request to me or send me the             */
  14. /* modified script code.  I can be reached as FIDO-POINT 2:240/602.26        */
  15. /*                                                                           */
  16. /* You may notice, that there are several options, which are still out       */
  17. /* of function. This will change soon ;-).                                   */
  18. /*                                                                           */
  19. /*                                                                           */
  20. /*****************************************************************************/
  21.  
  22. echo off
  23. CALL RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
  24. CALL SysLoadFuncs
  25. ansi on
  26. cls
  27.  
  28. /*--Initialisieren-----------------------------------------------------------*/
  29. ini:
  30. outbound  = 'd:\bink\outbound\'  /* you may change this, soon ther will be a */
  31. filelist  = 'rr.cfg'             /* seperate configuration routine ;-)       */
  32. lister='@ call d:\os2tools\L'    /* set'lister=1'if you don't use an external*/
  33.                                  /* lister.                                  */
  34. Passwort='!PASSWORD'             /* Put in Req. Passwort (_capital_ letters  */
  35. temp_dir='d:\temp\'
  36. arj_pack='@ call d:\os2tools\unarj e '
  37. zip_pack='@ call d:\os2tools\pkunzip '
  38. lh_pack='@ call d:\os2tools\lh x '
  39. filelist_dir='d:\bink\rr\'
  40.  
  41. V_gelb=''
  42. V_rot=''
  43. V_hellweiss=''
  44. V_cyan=''
  45. l_kill=''
  46. call syscurstate 'off'
  47. do forever
  48.  
  49.     call makechoice
  50.     call tastendruck
  51.     select
  52.         when inkey=27 | key='q' |key='Q'           /*ESC*/
  53.              then do
  54.                  cur=syscurpos(15,11)
  55.                  say "I'm open for any comments and critics, send me NM, thanks."
  56.                  cur=syscurpos(21,1)
  57.                  exit
  58.                  end
  59.         when key='g' | key='G'
  60.              then do
  61.                  cur=syscurpos(15,11)
  62.                  say "Search:                                                  "
  63.                  cur=syscurpos(15,19)
  64.                  call syscurstate 'on'
  65.                  pull par
  66.                  say ""
  67.                  call syscurstate 'off'
  68.                  if par='' then signal ini
  69.                  tag       = 1
  70.                  do while lines(filelist)<>0
  71.                    bbs     = linein(filelist)
  72.                    parse var bbs adresse bbs
  73.                    parse var bbs liste bbs
  74.                    if right(liste,3)='arj' | right(liste,3)='zip' | right(liste,3)='lhz' then do
  75.                       call Packer_test
  76.                    end
  77.                    cur=SysCurPos(15,11)
  78.                    say  "Searching through filelist" adresse "      "
  79.                    cur=SysCurPos(15,58)
  80.                    say  "Found: "
  81.                    call SysFileSearch par, liste, stamm.
  82.                    do i=1 to stamm.0
  83.                       if pos('.',stamm.i)<>0 & substr(stamm.i,1,1)<='Z' & substr(stamm.i,1,1)<>' ' then
  84.                         do
  85.                           node.tag=adresse
  86.                           parse var stamm.i pgm_name.tag stamm.i
  87.                           kette.tag=substr(stamm.i,1,50)''
  88.                           tag=tag+1
  89.                           cur=syscurpos(15,65)
  90.                           say ""right(i,4,0)""
  91.                         end
  92.                     end
  93.                    if flag=1 then do
  94.                     call kill_temp
  95.                     flag=0
  96.                    end
  97.                   end
  98.                   call lineout (filelist)
  99.                   say"D"
  100.                   CLS
  101.                   i=1
  102.                   call footer
  103.                   call header
  104.                   call ausga_forw
  105.                   call global
  106.                   cls
  107.               end
  108.  
  109.         when key='s' | key='S'
  110.              then do
  111.                  cur=syscurpos(15,11)
  112.                  say "Search:                                                  "
  113.                  cur=syscurpos(15,19)
  114.                  call syscurstate 'on'
  115.                  pull par
  116.                  say ""
  117.                  call syscurstate 'off'
  118.                  if par='' then signal ini
  119.                  tag       = 1
  120.                  do while lines(filelist)<>0
  121.                    bbs     = linein(filelist)
  122.                    parse var bbs adresse bbs
  123.                    parse var bbs liste bbs
  124.                    
  125.                    if right(liste,3)='lst' then do
  126.  
  127.                    cur=SysCurPos(15,11)
  128.                    say  "Searching through filelist" adresse "      "
  129.                    cur=SysCurPos(15,58)
  130.                    say  "Found: "
  131.                    call SysFileSearch par, liste, stamm.
  132.                    do i=1 to stamm.0
  133.                    if pos('.',stamm.i)<>0 & substr(stamm.i,1,1)<='Z' & substr(stamm.i,1,1)<>' ' then
  134.                         do
  135.                           node.tag=adresse
  136.                           parse var stamm.i pgm_name.tag stamm.i
  137.                           kette.tag=substr(stamm.i,1,50)''
  138.                           tag=tag+1
  139.                           cur=syscurpos(15,65)
  140.                           say ""right(i,4,0)""
  141.                         end
  142.                     end
  143.                    end
  144.          /* ende der if schleife */
  145.                   end
  146.                   call lineout (filelist)
  147.                   say"D"
  148.                   CLS
  149.                   i=1
  150.                   call footer
  151.                   call header
  152.                   call ausga_forw
  153.                   call global
  154.                   cls
  155.               end
  156.  
  157.         when key='l' | key='L'
  158.              then do
  159.                  tag       = 1
  160.                    do while lines(filelist)<>0
  161.                      bbs     = linein(filelist)
  162.                      parse var bbs adresse.tag bbs
  163.                      parse var bbs liste.tag bbs.tag
  164.                      tag=tag+1
  165.                    end
  166.                   call lineout(filelist)
  167.                   say"D"
  168.                   CLS
  169.                   i=1
  170.                   call header
  171.                   call aus_cfg  /*Zeigen und wählen */
  172.                   if tag='m' | tag='M' then do
  173.                                             cls
  174.                                             signal ini
  175.                                             end
  176.                   adresse=adresse.tag
  177.                   liste=liste.tag
  178.                   call Packer_test
  179.                   liste.tag=liste
  180.                   if lister=1 then do
  181.                      par=' '
  182.                      call SysFileSearch par, liste.tag, stamm.
  183.                         i=0
  184.                         tag=stamm.0
  185.                      say"D"
  186.                      CLS
  187.                      i=1
  188.                      call footer
  189.                      call header
  190.                      call ausga_L_forw
  191.                      call global_L
  192.                      cls
  193.                      end
  194.                   else do
  195.                      lister liste.tag
  196.                      cls
  197.                      end
  198.  
  199.                    if flag=1 then do
  200.                     call kill_temp
  201.                     flag=0
  202.                    end
  203.               end
  204.  
  205.         when key='h' | key='H'
  206.              then do
  207.                  cur=syscurpos(15,11)
  208.                  say "Sorry, this OPTION is still not available ;-) PRESS A KEY"
  209.                  call tastendruck
  210.                  end
  211.  
  212.         when key='I' | key='i'
  213.              then do
  214.                  cls
  215.                  cur=syscurpos(2,0)
  216.                  say "/*****************************************************************************/"
  217.                  say "/*                                                                           */"
  218.                  say "/*                                                                           */"
  219.                  say "/* RR - ReXX REQUESTER                                                       */"
  220.                  say "/*                                                                           */"
  221.                  say "/* Revision 0.11 (19/02/93)                                                  */"
  222.                  say "/*                                                                           */"
  223.                  say "/* (C) Copyright 1993 by Martin Adirsch.                                     */"
  224.                  say "/*                                                                           */"
  225.                  say "/* This is 'FreeWare'.  As such, it may be copied and distributed            */"
  226.                  say "/* freely.  If you want to use part of it in your own program, please        */"
  227.                  say "/* give credit where credit is due.  If you want to change the               */"
  228.                  say "/* program, please refer the change request to me or send me the             */"
  229.                  say "/* modified script code.  I can be reached as FIDO-POINT 2:240/602.26        */"
  230.                  say "/*                                                                           */"
  231.                  say "/* You may notice, that there are several options, which are still out       */"
  232.                  say "/* of function. This will change soon ;-).                                   */"
  233.                  say "/*                                                                           */"
  234.                  say "/*                                                      <press a key>        */"
  235.                  say "/*****************************************************************************/"
  236.                  call tastendruck
  237.                  cls
  238.                  end
  239.  
  240.         when key='d' | key='D'
  241.              then do
  242.                   tag       = 1
  243.                    do while lines(filelist)<>0
  244.                      bbs     = linein(filelist)
  245.                      parse var bbs adresse.tag bbs
  246.                      parse var bbs liste.tag bbs.tag
  247.                      tag=tag+1
  248.                    end
  249.                   call lineout (filelist)
  250.                   say"D"
  251.                   CLS
  252.                   i=1
  253.                   call header
  254.                   call aus_cfg  /*Zeigen und wählen */
  255.                   if tag='m' | tag='M' then do
  256.                                             cls
  257.                                             signal ini
  258.                                             end
  259.                   cur=syscurpos(23,0)
  260.                   say "Search at"v_rot adresse.tag v_gelb"for:"l_kill
  261.                   call syscurstate 'on'
  262.                   cur=syscurpos(23,25)
  263.                   pull par
  264.                   call syscurstate 'off'
  265.                   if par='' then do
  266.                                  cls
  267.                                  signal ini
  268.                                  end
  269.                   adresse=adresse.tag
  270.                   liste=liste.tag
  271.                   call Packer_test
  272.                   liste.tag=liste
  273.                   tag       = 1
  274.                    cur=SysCurPos(15,11)
  275.                    say  "Searching through filelist" adresse "      "
  276.                    cur=SysCurPos(15,58)
  277.                    say  "Found: "
  278.                    call SysFileSearch par, liste, stamm.
  279.                    do i=1 to stamm.0
  280.                      if pos('.',stamm.i)<>0 & substr(stamm.i,1,1)<='Z' & substr(stamm.i,1,1)<>' ' then
  281.                         do
  282.                           node.tag=adresse
  283.                           parse var stamm.i pgm_name.tag stamm.i
  284.                           kette.tag=substr(stamm.i,1,50)''
  285.                           tag=tag+1
  286.                           cur=syscurpos(15,65)
  287.                           say ""right(i,4,0)""
  288.                         end
  289.                     end
  290.                   say"D"
  291.                   CLS
  292.                   i=1
  293.                   call footer
  294.                   call header
  295.                   call ausga_forw
  296.                   call global
  297.                   cls
  298.                    if flag=1 then do
  299.                     call kill_temp
  300.                     flag=0
  301.                    end
  302.               end
  303.  
  304.         when key='F' | key='f'
  305.              then do
  306.                  cur=syscurpos(15,11)
  307.                  say "Sorry, this OPTION is still not available ;-) PRESS A KEY"
  308.                  call tastendruck
  309.                  end
  310.         when key='K' | key='k'
  311.              then do
  312.                  cur=syscurpos(15,11)
  313.                  say "Sorry, this OPTION is still not available ;-) PRESS A KEY"
  314.                  call tastendruck
  315.                  end
  316.  
  317.          otherwise
  318.            nop
  319.          end
  320.  
  321.          End
  322.  
  323.  
  324.  
  325.  
  326. /*-------------------------------------------------------------------------*/
  327. global:
  328.  
  329. do forever
  330.     call tastendruck
  331.     select
  332.         When inkey=27 | key='q' | key='Q'                        /*ESC*/
  333.            Then return
  334.          When inkey=72 | inkey=75   /* UP,RT */
  335.            then do
  336.                 call ausga_back
  337.                 cur=syscurpos(22,0)
  338.                 say l_kill
  339.                 end
  340.          when inkey=77 | inkey=80   /* DW,LF */
  341.                 then do
  342.                 call ausga_forw
  343.                 end
  344.          When inkey=32                          /* CR taggen */
  345.             Then Do
  346.                  call taggen
  347.                  call footer
  348.                  call header
  349.                  cur=syscurpos(22,0)
  350.                  End
  351.  
  352.          Otherwise
  353.             nop
  354.          End
  355.  
  356. end
  357. return
  358. /*-------------------------------------------------------------------------*/
  359. global_L:
  360.  
  361. do forever
  362.     call tastendruck
  363.     select
  364.         When inkey=27 | key='q' | key='Q'                        /*ESC*/
  365.            Then return
  366.          When inkey=72 | inkey=75   /* UP,RT */
  367.            then do
  368.                 call ausga_L_back
  369.                 cur=syscurpos(22,0)
  370.                 say l_kill
  371.                 end
  372.          when inkey=77 | inkey=80   /* DW,LF */
  373.                 then do
  374.                 call ausga_L_forw
  375.                 end
  376.          When inkey=32                          /* CR taggen */
  377.             Then Do
  378.                  call taggen_L
  379.                  call footer
  380.                  call header
  381.                  cur=syscurpos(22,0)
  382.                  End
  383.  
  384.          Otherwise
  385.             nop
  386.          End
  387.  
  388. end
  389. return
  390. /*-------------------------------------------------------------------------*/
  391. taggen:
  392.     zeile=2
  393.     cur=SysCurPos(zeile,0)
  394.     say V_gelb">>"
  395.     cur=syscurpos(2,0)
  396.     inkey=0
  397.     do while inkey<>27
  398.      call tastendruck
  399.      select
  400.         When inkey=27 | key='q' | key='Q'                        /*ESC*/
  401.            Then do
  402.                 do m=2 to 21
  403.                   cur=syscurpos(m,0)
  404.                   say "   "
  405.                 end
  406.                 return
  407.                 end
  408.          When inkey=72 | inkey=75   /* UP,RT */
  409.            then do
  410.                 call tag_up
  411.                 end
  412.          when inkey=77 | inkey=80   /* DW,LF */
  413.                 then do
  414.                 call tag_down
  415.                 end
  416.          When inkey=32                          /* CR taggen */
  417.             Then Do
  418.                  tag_kette=systextscreenread(zeile,3,74)
  419.                  cur=syscurpos(22,0)
  420.                  parse var tag_kette adresse tag_kette
  421.                  parse var tag_kette pgm tag_kette
  422.                  say V_hellweiss"Confirm request for "v_gelb pgm v_hellweiss'at'v_rot adresse v_hellweiss'(Yes / ESC=No / Password)'
  423.                  do forever
  424.                  call tastendruck
  425.                  select
  426.                  when key='y' | key='Y' | key='p' | key='P' then do
  427.                                    call umrechnen
  428.                                    call request
  429.                                    cur=syscurpos(22,0)
  430.                                    say V_hellweiss"Request has been created, press a key"l_kill
  431.                                    call tastendruck
  432.                                    cur=syscurpos(22,0)
  433.                                    say l_kill
  434.                                    leave
  435.                                    end
  436.  
  437.                  when inkey=27 then do
  438.                       cur=syscurpos(22,0)
  439.                       say l_kill
  440.                       inkey=0
  441.                       leave
  442.                       end
  443.                  otherwise
  444.                     nop
  445.                  end
  446.                  End
  447.                  end
  448.          Otherwise
  449.             nop
  450.          End
  451.  end
  452. return
  453.  
  454. /*-------------------------------------------------------------------------*/
  455. taggen_l:
  456.     zeile=12
  457.     cur=SysCurPos(zeile,0)
  458.     say V_gelb">>"
  459.     cur=syscurpos(2,0)
  460.     inkey=0
  461.     do while inkey<>27
  462.      call tastendruck
  463.      select
  464.         When inkey=27 | key='q' | key='Q'                        /*ESC*/
  465.            Then do
  466.                 do m=2 to 21
  467.                   cur=syscurpos(m,0)
  468.                   say "   "
  469.                 end
  470.                 return
  471.                 end
  472.          When inkey=72 | inkey=75   /* UP,RT */
  473.            then do
  474.                 call tag_up
  475.                 end
  476.          when inkey=77 | inkey=80   /* DW,LF */
  477.                 then do
  478.                 call tag_down
  479.                 end
  480.          When inkey=32                          /* CR taggen */
  481.             Then Do
  482.                  tag_kette=systextscreenread(zeile,3,74)
  483.                  cur=syscurpos(22,0)
  484.                  parse var tag_kette pgm tag_kette
  485.                  say V_hellweiss"Confirm request for "v_gelb pgm v_hellweiss'at'v_rot adresse v_hellweiss'(Yes / ESC=No / Password)'
  486.                  do forever
  487.                  call tastendruck
  488.                  select
  489.                  when key='y' | key='Y' | key='p' | key='P' then do
  490.                                    call umrechnen
  491.                                    call request
  492.                                    cur=syscurpos(22,0)
  493.                                    say V_hellweiss"Request has been created, press a key"l_kill
  494.                                    call tastendruck
  495.                                    cur=syscurpos(22,0)
  496.                                    say l_kill
  497.                                    leave
  498.                                    end
  499.  
  500.                  when inkey=27 then do
  501.                       cur=syscurpos(22,0)
  502.                       say l_kill
  503.                       inkey=0
  504.                       leave
  505.                       end
  506.                  otherwise
  507.                     nop
  508.                  end
  509.                  End
  510.                  end
  511.          Otherwise
  512.             nop
  513.          End
  514.  end
  515. return
  516.  
  517. tag_up:
  518.     cur=SysCurPos(zeile,0)
  519.     say "   "
  520.     zeile=zeile-1
  521.     if zeile<2 then do
  522.                     zeile=21
  523.                     cur=syscurpos(zeile,0)
  524.                     end
  525.  
  526.     cur=SysCurPos(zeile,0)
  527.     say v_gelb">>"
  528. return
  529.  
  530. tag_down:
  531.  
  532.     zeile=zeile+1
  533.     cur=syscurpos(zeile-1,0)
  534.     say "   "
  535.     if zeile>21 then do
  536.                      zeile=2
  537.                      cur=syscurpos(zeile,0)
  538.                      end
  539.     say v_gelb">>"
  540. return
  541.  
  542. umrechnen:
  543. zeiger1=pos('/',adresse)
  544. node=substr(adresse,zeiger1+1,4)
  545. zeiger2=pos(':',adresse)
  546. net=substr(adresse,zeiger2+1,zeiger1-zeiger2-1)
  547. kont=substr(adresse,1,1)
  548. reqfile_name=d2x(net,4)d2x(node,4)
  549. return
  550.  
  551.  
  552. /*---------------------------------------------------------------------------*/
  553. makechoice:
  554. call menu
  555. cur=syscurpos(15,11)
  556. say "Make your choice...D"
  557. return
  558.  
  559. /*---------------------------------------------------------------------------*/
  560. request:
  561. leer=''
  562. if key='p' | key= 'P' then do
  563.                       pgm=pgm passwort
  564.                       end
  565. call lineout outbound''reqfile_name'.req',pgm
  566. call lineout outbound''reqfile_name'.req'
  567. call lineout outbound''reqfile_name'.clo',leer
  568. call lineout outbound''reqfile_name'.clo'
  569. return
  570.  
  571. /*---------------------------------------------------------------------------*/
  572. menu:
  573. cur=syscurpos(3,0)
  574.  
  575. say"▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀"
  576. say"▀▀▀─────────── RR - ReXX-REQUESTER Vers. 0.11 ── 19. Februar 1993 ──────────▀▀ "
  577. say"   ▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄   "
  578. say"   ┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼   "
  579. say"   ┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼   "
  580. say"   ┼┼┼┼┼█▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▄┼┼┼┼   "
  581. say"   ┼┼┼┼┼█  Global search (ALL)                          Read Filelist  █┼┼┼┼   "
  582. say"   ┼┼┼┼┼█  Global search (only unpacked)                Kill Filelist  █┼┼┼┼   "
  583. say"   ┼┼┼┼┼█  Detailed search                              Info           █┼┼┼┼   "
  584. say"   ┼┼┼┼┼█  List                                         Quit           █┼┼┼┼   "
  585. say"   ┼┼┼┼┼█                                                              █┼┼┼┼   "
  586. say"   ┼┼┼┼┼█  ──────────────────────────────────────────────────────────  █┼┼┼┼   "
  587. say"   ┼┼┼┼┼█                                                              █┼┼┼┼   "
  588. say"   ┼┼┼┼┼▀▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄█┼┼┼┼   "
  589. say"   ┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼   "
  590. say"   ┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼   "
  591. say"   ▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀   "
  592. say"▀▀▀────────────────── (c) by Martin Adirsch @ 2:240/602.26 ─────────────────▀▀ "
  593. say"▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄"
  594. say"D"
  595. say""
  596. return
  597. /*---------------------------------------------------------------------------*/
  598. header:
  599.  
  600. cur=syscurpos(0,0)
  601. say " ****  ReXX-REQUESTER V0.11 ******  RR  *****  (c) 1993 by Martin Adirsch ****  "
  602. say "D"
  603. return
  604.  
  605. /*---------------------------------------------------------------------------*/
  606. footer:
  607.  
  608. cur=syscurpos(23,0)
  609. say" Up/Down Cursorblock    SPACE Taggen on    ESC Taggen off                 Quit "
  610. return
  611.  
  612. /*---------------------------------------------------------------------------*/
  613. ausga_forw:
  614.     do m=2 to 21
  615.        if i<tag then do
  616.                      cur=syscurpos(m,0)
  617.                      say "  "v_rot node.i V_hellweiss pgm_name.i v_cyan substr(kette.i,1,54)""
  618.                      i=i+1
  619.                      end
  620.        if i=tag then do
  621.                      parse value SysCurpos() with zeile spalte
  622.                        do ii=zeile to 21
  623.                           cur=syscurpos(ii,0)
  624.                           say l_kill
  625.                           i=i+1
  626.  
  627.                        end
  628.                      end
  629.  
  630.     end
  631.     if i>tag then do
  632.                   cur=syscurpos(22,26)
  633.                   say V_rot "******* EOF *******"
  634.                   end
  635.     return
  636.  
  637. /*---------------------------------------------------------------------------*/
  638. ausga_back:
  639.     do m=2 to 21
  640.     i=i-1
  641.     if i<1 then do
  642.                 i=1
  643.                 leave
  644.                 end
  645.  
  646.        if i>=tag then do
  647.                      cur=syscurpos(23-m,0)
  648.                      say l_kill
  649.                      end
  650.        if i<tag then do
  651.                      cur=syscurpos(23-m,0)
  652.                      say "  "v_rot node.i V_hellweiss pgm_name.i v_cyan substr(kette.i,1,54)""
  653.                      end
  654.     end
  655.  
  656.     return
  657.  
  658. /*---------------------------------------------------------------------------*/
  659. ausga_L_forw:
  660.     do m=2 to 21
  661.        if i<tag then do
  662.        cur=syscurpos(m,0)
  663.        say '  ' substr(stamm.i,1,74) ""
  664.                      i=i+1
  665.                      end
  666.        if i=tag then do
  667.                      parse value SysCurpos() with zeile spalte
  668.                        do ii=zeile to 21
  669.                           cur=syscurpos(ii,0)
  670.                           say l_kill
  671.                           i=i+1
  672.                        end
  673.                      end
  674.     end
  675.  
  676.     if i>tag then do
  677.                   cur=syscurpos(22,26)
  678.                   say V_rot "******* EOF *******"
  679.                   end
  680.     return
  681.  
  682. /*---------------------------------------------------------------------------*/
  683. ausga_L_back:
  684.     do m=2 to 21
  685.     i=i-1
  686.     if i<1 then do
  687.                 i=1
  688.                 leave
  689.                 end
  690.  
  691.        if i>=tag then do
  692.                      cur=syscurpos(23-m,0)
  693.                      say l_kill
  694.                      end
  695.        if i<tag then do
  696.                      cur=syscurpos(23-m,0)
  697.                      say '   'substr(stamm.i,1,74) ""
  698.                      end
  699.     end
  700.     return
  701.  
  702. /*---------------------------------------------------------------------------*/
  703. aus_cfg:
  704.   spalte=0
  705.   do s=1 to 2
  706.     do m=2 to 21
  707.             cur=syscurpos(m,spalte)
  708.             if i<tag then do
  709.                      say v_gelb right(i,2) v_rot adresse.i v_cyan substr(BBS.i,1,22)""
  710.                      i=i+1
  711.                      end
  712.             else do
  713.                      say l_kill
  714.             end
  715.     end
  716.     spalte=spalte+40
  717.   end
  718.  
  719.   cur=syscurpos(23,0)
  720.   say v_gelb"Make your choice...M=Menu:"
  721.   cur=syscurpos(23,29)
  722.   call syscurstate 'on'
  723.   pull tag
  724.   call syscurstate 'off'
  725.   if tag<0 or tag>50 then tag=1
  726.   if tag="" then tag=1
  727.   return
  728.  
  729. /*---------------------------------------------------------------------------*/
  730. menu:
  731.  
  732.     cls
  733.     say "MENU-Optionen kommen später :-)"
  734.     pause
  735.     cls
  736.     return
  737.  
  738. /*---------------------------------------------------------------------------*/
  739. tastendruck:
  740.  
  741.     inkey = 0
  742.     Do While inkey=224 | inkey=0      /* Throw away modIfier key */
  743.       Parse Value SysGetKey('NOECHO') With key
  744.       inkey = c2d(key)
  745.     End
  746. return
  747.  
  748. /*---------------------------------------------------------------------------*/
  749. Packer_test:
  750.                    cls
  751.                    if right(liste,3)='arj' | right(liste,3)='ARJ' then do
  752.                       arj_pack''filelist_dir''liste
  753.                       liste=substr(liste,1,pos('.',liste))'lst'
  754.                       flag=1
  755.                    end
  756.                    if right(liste,3)='zip' | right(liste,3)='ZIP' then do
  757.                       zip_pack''filelist_dir''liste
  758.                       liste=substr(liste,1,pos('.',liste))'lst'
  759.                       flag=1
  760.                    end
  761.                    if right(liste,3)='lhz' | right(liste,3)='LHZ' then do
  762.                       lh_pack''filelist_dir''liste
  763.                       liste=substr(liste,1,pos('.',liste))'lst'
  764.                       flag=1
  765.                    end
  766.                    cls
  767.                    call menu
  768. return
  769.  
  770. /*---------------------------------------------------------------------------*/
  771. kill_temp:
  772.  
  773.            erase filelist_dir''liste
  774.  
  775. return
  776. /*---------------------------------------------------------------------------*/
  777.