If you want to write a setup prg, then just make a folder on the disc, and use the shell command to run a DOS copy command, to copy all the files to the hard disk.
Try this one.
Make a folder called FILES.
Put all the files you want to install into it.
put the installer into the parent folder- ie
The installer could be
a:\install.exe
and the files could be in
a:\files
NOTE: The error trap only catches QBasic errors, not DOS ones!
Just paste this code into notepad, and save as a BAS file. Then, open it with Qb
Enjoy.
SCREEN 12
CLS
ON ERROR GOTO FAIL
PRINT "Installer - Guest;
PRINT : PRINT
INPUT "Install to which folder ", destination$
PRINT : PRINT
PRINT "Press <ESC> to abort, or <ENTER> to install"
TL:
SELECT CASE INKEY$
CASE CHR$(27)
END
CASE CHR$(13)
GOTO DOIT
CASE ELSE
GOTO TL:
END SELECT
DOIT:
PRINT "Okay, I'm gonna make the directory " + destination$
SHELL "MKDIR " + destination$
PRINT "Copying..."
SHELL "CD FILES"
SHELL "COPY *.* " + destination$
PRINT "Done."
END
FAIL:
PRINT "ERROR!!!!!!!!"
PRINT "Error " + ERR + " occured on line " + ERL + "."
PRINT "The program will now end."