requestchoice "Capital Punishment Make Boot Disk Utility" "Please insert a floppy disk into the drive DF0:*N*NWARNING: The disk will be formatted and all the data*Non it will be erased!"  PROCEED|ABORT

IF $RESULT EQ 1
        cd >ENV:CPdirectory
        echo "*NIMPORTANT NOTE: DO NOT REMOVE the disk from"
        echo "         the drive until prompted*N"

        echo "Press RETURN to continue ... *N"


        format >NIL: drive DF0: name CapitalBOOT noicons FFS
        inst DF0: FFS
        makedir CapitalBOOT:s

        copy quote ram:tmp1
        echo $CPdirectory NOLINE >>ram:tmp1
        type quote >>ram:tmp1
        echo execute cp >>ram:tmp1
        
        echo "cd " NOLINE >ram:tmp2
        type ram:tmp1 >>ram:tmp2
        copy ram:tmp2 to CapitalBOOT:s/startup-sequence
        
        
        wait 2
        
        echo "You can now remove the disk from DF0:*N"
        wait 5
        endcli
ENDIF