home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1995 November / PCWK1195.iso / inne / podstawy / dos / 4dos / 4uzytki / 4dtnt.exe / MISC.ZIP / HMENU.BTM < prev    next >
Text File  |  1991-09-03  |  5KB  |  206 lines
  1. cd d:\
  2. cd c:\
  3. set lastx=0
  4. set lasty=0
  5. :start
  6.  unset thingie tofile fromfile wtf
  7.  cls
  8.  drawbox 0 0 24 79 2 white on blue fill blue
  9.  scrput 2  8 white on blue --------- Function Keys ------   ------ Shift Function Keys ------
  10.  scrput 3  8 white on blue f1  Kings                        *f1  Gomoku
  11.  scrput 5  8 white on blue f2  Show document directory      *f2  Communications
  12.  scrput 7  8 white on blue f3  Manual command               *f3  First Publisher
  13.  scrput 9  8 white on blue f4  Edit a document              *f4  Shooting gallery
  14.  scrput 11 8 white on blue f5  Mahjongg                     *f5  Breakout
  15.  scrput 13 8 white on blue f6  Solitare                     *f6  Reset Trackball
  16.  scrput 15 8 white on blue f7  Copy a file                  *f7  DB3+
  17.  scrput 17 8 white on blue f8  Envelope on Daisy Wheel      *f8  Epson printer page eject
  18.  scrput 19 8 white on blue f9  Epson printer reset          *f9  Super Fly
  19.  scrput 21 8 white on blue f10 DOS Environment              *f10 Shut down system
  20.  iff "%lastx%" ne "0" then^scrput %lasty% %lastx% bright white on blue @^endiff
  21. rem drawvline 0 39 25 1 white on blue
  22. :timeloop
  23.  screen 0 0  
  24.  scrput 1 30 white on blue %_date   %_time
  25.  inkey /w1 %%WTF 
  26.  if "%WTF%" == "" goto timeloop
  27. rem
  28. if %WTF% == @59 goto dof1
  29. if %WTF% == @60 goto dof2
  30. if %WTF% == @61 goto dof3 
  31. if %WTF% == @62 goto dof4
  32. if %WTF% == @63 goto dof5
  33. if %WTF% == @64 goto dof6
  34. if %WTF% == @65 goto dof7
  35. if %WTF% == @66 goto dof8
  36. if %WTF% == @67 goto dof9
  37. if %WTF% == @68 goto dof10
  38. if %WTF% == @84 goto doshf1
  39. if %WTF% == @85 goto doshf2
  40. if %WTF% == @86 goto doshf3
  41. if %WTF% == @87 goto doshf4
  42. if %WTF% == @88 goto doshf5
  43. if %WTF% == @89 goto doshf6
  44. if %WTF% == @90 goto doshf7
  45. if %WTF% == @91 goto doshf8
  46. if %WTF% == @92 goto doshf9
  47. if %WTF% == @93 goto doshf10
  48. if %WTF% == @113 goto doshf10
  49. rem
  50. goto start
  51. :dof1
  52.  set lastx=11
  53.  set lasty=3
  54.  c:\games\kings
  55.  goto start
  56. :dof2
  57.  cls
  58.  dir /4apv c:\budnick\*.*
  59.  pause
  60.  set lastx=11
  61.  set lasty=5
  62.  goto start
  63. :dof3
  64.  scrput 2 27 bright yel on blue "?" will abort the command
  65.  scrput 8 8 white on blue Command:
  66.  scrput 8 16 bright yellow on blue _____________________________________________________________
  67.  screen 8 16
  68.  input %%thingie
  69.  cls
  70.  if "%thingie%" == "?" goto start
  71.  set lastx=11
  72.  set lasty=7
  73.  %thingie%
  74.  pause
  75.  goto start
  76. :dof4
  77.  scrput 2 27 bright yel on blue "?" will abort the command
  78.  scrput 10 8 white on blue Document name:
  79.  scrput 10 22 bright yellow on blue ____________
  80.  screen 10 22
  81.  input %%thingie
  82.  if "%thingie%" == "?" goto start
  83.  set lastx=11
  84.  set lasty=9
  85.  cls
  86.  rem call hdb %thingie%
  87.  ws c:\budnick\%thingie%
  88.  fr
  89.  goto start
  90. :dof5
  91.  scrput 12 8 white on blue Board number:
  92.  scrput 12 21 bright yellow on blue ______
  93.  screen 12 21
  94.  input %%thingie
  95.  set lastx=11
  96.  set lasty=11
  97.  iff "%thingie%" == "" then^c:\games\mahjongg -y -f -m -n^
  98.           else^c:\games\mahjongg -y -f -m -n -b%thingie%^endiff
  99.  goto start
  100. :dof6
  101.  keystack "NNS1Hanny" 13 "YYY" 0 0 "x"^c:\games\solitare
  102.  set lastx=11
  103.  set lasty=13
  104.  goto start
  105. :dof7
  106.  scrput 2 27 bright yel on blue "?" will abort the command
  107.  scrput 16 8 white on blue Copy from:
  108.  scrput 16 18 bright yellow on blue ___________________________________________________
  109.  screen 16 18
  110.  input %%fromfile
  111.  if "%fromfile%" == "" goto dof7
  112.  if "%fromfile%" == "?" goto start
  113.  if not exist %fromfile% goto dof7
  114. :doof7
  115.  scrput 16 8 white on blue Copy to:
  116.  scrput 16 16 bright yellow on blue ____________________________________________________
  117.  screen 16 16
  118.  input %%tofile
  119.  if "%tofile%" == "?" goto start
  120.  if "%tofile%" == "" goto doof7
  121.  set lastx=11
  122.  set lasty=15
  123.  cls
  124.  copy %fromfile% %tofile%
  125.  pause
  126.  goto start
  127. :dof8
  128.  scrput 2 27 bright yel on blue "?" will abort the command
  129.  scrput 18 8 white on blue Document name:
  130.  scrput 18 22 bright yellow on blue ____________
  131.  screen 18 22 
  132.  input %%thingie
  133.  if "%thingie%" == "" goto dof8
  134.  if "%thingie%" == "?" goto start
  135.  if not exist c:\budnick\%thingie% goto dof8
  136.  set lastx=11
  137.  set lasty=17
  138.  envelope c:\budnick\%thingie% /c > com2
  139.  goto start
  140. :dof9
  141.  pinit
  142.  set lastx=11
  143.  set lasty=19
  144.  goto start
  145. :dof10
  146.  unset wtf
  147.  cls
  148.  echo type HMENU at any DOS prompt to return to the main menu
  149.  quit
  150. :doshf1
  151.  set lastx=45
  152.  set lasty=3
  153.  c:\games\gomoku
  154.  goto start
  155. :doshf2
  156.  cls
  157.  call tc
  158.  set lastx=45
  159.  set lasty=5
  160.  goto start
  161. :doshf3
  162.  e:
  163.  cd e:\pub
  164.  fp
  165.  cd e:\
  166.  c:
  167.  colset 17 50 5a 03
  168.  set lastx=45
  169.  set lasty=7
  170.  goto start
  171. :doshf4
  172.  to c:\games^shoot^fr
  173.  set lastx=45
  174.  set lasty=9
  175.  goto start
  176. :doshf5
  177.  c:\games\breakout S-6
  178.  set lastx=45
  179.  set lasty=11
  180.  goto start
  181. :doshf6
  182.  trakball dos
  183.  set lastx=45
  184.  set lasty=13
  185.  goto start
  186. :doshf7
  187.  trakball dbase^to db3^dbase^fr
  188.  set lastx=45
  189.  set lasty=15
  190.  goto start
  191. :doshf8
  192.  pff
  193.  set lastx=45
  194.  set lasty=17
  195.  goto start
  196. :doshf9
  197.  pushd c:\games
  198.  fly
  199.  popd
  200.  set lastx=45
  201.  set lasty=19
  202.  goto start
  203. :doshf10
  204.  cls
  205.  sysdown
  206.  quit