home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 16 / 16.iso / t / t138 / 1.img / INITPART.MAC < prev    next >
Encoding:
Text File  |  1986-07-21  |  3.2 KB  |  52 lines
  1. ;    Batch file for PartEd (SpeedStor II)
  2. ;    Copyright (c) 1986 Hexis Design, Los Gatos CA
  3. ;    Last Update: July 21,1986
  4.  
  5. @SetExitCode 27 @IFerror TypeFailure @IFescKey StdAbort BEGIN @GOTO MacStart
  6. :MacStart @SETarg4 1 @IFarg1eq DRIVE2 InitDriveTwo @IFarg2eq DRIVE2 InitDriveTwo
  7. @IFarg3eq DRIVE2 InitDriveTwo @GOTO WeAreOnDrive :InitDriveTwo @SETarg4 2
  8. @NOT @IFmenu N NoDriveTwo @IFerror TypeFailure N :WeAreOnDrive
  9. @IFarg1eq DOSEXT ProcDOSEXT @IFarg2eq DOSEXT ProcDOSEXT @IFarg3eq DOSEXT ProcDOSEXT
  10. @GOTO ProcNORMAL :ProcNORMAL @NOT @IFarg4eq 1 PNafterBoot @NOT @IFmenu
  11. C PNafterBoot C @NOT @IFmenu B PNescAfterBoot C @SETarg3 2 @IFmenu 2
  12. PNtryLargeBoot @SETarg3 3 @IFmenu 3   PNhaveAsize @SETarg3 4 @IFmenu 4
  13. PNhaveAsize @SETarg3 L :PNhaveAsize @KEYESC C B @Arg3 @GOTO PNdoBootFmt
  14. :PNtryLargeBoot @KEYESC C B L @NOT @IFmenu C PNdoBootFmt D 1 Y C B 2
  15. @GOTO PNdoBootFmt :PNdoBootFmt @IFerror FMTerror F 1 Y @KEYCR
  16. @GOTO PNafterBoot :PNescAfterBoot @KEYESC :PNafterBoot
  17. :PNcompLoop @NOT @IFmenu C PNdone C C @SETarg3 2 @IFmenu 2 PNtryLargeComp
  18. @SETarg3 3 @IFmenu 3 PNhaveCompSize @SETarg3 4 @IFmenu 4 PNhaveCompSize
  19. @SETarg3 L :PNhaveCompSize @Arg3
  20. @GOTO PNdoCompFMT :PNtryLargeComp L @NOT @IFmenu C PNdoCompFMT D @SETarg3 8
  21. @IFmenu 8 PNdelLcomp @SETarg3 7 @IFmenu 7 PNdelLcomp @SETarg3 6 @IFmenu 6
  22. PNdelLcomp @SETarg3 5 @IFmenu 5 PNdelLcomp @SETarg3 4 @IFmenu 4 PNdelLcomp
  23. @SETarg3 3 @IFmenu 3 PNdelLcomp @SETarg3 2 @IFmenu 2 PNdelLcomp
  24. @SETarg3 1 @IFmenu 1 PNdelLcomp @GOTO WaitAbort :PNdelLcomp @Arg3 Y C C 2
  25. :PNdoCompFMT F @SETarg3 8 @IFmenu 8 PNhaveLast
  26. @SETarg3 7 @IFmenu 7 PNhaveLast @SETarg3 6 @IFmenu 6 PNhaveLast
  27. @SETarg3 5 @IFmenu 5 PNhaveLast @SETarg3 4 @IFmenu 4 PNhaveLast
  28. @SETarg3 3 @IFmenu 3 PNhaveLast    @SETarg3 2 @IFmenu 2 PNhaveLast
  29. @SETarg3 1 @IFmenu 1 PNhaveLast @GOTO WaitAbort :PNhaveLast @IFerror FMTerror
  30. @Arg3 Y @KEYCR @GOTO PNcompLoop :REWIND :PNdone @GOTO NormalExit :ProcDOSEXT
  31. @NOT @IFarg4eq 1 EXTafterBoot :EXTsmallBoot @IFerror WaitAbort
  32. C @NOT @IFmenu B EXTescAfterBoot B S @NOT @IFinRange 2 EXTuseLargeBoot
  33. 2 @GOTO EXTdoBootFmt :EXTuseLargeBoot @KEYESC C B L :EXTdoBootFmt     @IFerror
  34. WaitAbort F 1 Y @KEYCR @GOTO EXTafterBoot :EXTescAfterBoot @KEYESC
  35. :EXTafterBoot @NOT @IFmenu C NormalExit
  36. @IFerror NULL C E L D F @SETarg3 8 @IFmenu 8 EXThaveLast @SETarg3 7
  37. @IFmenu 7 EXThaveLast @SETarg3 6 @IFmenu 6 EXThaveLast @SETarg3 5 @IFmenu 5
  38. EXThaveLast @SETarg3 4 @IFmenu 4 EXThaveLast @SETarg3 3 @IFmenu 3 EXThaveLast
  39. @SETarg3 2 @IFmenu 2 EXThaveLast @SETarg3 1 @IFmenu 1 EXThaveLast
  40. @GOTO WaitAbort :EXThaveLast @IFerror FMTerror @ARG3 Yes @KEYCR
  41. @GOTO NormalExit :TypeFailure @IFerror StdAbort @ClearMenu @Message 4 5
  42. "                   Unable to Correctly activate Drive" @Goto WaitAbort
  43. :FMTerror @IFerror StdAbort @ClearMenu @Message 4 5
  44. "                        Partition Format Error" @Goto WaitAbort :NoDriveTwo
  45. @IFerror StdAbort @ClearMenu @Message 4 5
  46. "                       Drive two does NOT exist" @Goto WaitAbort :WaitAbort
  47. @Message 5 5 "                        PRESS ANY KEY TO ABORT " @SETarg3
  48. @UserKey @Goto StdAbort :StdAbort @SetExitCode 27 @KEYESC @KEYESC @KEYESC
  49. @KEYESC @KEYESC :NormalExit @SetExitCode 0 Q @KEYESC @KEYESC @KEYESC
  50.  
  51. ;THE END
  52.