home *** CD-ROM | disk | FTP | other *** search
/ The First Hungarian Family / The_First_Hungarian_Family_CD-ROM.bin / internet / offlread / 1st200 / a / bootdisk.mdl < prev    next >
Text File  |  1995-07-19  |  2KB  |  60 lines
  1.         SPARKWARE
  2.  
  3.         ASSIGN(_Default$,143)
  4.         CALL "LOGO.MDL"
  5.  
  6.         QPRINT("@READER@ is about to create a 'boot disk' for you.",13,13,143,7)
  7.     QPRINT("")
  8.         QPRINT("You will need to insert a blank diskette into Drive 'A'")
  9.         QPRINT("Any information on this disk will be lost.")
  10.         CLEAR_BOXES
  11.         DIALOG_BOX(1,0,13,1,"  Press [ENTER] to continue  ",20,5,112,112,1,116,15)
  12.         DIALOG_BOX(2,0,27,2,"  Press [ESC] to abort  ",20,49,112,112,1,116,15)
  13.         DISPLAY ON
  14.         GET(Choice$,2)
  15.         IF COMPARE(Choice$,1) THEN
  16.                 SHELL("FORMAT A: /S")
  17.                 DISPLAY OFF
  18.                 SCREEN(3,RESTORE)
  19.                 QPRINT("Creating CONFIG.SYS and AUTOEXEC.BAT files...",15,-1,143,7)
  20.                 DISPLAY ON
  21.                 OPEN("O",1,"A:\CONFIG.SYS")
  22.                 COMPARE(_Dos$,"500")
  23.                 IF NOT LESS THEN
  24.                         WRITE(1,"SHELL=C:\DOS\COMMAND.COM C:\DOS /P /E:1024")
  25.                         WRITE(1,"DEVICE=C:\DOS\HIMEM.SYS")
  26.                         WRITE(1,"DEVICE=C:\DOS\EMM386.EXE RAM")
  27.                         WRITE(1,"DOS=HIGH")
  28.                 END IF
  29.                 WRITE(1,"FILES=30")
  30.                 WRITE(1,"BUFFERS=30")
  31.                 CLOSE(1)
  32.                 OPEN("O",1,"A:\AUTOEXEC.BAT")
  33.                 WRITE(1,"@ECHO OFF")
  34.                 WRITE(1,"CLS")
  35.                 WRITE(1,"VER")
  36.                 WRITE(1,"PATH=@PATH@")
  37.                 WRITE(1,"SET COMSPEC=C:\COMMAND.COM")
  38.                 WRITE(1,"SET PROMPT=$p: ")
  39.                 WRITE(1,_Drive$)
  40.                 WRITE(1,"CD ",NO_CR)
  41.                 WRITE(1,_Current$,NO_CR)
  42.                 WRITE(1,".")
  43.                 WRITE(1,"1ST")
  44.                 CLOSE(1)
  45.                 DISPLAY OFF
  46.                 SCREEN(3,RESTORE)
  47.                 QPRINT("@READER@ has created a 'boot disk' for you.",13,9,143,7)
  48.                 QPRINT("")
  49.                 QPRINT("Use this disk to make available as much free memory as possible")
  50.                 QPRINT("for @READER@.  Insert this disk when you wish to use @READER@")
  51.                 QPRINT("and then turn on your computer.  We will now reboot your computer.")
  52.                 CLEAR_BOXES
  53.                 DIALOG_BOX(1,0,27,1,"  Press [ENTER] to continue  ",20,39,112,112,1,116,15)
  54.                 DISPLAY ON
  55.                 GET(Choice$,1)
  56.                 BOOT
  57.         END IF
  58.         EXIT
  59.  
  60.