The QBasic / QB64 Discussion Forum      Other Subforums, Links and Downloads
 

Respond to this messageReturn to Index
Original Message
  • we dont know ....
    • Anonymous (no login)
      Posted May 23, 2011 7:48 AM

      @echo off
      :: GETQBASIC.BAT
      :: Checks the user's machine for QBASIC
      :: and downloads it from Microsoft if needed.
      :: Installs QBASIC and all "old" DOS tools
      :: into the WINDOWS and WINDOWS\COMMAND
      :: directories as appropriate. Performs
      :: installation similar to Microsoft's
      :: "instsupp.bat"
      :: Note - The CDROM version of OLDDOS.EXE
      :: is a Windows-based installation program.
      :: The version we download here is a PKZIP
      :: Self-Extracting file that contains the same
      :: files EXCEPT for the MSBACKUP commands.

      :QBCHECKNT
      :: NT uses the "OS" variable, Windows 95 doesn't.
      :: NT has QBASIC installed already in \WINNT\SYSTEM32
      if "%os%"=="" goto QBCHECK
      goto QBDONE

      :QBCHECK
      :: Makes and tries to run a simple QBASIC
      :: program. If it works, a zero-byte file
      :: named "~test.txt" will be created.
      if exist ~test.txt del ~test.txt > nul
      echo open "~test.txt" for output as #1> ~test.bas
      echo close #1>> ~test.bas
      echo system>> ~test.bas
      qbasic /run ~test.bas
      cls
      del ~test.bas > nul
      :: If "~test.txt" exists, the user already has QBASIC
      if exist ~test.txt goto QBDONE
      goto QBNEEDIT

      :QBNEEDIT
      :: This section puts all "old DOS" files in the
      :: WINDOWS\COMMAND directory.
      :: Create a script to download OLDDOS.EXE
      echo open ftp.microsoft.com> ftpscript.txt
      echo anonymous>> ftpscript.txt
      echo username@nowhere.com>> ftpscript.txt
      echo cd softlib>> ftpscript.txt
      echo cd mslfiles>> ftpscript.txt
      echo binary>> ftpscript.txt
      echo hash>> ftpscript.txt
      echo lcd c:\>> ftpscript.txt
      echo get olddos.exe>> ftpscript.txt
      echo bye>> ftpscript.txt
      cls
      echo Please wait while downloading needed files from Microsoft!
      echo DO NOT close this window. The download is happening in a
      echo separate window, and will be complete when there are
      echo about five lines filled with "#" characters. When finished,
      echo you will have immediate access to the following DOS commands:
      echo append expand help
      echo loadfix memmaker qbasic
      echo restore sizer undelete
      echo The following commands will become available the next
      echo time you restart your computer:
      echo graphics interlnk intersvr
      echo print replace tree
      start /w %windir%\ftp.exe -s:ftpscript.txt
      del ftpscript.txt > nul
      :: If the FTP window was aborted, olddos.exe will not exist.
      if not exist c:\olddos.exe goto QBVERIFY
      :: Run the OLDDOS program (it is a PKSFX file)
      :: Echo a "y" into it to answer the yes/no question
      :: Specify the COMMAND directory (typically c:\windows\command)
      :: as the destination
      echo y|c:\olddos.exe -n %windir%\command
      del c:\olddos.exe > nul
      goto QBVERIFY

      :QBVERIFY
      :: It should work now. Trust, but verify (RR).
      if exist ~test.txt del ~test.txt > nul
      echo open "~test.txt" for output as #1> ~test.bas
      echo close #1>> ~test.bas
      echo system>> ~test.bas
      qbasic /run ~test.bas
      cls
      del ~test.bas > nul
      :: If "~test.txt" exists, the user has QBASIC working now
      if exist ~test.txt goto QBGOTIT
      echo Files needed were unable to be downloaded from
      echo Microsoft. Press Y if you would like to try
      choice /n downloading again. Press N to cancel.
      if errorlevel 2 goto QBERROR
      goto QBNEEDIT

      :QBERROR
      cls
      rem ***** Enter code here for what happens if user cancels. *****
      echo The installation of DOS utilities from Microsoft
      echo was not successfull. This program must now terminate.
      echo Run this program again to retry things.
      if exist ~test.txt del ~test.txt > nul
      exit
      goto QBDONE

      :QBGOTIT
      :: Finish the installation
      :: Move the MEMMAKER files up to the WINDOWS
      :: directory because that's what Microsoft recommends
      move /y %windir%\COMMAND\SIZER.EXE %windir% > nul
      move /y %windir%\COMMAND\MEMMAKER.HLP %windir% > nul
      move /y %windir%\COMMAND\MEMMAKER.INF %windir% > nul
      move /y %windir%\COMMAND\CHKSTATE.SYS %windir% > nul
      move /y %windir%\COMMAND\MEMMAKER.EXE %windir% > nul
      :: Delete the instsupp.bat file because it does what
      :: this file does. It isn't needed after an install.
      del %windir%\command\instsupp.bat > nul
      :: Run SETVER for the commands that need it. A reboot
      :: is needed before these commands will work.
      setver graphics.com 6.22 > nul
      setver intersvr.exe 6.22 > nul
      setver print.exe 6.22 > nul
      setver replace.exe 6.22 > nul
      setver tree.com 6.22 > nul
      goto QBDONE

      :QBDONE
      :: Delete the "~test.txt" file created in the QBCHECK section
      if exist ~test.txt del ~test.txt > nul
      :: Clear the screen to allow (but not force) this DOS window to close
      cls
      :: Enter any code here (or append any batch file) that
      :: requires the user's machine to have QBASIC.
      :: http://www.ericphelps.com
    Login Status
  • You are not logged in
    • Login
      Password
       

      Optional
      Provides additional benefits such as notifications, signatures, and user authentication.


      Create Account
    Your Name
    Message Title
    Message Text
    Options