home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / batch / library / promptr1 / pmr.bat next >
Encoding:
DOS Batch File  |  1991-06-03  |  8.3 KB  |  256 lines
  1. @echo off
  2. echo off
  3.  
  4. rem    ══╡ PROMPTER ╞══    (c) 1991 W. J. Ball     (requires ANSI.SYS)
  5.  
  6. IF %1%2%3%4%5TR==TR GOTO menu
  7. ECHO  
  8. IF %1==save GOTO save
  9. IF NOT %1==1 IF NOT %1==0 ECHO "%1" is an invalid option. Use "0" or "1".
  10. IF NOT %1==1 IF NOT %1==0 GOTO end
  11. GOTO %2
  12. :combine1
  13. PROMPT %p1% $p $g
  14. SET p1=
  15. GOTO end
  16. :combine2
  17. PROMPT %p1% %3
  18. SET p1=
  19. GOTO end
  20. :dog
  21. set p1=$e[%1m O     O$_    ∞   $_  $_   $e[%1m
  22. IF %3x==x GOTO combine1
  23. GOTO combine2
  24. :bat
  25. set p1=$e[%1m     ^   \ /   ^$_   /   \ ° ° /   \$_ /        "        \ $_$e[%1m
  26. IF %3x==x GOTO combine1
  27. GOTO combine2
  28. :cross
  29. SET p1=$e[%1;37;45m═╬═$e[40m$_$e[45m ║ $e[%1;40m
  30. IF %3x==x GOTO combine1
  31. GOTO combine2
  32. :plane
  33. set p1=$e[%1;37;44m ─┬φ┬─ $e[%1;40m
  34. IF %3x==x GOTO combine1
  35. GOTO combine2
  36. :cactus
  37. SET p1=$e[1;31;40m $e[32m╓$e[37m$_$e[32m ╘╬╛$e[37m$_$e[33;41m▒▒$e[32;40m╜$e[33;41m▒▒$e[%1;37;40m
  38. IF %3x==x GOTO combine1
  39. GOTO combine2
  40. :puppet
  41. SET p1=$e[%1;37;40m  $__/$e[36m█$e[37m\_$_ ≤ ≥ $e[%1m
  42. IF %3x==x GOTO combine1
  43. GOTO combine2
  44. :bug
  45. SET p1=$e[1;33;40m    !!!!!! ╔$_}═══$e[31m░░░░░░█$e[33m)$e[37m $p   $_$e[33m    ¡¡¡¡¡¡ ╚$e[%1;37m   $e
  46. IF %3x==x prompt %p1%
  47. IF NOT %3x==x prompt %p1% %3
  48. SET p1=
  49. GOTO end
  50. :spider
  51. SET p1=$e[%1m (o^o)$_≤≤ " ≥≥$e[%1m
  52. IF %3x==x GOTO combine1
  53. GOTO combine2
  54. :skier
  55. SET p1=$e[%1;37;40m ⌠$e[31m$e[37m$_ │   $_ │ / $e[33m█$e[37m \/$_ │   \\$e[36m/$e[37m$_$e[36m    //  $e[%1;37m
  56. IF %3x==x GOTO combine1
  57. GOTO combine2
  58. :music
  59. SET p1=$e[%1;37;44m≡≡≡$e[%1;40m
  60. IF %3x==x GOTO combine1
  61. GOTO combine2
  62. :field
  63. SET p1=$e[%1;37;42m┌╥╥╥╥╥┐$e[40m$_$e[42m└╨╨╨╨╨┘$e[%1;40m
  64. IF %3x==x GOTO combine1
  65. GOTO combine2
  66. :golf
  67. SET p1=$e[%1;33;40m  $e[37m│   °$_$e[36m██$e[32m▒$e[37;42m│$e[40m$_$e[32m▓▒█$e[37m⌡$e[32m█$e[37m$_$e[32m ▒██▀$e[%1;37m
  68. IF %3x==x GOTO combine1
  69. GOTO combine2
  70. :fish
  71. SET p1=$e[%1;33;44m α$e[37m α .:$e[40m$_$e[32;44m║│$e[31m ««$e[37m α$e[%1;40m
  72. IF %3x==x GOTO combine1
  73. GOTO combine2
  74. :butler
  75. SET p1=$e[0mô  ô$_  $g  $_$e -- $_$e[7m══$e[0;%1m
  76. IF %3x==x GOTO combine1
  77. GOTO combine2
  78. :disco
  79. SET p1=$e[%1m \ $_  $e[33;40m█$e[37m /$_  $g$g $e[%1
  80. IF %3x==x GOTO combine1
  81. GOTO combine2
  82. :movie
  83. SET p1=$e[%1;36;40m ░$e[37m$e[36m░░░$e[37m$e[36m░░$e[37m$_$e[0;37;40mºººª ºª ºº$e[%1m
  84. IF %3x==x GOTO combine1
  85. GOTO combine2
  86. :flame
  87. SET p1=$e[1;31;40m·.∙:$b▒▓$e[43m▓██$e[33m█▌$e[34;40m│$e[%1;37m
  88. IF %3x==x GOTO combine1
  89. GOTO combine2
  90. :blank
  91. SET p1=$e[0;37;40;%1m
  92. IF %3x==x GOTO combine1
  93. GOTO combine2
  94. :color1
  95. SET p1=$e[1;33;41m░▒▓█$e[44m█▓▒░$e[37;40m$_$e[31;44m█▓▒░$e[34;41m░▒▓█$e[%1;37;40m
  96. IF %3x==x GOTO combine1
  97. GOTO combine2
  98. :color2
  99. SET p1=$e[1;36;42m░▒▓█$e[45m█▓▒░$e[37;40m$_$e[32;45m█▓▒░$e[35;42m░▒▓█$e[%1;37;40m
  100. IF %3x==x GOTO combine1
  101. GOTO combine2
  102. :tree
  103. SET p1=$e[%1m  °  °$_°  °   °$_  \││/°$_   ││   $_ ∩∩∩∩∩∩ $e[%1m
  104. IF %3x==x GOTO combine1
  105. GOTO combine2
  106. :canada
  107. SET p1=$e[0;31;40m▐$e[47m▌▐$e[40m▌$e[%1;37m
  108. IF %3x==x GOTO combine1
  109. GOTO combine2
  110. :window
  111. SET p1=$e[0m╔$e[1m═╦═╗$_$e[0m╠═╬$e[1m═╣$_$e[0m╚═╩═$e[1m╝$e[%1m
  112. IF %3x==x GOTO combine1
  113. GOTO combine2
  114. :vball
  115. SET p1=$e[%1m┌Ω──────┐$_│  Ω ° Ω│$_║$e[7m▄▄▄▄▄▄▄$e[0;%1m║$_│Ω    Ω │$_└───Ω───┘$e[%1m
  116. IF %3x==x GOTO combine1
  117. GOTO combine2
  118. :tribe
  119. SET p1=$e[%1;31mó$e[37m\  /     $_   $e[33m▓$e[37m   / $e[35m▓$e[37m \│$_  ≤ ≥   ≤ ≥ │$e[%1m
  120. IF %3x==x GOTO combine1
  121. GOTO combine2
  122. :oasis
  123. SET p1=$e[1m)  .· ·$_· $e[32mτττ$e[37m·$e[32mτ$e[37m$_$e[33;41m▒▒$e[0;37;44m ) $e[1;33;41m▒▒$e[%1;37;40m
  124. IF %3x==x GOTO combine1
  125. GOTO combine2
  126. :museum
  127. SET p1=$e[%1m____╔╦════╦╗____$_║■║■║║ ▒▒ ║║■║■║$_▀▀▀▀▀▀≡≡≡≡▀▀▀▀▀▀$e[%1m
  128. IF %3x==x GOTO combine1
  129. GOTO combine2
  130. :taj
  131. SET p1=$e[1m _(^)_ $_║ $e[7m░∩┌-┐∩░$e[0;1m ║$_║ $e[7m░∩│▓│∩░$e[0;1m ║$e[%1m
  132. IF %3x==x GOTO combine1
  133. GOTO combine2
  134. :jazz
  135. SET p1=$e[%1m $_√°$_≤≤$e[%1m
  136. IF %3x==x GOTO combine1
  137. GOTO combine2
  138. :bldg
  139. SET p1=$e[%1;37;41m╔╤╤╤╗$e[40m$_$e[41m║■■■║$e[40m$_$e[41m║■■■║$e[40m$_$e[41m║■∩■║$e[%1;40m
  140. IF %3x==x GOTO combine1
  141. GOTO combine2
  142. :devil
  143. SET p1=$e[%1;36m\ /$e[37m$_$e[31m° °$e[37m$_ '`$e[%1m
  144. IF %3x==x GOTO combine1
  145. GOTO combine2
  146. :castle
  147. SET p1=$e[%1;37;40m    $e[33m╕$e[37m   $_ ║$e[7m▀∩▀∩▀∩▀$e[0;%1m║$_$e[36m▄$e[37;%1m║$e[7m░■░▓░■░$e[0;%1m║$e[36m▄$e[%1;37;40m
  148. IF %3x==x GOTO combine1
  149. GOTO combine2
  150. :tach
  151. SET p1=$e[%1;37m 5 7$e[33m▄$e[37;40m$_$e[37m3 $e[33mo$e[37m─$e[30;41m▌$e[37m9$e[40m$_$e[37m 1 0  $e[%1m
  152. IF %3x==x GOTO combine1
  153. GOTO combine2
  154. :specs
  155. SET p1=$e[%1m-o-o-$_  ≥  $e
  156. IF %3x==x GOTO combine1
  157. GOTO combine2
  158. :text1
  159. SET p1=$e[1;45;37m $d $t $p $e[37;40;%1m$_
  160. IF %3x==x prompt %p1%
  161. IF NOT %3x==x prompt %p1% %3
  162. SET p1=
  163. GOTO end
  164. :stars
  165. SET p1=$e[0m∙$e[1;37m: ∙ $e[0;36mφ$e[37m  ·$e[1m$_. $e[0m·$e[1m · $e[0m. $e[1m°$e[0;33m.$e[37m$_$e[0m_Ω_______$e[%1m
  166. IF %3x==x GOTO combine1
  167. GOTO combine2
  168. :ship
  169. SET p1=$e[%1m  ┼  ┼  ┼ $_  ┼  ┼  ┼  __$_ \≡≡≡≡≡≡≡≡≡/ $e[%1m
  170. IF %3x==x GOTO combine1
  171. GOTO combine2
  172. :panels
  173. SET p1=$e[%1m   $e[35m▒████$e[37m$_$e[36m░▓▓$e[35;46m▓████$e[37;40m$_$e[36m░▓▓▓▓   $e[37;%1m
  174. IF %3x==x GOTO combine1
  175. GOTO combine2
  176. :upc
  177. SET p1=$e[%1m║││║▐│║│$_computer$e[%1m
  178. IF %3x==x GOTO combine1
  179. GOTO combine2
  180. :text2
  181. SET p1=$e[%1;36m\$e[33m\$e[36m\$e[37m $p$_    $e[36m\$e[33m\$e[36m\$e[37;%1m \
  182. IF %3x==x prompt %p1%
  183. IF NOT %3x==x prompt %p1% %3
  184. SET p1=
  185. GOTO end
  186. :text3
  187. SET p1=$e[%1;33m⌠⌠⌠⌠⌠⌠$e[37m $p$_$e[33m⌡⌡⌡⌡⌡⌡$e[37m $e[%1m
  188. IF %3x==x prompt %p1%
  189. IF NOT %3x==x prompt %p1% %3
  190. SET p1=
  191. GOTO end
  192. :eyes
  193. SET p1=$e[%1m( $e[36mo$e[37m)  ( $e[36mo$e[37m)$e[%1m$_
  194. IF %3x==x GOTO combine1
  195. GOTO combine2
  196. :france
  197. SET p1=$e[%1;34;40m█$e[37m█$e[31m█$e[37;%1m
  198. IF %3x==x GOTO combine1
  199. GOTO combine2
  200. :italy
  201. SET p1=$e[%1;32;40m█$e[37m█$e[31m█$e[37;%1m
  202. IF %3x==x GOTO combine1
  203. GOTO combine2
  204. :money
  205. SET p1=$e[%1;32m$$  $e[36m£  $e[35mFr$e[37m$_ $e[33m¥  $e[31m¢   $e[37;%1m
  206. IF %3x==x GOTO combine1
  207. GOTO combine2
  208. :godzil
  209. SET p1=$e[%1;32m      $e[37m$_$e[32m      $e[31m°{$e[37m$_$e[32m     $e[33m  ═ε$e[37m$_$e[32m   $e[32m/ )_$e[%1;37m
  210. IF %3x==x GOTO combine1
  211. GOTO combine2
  212. :tennis
  213. SET p1=$e[%1;37;42m┌Ω┬─┐$e[40m$_$e[42m╞═╪═╡$e[40m$_$e[42m└─┴Ω┘$e[40;%1m
  214. IF %3x==x GOTO combine1
  215. GOTO combine2
  216. :hypo
  217. SET p1=$e[%1m│═══│$e[36;40m░$e[37;46m.~·°≈$e[40m$g--$e[%1m
  218. IF %3x==x GOTO combine1
  219. GOTO combine2
  220. :save
  221.    IF %2x==x ECHO You must supply a file name to save prompt.
  222.    IF %2x==x GOTO end
  223.    IF %3x==x IF EXIST %2.bat IF NOT EXIST %2.bak RENAME %2.bat %2.bak
  224.    IF %3x==x IF NOT EXIST %2.bat IF EXIST %2.bak ECHO Previous file %2.baT renamed to %2.baK
  225.    IF NOT %3x==x IF EXIST %3%2.bat ECHO %3%2.baT already exists. Please rename or delete, then save.
  226.    IF NOT %3x==x IF EXIST %3%2.bat GOTO end
  227.    IF EXIST %3%2.bat IF EXIST %3%2.bak ECHO %3%2.baT %3%2.baK both exist. Please rename or delete one, then save.
  228.    IF EXIST %3%2.bat IF EXIST %3%2.bak GOTO end
  229.    echo echo off>>%3%2.bat
  230.    echo rem created by ═╡ PROMPTER ╞═ (c) 1991 W. J. Ball>>%3%2.bat
  231.    echo PROMPT %prompt%>>%3%2.bat
  232.    echo Current prompt saved. Type "%3%2" to restore it.
  233.    GOTO end
  234. :menu
  235.    cls
  236.    echo ═══╡ PROMPTER ╞═══════════════════════╡ OPTIONS:      │ display  │ move cursor
  237.    echo                  (requires ansi.sys)  │               │          │
  238.    echo   PICTURES:                           │   text, or    │ $$ $     │ $e[#A up #
  239.    echo                                       │               │ $t time  │ $e[#B down #
  240.    echo  bldg   eyes   movie  text1   dog     │ colors (F)(B) │ $d date  │ $e[#C space#
  241.    echo  bug    field  music  text2   jazz    │ $e["#"m:      │ $p dir   │ $e[#D back #
  242.    echo  cactus fish   oasis  text3   museum  │               │ $v DOS   │
  243.    echo  canada flame  panels tribe   specs   │ 30 40 Black   │ $n drive │ attributes
  244.    echo  castle france plane          spider  │ 31 41 Red     │ $g ≥     │ $e["#"m:
  245.    echo  color1 godzil puppet (mono): taj     │ 32 42 Green   │ $l ≤     │
  246.    echo  color2 golf   skier          tree    │ 33 43 Yellow  │ $b │     │ 0 reset
  247.    echo  cross  hypo   stars  bat     upc     │ 34 44 Blue    │ $q =     │ 1 bold
  248.    echo  devil  italy  tach   blank   vball   │ 35 45 Magenta │ $h bs    │ 5 blink
  249.    echo  disco  money  tennis butler  window  │ 36 46 Cyan    │ $e esc   │ 7 reverse
  250.    echo                                       │ 37 47 White   │ $_ cr    │ 8 invisible
  251.    echo ──────────────────────────────────────┴──────────────────────────────┬────────
  252.    echo type: pmr 0/1 "pic" "options"  or: pmr save "filename" "directory"\  │ '91 WJB
  253.    echo    
  254.    GOTO end
  255. :end
  256.