{ ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ ßßß ßßß ßßßßß ßß ßß ßßßß ßßßß ßß ßß ßß ßß ßß ßßß ßß ßßßßßßß ßßß ÉÍÍ ËÍ» ÉÍ» ËÍ» Ë Ë Ë ÉÍ» ÉÍ» ßß ß ßß ßß ßß ßß ßß º Ë Ì˼ Ì͹ Ìͼ Ì͹ º º ÈÍ» ßß ßß ßß ßß ßß ßß Èͼ ÊÈÍ Ê Ê Ê Ê Ê Ê Èͼ Èͼ ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ The MAX Graphics GUI Kit is Copyright 1995-Current Larry L. Athey (LA-Soft). Color Averaging procedures are courtesy of Sean Price (Rude Dog Software). ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ INTERFACE TYPE SB_Information = RECORD {Be sure you set these before using the SB!!} IRQ : STRING[2]; {Sound card port IRQ. } DMA : STRING[2]; {Sound card DMA channel. } Address : STRING[3]; {Sound card port address with no "$". } END; VAR SB : SB_Information; {SoundBlaster settings record variable. } HomeDir : STRING[80]; {Current program home directory. } ResPath : STRING[80]; {Resource Path. } SesPath : STRING[80]; {Session Path. } DownPath1 : STRING[80]; {System download path. } DownPath2 : STRING[80]; {System download path backup. } ScrStr : STRING; {String that holds the current script command.} ScreenDone : BOOLEAN; {Becomes TRUE upon the End_Screen() command. } UseSB : BOOLEAN; {Use SoundBlaster? [Y/N] } MouseOn : BOOLEAN; {Should the mouse cursor be on? [Y/N] } TextFile : TEXT; {Text file created by Start_Text_File(). } PROCEDURE PlayButtonSound(FName : STRING); {^ Plays a button sound file attachment. } PROCEDURE ShutDownSvga; {^ Shuts down the SVGA interface and returns to 80x25x16 text mode. } PROCEDURE RestartSvga; {^ Restarts the SVGA interface after a call to ShutDownSvga. } PROCEDURE Execute(FName : STRING); {^ Executes an external program. } PROCEDURE DropToDOS; {^ Temporarily shells to the command prompt. } PROCEDURE WriteSystemInfo; {^ This procedure writes the SYSTEM.NFO file. } PROCEDURE IndexResources; {^ This procedure is used to create a local resource list. } PROCEDURE ShowRemoteScreen(FName : STRING); {^ Called by the Show_Remote_Screen() MAX command. } PROCEDURE CheckControlLine(Command : STRING); {^ This procedure is used to check a text string to see if it matches one of the predefined MAXscript commands. } PROCEDURE CheckScriptLine(Command : STRING); {^ This procedure is used to check a text string to see if it matches one of the predefined MAXcontrol commands. } PROCEDURE CheckColorCommand(Command : STRING); {^ This procedure is used to check a text string to see if it matches one of the predefined MAXcolor commands. } {ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ}