#***************************************************************

# Notepad.fun

# This file was created to display how functions are used

# by the Phantom interpreter

# Copyright (C) 2000 - John C. Van Arsdall

#*************************************************************** 

function void StartNotepad()

{

System("Notepad.exe");

return;

} 

function void MoveNotepad(int Pos)

{

use "Notepad.dec"; # dec file included here

Notepad.MoveWin(Pos, Pos);

return;

} 

function void ResizeNotepad(int x, int y)

{

use "Notepad.dec"; # dec file included here

int ctr;

for(ctr = 0; ctr < 10; ctr++)

{

if(ctr > 5)

{

y = y + ctr;

x = x + ctr; 

Notepad.ResizeWin(x, y);

}

}

return;

} 

function bool OpenNotepad()

{

use "Notepad.dec"; # dec file included here

bool Ret = true;

StartNotepad();

Notepad.File.Open___.Select();

Open.Cancel.Click();

return Ret;

} 

function void NotepadLog(string In)

{

string sLog;

string sNpad = "Notepad---";

sLog = Concat(sNpad,In);

Log(sLog);

return;

}

########### END OF FILE #################