*NRUSTL*        Y   V                                                                                                 POUR M 
VT FCURS [0 5] FCT 7 EC [Pour utiliser le logiciel MINOS:] FCURS [4 7] TAPE [1- Tapez:] FCT 1 TAPE [$  .RES 39000] FCT 7 FCURS [4 9] EC [2- Lorsque le message de bienvenue] FCURS [7 10] EC [ LOGO s'affiche] FCURS [7 11] TAPE [Tapez:] FCT 1 TAPE [$  RAMENE "MINOS] FCT 7 FCURS [4 12] EC [3- Pour lancer le programme,] FCURS [7 13] TAPE [Tapez:] FCT 1 TAPE [$  LABY] FCURS [0 15] FCT 2 EF :L EFN "C EFN "L RECYCLE
FIN

POUR D 
VT FCT 7 FCURS [0 10] TAPE [Patientez quelques instants, fichier $ $ $ "] FCT 1 TAPE [DICO] FCT 7 TAPE [" en cours de chargement...] FCT 2 EF :L EFN "C EFN "L RECYCLE SORTIE 0 RAMENE "DICO SORTIE 1 VT
FIN

POUR I 
VT FCT 7 FCURS [0 10] TAPE [Patientez quelques instants, fichier $ $ $ "] FCT 1 TAPE [SIMINTER] FCT 7 TAPE [" en cours de chargement...] FCT 2 EF :L EFN "C EFN "L RECYCLE SORTIE 0 RAMENE "SIMINTER SORTIE 1 VT
FIN

POUR F 
VT EF :L EFN "C EFN "L RECYCLE
FIN

POUR MENU 
DONNE "L [D M I F MENU QUESTION] VT FCURS [0 5] TAPE MOT CAR 27 CAR 115 FCT 4 TAPE [LOGICIELS LOGO V1.0] FCT 7 TAPE MOT CAR 27 CAR 112 FCURS [0 9] TAPE [1- DICOLOGO] FCURS [0 11] TAPE [2- MINOS] FCURS [0 13] TAPE [3- SIMULATION D'INTERPRETEUR LOGO] FCURS [0 15] TAPE [4- REVENIR A LOGO] FCT 3 FCURS [4 23] TAPE [$(c$) ACT informatique$ $ Paris 1985] QUESTION
FIN

POUR QUESTION 
FCT 1 FCURS [0 19] TAPE [Votre choix?]
DONNE "C LISCAR
FCT 2 SI NON MEMBRE? :C [1 2 3 4] [QUESTION] [EXEC PH ITEM :C :L []]
FIN

POUR EF :A
SI VIDE? :A [EFP "EF STOP] [EFP PREM :A EF SP :A STOP]
FIN

115 FCT 4 TAPE [LOGICIELS LOGO V1.0] FC