home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga MA Magazine 1998 #3
/
amigamamagazinepolishissue1998.iso
/
bazy
/
muivideo
/
arexx
/
letztes_tape.rexx
< prev
next >
Wrap
OS/2 REXX Batch file
|
1995-11-24
|
738b
|
39 lines
/*
* letztes_tape.rexx
*
* ARexx-Script für MUIVideo
* Ermittelt die höchste Cassettennummer
* unter Verwendung des in V1.13 eingeführten Befehls
* GETQUICK
*
* $VER: letztes_tape.rexx V1.0 (23.11.95)
* Copyright 1995 by Christoph Kirsch
*
*/
address 'MUIVIDEO.1'
options results
sleep /* Eingaben unterbinden */
count /* Anzahl der Filme holen */
num = result
hoechste = 0
do i=0 to num-1 /* bei allen Datensätzen ... */
getquick i CASSETTE /* Cassettennummer lesen */
cas = result
if cas > hoechste then do
if cas < 'A' then hoechste = cas
end;
end
requestnotify hoechste
wake /* Eingaben erlauben */