home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 16 / 16.iso / t / t138 / 1.img / INITPREP.MAC < prev    next >
Encoding:
Text File  |  1986-07-21  |  2.6 KB  |  47 lines
  1. ;    Disk Initialization Batch file for HardPrep
  2. ;    (C)Copyright 1986 Hexis Design
  3. ;    Last Update:    July 21,1986
  4.  
  5. @SetExitCode 27 @IFerror MacStart @IFescKey StdAbort BEGIN @GOTO MacStart
  6. :MacStart @SETarg4 1 @IFarg1eq DRIVE2 InitDriveTwo @IFarg2eq DRIVE2 InitDriveTwo
  7. @IFarg3eq DRIVE2 InitDriveTwo @Goto WeHaveDriveNum :InitDriveTwo @SETarg4 2
  8. :WeHaveDriveNum @IFarg1eq AUTOCON DriveIsTyped @IFarg2eq AUTOCON DriveIsTyped
  9. @IFarg3eq AUTOCON DriveIsTyped @NOT @IFmenu T DriveIsTyped 
  10. @IFerror StdAbort T @IFmenu @ARG4 OKtoPickDrive @IFerror StdAbort @CLEARMENU
  11. @Message 4 5 "              You MUST define drive one before drive Two"
  12. @Goto WaitAbort :OKtoPickDrive @IFerror BIOSnotActive @ARG4 @IFmenu
  13. ManualParams NoMFGhelp @KEYEND @Message 7 5
  14. "                    Please select the drive manufacturer" :NoMFGhelp
  15. @Input @IFmenu T WaitAbort @Input T 1 @KEYESC @NOT
  16. @IFmenu D BIOSnotActive @Goto DriveIsTyped :TypeError 
  17. @IFmenu T TERRonMain @KEYESC @IFmenu T TERRonMain @KEYESC :TERRonMain
  18. @NOT @IFmenu D BIOSnotActive @Goto StdAbort 
  19. :DriveIsTyped @IFerror WaitAbort @IFarg4eq 1 OnDrive @IFmenu N CanXchgDrive
  20. @IFerror StdAbort @ClearMenu
  21. @Message 4 5 "                      Unable to select drive TWO" @Goto WaitAbort
  22. :CanXchgDrive N :OnDrive @IFerror WaitAbort
  23. @IFarg1eq AUTOCON DoLockout @IFarg2eq AUTOCON DoLockout @IFarg3eq AUTOCON
  24. DoLockout @Goto DoLowLevel :DoLowLevel @IFerror MenuError I S Y
  25. @IFerror NULL @LevelInput @IFmenu StandardInit StdAbort @KEYRIGHT @input @KEYCR
  26. @Goto NormalExit :DoLockout @IFerror MenuError I L Y @IFerror NULL
  27. @LevelInput @Goto NormalExit :WaitAbort @Message 5 5
  28. "                        PRESS ANY KEY TO ABORT " @SETarg3 @UserKey @Goto
  29. StdAbort :BIOSnotActive @CLEARMENU @Message 10 5 " " @Message 11 5 " "
  30. @Message 12 5 " HardPrep is unable to communicate to the Controller,"
  31. @Message 13 5 " This is most likely due to the use of an AT-clone"
  32. @Message 14 5 " " @Message 15 5 " To Continue with the initialization:"
  33. @Message 16 5 " " @Message 17 5
  34. " 1)  Place your DOS system diskette into drive A:"
  35. @Message 18 5 " 2)  Reboot the computer--press <Ctrl><Alt><Del>"
  36. @Message 19 5 " 3)  Re-insert the SpeedStor diskette into drive A:"
  37. @Message 20 5 " 4)  Restart this initialization procedure"
  38. @Message 21 5 " " @Message 22 5 " " @Message 23 5 " "
  39. @Message 15 5 " To Continue with the initialization: " :InfLoop
  40. @SETarg3 @UserKey @NOT @IFarg3eq @KEYESC InfLoop :REWIND @Goto StdAbort
  41. :MenuError @IFerror StdAbort @Message 24 5
  42. "**ERROR** Menu Unaccessible, press any Key to Abort" @SETarg3
  43. @UserKey :StdAbort @SetExitCode 27 @KEYESC @KEYESC @KEYESC @KEYESC @KEYESC
  44. :NormalExit @SetExitCode 0 quit @KEYESC @KEYESC @KEYESC
  45.  
  46. ; THE END
  47.