.key DISKTITLE/A
.bra {
.ket }

Set title "{DISKTITLE}"

Copy C:Format to RAM:
Copy C:Makedir to RAM:

cd RAM:
Echo " "
Echo "                 MakeDisk v2.0 by Michael Richmond"
Echo " "
Echo "Please remove this disk and insert a BLANK disk in drive Df0:"
Ask  "Then press RETURN"
Echo " "

Format DRIVE Df0: NAME $title NOICONS

Echo " "
Echo "Now I am creating your sample drawers..."

; ***************** ENTER YOUR SAMPLE DRAWERS HERE *************************

Makedir Df0:Bass
Makedir Df0:Chords
Makedir Df0:Drums+Percussion
Makedir Df0:Lead
Makedir Df0:SoundFX
Makedir Df0:SynthSounds
Makedir Df0:Vocals
Makedir "Df0:MakeDisk is ©1993 M. Richmond"

; ************************ END SAMPLE DRAWERS ******************************



Echo " "
Echo "Finished!"

Lab remove
Ask "Please insert the "No Sampler?" disk then press RETURN"
cd SYS:
Delete >NIL: RAM:Format
Delete >NIL: RAM:Makedir

Echo : :
Echo "OK, please read No Sampler? Part 2 in TI issue 3 or from the No Sampler?"
Echo "Utilities disk version 1.2 for more information"
Echo " "
Ask "Press RETURN, then click the right mouse button to return to the menu"

Endcli

; DELETE ENDCLI IF YOU WANT MAKEDISK TO RUN FROM ANOTHER DISK

; ***************************************************************************
; * WARNING If the text below this line is moved or modified in any way, it *
; * is a breach of copyright and you could be liable for prosecution due to *
; *               copyright infringement!  LEAVE IT!                        * 
; ***************************************************************************

; MakeDisk is ©1993 Michael Richmond and may only be distributed in an
; unmodified form and on the No Sampler? Utilities disk.  Feel free to
; reconfigure MakeDisk to your own requirements but PLEASE do not distribute
; MakeDisk except in the original form.  Send me any good remixes you come
; up with and the bet will be included on the next release of No Sampler?
; Utilities.
;
; Send your remixes, bug finds, ideas etc. to...
;
; 	Michael Richmond
;	 86, Station Road,
;	  Hessle,
;	   North Humberside,
;	    HU13 OBG.
; **************************************************************************