.key "" IF NOT EXISTS ENV: makedir ram:env assign ENV: ram:env ENDIF IF NOT EXISTS T: makedir ram:T assign T: ram:T ENDIF m68_1:c/echo "C" m68_1:c/echo "*N*N*N*N*N*N*N*N*N WAIT" m68_1:c/failat 10 m68_1:c/SpecialLoadLib "M68_1:libs/digisoftSupport.library" m68_1:c/ClrScn m68_1:c/fastecho " You are about to install Macro68 onto your hard drive. To do this\N" m68_1:c/fastecho "you should already have booted your computer using your NORMAL BOOT\N" m68_1:c/fastecho "DISK. This script file will prompt you through all phases of the\N" m68_1:c/fastecho "installation, allowing you to skip some stages, or discontinue at any\N" m68_1:c/fastecho "point.\N" m68_1:c/fastecho " If you answer yes to the question of whether to install a file\N" m68_1:c/fastecho "or files onto your hard drive you will then be asked to type in the\N" m68_1:c/fastecho "target path name.\N" m68_1:c/fastecho "\N" m68_1:c/fastecho " Since some of the messages that will be displayed are somewhat\N" m68_1:c/fastecho "lengthy, you may want to take this opportunity to expand your window\N" m68_1:c/fastecho "to full size.\N" m68_1:c/fastecho "\N" m68_1:c/fastecho " Please confirm that the above appears to be ok and that you are\N" m68_1:c/ask "ready to continue with the installation (Y or N) ? > " IF NOT WARN m68_1:c/skip Exit ENDIF m68_1:c/ClrScn NUM 8 m68_1:c/fastecho " I am about to install the Macro68 executable file onto your hard\N" m68_1:c/Enquire TO Answer PROMPT "drive. Ok to continue (Yes, No or Abort)? > " IF "No" EQ $Answer m68_1:c/fastecho "\N" m68_1:c/fastecho "\N" m68_1:c/fastecho " Macro68 executable will not be installed!\N" m68_1:c/fastecho " I assume that, since you have choosen not to install the\N" m68_1:c/fastecho " main executable then you have already installed Macro68 &\N" m68_1:c/fastecho " now wish to copy some of the companion files. In the\N" m68_1:c/fastecho " hope that this is correct we are branching to that part\N" m68_1:c/fastecho " of this script that deals with the installation of those\N" m68_1:c/fastecho " files.\N" m68_1:c/wait 15 m68_1:c/skip Hopeful ENDIF IF "Abort" EQ $Answer m68_1:c/skip Exit ENDIF m68_1:c/fastecho "\N" m68_1:c/fastecho "\N" m68_1:c/fastecho "Please enter the directory path that you would like it copied\N" m68_1:c/fastecho "to. (default is C:) > " m68_1:c/ReadCon TO t:targetDir PREFIX "m68_1:c/copy m68_1:c/Macro68 " DEFAULT "C:" SUFFIX "Macro68 CLONE" DIR MAKE PROMPT m68_1:c/execute t:targetDir m68_1:c/ClrScn NUM 5 m68_1:c/fastecho " I am about to copy macro68.library and digisoftSupport.library\N" m68_1:c/Enquire TO Answer PROMPT "to your hard drive. Ok to continue (Yes, No or Abort)? > " IF "No" EQ $Answer m68_1:c/fastecho "\N" m68_1:c/fastecho "\N" m68_1:c/fastecho " Macro68 has not been properly installed!\N" m68_1:c/fastecho " Macro68 will not run if the installation of essential files\N" m68_1:c/fastecho " is not completed. I assume that you know what you are\N" m68_1:c/fastecho " doing and will continue with the next step.\N" m68_1:c/wait 10 m68_1:c/skip Hopeful ENDIF IF "Abort" EQ $Answer m68_1:c/skip Exit ENDIF m68_1:c/fastecho "\N" m68_1:c/fastecho "\N" m68_1:c/fastecho " Please enter the directory path that you would like macro68.library\N" m68_1:c/fastecho "copied to. (default is LIBS:) > " m68_1:c/ReadCon TO t:targetDir PREFIX "m68_1:c/copy M68_1:libs/macro68.library " DEFAULT "LIBS:" SUFFIX "macro68.library CLONE" DIR MAKE PROMPT m68_1:c/execute t:targetDir m68_1:c/fastecho "\N" m68_1:c/fastecho "\N" m68_1:c/fastecho " Please enter the directory path that you would like digisoftSupport.library\N" m68_1:c/fastecho "copied to. (default is LIBS:) > " m68_1:c/ReadCon TO t:targetDir PREFIX "m68_1:c/copy M68_1:libs/digisoftSupport.library " DEFAULT "LIBS:" SUFFIX "digisoftSupport.library CLONE" DIR MAKE PROMPT m68_1:c/execute t:targetDir LAB Hopeful m68_1:c/ClrScn NUM 3 m68_1:c/fastecho " I am about to copy the macro68custom file to your hard drive\N" m68_1:c/Enquire TO Answer PROMPT "(Yes, No or Abort) ? > " IF "No" EQ $Answer m68_1:c/fastecho "\N" m68_1:c/fastecho "\N" m68_1:c/fastecho " I really think that you should reconsider\N" m68_1:c/fastecho " your decision.\N" m68_1:c/Enquire TO Answer PROMPT "(Retry, No or Abort) ? > " OK "Retry" IF "No" EQ $Answer m68_1:c/skip ReallyHopeful ENDIF IF "Abort" EQ $Answer m68_1:c/skip Exit ENDIF m68_1:c/skip Hopeful ENDIF IF "Abort" EQ $Answer m68_1:c/skip Exit ENDIF m68_1:c/fastecho "\N" m68_1:c/fastecho "\N" m68_1:c/fastecho " You now have two options for installing the macro68custom file.\N" m68_1:c/fastecho "You may choose to install the basic custom file which does not use\N" m68_1:c/fastecho "resident maclibs or the advanced version which uses the resident\N" m68_1:c/fastecho "maclib facility. To use the advanced version in it's current form\N" m68_1:c/fastecho "it will be necessary for you to assign INCLUDES: to the directory\N" m68_1:c/fastecho "holding the resident maclib file, or to reassemble the custom file\N" m68_1:c/fastecho "so that it will look for the resident file in some other directory.\N" m68_1:c/fastecho " Please select which form of the macro68custom file that you wish\N" m68_1:c/Enquire TO Answer PROMPT "to install. (Normal, Resident or Abort) ? > " OK "Normal" WARN "Resident" IF "Abort" EQ $Answer m68_1:c/skip Exit ENDIF IF "Normal" EQ $Answer m68_1:c/fastecho "\N" m68_1:c/fastecho "\N" m68_1:c/fastecho " Please enter the directory path that you would like this file copied\N" m68_1:c/fastecho "to. (default is LIBS:) > " m68_1:c/ReadCon TO t:targetDir PREFIX "m68_1:c/copy M68_1:libs/macro68custom " DEFAULT "LIBS:" SUFFIX " " DIR MAKE PROMPT m68_1:c/execute t:targetDir m68_1:c/skip ReallyHopeful ENDIF IF "Resident" EQ $Answer m68_1:c/fastecho "\N" m68_1:c/fastecho "\N" m68_1:c/fastecho " Please enter the directory path that you would like this file copied\N" m68_1:c/fastecho "to. (default is LIBS:) > " m68_1:c/ReadCon TO t:targetDir PREFIX "m68_1:c/copy M68_1:libs/macro68custom_Resi " DEFAULT "LIBS:" SUFFIX "macro68custom" DIR MAKE PROMPT m68_1:c/execute t:targetDir ENDIF LAB ReallyHopeful m68_1:c/ClrScn NUM 6 m68_1:c/fastecho " An intuition interface (with icon) has been provided for Macro68.\N" m68_1:c/fastecho "This file requires that a special font, (teeny.font) be in your\N" m68_1:c/fastecho "FONTS: directory in order to run.\N" m68_1:c/fastecho "Would you like to have this file (M68IFace) and Teeny.font copied\N" m68_1:c/Enquire TO Answer PROMPT "to your hard drive. (Yes, No or Abort)? > " IF "No" EQ $Answer m68_1:c/skip CustomSource ENDIF IF "Abort" EQ $Answer m68_1:c/skip Exit ENDIF m68_1:c/fastecho "\N" m68_1:c/fastecho "\N" m68_1:c/fastecho "Please enter the directory path that you would like it copied\N" m68_1:c/fastecho "to. (default is SYS:) > " m68_1:c/ReadCon TO t:targetDir PREFIX "m68_1:c/copy m68_1:M68IFace#? " DEFAULT "SYS:" SUFFIX " " DIR MAKE PROMPT m68_1:c/execute t:targetDir m68_1:c/copy m68_1:fonts/Teeny.font to FONTS: m68_1:c/makedir FONTS:Teeny m68_1:c/copy m68_1:fonts/Teeny/#? fonts:teeny LAB CustomSource m68_1:c/ClrScn NUM 6 m68_1:c/fastecho " You will need to have the source file for macro68custom copied to\N" m68_1:c/fastecho "your hard drive in order that you can conveniently customize Macro68\N" m68_1:c/fastecho "to your requirements. Would you like these source files copied to\N" m68_1:c/Enquire TO Answer PROMPT "your hard drive (Yes, No or Abort) ? > " IF "No" EQ $Answer m68_1:c/skip InstallBLink ENDIF IF "Abort" EQ $Answer m68_1:c/skip Exit ENDIF m68_1:c/fastecho "\N" m68_1:c/fastecho "\N" m68_1:c/fastecho " Please enter the directory path that you would like this file copied\N" m68_1:c/fastecho "to. (default is WORK:) > " m68_1:c/ReadCon TO t:targetDir PREFIX "m68_1:c/copy M68_2:SOURCE/macro68custom.asm " DEFAULT "WORK:" SUFFIX "macro68custom.asm" DIR MAKE PROMPT m68_1:c/execute t:targetDir LAB InstallBLink m68_1:c/ClrScn NUM 7 m68_1:c/fastecho " The public domain linker, BLink version 6.7 is supplied by permission\N" m68_1:c/fastecho "of The Software Distillery. Would you like this copied to your hard\N" m68_1:c/Enquire TO Answer PROMPT "drive (Yes, No or Abort) ? > " IF "No" EQ $Answer m68_1:c/skip InstallProfiler ENDIF IF "Abort" EQ $Answer m68_1:c/skip Exit ENDIF m68_1:c/fastecho "\N" m68_1:c/fastecho "\N" m68_1:c/fastecho " Please enter the directory path that you would like BLink copied\N" m68_1:c/fastecho "to. (default is C:) > " m68_1:c/ReadCon TO t:targetDir PREFIX "m68_1:c/copy M68_1:c/BLink " DEFAULT "C:" SUFFIX "BLink" DIR MAKE PROMPT m68_1:c/execute t:targetDir LAB InstallProfiler m68_1:c/ClrScn NUM 4 m68_1:c/fastecho " Would you like the profile tool copied to your hard drive\N" m68_1:c/Enquire TO Answer PROMPT "(Yes, No or Abort) ? > " IF "No" EQ $Answer m68_1:c/skip InstallNewSyntax ENDIF IF "Abort" EQ $Answer m68_1:c/skip Exit ENDIF m68_1:c/fastecho "\N" m68_1:c/fastecho "\N" m68_1:c/Enquire TO Answer PROMPT "Install 68000 or 68020 version (68000, 68020 or Skip) ? > " OK "68000" WARN "68020" FAIL "Skip" WORD IF "68020" EQ $Answer m68_1:c/skip InstallProfile68020 ENDIF IF "Skip" EQ $Answer m68_1:c/skip InstallNewSyntax ENDIF m68_1:c/fastecho "\N" m68_1:c/fastecho "\N" m68_1:c/fastecho " Please enter the directory path that you would like Profile copied\N" m68_1:c/fastecho "to. (default is C:) > " m68_1:c/ReadCon TO t:targetDir PREFIX "m68_1:c/copy M68_1:c/Profile_68000 " DEFAULT "C:" SUFFIX "Profile" DIR MAKE PROMPT m68_1:c/execute t:targetDir m68_1:c/fastecho "\N" m68_1:c/fastecho "\N" m68_1:c/fastecho " Profile_68000 has been installed as Profile\N" m68_1:c/wait 5 m68_1:c/skip InstallNewSyntax LAB InstallProfile68020 m68_1:c/fastecho "\N" m68_1:c/fastecho "\N" m68_1:c/fastecho " Please enter the directory path that you would like Profile copied\N" m68_1:c/fastecho "to. (default is C:) > " m68_1:c/ReadCon TO t:targetDir PREFIX "m68_1:c/copy M68_1:c/Profile_68020 " DEFAULT "C:" SUFFIX "Profile" DIR MAKE PROMPT m68_1:c/execute t:targetDir m68_1:c/fastecho " Profile_68020 has been installed as Profile\N" m68_1:c/wait 5 m68_1:c/fastecho "\N" LAB InstallNewSyntax m68_1:c/ClrScn NUM 5 m68_1:c/fastecho " I am now ready to install the NewSyntax tool onto your hard drive.\N" m68_1:c/fastecho " If you have any source code written using the old Motorola 68000\N" m68_1:c/fastecho "syntax you will find this utility invaluable in converting it to\N" m68_1:c/fastecho "use the new Motorola 68000 family syntax.\N" m68_1:c/fastecho " Would you like the syntax conversion tool copied to your hard\N" m68_1:c/Enquire TO Answer PROMPT "drive (Yes, No or Abort) ? > " IF "No" EQ $Answer m68_1:c/skip InstallChange ENDIF IF "Abort" EQ $Answer m68_1:c/skip Exit ENDIF m68_1:c/fastecho "\N" m68_1:c/fastecho "\N" m68_1:c/fastecho " Please enter the directory path that you would like NewSyntax copied\N" m68_1:c/fastecho "to. (default is C:) > " m68_1:c/ReadCon TO t:targetDir PREFIX "m68_1:c/copy M68_1:c/NewSyntax " DEFAULT "C:" SUFFIX "NewSyntax" DIR MAKE PROMPT m68_1:c/execute t:targetDir LAB InstallChange m68_1:c/ClrScn NUM 6 m68_1:c/fastecho " The Change utility (stream editor) is required for a number of the\N" m68_1:c/fastecho "script files which are provided.\N" m68_1:c/fastecho " Would you like the Change utility copied to your hard drive?\N" m68_1:c/Enquire TO Answer PROMPT "(Yes, No or Abort) ? > " IF "No" EQ $Answer m68_1:c/skip InstallWhitespace ENDIF IF "Abort" EQ $Answer m68_1:c/skip Exit ENDIF m68_1:c/fastecho "\N" m68_1:c/fastecho "\N" m68_1:c/fastecho "Please enter the directory path that you would like Change90 copied\N" m68_1:c/fastecho "to. (default is C:) > " m68_1:c/ReadCon TO t:targetDir PREFIX "m68_1:c/copy M68_1:c/Change90 " DEFAULT "C:" SUFFIX "Change90" DIR MAKE PROMPT m68_1:c/execute t:targetDir LAB InstallWhitespace m68_1:c/ClrScn NUM 6 m68_1:c/fastecho " Whitespace is another utility that is used by a number of the\N" m68_1:c/fastecho "script files provided with this distribution.\N" m68_1:c/fastecho " Would you like the Whitespace utility copied to your hard drive?\N" m68_1:c/Enquire TO Answer PROMPT "(Yes, No or Abort) ? > " IF "No" EQ $Answer m68_1:c/skip InstallRealTimeRexx ENDIF IF "Abort" EQ $Answer m68_1:c/skip Exit ENDIF m68_1:c/fastecho "\N" m68_1:c/fastecho "\N" m68_1:c/fastecho " Please enter the directory path that you would like Whitespace\N" m68_1:c/fastecho "copied to. (default is C:) > " m68_1:c/ReadCon TO t:targetDir PREFIX "m68_1:c/copy M68_1:c/Whitespace " DEFAULT "C:" SUFFIX "Whitespace" DIR MAKE PROMPT m68_1:c/execute t:targetDir LAB InstallRealTimeRexx m68_1:c/ClrScn m68_1:c/fastecho " There are several AREXX script files to interact between your\N" m68_1:c/fastecho "editor and the Macro68 assembler. These have been written to work\N" m68_1:c/fastecho "with the CygnusEd editor from Cygnus Soft, but may be readily adapted\N" m68_1:c/fastecho "to interface with other editors. If you have Arexx it would be\N" m68_1:c/fastecho "advisable for you to copy these to your rexx: directory and then alter\N" m68_1:c/fastecho "them to suit your own editor. It is essential that these files are\N" m68_1:c/fastecho "copied and modified to suit your editor if you wish to take advantage\N" m68_1:c/fastecho "of the REALTIME directive in Macro68.\N" m68_1:c/fastecho "\N" m68_1:c/fastecho "The rexx program files that will be copied are:\N" m68_1:c/fastecho "\N" m68_1:c/fastecho "KillM68Port.rexx m68CedIface.rexx queueM68.rexx\N" m68_1:c/fastecho "M68NextErr.ced M68PrevErr.ced RunMacro68.ced\N" m68_1:c/fastecho "\N" m68_1:c/Enquire TO Answer PROMPT "Shall I copy the AREXX files (Yes, No or Abort) ? > " IF "No" EQ $Answer m68_1:c/skip InstallIncludes ENDIF IF "Abort" EQ $Answer m68_1:c/skip Exit ENDIF m68_1:c/fastecho "\N" m68_1:c/fastecho "\N" m68_1:c/fastecho " Please enter the directory path that you would like the AREXX files\N" m68_1:c/fastecho "copied to. (default is REXX:) > " m68_1:c/ReadCon TO t:targetDir PREFIX "m68_1:c/copy M68_3:REXX/#? " DEFAULT "REXX:" SUFFIX " quiet" DIR MAKE PROMPT m68_1:c/execute t:targetDir LAB InstallIncludes m68_1:c/ClrScn m68_1:c/fastecho " Now we come to the installation of the Commodore include files.\N" m68_1:c/fastecho "The include files for version 1.3 of the operating system supplied\N" m68_1:c/fastecho "with Macro68 have been altered to use the new Motorola 68000 family\N" m68_1:c/fastecho "syntax.\N" m68_1:c/fastecho " Of the individual files copied:\N" m68_1:c/fastecho "\C5;33m AllLibraryOffsets.i\C0;31m\N" m68_1:c/fastecho " This file has all of the library vector offsets for the\N" m68_1:c/fastecho " operating system libraries.\N" m68_1:c/fastecho "\C5;33m AllSyms.mac\C0;31m\N" m68_1:c/fastecho " This contains all of the Commodore include files and the\N" m68_1:c/fastecho " AllLibraryOffsets.i include file in pre-assembled form.\N" m68_1:c/fastecho "\C5;33m makeResidentMaclib.asm\C0;31m\N" m68_1:c/fastecho " This file can be assembled to make a maclib or resident\N" m68_1:c/fastecho " maclib.\N" m68_1:c/fastecho "\C5;33m macro68custom.mac\C0;31m\N" m68_1:c/fastecho " This file contains all of the additional symbols needed\N" m68_1:c/fastecho " to assemble the macro68custom file.\N" m68_1:c/fastecho "\N" m68_1:c/fastecho " Also the following directories will be copied:\N" m68_1:c/fastecho "\N" m68_1:c/fastecho "\C5;33m devices exec graphics hardware\N" m68_1:c/fastecho " intuition libraries resources workbench\C0;31m\N" m68_1:c/fastecho "\N" m68_1:c/Enquire TO Answer PROMPT "Shall I copy the include files (Yes, No or Abort) ? > " IF "No" EQ $Answer m68_1:c/skip InstallIndex ENDIF IF "Abort" EQ $Answer m68_1:c/skip Exit ENDIF m68_1:c/fastecho "\N" m68_1:c/fastecho "\N" m68_1:c/fastecho " Please enter the directory path that you would like the include files\N" m68_1:c/fastecho "copied to. (default is INCLUDES:) > " m68_1:c/ReadCon TO t:targetDir PREFIX "m68_1:c/copy m68_2:INCLUDES " DEFAULT "INCLUDES:" SUFFIX " all quiet" DIR MAKE PROMPT m68_1:c/execute t:targetDir LAB InstallIndex m68_1:c/ClrScn NUM 3 m68_1:c/fastecho " We have also included 3 index files for the manual on disk for\N" m68_1:c/fastecho "convienent access and updating. These comprise a 'quick' index\N" m68_1:c/fastecho "with the major items listed, a 'template' index which shows the\N" m68_1:c/fastecho "directives and their associated templates and a 'full' index. You\N" m68_1:c/fastecho "will be prompted individually to install each index.\N" m68_1:c/fastecho "\N" m68_1:c/Enquire TO Answer PROMPT "Shall I copy the 'quick' index (Yes, No or Abort) ? > " IF "No" EQ $Answer m68_1:c/skip InstallTemplateIndex ENDIF IF "Abort" EQ $Answer m68_1:c/skip Exit ENDIF m68_1:c/fastecho "\N" m68_1:c/fastecho "\N" m68_1:c/fastecho " Please enter the directory path that you would like the 'quick' index\N" m68_1:c/fastecho "copied to. (default is DH0:) > " m68_1:c/ReadCon TO t:targetDir PREFIX "m68_1:c/copy m68_3:Index_Quick#? " DEFAULT "DH0:" SUFFIX " CLONE" DIR MAKE PROMPT m68_1:c/execute t:targetDir LAB InstallTemplateIndex m68_1:c/fastecho "\N" m68_1:c/Enquire TO Answer PROMPT "Shall I copy the 'template' index (Yes, No or Abort) ? > " IF "No" EQ $Answer m68_1:c/skip InstallFullIndex ENDIF IF "Abort" EQ $Answer m68_1:c/skip Exit ENDIF m68_1:c/fastecho "\N" m68_1:c/fastecho "\N" m68_1:c/fastecho " Please enter the directory path that you would like the 'template'\N" m68_1:c/fastecho "index copied to. (default is DH0:) > " m68_1:c/ReadCon TO t:targetDir PREFIX "m68_1:c/copy m68_3:Index_Template#? " DEFAULT "DH0:" SUFFIX " CLONE" DIR MAKE PROMPT m68_1:c/execute t:targetDir LAB InstallFullIndex m68_1:c/fastecho "\N" m68_1:c/Enquire TO Answer PROMPT "Shall I copy the 'full' index (Yes, No or Abort) ? > " IF "No" EQ $Answer m68_1:c/skip InstallExamples ENDIF IF "Abort" EQ $Answer m68_1:c/skip Exit ENDIF m68_1:c/fastecho "\N" m68_1:c/fastecho "\N" m68_1:c/fastecho " Please enter the directory path that you would like the 'full'\N" m68_1:c/fastecho "index copied to. (default is DH0:) > " m68_1:c/ReadCon TO t:targetDir PREFIX "m68_1:c/copy m68_3:Index_Full#? " DEFAULT "DH0:" SUFFIX " CLONE" DIR MAKE PROMPT m68_1:c/execute t:targetDir LAB InstallExamples m68_1:c/ClrScn NUM 5 m68_1:c/fastecho " Last but decidedly not least, we have included a number of example\N" m68_1:c/fastecho "source files with this distribution. Some of these have been written\N" m68_1:c/fastecho "at DigiSoft and some have been written by the people who beta tested\N" m68_1:c/fastecho "Macro68 for us. They cover a range of applications from useful\N" m68_1:c/fastecho "tools to cute demonstrations of the hardware capabilities of the Amiga.\N" m68_1:c/Enquire TO Answer PROMPT " Shall I copy the example source files (Yes, No or Abort) ? > " IF "No" EQ $Answer m68_1:c/skip GoodBye ENDIF IF "Abort" EQ $Answer m68_1:c/skip Exit ENDIF m68_1:c/fastecho "\N" m68_1:c/fastecho "\N" m68_1:c/fastecho " Please enter the directory path that you would like the example\N" m68_1:c/fastecho "source files copied to. (default is WORK:) > " m68_1:c/ReadCon TO t:targetDir PREFIX "m68_1:c/copy M68_3:EXAMPLES/#? " DEFAULT "WORK:" SUFFIX " quiet" DIR MAKE PROMPT m68_1:c/execute t:targetDir LAB GoodBye m68_1:c/ClrScn NUM 7 m68_1:c/fastecho "You have now successfully completed the installation of Macro68.\N" m68_1:c/fastecho "\N" m68_1:c/fastecho "Thankyou for choosing Macro68, we hope that you get as much\N" m68_1:c/fastecho "enjoyment out of using it as we did from writing it.\N" m68_1:c/fastecho " From\N" m68_1:c/fastecho " DigiSoft\N" m68_1:c/wait 7 m68_1:c/skip Exit LAB Exit IF EXISTS t:targetDir m68_1:c/delete t:targetDir ENDIF IF EXISTS env:Answer m68_1:c/delete env:Answer ENDIF