// This file is <Alto>PeekDisk.cm
// Last modified February 12, 1979  2:33 AM by Boggs

// Delete empty DMT.boot created by OS Erase disk procedure
Delete DMT.boot

// Build a bare disk
Ftp.run Maxc Directory/c Alto ↑
Retrieve/s PeekUser.cm User.cm ↑
Retrieve/c InstallSwat.Run Sys.syms

// Install Swat under the new system:
InstallSwat
Delete InstallSwat.run

// Boot (to get Swat files noticed by system):
BootFrom Sys.boot

// Get and install Bravo:
Ftp.run Maxc Directory/c Alto ↑
Retrieve/c Bravo.run Bravo.error Bravo.messages ↑
Empress.run <Fonts>Fonts.widths <AltoFonts>Gacha10.al
Bravo/I

// Get the Peek files:
Ftp.run Maxc Directory/c Alto ↑
Retrieve/c Peek.run PeekSum.run ↑

Delete PeekDisk.cm