; **** Future © Viewer - Bild-Showskript von Cord Hagen ****
; ******* FASTVIEW muß sich im C-Verzeichnis befinden *********

ASSIGN FPTARGET: "" 
CD FPTARGET:
SETENV CDDIR=FPTARGET:
SETENV CDMP3=#?
SETENV MP3=#?
LAB CHOICE1
REQUESTFILE DRAWERSONLY NOICONS TITLE "Future © Viewer - Wähle Verzeichnis ...." > ENV:CDDIR
CD $CDDIR
LAB CHOICE2
REQUESTFILE TITLE "Future © Viewer - Wähle Bild-Datei ...." > ENV:CDMP3
FASTVIEW $CDMP3 >NIL:
REQUESTCHOICE >ENV:MP3 "Future © Viewer""Möchten Sie ein weiteres Bild ansehen ?" Ja Nein
IF $MP3 EQ 0
 SKIP ENDE
ENDIF
IF $MP3 EQ 1
 SKIP CHOICE2 BACK
ENDIF
LAB ENDE
RUN >NIL: DELETE ENV:MP3

; "Only AMIGA make it possible ...." ;-)