(DEFUN find-record (nom)
    (FOR ALL Table DO
        (IF (= Nom nom) (RETURN Table))
    )
)

(HALT)

(ERROR fmt [arg ...])

(STR expr)

(MEMO expr)

(INT expr)

(REAL expr)

(DATE expr)

(TIME expr)

(AND [expr ...])

(OR [expr ...])

(NOT expr)

(op expr1 expr2)

(CMP expr1 expr2)

(MAX [expr ...)]

(MIN [expr ...)]

(+ expr ...)

(- expr1 expr2 ...)

(1+ expr)

(1- expr)

(* expr ...)

(/ expr1 [expr2 ...])

(DIV int1 int2)

(MOD int1 int2)

(ABS expr)

(TRUNC reel)

(ROUND reel décimales)

(RANDOM expr)

(POW x y)

(SQRT x)

(EXP x)

(LOG x)

(LEN str)

(LEFTSTR str long)

(RIGHTSTR str long)

(MIDSTR str pos long)

(SETMIDSTR str index set)

(INSMIDSTR str index insert)

(INDEXSTR str substr)

(INDEXBRK str listecar)

(RINDEXSTR str substr)

(RINDEXBRK str listecar)

(REPLACESTR str [recherché1 remplaçant1 ...])

(REMCHARS str car-à-supprimer)

(TRIMSTR str [début fin])

(WORD str num)

(WORDS str)

(FIELD str num [sep [quotes]])

(FIELDS str [sep [quotes]])

(STRTOLIST str [sep])

(LISTTOSTR liste [sep])

(CONCAT [str ...])

(CONCAT2 insert [str ...])

(COPYSTR str num)

(SHA1SUM str)

(UPPER str)

(LOWER str)

(ASC str)

(CHR entier)

(LIKE str1 str2)

(SPRINTF fmt [expr ...])

%[drapeaux][largeur][.precision]type

(LINE memo num)

(LINES memo)

(MEMOTOLIST memo [expandstr])

(LISTTOMEMO list)

(FILLMEMO memo)

(FORMATMEMO memo longueur [bourrage [secmonoligne]])

(INDENTMEMO memo indentation)

(DAY date)

(MONTH date)

(YEAR date)

(DATEDMY jour mois année)

(MONTHDAYS mois année)

(YEARDAYS année)

(ADDMONTH date mois)

(ADDYEAR date années)

(TODAY)

(NOW)

(CONS elem list)

(LIST [elem ...])

(LENGTH list)

(FIRST list)

(REST list)

(LAST list)

(NTH n list)

(APPEND [list ...])

(REVERSE list)

(MAPFIRST func list [...])

(SORTLIST func list)

(DEFUN cmp_str (x y)
    (COND
        ((< x y) -1)
        ((> x y) 1)
        (TRUE 0)
    )
)

(SORTLIST cmp_str (LIST "salut" "excellent" "grand" "ok"))

(SORTLISTGT gtfunc list)

(ASKFILE title oktext default savemode)

(ASKDIR title oktext default savemode)

(ASKSTR title oktext default maxlen [secret])

(ASKINT title oktext default min max)

(ASKCHOICE titre oktext choix defaut [titres])

(LET ((items (LIST "Première entrée" 2 3.14 "Dernière entrée")) index)
    (SETQ index (ASKCHOICE "Choisissez un article" "Ok" items NIL))
    (IF index
        (PRINTF "l'utilisateur a choisi l'article numérique %i avec le contenu <%s>\n"
            index (STR (NTH index items))
        )
    )
)

(LET ((requete (SELECT Article, Nom, Quantite, Prix from Article 
                  WHERE (> Prix 10) ORDER BY Nom))
     (enregs (MAPFIRST FIRST (REST query)))       ; pointeurs d'enregistrement
     (elements (MAPFIRST REST (REST query)))      ; choix
     (titres (REST (FIRST query)))                ; titres
     (index (ASKCHOICE "Sélectionnez" "Ok" items NIL titles))
     (elem (NTH index enregs))) 
     ; maintenant elem contient l'enregistrement choisi (ou NIL si annulation)
)

(ASKCHOICESTR titre oktext chaines defaut [titres])

(LET ((chaines (LIST "Claudia" "Mats" "Ralphie")) prefere)
    (SETQ prefere
        (ASKCHOICESTR "Qui préférez-vous?" "Ok" chaines
        "Mes Colley !"
    )
    )
    (IF prefere (PRINTF "l'utilisateur a choisi <%s>\n" prefere))
)

(ASKOPTIONS titre oktext options selectionnes [titres])

(LET ((options (LIST "Salva Mea" "Insomnie" "n'attendez pas" "7 jours & 1 semaine"))
        (choisis (LIST 0 1 3))
    )
    (SETQ choisis (ASKOPTIONS "Titre de musique choisi" "Ok" options choisis))
    (IF choisis
        (
            (PRINTF "L'utilisateur a choisi les articles suivants :\n")
            (DOLIST (i choisis)
                (PRINTF "\tnum: %i contenu : <%s>\n" i (STR (NTH i options)))
            )
        )
    )
)

(ASKBUTTON title text buttons canceltext)

(LET ((boutons (LIST "à la maison" "Dans le lit" "Devant mon ordinateur")) index)
    (SETQ index (ASKBUTTON "répondez s'il vous plaît :"
        "Où vous voulez être demain ?" boutons "ne sait pas")
    )
    (IF index
        (PRINTF "l'utilisateur a choisi : <%s>\n" (NTH index boutons))
    )
)

(ASKBUTTON "Info" "MUIbase est grand !" NIL NIL)

(ASKMULTI title oktext itemlist)

(ASKMULTI "Veuillez répondre :" NIL (LIST
    (LIST "N_om" "String" "")
    (LIST "_Naissance" "Date" NIL)
    (LIST "_Sexe" "Choice" 0 (LIST "homme" "femme"))
    (LIST "Possède _voiture ?" "Bool" NIL)
    (LIST "_Aime" "Options" (LIST 0 2)
        (LIST "Bière" "Vin" "Whisky" "Wodka" "Schnaps")
    ))
)

(FOPEN nomfichier mode [encodage])

(FCLOSE file)

(PRINT elem)

(PRINTF format [expr ...])

(FPRINTF file format [expr ...])

(FERROR file)

(FEOF file)

(FSEEK file offset whence)

(FTELL file)

(FGETCHAR file)

(FGETCHARS num file)

(FGETSTR file)

(FGETMEMO file)

(FPUTCHAR str file)

(FPUTSTR str file)

(FPUTMEMO memo file)

(FFLUSH fichier)

(NEW table init)

(NEW* table init)

(DELETE table confirm)

(DELETE* table confirm)

(DELETEALL table[*])

(GETMATCHFILTER rec)

(SETMATCHFILTER rec on)

(GETISSORTED rec)

(SETISSORTED rec on)

(RECNUM record)

(COPYREC rec source)

(ATTRNAME attr)

(MAXLEN string-attr)

(GETLABELS attr)

(SETLABELS attr str)

(TABLENAME table)

(GETORDERSTR table)

(SETORDERSTR table Tri)

(REORDER table)

(REORDERALL table)

(GETFILTERACTIVE table)

(SETFILTERACTIVE table bool)

(GETFILTERSTR table)

(SETFILTERSTR table filter-str)

(SETFILTERACTIVE Table NIL)               ; réussit toujours.
(IF (NOT (SETFILTERSTR Table filter-string))
    (ERROR "ne peut pas placer le champ filtre pour %s!" (TABLENAME Table))
)
(IF (NOT (SETFILTERACTIVE Table TRUE))
    (ERROR "ne peut pas activer le filtre pour %s!" (TABLENAME Table))
)

(RECORDS table)

(RECORD table num)

(SELECT [DISTINCT] exprlist FROM tablelist
        [WHERE where-expr] [ORDER BY orderlist])

exprlist:     * | expr "titre", ...

tablelist:      table[*] [ident], ...

orderlist:    expr [ASC | DESC], ...

(SETCURSOR attr-or-table)

(SETBGPEN attr pen)

(GETWINDOWOPEN attr-or-table)

(SETWINDOWOPEN attr-or-table open)

(GETVIRTUALLISTACTIVE virtual-attr)

(SETVIRTUALLISTACTIVE virtual-attr num)

(PROJECTNAME)

(PREPARECHANGE)

(CHANGES)

(GETADMINMODE)

(ADMINPASSWORD)

(EDIT filename)

(VIEW filename)

(SYSTEM fmt [arg ...])

(STAT filename)

(TACKON dirname [component ...])

(FILENAME path)

(DIRNAME path)

(MESSAGE fmt [arg ...])

(COMPLETEMAX steps)

(COMPLETEADD add)

    (SETQ num ...)
    (COMPLETEMAX num)
    (DOTIMES (i num)
        (COMPLETEADD 1)
    )

(COMPLETE cur)

    (COMPLETE 10)
    ...
    (COMPLETE 50)
    ...
    (COMPLETE 100)

(GC)

(PUBSCREEN)

(DEFUN map (l fun)              # arguments: list and function
    (LET (res)                  # local variable res, initialized with NIL
        (DOLIST (i l)           # for all items one by one
            (SETQ res
                (CONS (FUNCALL fun i) res)       # calls function and
            )                                    # build new list
        )
        (REVERSE res)           # we need to reverse the new list
    )
)

(LET (x:INT (y:REAL 0.0) z) ...)

(DEFUN foo (x:INT) ...)

(LET (foo:Foo))

(SETQ foo (RECORD Foo 3)) (PRINT foo.Bar)

(func [expr ...])

([expr ...])

Table

Table*

AttrPath

var

var.AttrPath

(DEFUN onOpen ()
    (ASKBUTTON NIL "Merci de m'ouvrir !" NIL NIL)
)

(DEFUN onClose ()
    (ASKBUTTON NIL "Au revoir !" NIL NIL)
)

(DEFUN onAdminMode (admin)
    (IF admin
        (ASKBUTTON NIL "Maintenant en mode administrateur" NIL NIL)
        (ASKBUTTON NIL "Revenu en mode utilisateur" NIL NIL)
    )
)

(DEFUN onChange ()
    (SETQ Control.NumChanges (CHANGES))
)

(DEFUN logLabel ()
    Control.CurrentUser.Name
)

(DEFUN nouvelEnregistrement (init)
    (PROG1                      ; pour renvoyer le résultat de NEW
        (NEW Table init)
        ...
    )
)

(DEFUN supprimerEnregistrement (confirmation)
    (DELETE Table confirmation)
)

(DEFUN cmpPersonnes (rec1:Personnes rec2:Personnes)
    (CMP rec1.Nom rec2.Nom)
)

(DEFUN cmpJouets (rec1:Jouets rec2:Jouets)
    (CMP* rec1.Proprietaire rec2.Propriétaire)
)

(DEFUN setNom (nouvelleValeur)
    (SETQ Personnes.Nom nouvelleValeur)
    (FOR ALL Jouets WHERE (= Jouets.Proprietaire Personnes) DO
        (SETISSORTED Jouets NIL)
    )
    (REORDER Jouets)
)

(DEFUN setMontant (montant)
    (IF une-expression
        (SETQ Table.Montant montant)
        (ASKBUTTON NIL "Valeur Invalide !" NIL NIL)
    )
    Table.Montant                       ; retourne la valeur courante
)

(DEFUN buttonHook ()
    champ-virtuel
)

(SETQ champ-virtuel expr)

(DEFUN activeObjet ()
    (GETVIRTUALLISTACTIVE champ-liste-virtuel)
)

(DEFUN personDescription ()
(LIST Person.Name Person.Birthday)
)

(DEFUN declencheurDoubleClic (lig col enr:Table)
    ...
)

(DEFUN doubleClickTrigger (lig col enr)
    (COND
        ((RECP Table1 enr) (SETQ Table1 enr) ...)
        ((RECP Table2 enr) (SETQ Table2 enr) ...)
        ...
    )
)

(DEFUN declencheurDoubleClic (lig col)
    (PRINT (NTH col (NTH lig attr-virtuel)))
)

(DEFUN calculerEtiquettes ()
    "Tokyo\nMunich\nLos Angeles\nRome"
)

(DEFUN calculerEnregistrementsFemme ()
    (SELECT Personen FROM Personne WHERE Femme)
)