home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / Database / x-evd43.lha / EasyVideo / Rexx / EV_GotoNr.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1997-08-21  |  1.2 KB  |  72 lines
  1. /* Rexx für EasyVideo
  2.    (c) Jörg Trahm
  3.  
  4.     geht zur, als Parameter übergebenen, Kassettennummer
  5.     (z.B. EV_GotoNr.rexx 010)
  6.  
  7. */
  8.  
  9.  
  10. call addlib('rexxsupport.library',0,-30)
  11. parse arg KN PortName
  12. address(Trim(Substr(PortName,2,10)))
  13. options results
  14.  
  15. EV_Inhalt "Akt_Satz"
  16. Merker=result
  17. EV_Inhalt "Datensätze"
  18. Datensaetze=result
  19. Satz=Datensaetze
  20. EV_Goto Datensaetze
  21. EV_Inhalt "Nummer"
  22. Knummer=result
  23. if Datensaetze>500 then do
  24.  do while (Satz-200>0) & (KN < Knummer)
  25.   Satz = Satz - 200
  26.   EV_Goto Satz
  27.   EV_Inhalt "Nummer"
  28.   Knummer=result
  29.  end
  30.  Satz = Satz + 200
  31.  EV_Goto Satz
  32. end
  33. EV_Inhalt "Nummer"
  34. Knummer=result
  35. if Datensaetze>200 then do
  36.  do while (Satz-50>0) & (KN < Knummer)
  37.   Satz = Satz - 50
  38.   EV_Goto Satz
  39.   EV_Inhalt "Nummer"
  40.   Knummer=result
  41.  end
  42.  Satz = Satz + 50
  43.  EV_Goto Satz
  44. end
  45. EV_Inhalt "Nummer"
  46. Knummer=result
  47. if Datensaetze>100 then do
  48.  do while (Satz-10>0) & (KN < Knummer)
  49.   Satz = Satz - 10
  50.   EV_Goto Satz
  51.   EV_Inhalt "Nummer"
  52.   Knummer=result
  53.  end
  54. end
  55.  
  56. if Satz<10 then do
  57.  EV_Goto "1"
  58.  Satz=1
  59. end
  60. EV_Inhalt "Nummer"
  61. Knummer=result
  62. do while (Satz<=Datensaetze) & (KN > Knummer)
  63.  EV_Inhalt "Nummer"
  64.  Knummer=result
  65.  if KN > Knummer then EV_Goto "+"
  66.  Satz = Satz + 1
  67. end
  68.  
  69.  
  70. exit
  71.  
  72.