Tak z ciekawosci nie dali na pokazowce demo wersji kompilatora + przyklady ?
Niby mozna sciagnac z internetu wersje demo 5.5 (nie wiem ale wydaje mi sie ze to staroc ?!).
Dzis jak chce sie nowych klientow w jezykach sciagnac ... wystarczy popatrzec jak MS sie wciska z darmowkami ... a to i tak nie gwarancja sukcesu.
pacam przyklady ze starocia
! The Ubiquitous Hello World Program
PROGRAM
INCLUDE('EQUATES.CLW')
win WINDOW('Clarion Database Developer for Windows'),AT(44,77,160,60),SYSTEM,MAX
MENUBAR
ITEM('E&xit'),USE(?exit),LAST,MSG('Exit')
END
TOOLBAR
BUTTON('Exit'),AT(0,0,25,14),USE(?exit2)
END
STRING('Yet Another Hello World Program'),AT(4,9,109,10),LEFT
END
CODE
OPEN(win)
ACCEPT
CASE ACCEPTED()
OF ?exit
BREAK
OF ?exit2
BREAK
.
.
CLOSE(win)
fragment kodu jak to wygladalo (cos z bazy cos z funkcji)
,'Błąd!',Icon:Exclamation|
,Button:OK,Button:OK,0))
END
END
!--------------------------------------------------
RIUpdate:Normy FUNCTION(Passed:Buffer)
Process:Buffer LIKE(NOR:Record),PRE(RP),OVER(Passed:Buffer)
Current:Buffer LIKE(NOR:Record),PRE(RC)
Current:Position STRING(512)
CODE
Current:Position = POSITION(NOR:ID_key)
Current:Buffer = NOR:Record
LOGOUT(2,Normy)
REGET(NOR:ID_key,Current:Position)
IF ERRORCODE()
a i o clarionie (kiedys bylo gdzie indziej) ale nadal jest
http://www.citforum.ru/programming/clarion/index.shtml