SOURCE CODE "DR KARLS MACHINE ROBOT PHYSICS TEACHER

The machine Dr Karl commissioned by saying the fiat words" BUILD THE MACHINE."
Mr. Jeffrey,

As you requested in your last E-Mail,

Dear Gary Rob,
I wnat you to give me the source code for the updated BEYOND 2000 PHYSICS KNOWLEDGE CARDS application.
I want to give the source code to me to give to Dr Karl Kruselnicki for possible supercomputer applications at WASP.
It is a do it yourself kit to program Supercomputers in Western Australia which use my theory...
This is very important Rob I need the source code.
I got burned before with another program for which I didn't get the source code now I can't put it into new languages.
If possible could you also write it in basic when I pay you the rest of the money.
Basic is the all purpose language....... and can be converted into anything else.
That is if you are good with visual basic.
Steve A Jeffrey

Here is the source code for the updates of the Physics Knowledge Cards.



unit uMain;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ExtCtrls, Menus;

type
TForm1 = class(TForm)
Panel1: TPanel;
Panel2: TPanel;
Button1: TButton;
Button2: TButton;
Edit1: TEdit;
Edit2: TEdit;
Image1: TImage;
Label1: TLabel;
Label2: TLabel;
Button3: TButton;
Button4: TButton;
Button5: TButton;
MainMenu1: TMainMenu;
Hlep1: TMenuItem;
contents1: TMenuItem;
Index1: TMenuItem;
N1: TMenuItem;
wwwcjwcom1: TMenuItem;
N2: TMenuItem;
About1: TMenuItem;
File1: TMenuItem;
Contents2: TMenuItem;
Index2: TMenuItem;
N3: TMenuItem;
wwwcjwcom2: TMenuItem;
N4: TMenuItem;
About2: TMenuItem;
procedure Button1Click(Sender: TObject);
procedure Edit2KeyPress(Sender: TObject; var Key: Char);
procedure Button2Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure About1Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

uses About, Unit3, Unit4;

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
Edit1.ReadOnly := false;
Edit2.ReadOnly := false;
Button2.Caption := '&Store Equation in File';
end;


procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
if (Key = #13) then
begin
Label1.Caption := Edit1.Text;
Label2.Caption := Edit2.Text;
end;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
TFile : TextFile;

begin
AssignFile(TFile, 'physics.txt');
Reset(TFile);
Append(TFile);
Writeln(TFile, Edit1.Text);
Writeln(TFile, Edit2.Text);
Writeln(TFile, ' ');
Flush (TFile);
CloseFile(TFile);

Button2.Caption := 'Done';
Edit1.ReadOnly := true;
Edit2.ReadOnly := true;
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
Close;
end;

procedure TForm1.About1Click(Sender: TObject);
begin
Form2.ShowModal;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
Form3.Show;
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
Form4.Show;
end;

end.



unit Unit3;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ExtCtrls;

type
TForm3 = class(TForm)
Panel1: TPanel;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Panel2: TPanel;
Image1: TImage;
Image2: TImage;
Image3: TImage;
Button4: TButton;
Button5: TButton;
Button6: TButton;
Button7: TButton;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Shape1: TShape;
Shape2: TShape;
Shape3: TShape;
procedure Button3Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure Button6Click(Sender: TObject);
procedure Button7Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
function ActivateCard(pThisCard : integer) : boolean;
end;

type
TPlrCard = class
public
Name : string;
Expression : string;

constructor Create;
end;

type
TDisplay = class
public
Activated : boolean;

constructor Create;
end;

var
Form3: TForm3;
PlrCard : array[1..55] of TPlrCard;
Display : array[1..4] of TDisplay;

implementation

uses uMain, Unit4;

{$R *.DFM}

constructor TPlrCard.Create;
begin
end;

constructor TDisplay.Create;
var
i : integer;

begin
{set Display cards to false}
for i := 1 to 3 do
begin
Display[i].Activated := false;
end;

{read in values for the Plrcards}

{SetUpPlrCards;}
end;

procedure TForm3.Button3Click(Sender: TObject);
begin
Form1.Close;
end;

procedure TForm3.Button1Click(Sender: TObject);
begin
Form1.Show;
end;

procedure TForm3.Button2Click(Sender: TObject);
begin
Form4.Show;
end;


procedure TForm3.Button5Click(Sender: TObject);
begin
Display[1].Activated := ActivateCard(1);
end;


procedure TForm3.Button6Click(Sender: TObject);
begin
Display[2].Activated := ActivateCard(2);
end;

procedure TForm3.Button7Click(Sender: TObject);
begin
Display[3].Activated := ActivateCard(3);
end;

function TForm3.ActivateCard(pThisCard : integer) : boolean;
var
i : integer;

begin
if Display[pThisCard].Activated = true then
begin
if (pThisCard <> 4 ) then
Display[pThisCard].Activated := false;
case pThisCard of
1: Shape1.Brush.Color := clTeal;
2: Shape2.Brush.Color := clTeal;
3: Shape3.Brush.Color := clTeal;
4: begin
for i := 1 to 3 do
begin
Display[i].Activated := false;
end;
Shape1.Brush.Color := clTeal;
Shape2.Brush.Color := clTeal;
Shape3.Brush.Color := clTeal;
end;
end;
end
else
begin
Display[pThisCard].Activated := true;
case pThisCard of
1: Shape1.Brush.Color := clYellow;
2: Shape2.Brush.Color := clYellow;
3: Shape3.Brush.Color := clYellow;
4: begin
for i := 1 to 3 do
begin
Display[i].Activated := true;
end;
Shape1.Brush.Color := clYellow;
Shape2.Brush.Color := clYellow;
Shape3.Brush.Color := clYellow;
end;
end;
end;
Result := Display[pThisCard].Activated;
end;

end.

Lastly, your CD is in the mail. I have mailed it on the 12th of October. However, the mailing fees were pretty hefty this time at $72.00. This has caused me to cease future CD mailing until the project is done (even if you do volunteer to pay for the postage and handling fees yourself) Therefore, all future updates will be E-mailed to your E-Mail address or through Kasamba. The final product will be delivered on CD, when we have agreed that the work is complete. The price will be included in the already agreed upon sum of $350.00

My best wishes for our Mutual Success,
Amanda Dearheart

FOREWORD WALTER SPUNDE MATHS DEPT USQ.

At long last I found the time to dig through a portion of the mess in my tiny room here and find your typescript.It is ( obviously) enclosed herewith.
A harvard professor once chided a post graduate student who was particularly protective of his new found results.
"If you have got anything really original,"he told him "don't worry about hiding it: you'' have the devils own job to get anyone even just to listen".People aren't interested, and hence don't have time for original ideas.They only have time for things that will advance their careers,make them money or make them more comfortable.Original ideas seldom do any of those things.Books and ppers that extend well known ideas build the reputions and careers of others associated with those ideas.New ideas help no one.So it is a hard road to which you have set your foot.

To have an original idea is one thing,to have an original approach is even worse,but to get an idea across to people who don't want to hear is something else again that requires time and infinite patience.To try to get a new idea across using a new approach is to bang ones head against a brick wall.
Best wishes and good luck.
Walter Spunde.