home *** CD-ROM | disk | FTP | other *** search
/ 17 Bit Software 2: Collection B / 17Bit_Collection_B.iso / files / 1794.dms / in.adf / Autoboot.AMOS / Autoboot.amosSourceCode next >
Encoding:
AMOS Source Code  |  1992-02-26  |  1005 b   |  32 lines
  1. '
  2. ' AUTOBOOT disc creator
  3. '
  4. Unpack 10 To 0
  5. Wait Key 
  6. FILE: F$=Fsel$("","","Choose a program to autoboot")
  7. If F$="" Then End 
  8. '
  9. Screen Open 1,640,64,2,Hires
  10. Screen Display 1,,160,,
  11. Colour 1,$FFF
  12. Curs Off 
  13. '
  14. Rem check whether you've already installed this disc 
  15. If Exist("Df0:S/startup-sequence.old") Then Goto OLD_DISC
  16. Centre "Renaming original startup-sequence file"
  17. Print 
  18. Centre "I'll use the name startup_sequence.old"
  19. Rename "df0:S/startup-sequence" To "df0:S/Startup-sequence.old"
  20. Print : Print : Print 
  21. OLD_DISC: Centre "If you make a mistake and install the WRONG disc "
  22. Print : Centre 'Type rename "Df0:S/startup_sequence" to "df0:S/old" '
  23. Print : Centre 'rename "df0:S/startup-sequence.old" to "df0:S/startup-sequence"'
  24. Print : Print 
  25. Rem create a new start-up sequence 
  26. Print "Installing ";F$
  27. Open Out 1,"Df0:S/startup-sequence"
  28. Rem don't change this. The extra space is VITAL! 
  29. Print #1,"Run >NIL: ";F$;Chr$(10);
  30. Print #1,"Endcli";Chr$(10);
  31. Close 1
  32. Print : Bell : Print "Installation complete!"