home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 643b.lha / FreePaint_v37eta / FPInstall.mil < prev    next >
Encoding:
Text File  |  1992-03-22  |  6.7 KB  |  194 lines
  1. PRINT "Free Paint 35 EPSILON Installation Skript";
  2. PRINT "¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯";
  3. PRINT "Read FreePaint.doc to see if you are allowed to use or copy";
  4. PRINT "Free Paint, all other use or copying is illegal!";
  5. PRINT "This will work if you have booted from your original Workbench";
  6. PRINT "disk or an unchanged copy of it! In addition you need an empty";
  7. PRINT "formatted disk.";
  8. PRINT "Do you have booted from an unchanged Workbench disk and do you"
  9. ASK   "have an empty formatted disk ready?";
  10.  
  11. CLEAR;
  12. IF NO
  13.    PRINT "Format an unimportant disk, search for your original";
  14.    PRINT "Workbench disk and boot from it. Then try this one again!";
  15.    PRINT " ";
  16.    WAIT "Click [CONTINUE] to exit, when you have read this.";
  17. ELSE
  18.    PRINT "I am now starting the installing procedure."
  19.    PRINT "Please insert the Workbench disk you have booted from in";
  20.    WAIT  "drive df0: and click [CONTINUE] when you have done so."
  21.    CLEAR;
  22.    PRINT "I am copying system files to RAM: ...";
  23.    MAKEDIR "RAM:T_TMP";
  24.    MAKEDIR "RAM:C_TMP";
  25.    DODOS "ASSIGN OLD_T: T:";
  26.    DODOS "ASSIGN T: RAM:T_TMP";
  27.    COPY "df0:C/ASSIGN"  AS "RAM:C_TMP/ASSIGN";
  28.    COPY "df0:C/COPY"    AS "RAM:C_TMP/COPY";
  29.    COPY "df0:C/RUN"     AS "RAM:C_TMP/RUN";
  30.    COPY "df0:C/DIR"     AS "RAM:C_TMP/DIR";
  31.    COPY "df0:C/ECHO"    AS "RAM:C_TMP/ECHO";
  32.    COPY "df0:C/DELETE"  AS "RAM:C_TMP/DELETE";
  33.    COPY "df0:C/STACK"   AS "RAM:C_TMP/STACK";
  34.    COPY "df0:C/MAKEDIR" AS "RAM:C_TMP/MAKEDIR";
  35.    COPY "df0:C/INSTALL" AS "RAM:C_TMP/INSTALL";
  36.    COPY "df0:C/RELABEL" AS "RAM:C_TMP/RELABEL";
  37.    COPY "df0:C/LOADWB"  AS "RAM:C_TMP/LOADWB";
  38.  
  39.    DODOS "ASSIGN OLD_C: C:";
  40.    DODOS "ASSIGN C: RAM:C_TMP";
  41.  
  42.    MAKEDIR "RAM:LIBS_TMP";
  43.    MAKEDIR "RAM:DEVS_TMP";
  44.    MAKEDIR "RAM:FONTS_TMP";
  45.    MAKEDIR "RAM:L_TMP";
  46.    MAKEDIR "RAM:S_TMP";
  47.  
  48.    DODOS "copy >NIL: df0:libs  RAM:LIBS_TMP";
  49.    DODOS "copy >NIL: df0:devs  RAM:DEVS_TMP ALL";
  50.    DODOS "copy >NIL: df0:fonts RAM:FONTS_TMP ALL";
  51.    DODOS "copy >NIL: df0:L     RAM:L_TMP";
  52.    DODOS "copy >NIL: df0:S     RAM:S_TMP";
  53.  
  54.    PRINT "...done copying system files to RAM:";
  55.    PRINT " ";
  56.    PRINT "Please remove the disk from drive DF0: and click [CONTINUE]";
  57.    WAIT  "after you are finished.";
  58.  
  59.    CLEAR;
  60.    PRINT "Now insert the empty disk in drive DF0: ";
  61.    WAIT  "Click [CONTINUE] when you have done this.";
  62.    PRINT " ";
  63.    PRINT "Moving RAM: files to the disk...";
  64.  
  65.    MAKEDIR "DF0:C";
  66.    MAKEDIR "DF0:LIBS";
  67.    MAKEDIR "DF0:DEVS";
  68.    MAKEDIR "DF0:FONTS";
  69.    MAKEDIR "DF0:L";
  70.    MAKEDIR "DF0:S";
  71.    MAKEDIR "DF0:BRUSH";
  72.    MAKEDIR "DF0:PICTURE";
  73.  
  74.    DODOS "copy >NIL: RAM:LIBS_TMP  df0:LIBS";
  75.    DODOS "copy >NIL: RAM:DEVS_TMP  df0:DEVS ALL";
  76.    DODOS "copy >NIL: RAM:FONTS_TMP df0:FONTS ALL";
  77.    DODOS "copy >NIL: RAM:L_TMP     df0:L";
  78.    DODOS "copy >NIL: RAM:S_TMP     df0:S";
  79.    DODOS "copy >NIL: RAM:C_TMP     df0:C";
  80.  
  81.    PRINT "...done copying the system files to the FPaint disk!";
  82.  
  83.    DODOS "delete >NIL: RAM:LIBS_TMP ALL";
  84.    DODOS "delete >NIL: RAM:DEVS_TMP ALL";
  85.    DODOS "delete >NIL: RAM:FONTS_TMP ALL";
  86.    DODOS "delete >NIL: RAM:L_TMP ALL";
  87.    DODOS "delete >NIL: RAM:S_TMP ALL";
  88.  
  89.    PRINT "Please remove the disk from drive DF0:";
  90.    WAIT  "Click [CONTINUE] to proceed";
  91.  
  92.    CLEAR;
  93.    PRINT "And now insert the disk the Free Paint files are on";
  94.    PRINT "in drive DF0:";
  95.    WAIT "Click [CONTINUE] after it.";
  96.  
  97.    PRINT " ";
  98.    PRINT "Now copying the Free Paint Files into memory ...";
  99.  
  100.    STORE "df0:Free Paint/FPaint"             AS "FPAINT";
  101.    STORE "df0:Free Paint/FPaint.info"        AS "FPAINT.INFO";
  102.    STORE "df0:Free Paint/FreePaint.doc"      AS "FPAINT.DOC";
  103.    STORE "df0:Free Paint/FreePaint.doc.info" AS "FPAINT.DOC.INFO";
  104.    STORE "df0:Free Paint/BRUSH.info"         AS "BRUSH.INFO";
  105.    STORE "df0:Free Paint/PICTURE.info"       AS "PICTURE.INFO";
  106.    STORE "df0:Free Paint/Disk.info"          AS "DISK.INFO";
  107.    STORE "df0:Free Paint/fp.startup"         AS "STARTUP";
  108.    STORE "df0:c/MuchMore"                    AS "MUCHMORE";
  109.  
  110.    PRINT "... all files are in memory!";
  111.    PRINT " ";
  112.    PRINT "Please remove the disk from drive DF0:";
  113.    WAIT  "Click [CONTINUE] to go on.";
  114.  
  115.    CLEAR;
  116.    PRINT "And now insert the former empty disk in drive df0:";
  117.    PRINT " ";
  118.    WAIT "Click [CONTINUE] when done.";
  119.  
  120.    CLEAR;
  121.    PRINT "I am copying the Free Paint files to the disk...";
  122.  
  123.    WRITE "FPAINT"          AS "df0:FPaint";
  124.    WRITE "FPAINT.INFO"     AS "df0:FPaint.info";
  125.    WRITE "FPAINT.DOC"      AS "df0:FreePaint.doc";
  126.    WRITE "FPAINT.DOC.INFO" AS "df0:FreePaint.doc.info";
  127.    WRITE "BRUSH.INFO"      AS "df0:BRUSH.info";
  128.    WRITE "PICTURE.INFO"    AS "df0:PICTURE.info";
  129.    WRITE "DISK.INFO"       AS "df0:Disk.info";
  130.    WRITE "STARTUP"         AS "df0:s/startup-sequence";
  131.    WRITE "MUCHMORE"        AS "df0:c/MuchMore";
  132.  
  133.    DODOS "relabel DF0: FPaint_Disk";
  134.    DODOS "install df0:";
  135.  
  136.    PRINT "... the files are written!";
  137.    PRINT " ";
  138.    PRINT "Please remove the disk from drive DF0:";
  139.    PRINT " ";
  140.    WAIT  "Click [CONTINUE] after removing.";
  141.  
  142.    CLEAR;
  143.    PRINT "Do you want to copy the pictures and brushes from the";
  144.    ASK   "Public Domain disk to the new disk?";
  145.    CLEAR;
  146.    IF YES
  147.       PURGE;
  148.       PRINT "Please reinsert the Public Domain disk in drive df0:";
  149.       PRINT " ";
  150.       WAIT  "Click [CONTINUE] after insertion.";
  151.       MAKEDIR "ram:B_TMP";
  152.       MAKEDIR "ram:P_TMP";
  153.       DODOS "copy >NIL: \"df0:Free Paint/Picture/#?\" to ram:P_TMP";
  154.       DODOS "copy >NIL: \"df0:Free Paint/Brush/#?\" to ram:B_TMP";
  155.       PRINT "...all images are read.";
  156.       PRINT " ";
  157.       PRINT "Please remove the disk from drive DF0:";
  158.       PRINT " ";
  159.       WAIT  "Click [CONTINUE] after it.";
  160.  
  161.       CLEAR;
  162.       PRINT "Please reinsert the former empty disk in drive df0:";
  163.       PRINT " ";
  164.       WAIT  "Click [CONTINUE] when the disk is in.";
  165.       DODOS "copy >NIL: ram:P_TMP/#? df0:PICTURE";
  166.       DODOS "copy >NIL: ram:B_TMP/#? df0:BRUSH";
  167.       DODOS "delete >NIL: ram:P_TMP ALL"
  168.       DODOS "delete >NIL: ram:B_TMP ALL"
  169.       PRINT "...all images are copied!";
  170.       PRINT " ";
  171.       PRINT "Please remove the disk from drive DF0:";
  172.       PRINT " ";
  173.       WAIT  "Click [CONTINUE] when the drive is empty.";
  174.       CLEAR;
  175.    END
  176.  
  177.    PRINT "I am done installing the Free Paint working diskette.";
  178.    PRINT "Please remember: This disk may not be copied! To see what";
  179.    PRINT "you are allowed to copy see the FPaint.doc file!";
  180.    PRINT "Please insert the Workbench disk in drive DF0:";
  181.    PRINT "After removing the temporary files from the RAM: hold";
  182.    PRINT "the installation program will finish.";
  183.    PRINT " ";
  184.    PRINT "                                    Have fun, enjoy and CU,";
  185.    PRINT "                                          Stefan G. Boldorf";
  186.    WAIT  "Press [CONTINUE]";
  187.  
  188.    DODOS "ASSIGN C: OLD_C:"
  189.    DODOS "ASSIGN T: OLD_T:"
  190.    DODOS "delete ram:C_TMP ALL";
  191.    DODOS "delete ram:T_TMP ALL";
  192. END
  193. QUIT;
  194.