home *** CD-ROM | disk | FTP | other *** search
/ PC Plus 51 / SCRPAINT / SCRPAINT.ZIP / DROPDOWN / DROPDOWN.TXT < prev    next >
Encoding:
Text File  |  1989-11-07  |  3.1 KB  |  216 lines

  1. :start
  2.   dos cls
  3.   nokey
  4.   display dir.blk
  5.   color 13
  6.   cursor 08,05
  7.   gettext 2 50 Put you directory in here!
  8.   color 11
  9.   cursor 08,05
  10.   gettext 3 53 Hello there
  11.   dos cls
  12.   nokey
  13.   display t1.blk
  14.   savescreen
  15.   do dosmenu
  16.   dos cls
  17.   color 11
  18.   cursor 10,00
  19.   puttext First directory keyed was -->
  20.   color 12
  21.   puttext  %2
  22.   color 11
  23.   cursor 12,00
  24.   puttext Second directory keyed was ->
  25.   color 13
  26.   puttext  %3
  27.   display noscreen
  28.   exit
  29.  
  30. *
  31. * Dosmenu routine
  32. *
  33. :dosmenu
  34.   popscreen
  35.   savescreen
  36.   hilite 15,2,1,2,11
  37.   repeat vertically 4,0
  38.   hilite 0,7,1,7,11
  39.   choice @r goto utilities
  40.   choice @l goto help
  41.   choice 1,f do format
  42.   choice 2,c do chkdsk
  43.   choice 3,v do version
  44.   choice 4,e do environment
  45.   choice 5,d do date
  46.   choice 6,t do time
  47.   choice 7,27 return
  48.   display t11.blk
  49.  
  50. :help
  51.   popscreen
  52.   savescreen
  53.   play O6C5DC
  54.   hilite 15,2,53,2,78
  55.   choice @r goto dosmenu
  56.   choice @l goto games
  57.   choice 27 return
  58.   display t16.blk
  59.  
  60. :format
  61.   dos format a: /4
  62.   dos pause
  63.   return
  64.  
  65. :chkdsk
  66. * promptyn "CHKDSK - do you wish to correct errors? "
  67.   choice yes goto chkdsk-y
  68.   dos chkdsk
  69.   return
  70.   dos chkdsk /f
  71.   return
  72.  
  73. :version
  74.   dos cls
  75.   dos ver
  76.   dos pause
  77.   return
  78.  
  79. :environment
  80.   dos cls
  81.   dos ver
  82.   dos subst
  83.   dos set
  84.   dos pause
  85.   return
  86.  
  87. :date
  88.   dos cls
  89.   dos date
  90.   return
  91.  
  92. :time
  93.   dos cls
  94.   dos time
  95.   return
  96.  
  97. :utilities
  98.   popscreen
  99.   savescreen
  100.   hilite 15,2,10,2,18
  101.   repeat vertically 3,0
  102.   choice @l goto dosmenu
  103.   choice @r goto packages
  104.   choice 1 do xtree
  105.   choice 2 do tv
  106.   choice 3 do filefind
  107.   choice 27 return
  108.   display t12.blk
  109.  
  110. :filefind
  111. * prompt "Please enter filespec for FileFind",%1
  112.   dos ff %1
  113.   return
  114.  
  115. :xtree
  116.   dos xt.bat
  117.   return
  118.  
  119. :tv
  120.   dos tv
  121.   return
  122.  
  123. :packages
  124.   popscreen
  125.   savescreen
  126.   hilite 15,2,20,2,35
  127.   repeat vertically 4,0
  128.   choice @r goto proglibs
  129.   choice @l goto utilities
  130.   choice 27 return
  131.   display t13.blk
  132.  
  133. :proglibs
  134.   popscreen
  135.   savescreen
  136.   hilite 15,2,30,2,43
  137.   repeat vertically 4,0
  138.   choice @r goto games
  139.   choice @l goto packages
  140.   choice 27 return
  141.   display t14.blk
  142.  
  143. :games
  144.   popscreen
  145.   savescreen
  146.   hilite 15,2,40,2,49
  147.   repeat vertically 6,0
  148.   choice @r goto help
  149.   choice @l goto proglibs
  150.   choice 1 do royale
  151.   choice 2 do trek
  152.   choice 3 do solo_poker
  153.   choice 4 do mille
  154.   choice 5 do quinta
  155.   choice 6 do klondike
  156.   choice 7 do wanderer
  157.   choice 27 return
  158.   display t15.blk
  159.  
  160. :mouse
  161.   dos mouse
  162.   return
  163.  
  164. :royale
  165.   do mouse
  166.   savedir
  167.   dos cd c:\games\royale
  168.   dos royale
  169.   popdir
  170.   return
  171.  
  172. :klondike
  173.   do mouse
  174.   savedir
  175.   dos cd c:\games\klondike
  176.   dos klondike
  177.   popdir
  178.   return
  179.  
  180. :trek
  181.   savedir
  182.   dos cd c:\games\trek
  183.   dos egatrek
  184.   popdir
  185.   return
  186.  
  187. :solo_poker
  188.   do mouse
  189.   savedir
  190.   dos cd c:\games\poksol
  191.   dos poker
  192.   popdir
  193.   return
  194.  
  195. :mille
  196.   savedir
  197.   dos cd c:\games\milleb
  198.   dos mille
  199.   popdir
  200.   return
  201.  
  202. :quinta
  203.   do mouse
  204.   savedir
  205.   dos cd c:\games\klondike
  206.   dos klondike
  207.   popdir
  208.   return
  209.  
  210. :wanderer
  211.   savedir
  212.   dos cd c:\games\wanderer
  213.   dos wanderer
  214.   popdir
  215.   return
  216.