PR [\; Definitions du sous ensemble compatible LOGOWRITER (31 8 98 )] if not namep "workdir[make "workdir " ] keyboardon [if 19 = keyboardvalue[halt]] define "nondisp [[][pr [Non disponible en MSWLOGO]]] make "&prim[] make "prim[] TO lib :&% :&& :n er :&% push "&prim :&% pprop "&en :&% :&& pprop "&fr :&& :&% define :&% (list list [&x] :n (list ".maybeoutput "apply word char 34 :&& ":&x) ) END bury[lib] TO DICO :&1 :&2 if not memberp :&1 :&prim [push "&prim :&1 ] pprop "&en :&1 :&2 pprop "&fr :&2 :&1 END TO range :& :&l if emptyp :&l [op (list :&)] if beforep :& first :&l [op fput :& :&l] op fput first :&l range :& bf :&l END bury[range] make "&configpers "false MAKE "REDEFP "TRUE to COPIEDEF :&1 :&2 [:&dico "true] if :&dico [DICO :&1 :&2] if :&1 = :&2 [stop] if not procedurep :&2 [stop] erase :&1 copydef :&1 :&2 end TO long_filename :out_name localmake "fix_name first :out_name repeat (count :out_name)- 1 [make "fix_name (word :fix_name char 32 ~ item repcount + 1 :out_name)] op list(:fix_name ) end copydef "dialogfileopen2 "dialogfileopen er "dialogfileopen to dialogfileopen :&pat op (listlong_filename dialogfileopen2 :&pat) end copydef "dialogfilesave2 "dialogfilesave er "dialogfilesave to dialogfilesave :&pat op (listlong_filename dialogfilesave2 :&pat) end COPIEDEF "étiquette "label COPIEDEF "égal? "equalp COPIEDEF "écrisnoms "pons COPIEDEF "écris "pr COPIEDEF "écrans "NONDISP COPIEDEF "écranp "NONDISP COPIEDEF "écnoms "pons COPIEDEF "éc "pr COPIEDEF "vt "Cleartext ERASE "ct ;copiedef "fxyz "setxyz ;copiedef "fz "setz lib "coorz "zcor 1 copiedef "poly.def "polystart copiedef "poly.fin "polyend copiedef "poly.af "polyview ;copiedef "FPOSXYZ "setposxyz copiedef "POSXYZ "posxyz copiedef "POS "pos copiedef "versxyz "towardsxyz copiedef "INCLINAISON "roll copiedef "CABREMENT "pitch copiedef "FINCLINAISON "setroll copiedef "FCABREMENT "setpitch lib "FORIENTATION "setorientation 1 copiedef "ID "rightroll copiedef "CABRE "uppitch copiedef "IG "leftroll copiedef "PIQUE "downpitch ;COPIEDEF "vp "NONDISP COPIEDEF "vide? "emptyp ;COPIEDEF "vg "cs COPIEDEF "vers "TOWARDS COPIEDEF "vc "CLEARTEXT ;COPIEDEF "trouvé? "NONDISP ;COPIEDEF "trouve? "NONDISP ;COPIEDEF "toutes "NONDISP ;COPIEDEF "tournepage "NONDISP ;COPIEDEF "touche? "NONDISP ;PROC "tortuerapide ;PROC "tortuelente COPIEDEF "tap "TYPE ;PROC "tab ;COPIEDEF "sélectionné "NONDISP ;COPIEDEF "sélecte "NONDISP ;PROC "stoptout dico "stop "stop COPIEDEF "sp "BF ;COPIEDEF "sinterligne "NONDISP dico "sin "sin ;PROC "si ;COPIEDEF "selectionne autre (Selectionne une image) ;COPIEDEF "selecte "NONDISP COPIEDEF "sd "bl ;COPIEDEF "sauvetexte "NONDISP ;PROC "sauvepage ;PROC "sauveimage (autre) COPIEDEF "saufpremier "BF COPIEDEF "saufdernier "BL COPIEDEF "répète "repeat COPIEDEF "rg "vg COPIEDEF "reste "REMAINDER ;PROC "restaure COPIEDEF "repete "REPEAT ;COPIEDEF "renomme "NONDISP ;COPIEDEF "remplace "NONDISP ;COPIEDEF "recycle "NONDISP COPIEDEF "recule "BK ;COPIEDEF "recto? "NONDISP ;COPIEDEF "re "bk to re :& bk :& end COPIEDEF "rcarrée "sqrt COPIEDEF "rcarree "SQRT COPIEDEF "rac "sqrt COPIEDEF "rapporte "OP ;COPIEDEF "ramènetexte "NONDISP ;COPIEDEF "ramèneimage "NONDISP COPIEDEF "ramène "load ;COPIEDEF "ramenetexte "NONDISP COPIEDEF "rameneimage "BITLOAD lib "ficone "icon 1 lib "eficone "unicon 1 copiedef "ficône "icon copiedef "eficône "unicon COPIEDEF "ramene "LOAD COPIEDEF "ra "OP ;COPIEDEF "quittepage "NONDISP ;COPIEDEF "qui "turtle ;COPIEDEF "quand "NONDISP COPIEDEF "premier "FIRST ;COPIEDEF "pr "NONDISP COPIEDEF "pour "TO COPIEDEF "POUR "TO ;COPIEDEF "postexte "NONDISP ;COPIEDEF "poscurseur "NONDISP dico "pos "pos COPIEDEF "phrase "SE COPIEDEF "ph "SE ;COPIEDEF "peins "FILL COPIEDEF "ou "OR COPIEDEF "or2 "OR COPIEDEF "origine "HOME ;COPIEDEF "ombrage "NONDISP ;PROC "np ;COPIEDEF "nouvellepage "NONDISP ;PROC "non ;PROC "nommepage lib "nomme "name 1 COPIEDEF "nombre? "NUMBERP COPIEDEF "nom? "NAMEP ;COPIEDEF "nettoie "CLEAN TO nettoie make "&selvis "false clean END COPIEDEF "mt "ST COPIEDEF "mp "FPUT COPIEDEF "mot? "WORDP COPIEDEF "mot "WORD ;PROC "MONTRENOMS (A ECRIRE) COPIEDEF "montre "SHOW COPIEDEF "moins "MINUS COPIEDEF "metspremier "FPUT COPIEDEF "metsdernier "LPUT COPIEDEF "membre? "MEMBERP COPIEDEF "md "LPUT ;COPIEDEF "mc "NONDISP ;COPIEDEF "manette "NONDISP ;COPIEDEF "longtexte "NONDISP ;COPIEDEF "llcc "NONDISP ;PROC "ll ;COPIEDEF "listepages "NONDISP ;COPIEDEF "listeoutils "NONDISP ;COPIEDEF "listeindex "NONDISP ;COPIEDEF "listefichiers "NONDISP copiedef "LM "rw copiedef "LISMOT "rw COPIEDEF "liste? "LISTP COPIEDEF "liste "LIST COPIEDEF "lislistecc "RL COPIEDEF "lisliste "RL ;PROC "liscar ;COPIEDEF "lc "PU ;COPIEDEF "LI "PU dico "item "item ;COPIEDEF "insère "NONDISP COPIEDEF "insere "TYPE ;COPIEDEF "index "NONDISP ;COPIEDEF "imécran "NONDISP ;COPIEDEF "imtexte80 "NONDISP ;COPIEDEF "imtexte "NONDISP ;COPIEDEF "imecran "NONDISP COPIEDEF "identique? ".EQ ;COPIEDEF "ic "PENREVERSE COPIEDEF "hasard "RANDOM COPIEDEF "rehasard "RERANDOM ;COPIEDEF "gc "PENERASE ;COPIEDEF "bg "PENERASE COPIEDEF "gauche "LT ;COPIEDEF "ga "LT ;COPIEDEF "fy "SETY ;COPIEDEF "fx "SETX ;COPIEDEF "fvirgule "NONDISP ;COPIEDEF "fpostexte "NONDISP ;COPIEDEF "fpos "SETPOS ;COPIEDEF "fpoint "NONDISP ;COPIEDEF "formes "NONDISP ;COPIEDEF "forme "NONDISP ;PROC "fond ;COPIEDEF "finpage "NONDISP ;COPIEDEF "findex "NONDISP ;COPIEDEF "fforme "NONDISP ;PROC "ffond ;COPIEDEF "fdl "NONDISP ;COPIEDEF "fdisque "NONDISP ;COPIEDEF "fcouleurtexte "NONDISP ;PROC "fcouleur ;COPIEDEF "fcap "SETHEADING ;COPIEDEF "exécute "NONDISP (sans accent) COPIEDEF "execute "RUN ;COPIEDEF "etiquette "LABEL (COPIEDEF "OR2 "OR "false) (COPIEDEF "AND2 "AND "false) DEFINE "AND [[[X] 2] [OP APPLY "AND2 MAP [MEMBERP ? [TRUE VRAI]] :X]] DEFINE "OR [[[X] 2] [OP APPLY "OR2 MAP [MEMBERP ? [TRUE VRAI]] :X]] COPIEDEF "ET "AND COPIEDEF "OU "OR ;COPIEDEF "estampe "NONDISP ;COPIEDEF "espace "NONDISP COPIEDEF "ENTIER "INT ;COPIEDEF "enliste "NONDISP COPIEDEF "egal? "EQUALP ;COPIEDEF "efév "NONDISP ;COPIEDEF "efpage "NONDISP ;COPIEDEF "efoutils "NONDISP lib "efnoms "ERNS 1 lib "efnom "ERN 1 copiedef "ef "er ;COPIEDEF "efindex "NONDISP ;COPIEDEF "effichier "NONDISP ;COPIEDEF "efface "NONDISP ;COPIEDEF "efev "NONDISP lib "ecrisnoms "PONS 1 COPIEDEF "EC "PR COPIEDEF "ecris "PR ;COPIEDEF "ecrans "NONDISP ;COPIEDEF "ecranp "NONDISP lib "ecnoms "PONS 1 ;COPIEDEF "désélecte "NONDISP ;COPIEDEF "désigne "NONDISP ;COPIEDEF "débutpage "NONDISP ;COPIEDEF "débarre "NONDISP COPIEDEF "droite "RT ;COPIEDEF "dr "RT ;COPIEDEF "dp "NONDISP COPIEDEF "dos "BYE ;PROC "donnepage ;COPIEDEF "donneoutils "NONDISP ;COPIEDEF "donneformes "NONDISP COPIEDEF "donne "MAKE dico "distance "distance ;COPIEDEF "disque "NONDISP ;COPIEDEF "dinterligne "NONDISP ;COPIEDEF "df "NONDISP ;COPIEDEF "designe "NONDISP ;COPIEDEF "deselecte "NONDISP COPIEDEF "dernier "LAST ;COPIEDEF "demande "NONDISP ;COPIEDEF "debutpage "NONDISP ;COPIEDEF "debarre "NONDISP ;COPIEDEF "de "NONDISP ;COPIEDEF "ddl "NONDISP ;COPIEDEF "dc "NONDISP COPIEDEF "ct "HT ;COPIEDEF "créeindex "NONDISP ;COPIEDEF "creeindex "NONDISP ;COPIEDEF "coupe "NONDISP ;COPIEDEF "couleurtexte "NONDISP ;PROC "couleursous ;PROC "couleur dico "cos "cos ;COPIEDEF "copiefichier "NONDISP ;COPIEDEF "copie "NONDISP lib "coory "YCOR 0 lib "coorx "XCOR 0 COPIEDEF "contenu "CONTENTS ;différent COPIEDEF "compte "COUNT ;COPIEDEF "colle "NONDISP COPIEDEF "chose "THING ;COPIEDEF "cherche "NONDISP ;COPIEDEF "chacune "NONDISP ;COPIEDEF "carsouscur "NONDISP ;COPIEDEF "carsous "NONDISP COPIEDEF "car "CHAR ;COPIEDEF "cap "HEADING ;PROC "bouton? ;COPIEDEF "bc "PD ;COPIEDEF "barre "NONDISP ;COPIEDEF "babillard "NONDISP COPIEDEF "avance "FD ;COPIEDEF "av "FD to av :& fd :& end COPIEDEF "attends "WAIT ; LES TEMPS SONT DIFFERENTS dico "ascii "ascii ;PROC "arrondis dico "arctan "arctan ;COPIEDEF "ac "NONDISP dico "\> "\> dico "\= "\= dico "\< "\< dico "\/ "\/ ;PROC ".version ;COPIEDEF ".transmets "NONDISP ;COPIEDEF ".reçois "NONDISP ;COPIEDEF ".recois "NONDISP ;COPIEDEF ".primitives "NONDISP ;COPIEDEF ".examine "NONDISP ;COPIEDEF ".dépose "NONDISP dico "\- "\- dico "\+ "\+ dico "\* "\* ; dico "\) "\) ; dico "\( "\( ER "ED pr se char 59 [ Définitions traduites de MSWLOGO] COPIEDEF "RESCONNRECEPTVAL "NETCONNECTRECEIVEVALUE COPIEDEF "RESCONNENVVAL "NETCONNECTSENDVALUE COPIEDEF "RESCONNARRET "NETCONNECTOFF COPIEDEF "RESCONNMARCHE "NETCONNECTON COPIEDEF "RESACCEPTEVENVAL "NETACCEPTSENDVALUE COPIEDEF "RESACCEPTERECEPTVAL "NETACCEPTRECEIVEVALUE COPIEDEF "RESACCEPTEARRET "NETACCEPTOFF COPIEDEF "RESACCEPTEMARCHE "NETACCEPTON COPIEDEF "RESETEINT "NETSHUTDOWN COPIEDEF "RESDEBUT "NETSTARTUP dico "MCI "MCI ;PROC "SON COPIEDEF "SONS "SOUND ;DIFFERENT COPIEDEF "JOUESON "PLAYWAVE ;COPIEDEF "MIDIMESSAGE "MIDIMESSAGE COPIEDEF "MIDIFERME "MIDICLOSE COPIEDEF "MIDIOUVRE "MIDIOPEN COPIEDEF "ZONEACTIVE "ACTIVEAREA COPIEDEF "FZONEACTIVE "SETACTIVEAREA COPIEDEF "BITSAUVE "BITSAVE COPIEDEF "BITCHARGE "BITLOAD COPIEDEF "BITPAVE "BITBLOCK dico "BITMODE "BITMODE COPIEDEF "FBITMODE "SETBITMODE dico "BITINDEX "BITINDEX COPIEDEF "FBITINDEX "SETBITINDEX COPIEDEF "BITAJUSTE "BITFIT ;PROC "BITCOLLE (DEFINI AVEC TORTUE EN HAUT) ;PROC "BITCOPIE (DEFINI AVEC TORTUE EN HAUT) ;PROC "BITCOUPE (DEFINI AVEC TORTUE EN HAUT) COPIEDEF "FEN.ARBRE "DEBUGWINDOWS COPIEDEF "radiobuttonset.old "RADIOBUTTONSET COPIEDEF "BOUTONRADIO.FVAL "RADIOBUTTONSET define "radiobuttonset [[&][radiobuttonset.old or :& = 1 :& = "true] ] COPIEDEF "BOUTONRADIO.VAL "RADIOBUTTONGET COPIEDEF "BOUTONRADIO.EF "RADIOBUTTONDELETE COPIEDEF "BOUTONRADIO.CREE "RADIOBUTTONCREATE COPIEDEF "boutonradio.crée "RADIOBUTTONCREATE COPIEDEF "COCHE.FVAL "CHECKBOXSET COPIEDEF "COCHE.VAL "CHECKBOXGET COPIEDEF "COCHE.EF "CHECKBOXDELETE COPIEDEF "COCHE.CREE "CHECKBOXCREATE COPIEDEF "COCHE.CRéE "CHECKBOXCREATE COPIEDEF "GROUPE.EF "GROUPBOXDELETE COPIEDEF "GROUPE.CREE "GROUPBOXCREATE COPIEDEF "groupe.crée "GROUPBOXCREATE COPIEDEF "STAT.AJOUR "STATICUPDATE COPIEDEF "STAT.EF "STATICDELETE COPIEDEF "STAT.CREE "STATICCREATE COPIEDEF "STAT.CRéE "STATICCREATE COPIEDEF "BOUTON.EF "BUTTONDELETE COPIEDEF "BOUTON.CREE "BUTTONCREATE COPIEDEF "BOUTON.AJOUR "BUTTONUPDATE COPIEDEF "bouton.crée "BUTTONCREATE COPIEDEF "ASCENSEUR.VAL "SCROLLBARGET COPIEDEF "ASCENCEUR.FVAL "SCROLLBARSET COPIEDEF "ASCENSEUR.EF "SCROLLBARDELETE COPIEDEF "ASCENSEUR.CREE "SCROLLBARCREATE COPIEDEF "ASCENSEUR.CRéE "SCROLLBARCREATE COPIEDEF "BOITECOMB.EFLIGNE "COMBOBOXDELETESTRING COPIEDEF "BOITECOMB.INSLIGNE "COMBOBOXADDSTRING COPIEDEF "BOITECOMB.FTEXTE "COMBOBOXSETTEXT COPIEDEF "BOITECOMB.TEXTE "COMBOBOXGETTEXT COPIEDEF "BOITECOMB.EF "COMBOBOXDELETE COPIEDEF "BOITECOMB.CREE "COMBOBOXCREATE COPIEDEF "BOITECOMB.CRéE "COMBOBOXCREATE COPIEDEF "BOITELISTE.EFLIGNE "LISTBOXDELETESTRING COPIEDEF "BOITELISTE.INSLIGNE "LISTBOXADDSTRING COPIEDEF "BOITELISTE.CHOIX "LISTBOXGETSELECT COPIEDEF "BOITELISTE.EF "LISTBOXDELETE COPIEDEF "BOITELISTE.CREE "LISTBOXCREATE COPIEDEF "BOITELISTE.CRéE "LISTBOXCREATE COPIEDEF "BOITEMESSAGE "MESSAGEBOX COPIEDEF "BOITEQUESTION "QUESTIONBOX COPIEDEF "BOITEOUINON "YESNOBOX IF PRIMITIVEP "SELECTBOX [COPYDEF "BOITECHOIX "SELECTBOX] COPIEDEF "DIALOGUE.EF "DIALOGDELETE COPIEDEF "DIALOGUE.CREE "DIALOGCREATE COPIEDEF "DIALOGUE.CRéE "DIALOGCREATE COPIEDEF "FENETRE.EF "WINDOWDELETE COPIEDEF "FENêTRE.EF "WINDOWDELETE COPIEDEF "FENETRE.CREE "WINDOWCREATE COPIEDEF "FENêTRE.CRéE "WINDOWCREATE COPIEDEF "FENêTRE.éDITION "WINDOWFILEEDIT COPIEDEF "FENETRE.EDITION "WINDOWFILEEDIT COPIEDEF "INDEX.EF "RMDIR COPIEDEF "INDEX.CREE "MKDIR COPIEDEF "INDEX.CRéE "MKDIR COPIEDEF "INDEX.PARENT "POPDIR COPIEDEF "INDEX.FVAL "CHDIR COPIEDEF "FINDEX "CHDIR ;COPIEDEF "MONTREFICHIERS "DIR COPIEDEF "AIDEWIN "WINHELP ;COPIEDEF "AIDE "HELP dico ".MACRO ".MACRO lib "TRANSFERE "TRANSFER 3 dico "CASCADE2 "CASCADE2 dico "CASCADE "CASCADE dico "CROSSMAP "CROSSMAP lib "REDUIS "REDUCE 2 lib "TROUVE "FIND 2 lib "FILTRE "FILTER 2 lib "POURTOUS.RA.PH "MAP.SE 2 lib "POURTOUS.RA "MAP 2 lib "POURTOUS "FOREACH 2 lib "INVOQUE "INVOKE 2 COPIEDEF "APPLIQUE "APPLY ;COPIEDEF "ALLER "GO (non implémenté en mswlogo actuellement) lib "JUSQUE "UNTIL 2 lib "FAIRE.JUSQUE "DO.UNTIL 2 lib "TANTQUE "WHILE 2 lib "FAIRE.TANTQUE "DO.WHILE 2 lib "FAIRE.DE_A "FOR 2 dico "IGNORE "IGNORE COPIEDEF ".STOP.RA ".MAYBEOUTPUT ;PROC ".AUREVOIR COPIEDEF "EFTIMER "CLEARTIMER COPIEDEF "FTIMER "SETTIMER ;COPIEDEF "ATTENDS "WAIT dico "HALT "HALT COPIEDEF "FCURSEURATTENTE "SETCURSORWAIT COPIEDEF "TESTEV "EVENTCHECK COPIEDEF "clavier.val "KEYBOARDVALUE COPIEDEF "clavier "KEYBOARDVALUE dico "NOYIELD "NOYIELD dico "YIELD "YIELD dico "CONTINUE "CONTINUE dico "PAUSE "PAUSE ;PROC "ERREUR COPIEDEF "RENVOIE "THROW COPIEDEF "ATTRAPE "CATCH COPIEDEF "RA "OUTPUT ;COPIEDEF "STOP "STOP COPIEDEF "SIVRAI "IFTRUE COPIEDEF "SIFAUX "IFFALSE COPIEDEF "TEST2 "TEST .DEFMACRO "TEST [[&] [OP (SE "TEST2 WORD "" MEMBRE? :& [TRUE VRAI] )]] (COPIEDEF "IFELSE2 "IFELSE "false) .DEFMACRO "SI[[c act1 [act2 []]] [ifelse2 memberp :c [true vrai] [op :act1] [op :act2]]] .DEFMACRO "SISINON [[c act1 act2] [op ifelse2 memberp :c [true vrai] [:act1] [:act2]]] COPIEDEF "NOT2 "NOT DEFINE "NON [[&] [OP NOT2 MEMBERP :& [VRAI TRUE]]] COPIEDEF "IF "SI COPIEDEF "IFELSE "SISINON COPIEDEF "NOT "NON COPIEDEF "COMPTEUR "REPCOUNT COPIEDEF "REPETE "REPEAT COPIEDEF "EXECRESULTAT "RUNRESULT COPIEDEF "EXECUTE "RUN COPIEDEF "FICHIER.OUVRELECT "OPENREAD COPIEDEF "FICHIER.OUVREEC "OPENWRITE COPIEDEF "FICHIER.OUVREAJ "OPENUPDATE COPIEDEF "FICHHIER.FERME "CLOSE COPIEDEF "FICHIER.POSLECT "READPOS COPIEDEF "FICHIER.FPOSLECT "SETREADPOS COPIEDEF "FICHIER.FPOSEC "SETWRITEPOS COPIEDEF "FICHIER.FEC "SETWRITE COPIEDEF "FICHIER.FLECT "SETREAD COPIEDEF "FICHIER.EC "WRITER COPIEDEF "FICHIER.LECT "READER COPIEDEF "ETATTORTUE "STATUS COPIEDEF "NONETATTORTUE "NOSTATUS COPIEDEF "RAMENE "LOAD ;COPIEDEF "SAUVEL "SAVEL ;COPIEDEF "SAUVE "SAVE lib "EDPROP "EDPL 1 dico "EDN "EDN lib "EDPROPS "EDPLS 1 dico "EDNS "EDNS lib "EDPROPS "EDPS 1 lib "EDTOUT "EDALL 0 COPIEDEF "EDITE "EDIT COPIEDEF "NONPAS.A.PAS "UNSTEP COPIEDEF "PAS.A.PAS "STEP COPIEDEF "PROCS.PAS.A.PAS "STEPPED COPIEDEF "NONTRACE "UNTRACE DICO "TRACE "TRACE COPIEDEF "TRACEES "TRACED lib "DETERRENOMS "UNBURYNAME 1 lib "DETERRETOUT "UNBURYALL 0 COPIEDEF "DETERRE "UNBURY lib "ENTERRENOMS "BURYNAME 1 lib "ENTERRETOUT "BURYALL 0 COPIEDEF "ENTERRE "BURY lib "ERPROP "ERPL 1 COPIEDEF "EFN "ERN lib "ERPROPS "ERPLS 1 COPIEDEF "EFNS "ERNS lib "ERPROPS "ERPS 1 lib "EFTOUT "ERALL 0 COPIEDEF "EFFACE "ERASE lib "IMTS "POTS 0 lib "IMT "POT 1 lib "IMPROP "POPL 1 ;PROC "IMN "PON ;PROC "IMPROPS "POPLS ;PROC "IMNS "PONS ;PROC "IMPROPS "POPS ;PROC "IMTOUT "POALL ;PROC "IM "PO lib "LISTPROP "PLLIST 1 lib "LISTENOM "NAMELIST 1 lib "LISTEPROPS "PLISTS 0 lib "NOMS "NAMES 0 dico "PROCEDURES "PROCEDURES COPIEDEF "ENTERREES "BURIED COPIEDEF "ENTERRE "BURY COPIEDEF "CONTENU "CONTENTS COPIEDEF "NOM? "NAMEP COPIEDEF "DEFINIE? "DEFINEDP COPIEDEF "PRIMITIVE? "PRIMITIVEP COPIEDEF "PROCEDURE? "PROCEDUREP COPIEDEF "LPROP "PLIST COPIEDEF "EFPROP "REMPROP COPIEDEF "RPROP "GPROP COPIEDEF "DPROP "PPROP COPIEDEF "CHOSE "THING COPIEDEF "LOCALE "LOCAL lib "soit "LOCALmake 2 ;COPIEDEF "NOMME "NAME COPIEDEF "DONNE "MAKE ;COPIEDEF "TEXTECOMPLET "FULLTEXT COPIEDEF "TEXTE "TEXT COPIEDEF "DEFINIS "DEFINE COPIEDEF "POUR "TO lib "CRAYON "PEN 0 COPIEDEF "CRAYON.TAILLE "PENSIZE COPIEDEF "ECRAN.COULEUR "SCREENCOLOR COPIEDEF "ECRAN.fCOULEUR "SETSCREENCOLOR ; COPIEDEF "BIDON.COULEUR "FLOODCOLOR ; COPIEDEF "CRAYON.COULEUR "PENCOLOR COPIEDEF "MODECRAYON "PENMODE COPIEDEF "BI? "PENDOWNP ;COPIEDEF "BC "PENPAINT COPIEDEF "EFPALETTE "CLEARPALETTE lib "FCRAYON "SETPEN 1 COPIEDEF "FMOTIF "SETPENPATTERN COPIEDEF "CRAYON.FTAILLE "SETPENSIZE ;COPIEDEF "FFOND "SETSCREENCOLOR ; COPIEDEF "BIDON.FCOULEUR "SETFLOODCOLOR ;PROC "FCOULEUR ;COPIEDEF "CRAYON.FCOULEUR "SETPENCOLOR ;COPIEDEF "IC "PENREVERSE ;COPIEDEF "GC "PENERASE ;COPIEDEF "LC "PENUP ;COPIEDEF "BI "PENDOWN COPIEDEF "VISIBLE? "SHOWNP COPIEDEF "EFICONE "UNICON COPIEDEF "FICONE "ICON COPIEDEF "FEN.ACTIVE "GETFOCUS COPIEDEF "FEN.FACTIVE "SETFOCUS COPIEDEF "DECALEY "SCROLLY COPIEDEF "DECALEX "SCROLLX dico "ZOOM "ZOOM copydef "TEXTFONT "LABELFONT copydef "FONT "TEXTFONT COPIEDEF "SETTEXTFONT "SETLABELFONT COPIEDEF "FFONT "SETTEXTFONT COPIEDEF "BARRIERE "FENCE COPIEDEF "FENETRE "WINDOW COPIEDEF "ENROULE "WRAP ;COPIEDEF "2D "WRAP ;COPIEDEF "3D "PERSPECTIVE COPIEDEF "VIDEGRAPHIQUE "CLEARSCREEN COPIEDEF "CACHETORTUE "HIDETURTLE COPIEDEF "MONTRETORTUE "SHOWTURTLE dico "PIXEL "PIXEL ;COPIEDEF "VERS "TOWARDS ;COPIEDEF "cap "HEADING lib "coory "YCOR 0 lib "COORX "XCOR 0 dico "pos "pos copydef "position "pos er "pos LIB "CERCLE "CIRCLE 1 LIB "CERCLE2 "CIRCLE2 1 COPIEDEF "ARC "ARC COPIEDEF "ELLIPSE.ARC "ELLIPSEARC COPIEDEF "ELLIPSE "ELLIPSE LIB "ELLIPSE.ARC2 "ELLIPSA2 4 ;COPIEDEF "FCAP "SETHEADING ;COPIEDEF "ORIGINE "HOME ;COPIEDEF "FY "SETY ;COPIEDEF "FX "SETX ;COPIEDEF "FXY "SETXY ;COPIEDEF "FPOS "SETPOS to fpos :& setpos :& end COPIEDEF "DROITE "RIGHT COPIEDEF "GAUCHE "LEFT COPIEDEF "RECULE "BACK COPIEDEF "AVANCE "FORWARD COPIEDEF "EFBITMAP "NOBITMAPTURTLE COPIEDEF "FBITMAP "BITMAPTURTLE COPIEDEF "TORTUE "TURTLE ; COPIEDEF "FTORTUE "SETTURTLE to ftortue :& setturtle :& end COPIEDEF "BITDECALEG "LSHIFT COPIEDEF "BITDECALEL "LSHIFT COPIEDEF "BITDECALEA "ASHIFT COPIEDEF "BITDECALSIGNE "ASHIFT COPIEDEF "BITNON "BITNOT COPIEDEF "BITOUEX "BITXOR COPIEDEF "BITOU "BITOR COPIEDEF "BITET "BITAND ;COPIEDEF "FORM "FORM COPIEDEF "FHASARD "RERANDOM COPIEDEF "HASARD "RANDOM COPIEDEF "PLUSGRAND? "GREATERP COPIEDEF "PLUSPETIT? "LESSP dico "RADARCTAN "RADARCTAN dico "ARCTAN "ARCTAN dico "RADCOS "RADCOS dico "COS "COS dico "RADSIN "RADSIN dico "SIN "SIN dico "LN "LN dico "LOG10 "LOG10 dico "EXP "EXP COPIEDEF "PUISSANCE "POWER ;COPIEDEF "RCARREE "SQRT ;COPIEDEF "ARRONDIS "ROUND COPIEDEF "ENTIER "INT COPIEDEF "RESTE "REMAINDER dico "QUOTIENT "QUOTIENT COPIEDEF "PRODUIT "PRODUCT ;COPIEDEF "MOINS "MINUS dico "DIFFERENCE "DIFFERENCE COPIEDEF "SOMME "SUM COPIEDEF "TEMPS "TIME COPIEDEF "TEMPSmilli "TIMEmilli COPIEDEF "SYNTAXE.EXECUTE "RUNPARSE COPIEDEF "SYNTAXE "PARSE COPIEDEF "MAJUSCULE "UPPERCASE COPIEDEF "MINUSCULE "LOWERCASE COPIEDEF "MEMBRE "MEMBER COPIEDEF "CAR "CHAR dico "RAWASCII "RAWASCII dico "ASCII "ASCII COPIEDEF "COMPTE "COUNT COPIEDEF "ANTISLASH? "BACKSLASHEDP COPIEDEF "NOMBRE? "NUMBERP COPIEDEF "CONTENUE? "SUBSTRINGP COPIEDEF "MEMBRE? "MEMBERP ;COPIEDEF "IDENTIQUE ".EQ COPIEDEF "AVANT? "BEFOREP ;COPIEDEF "EGAL? "EQUALP ;COPIEDEF "VIDE? "EMPTYP COPIEDEF "TABLEAU? "ARRAYP COPIEDEF "LISTE? "LISTP COPIEDEF "MOT? "WORDP dico "DEQUEUE "DEQUEUE dico "QUEUE "QUEUE lib "DEPILE "POP 1 lib "EMPILE "PUSH 2 COPIEDEF ".FITEM ".SETITEM COPIEDEF ".FSP ".SETBF COPIEDEF ".FPREMIER ".SETFIRST lib "MDFITEM "MDSETITEM 3 COPIEDEF "FITEM "SETITEM dico "QUOTED "QUOTED lib "ENLEVEDUPL "REMDUP 2 lib "ENLEVE "REMOVE 2 lib "enlève "remove 2 lib "TIRE "PICK 1 lib "MDITEM "MDITEM 2 dico "ITEM "ITEM ;COPIEDEF "SD "BUTLAST ;COPIEDEF "SPS "BUTFIRSTS ;COPIEDEF "SAUFPREMIER "BUTFIRST ;COPIEDEF "DERNIER "LAST COPIEDEF "PREMIERS "FIRSTS ;COPIEDEF "PREMIER "FIRST dico "GENSYM "GENSYM lib "INVERSE "REVERSE 1 dico "COMBINE "COMBINE lib "TABLEAUVERSLISTE "ARRAYTOLIST 1 lib "LISTEVERSTABLEAU "LISTTOARRAY 1 lib "MDTABLEAU "MDARRAY 1 COPIEDEF "TABLEAU "ARRAY COPIEDEF "MD "LPUT COPIEDEF "MP "FPUT COPIEDEF "PH "SENTENCE COPIEDEF "LISTE "LIST COPIEDEF "MOT "WORD .macro if :c :act1 [:act2 []] ifelse2 memberp :c [true vrai] [op :act1] [op :act2] end .macro ifelse :c :act1 :act2 op ifelse2 memberp :c [true vrai] [:act1] [:act2] end .macro if :c :act1 [:act2 []] ifelse2 memberp :c [true vrai] [op :act1] [op :act2] end .macro ifelse :c :act1 :act2 op ifelse2 memberp :c [true vrai] [:act1] [:act2] end .macro test :& OP ( SE "TEST2 WORD "" MEMBRE? :& [TRUE VRAI] ) end to et [:X] 2 OP APPLY "AND2 MAP [MEMBERP ? [TRUE VRAI]] :X end to ou [:X] 2 OP APPLY "OR2 MAP [MEMBERP ? [TRUE VRAI]] :X end to or [:X] 2 OP APPLY "OR2 MAP [MEMBERP ? [TRUE VRAI]] :X end to and [:X] 2 OP APPLY "AND2 MAP [MEMBERP ? [TRUE VRAI]] :X end to not :& OP NOT2 MEMBERP :& [VRAI TRUE] end make "&primen[] foreach :&prim[push "&primen gprop "&en ?] buryall save "C:ok ERASEFILE "C:OK cleartext load word :workdir "frlogo.lgo