Re: SALFORD ERROR?

Here's the code for a Hello World program using Fortran 77
and the Silverfrost "Clearwin" system:

OPTIONS (INTL)
WINAPP
PROGRAM HELLO
INCLUDE <WINDOWS.INS>
INTEGER IA
IA=WINIO@('%ca[Windows program]%cnHello World&')
IA=WINIO@('%2nl%cn%10bt[Quit]')
END

Could hardly be simpler. You get a Window with a title bar captioned
"Windows program", the message "Hello World", centred, and a "Quit" button,
also centralised on the line below. (Hints: %ca - caption; %cn - centre it;
%2nl - 2 new lines; %10bt - button 10 units wide).

The "nagging" screen appears with the free personal edition (which in every
other respect is the same as the commercial product) for a few seconds
when the program is run.

Not only do you get Clearwin, you also get the complete .NET windows
interface, which you have to run in conjunction with some other Microsoft
stuff. I think you haven't got the MS .NET stuff properly installed, which
is why
you get the DBK_LINK message. FWIW I can't understand all the .NET
stuff and just ignore it.

This is the above code modified to include a simple editable text string:

OPTIONS (INTL)
WINAPP
PROGRAM HELLO
INCLUDE <WINDOWS.INS>
INTEGER IA
CHARACTER*40 TEXT
TEXT='1234567890abcdefghij1234567890abcdefghij'
IA=WINIO@('%ca[Windows program]%cnEdit me: &')
IA=WINIO@('%40rs&',text)
IA=WINIO@('%2nl%cn%10bt[Done]')
WRITE(*,*) TEXT
END

Hmmmm .... not good on graphical interfaces? There's a steep learning curve
for the complicated stuff, but for simple windows, it's easy.

Eddie B


.

Quantcast