1  ?f<< /lib/file.fs
 2  f<< /xcomp/i386/pc/build.fs
 3  
 4  S" pc.img" mountImage ( drv ) value mydrv
 5  fatopts$
 6  4 to fatopts secperclus
 7  \ 59 sectors is the maximum that fits between $500 and $7c00. We're quite
 8  \ tight on that front... +1 for the MBR
 9  60 to fatopts rsvdsec
10  \ For floppies, you'd want this:
11  \ $12 to fatopts secpertrk
12  \ $02 to fatopts numheads
13  \ $00 to fatopts drvnum
14  mydrv FAT newFAT
15  mydrv FAT :mountvolume value myfat
16  mydrv setupMBR
17  mydrv DriveFile :new $200 over File :seek spitBoot
18  S" /xcomp/i386/pc/init.fs" S" /xcomp/init.fs" myfat combineInit
19  bye