/**
 * $Id$
 *
 * Extract Aminet archives
 *
 * Copyright © 1995 HiSoft. All Rights Reserved.
**/
OPTIONS RESULTS

ADDRESS Twist
PARSE ARG dbfilename,rela_x,rela_y,shiftkeys
OPEN "Twist:AminetBase/Viewer.DB"
options results


ADDRESS COMMAND 'setenv aminetviewer `RequestFile SYS: TITLE="Select a the viewer file"`'
x = open('input','env:aminetviewer','R')
VIEWERPATH = readln('input')
SETDBFORMFIELD "ViewerPath" VIEWERPATH