SUBROUTINE VTMENU BYTE REP C------ Texte du menu -------------------------------------------------------- 10 CALL VTMCUR(1,1) CALL VTERAS(2) CALL VTTEXT(0,1,1,1,' MENU de VTLIB') CALL VTTEXT(0,0,3,1,' Les choix possibles sont :') CALL VTTEXT(1,0,7,1,' "E" pour lancer l''EXEMPLE') CALL VTTEXT(1,0,9,1,' ou "D" pour consulter la 1 DOCUMENTATION') C------ Saisie du choix ------------------------------------------------------ CALL VTELIN(2,16) CALL VTDBLW(1) CALL VTMCUR(15,5) CALL ASKS('Votre CHOIX',REP,1,1) C------ Traitement du choix -------------------------------------------------- IF (REP.EQ.'E') CALL VTEX IF (REP.EQ.'E') RETURN IF (REP.EQ.'D') CALL VTDOC IF (REP.EQ.'D') RETURN C------ Traitement des erreurs ----------------------------------------------- CALL VTTEXT(2,0,23,1,'Reponse incorrecte. Essayer a nouveau.') CALL ISLEEP(0,0,2,0) GO TO 10 END