home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga MA Magazine 1998 #3
/
amigamamagazinepolishissue1998.iso
/
bazy
/
easyvideo
/
rexx
/
ev_gotonr.rexx
< prev
next >
Wrap
OS/2 REXX Batch file
|
1997-08-21
|
1KB
|
72 lines
/* Rexx für EasyVideo
(c) Jörg Trahm
geht zur, als Parameter übergebenen, Kassettennummer
(z.B. EV_GotoNr.rexx 010)
*/
call addlib('rexxsupport.library',0,-30)
parse arg KN PortName
address(Trim(Substr(PortName,2,10)))
options results
EV_Inhalt "Akt_Satz"
Merker=result
EV_Inhalt "Datensätze"
Datensaetze=result
Satz=Datensaetze
EV_Goto Datensaetze
EV_Inhalt "Nummer"
Knummer=result
if Datensaetze>500 then do
do while (Satz-200>0) & (KN < Knummer)
Satz = Satz - 200
EV_Goto Satz
EV_Inhalt "Nummer"
Knummer=result
end
Satz = Satz + 200
EV_Goto Satz
end
EV_Inhalt "Nummer"
Knummer=result
if Datensaetze>200 then do
do while (Satz-50>0) & (KN < Knummer)
Satz = Satz - 50
EV_Goto Satz
EV_Inhalt "Nummer"
Knummer=result
end
Satz = Satz + 50
EV_Goto Satz
end
EV_Inhalt "Nummer"
Knummer=result
if Datensaetze>100 then do
do while (Satz-10>0) & (KN < Knummer)
Satz = Satz - 10
EV_Goto Satz
EV_Inhalt "Nummer"
Knummer=result
end
end
if Satz<10 then do
EV_Goto "1"
Satz=1
end
EV_Inhalt "Nummer"
Knummer=result
do while (Satz<=Datensaetze) & (KN > Knummer)
EV_Inhalt "Nummer"
Knummer=result
if KN > Knummer then EV_Goto "+"
Satz = Satz + 1
end
exit