//Written in Error BASIC™ (Win3.1)
//© Microsoft Corp.
!Use DOS
function LoadDOS {DOS$ { command.com | copy.com | del.com | format.com | autoexec.bat | rename.com | xcopy.com | crash.com | country.sys | edit.com } }
function LoadGUI {If DOS=1 then {DrawWin(Main) Call Functions}Else Error{if errorlvl=1 !#Crash! | if errorlvl=2 Msg "Fatal Error! Contact Microsoft" | if errorlvl=3 Msg "Windows 95 is now released - Buy it - Win3.1 will not work any more."}
function Functions {DOS$ !Use Files { command.com | copy.com | del.com | format.com | autoexec.bat | rename.com | xcopy.com | crash.com | country.sys | edit.com }Command.com[main] | copy.com[Copy,'Copy Files'] | del.com[Delete, 'Delete Files'] | format.com[Format, 'Format'] | rename.com[Rename, 'Rename Files'] | crash.com[!command] | "*"[!crash,'Unknown']}
function END {ShutDown(Main) | if errorlvl=1 !crash}
init DOS
Call LoadGUI
!if errorlvl=4 Call END