home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 8 / CDASC08.ISO / NEWS / 2306 / TMODULES / DEMO.BAT < prev    next >
DOS Batch File  |  1993-10-07  |  4KB  |  141 lines
  1. @ECHO OFF
  2. :debut
  3. TCLS 7 0
  4. TMSG 2 Bienv.txt
  5. TCLS 8 1
  6. TWRITE 2 2 9 1 Il y a~
  7. TWRITE -1 -1 10 1 10
  8. TWRITE -1 -1 9 1 ~modules dans cette compilation.
  9. TWRITE 2 3 9 1 Ce sont : *~
  10. TWRITE -1 -1 10 1 TWRITE
  11. TWRITE -1 -1 9 1 ~--- Ecrire un texte de n'importe quelle couleur à n'importe
  12. TWRITE 2 4 9 1 quel endroit de l'écran.
  13. TWRITE 12 5 9 1 *
  14. TWRITE -1 -1 10 1 ~TMSG
  15. TWRITE -1 -1 9 1 ~--- Afficher une boîte de message OUI/NON ou OK.
  16. TWRITE 12 6 9 1 *
  17. TWRITE -1 -1 10 1 ~TMDP
  18. TWRITE -1 -1 9 1 ~--- Saisie d'un mot de passe. Sirène bloquant l'ordinateur.
  19. TWRITE 12 7 9 1 *
  20. TWRITE -1 -1 10 1 ~TLIST
  21. TWRITE -1 -1 9 1 ~--- Affichage d'une boîte de sélection.
  22. TWRITE 12 8 9 1 *
  23. TWRITE -1 -1 10 1 ~TINPUT 
  24. TWRITE -1 -1 9 1 ~--- Saisie d'un texte de longueur variable. Affecté à une
  25. TWRITE 2 9 9 1 variable d'environnement DOS.
  26. TWRITE 12 10 9 1 *
  27. TWRITE -1 -1 10 1 ~TFOND
  28. TWRITE -1 -1 9 1 ~--- Création d'une image de fond à partir d'un texte.
  29. TWRITE 12 11 9 1 *
  30. TWRITE -1 -1 10 1 ~TCLS
  31. TWRITE -1 -1 9 1 ~--- Efface l'écran avec une couleur prédéfinie.
  32. TWRITE 12 12 9 1 *
  33. TWRITE -1 -1 10 1 ~TCADRE
  34. TWRITE -1 -1 9 1 ~--- Comme son nom l'indique (tracé de cadre pleins).
  35. TWRITE 12 13 9 1 *
  36. TWRITE -1 -1 10 1 ~TPAUSE
  37. TWRITE -1 -1 9 1 ~--- Comme son nom l'indique (Attente d'une touche).
  38. TWRITE 12 14 9 1 *
  39. TWRITE -1 -1 10 1 ~TGOTO
  40. TWRITE -1 -1 9 1 ~--- Positionner le curseur à l'écran
  41. TWRITE 2 17 14 1 Pour accélérer, il pourrait être avantageux de placer tous les modules sur un
  42. TWRITE 2 18 14 1 disque virtuel (RAMDRIVE.SYS).
  43. TPAUSE Une touche ....
  44. TFOND 1 0 Démo des modules
  45. TMSG 2 1.txt
  46. TFOND 1 0 Démo des modules
  47. TMSG 2 2.txt
  48. TFOND 1 0 Démo des modules
  49. TMDP 2 coucou
  50. TFOND 1 0 Démo des modules
  51. TMSG 2 3.txt
  52. :menu
  53. TFOND 1 0 Démo des modules
  54. TLIST lstdemo.def
  55. If errorlevel 5 goto suite
  56. If errorlevel 4 goto config
  57. If errorlevel 3 goto auto
  58. If errorlevel 2 goto chk
  59. If errorlevel 1 goto dir
  60. :dir
  61. TCLS 9 1
  62. Dir C:\ /W/P
  63. TPAUSE Une touche pour le menu de démo ....
  64. Goto menu
  65. :chk
  66. TCLS 9 1
  67. CHKDSK C:
  68. TPAUSE Une touche pour le menu de démo ....
  69. Goto menu
  70. :auto
  71. TCLS 9 1
  72. Type c:\autoexec.bat
  73. TPAUSE Une touche pour le menu de démo ....
  74. Goto menu
  75. :config
  76. TCLS 9 1
  77. Type c:\config.sys
  78. TPAUSE Une touche pour le menu de démo ....
  79. Goto menu
  80.  
  81. :suite
  82. TFOND 1 0 Démo des modules
  83. TMSG 1 sur.txt
  84. If Errorlevel 2 goto menu
  85. TFOND 1 0 Démo des modules
  86. TMSG 2 4.txt
  87. TFOND 1 0 Démo des modules
  88. TCADRE 20 10 40 5 11 7
  89. TWRITE 22 11 5 7 Entrez le nom d'un fichier :
  90. TINPUT 26 27 13 1 3 
  91. TFOND 1 0 Démo des modules
  92. TMSG 2 5.txt
  93. TCLS 3 1
  94. TWRITE 2 1 14 1 Appel de SAISIE.BAT :
  95. TWRITE -1 -1 9 1 ~CALL SAISIE.BAT
  96. Call saisie.bat
  97. TWRITE 1 3 3 1 @ECHO OFF
  98. TWRITE 1 4 3 1 SET TVAR=%tvar%
  99. TWRITE 2 6 14 1 Visualisation des variables d'environnements :
  100. TWRITE -1 -1 9 1 ~SET
  101. TGOTO 1 8
  102. Set
  103. TPAUSE Une touche pour la suite ....
  104. TCLS 3 1
  105. TWRITE 2 1 14 1 Utilisation de TVAR :
  106. TWRITE -1 -1 9 1 ~TYPE %%TVAR%%
  107. TGOTO 1 3
  108. Type %tvar%
  109. TPAUSE Une touche pour continuer la démo ....
  110. TFOND 1 0 Démo des modules
  111. TMSG 2 6.txt
  112. TCLS 7 0
  113. TPAUSE Une touche pour la couleur suivante ....
  114. TCLS 7 1
  115. TPAUSE Une touche pour la couleur suivante ....
  116. TCLS 7 2
  117. TPAUSE Une touche pour la couleur suivante ....
  118. TCLS 7 3
  119. TPAUSE Une touche pour la couleur suivante ....
  120. TCLS 7 4
  121. TPAUSE Une touche pour la couleur suivante ....
  122. TCLS 7 5
  123. TPAUSE Une touche pour la couleur suivante ....
  124. TCLS 7 6
  125. TPAUSE Une touche pour la couleur suivante ....
  126. TCLS 7 7
  127. TPAUSE Une touche pour continuer la démo ...
  128. TFOND 14 4 Fini !!
  129. TMSG 1 reprend.txt
  130. If errorlevel 2 Goto fin
  131. Goto debut
  132. :fin
  133. TCLS 7 0
  134. Echo Merci d'utiliser les T-Modules. L'aide en ligne pour chaque module est
  135. Echo accessible en ne tapant aucun paramètre à part le nom du module sur la ligne
  136. Echo de commande DOS.
  137. Echo .
  138. Echo Ce logiciel est un SHAREWARE. Si vous décidez de l'utiliser, n'oubliez pas de
  139. Echo payer la licence de 90 FF. Vous trouverez un formulaire à imprimer dans le
  140. Echo fichier LICENCE.FRM.
  141.