.key dest
.bra {
.ket }

; Dieses Skript liest die Verzeichnisse der
; AMIGA-Magazin-PDs aus und legt sie in der
; angegebenen Datei an (inkl. Diskettennummer,
; Ausgabe und Jahrgang
;
; Beispiel: ListAMIGAPD s:AMIGA-Magazin-Liste

FAILAT 20

LAB Naechste_Disk

ASK "Nächste AMIGA-Magazin-PD-Disk einlegen (y/n)"

IF WARN

 SEARCH >env:Disk df0:inhalt Disk: NONUM
 ECHO >env:disknr 10

 ECHO "Suche nach Diskettennummer " NOLINE
LAB again

 ECHO >env:TestDisk "Disk:            " NOLINE
 ECHO >>env:TestDisk $disknr
 ECHO "$disknr " NOLINE
 IF "$TestDisk" EQ "$Disk"
   ;Diskettennummer gefunden
   SKIP WelcheAusgabe
 ELSE
   EVAL $disknr >NIL: TO=T:DD{$$} VALUE2=1 OP=-
   TYPE >env:disknr T:DD{$$}
   IF VAL $disknr GT 0
     SKIP again BACK
   ENDIF
 ENDIF
 ECHO "Diskettennummer nicht gefunden"
 SKIP Ende

LAB WelcheAusgabe

 SEARCH >env:Disk df0:inhalt Ausgabe: NONUM
 ;Diese Zeile nächstes Jahr in 95 ändern
 ECHO >env:jahrnr 94

LAB again2

 ECHO "*NSuche nach Jahrgang $jahrnr" NOLINE
 ECHO >env:ausgabenr 13

 ECHO "*NSuche nach Ausgabe " NOLINE

LAB again3

 ECHO >env:TestDisk "Ausgabe:     " NOLINE

 IF VAL $ausgabenr NOT GE 10
   ECHO >>env:TestDisk "0" NOLINE
 ENDIF

 ECHO >>env:TestDisk $ausgabenr NOLINE
 ECHO >>env:TestDisk "/" NOLINE
 ECHO >>env:TestDisk $jahrnr

 ECHO "$ausgabenr " NOLINE

 IF "$TestDisk" EQ "$Disk"
   ;Ausgabe gefunden
   ECHO "*N"
   SKIP goon
 ELSE
   EVAL $ausgabenr >NIL: TO=T:DD{$$} VALUE2=1 OP=-
   TYPE >env:ausgabenr T:DD{$$}
   IF VAL $ausgabenr GT 0
     SKIP again3 BACK
   ELSE
     IF VAL $jahrnr GT 92
       EVAL $jahrnr >NIL: to=T:DD{$$} VALUE2=1 OP=-
       TYPE >env:jahrnr T:DD{$$}
       SKIP again2 BACK
     ENDIF
   ENDIF
 ENDIF

 ECHO "Ausgabe nicht gefunden"
 SKIP Ende

LAB goon

 LIST >>{dest} df0:~(Fehlerreport|AMIGA-Magazin#?) DIRS LFORMAT "%s (Disk $disknr, Ausgabe $ausgabenr/$jahrnr)"
 SKIP Naechste_Disk BACK
endif

LAB Ende

SORT {dest} {dest}

QUIT 0