/* Disk Builder */

/* no error checking */

fname = "Disk.dsk"                         /* File name     */

noblk = 53790                              /* Number blocks */

byttb = x2c('00')                          /* Byte table    */

error = open(outfile,fname,'W')

buffr = ""

do i = 1 to 512
   buffr = buffr""byttb                    /* Build a block */
end

do i = 1 to noblk
   error = writech(outfile,buffr)          /* Write disk    */
end

call close outfile