home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
AMOS PD CD
/
amospdcd.iso
/
351-375
/
apd373
/
autoboot.amos
/
autoboot.amosSourceCode
next >
Wrap
AMOS Source Code
|
1993-03-15
|
1KB
|
32 lines
'
' AUTOBOOT disc creator
'
Unpack 10 To 0
Wait Key
FILE: F$=Fsel$("","","Choose a program to autoboot")
If F$="" Then End
'
Screen Open 1,640,64,2,Hires
Screen Display 1,,160,,
Colour 1,$FFF
Curs Off
'
Rem check whether you've already installed this disc
If Exist("Df0:S/startup-sequence.old") Then Goto OLD_DISC
Centre "Renaming original startup-sequence file"
Print
Centre "I'll use the name startup_sequence.old"
Rename "df0:S/startup-sequence" To "df0:S/Startup-sequence.old"
Print : Print : Print
OLD_DISC: Centre "If you make a mistake and install the WRONG disc "
Print : Centre 'Type rename "Df0:S/startup_sequence" to "df0:S/old" '
Print : Centre 'rename "df0:S/startup-sequence.old" to "df0:S/startup-sequence"'
Print : Print
Rem create a new start-up sequence
Print "Installing ";F$
Open Out 1,"Df0:S/startup-sequence"
Rem don't change this. The extra space is VITAL!
Print #1,"Run >NIL: ";F$;Chr$(10);
Print #1,"Endcli";Chr$(10);
Close 1
Print : Bell : Print "Installation complete!"