home *** CD-ROM | disk | FTP | other *** search
- .key test/s,full/s
- .bra [
- .ket ]
-
- echo "*Ec*N Eternal Madness Installation*N"
-
- lab nameloop
- echo "Type the name of the partition to install to. (Example: 'Work:')"
- echo "A directory 'Eternal Madness' will be created, 5 meg workspace is needed."
- echo "(Q to quit) ? " noline
- set >NIL: target ?
- if "$target" EQ "Q"
- skip exit
- endif
-
- if "`echo $target len 1`" NOT EQ ":"
- set target $target:
- endif
-
- assign >NIL: exists "${Target}"
- if warn
- echo "Error: partition does not exist.*N"
- skip back nameloop
- endif
-
- lab partok
-
- assign Target: "${Target}"
-
- makedir "Target:Eternal Madness"
- cd "Target:Eternal Madness"
- copy "Eternal Madness Disk 1:c/copy" ram:
- ram:copy "Eternal Madness Disk 1:c/join" ram:
- ram:copy "Eternal Madness Disk 1:c/lha" ram:
- ram:copy "Eternal Madness Disk 1:c/delete" ram:
-
- ram:copy "Eternal Madness Disk 1:Data/Eternal Madness#?" "Target:"
- ram:copy "Eternal Madness Disk 1:em.2" "Target:Eternal Madness/"
- ram:copy "Eternal Madness Disk 2:em.1" "Target:Eternal Madness/"
- ram:join em.1 em.2 to em.lha
- ram:delete em.1
- ram:delete em.2
- ram:lha x em.lha
- ram:delete em.lha
-
- ram:delete ram:copy
- ram:delete ram:join
- ram:delete ram:lha
- ram:delete ram:delete
-
- lab exit
- echo "*N Finished"
-