/*
 * 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 */