home *** CD-ROM | disk | FTP | other *** search
/ CD-ROM Today (UK) 7 / cdromtoday7.bin / discover / readme.scr < prev    next >
Text File  |  1994-09-01  |  744b  |  30 lines
  1. indestdir
  2. set _line 0
  3. :doc_top
  4. set _doctext doceng.txl
  5. textbox 1 1 80 25 blue
  6. color back blue
  7. type %_doctext%\readme0.txt 5 18 70 7
  8. color back cyan
  9. rem menu %_doctext%\readme.mnu 15 3 50 13 %_doctext%\readme.tit %_doctext%\updown.leg
  10. menu %_doctext%\readme.mnu 15 2 50 14 %_doctext%\readme.tit %_doctext%\updown.leg -default %_line%
  11. set _choice "%_1%"
  12. switch %_choice%
  13. case default:
  14.     textbox 1 1 80 25 black
  15.     if "%cdroot%" eq ""
  16.         spawn more.com doc\readme%_choice%.txt
  17.     endif
  18.     if "%cdroot%" ne ""
  19.         spawn more.com %cdroot%\doc\readme%_choice%.txt
  20.     endif
  21.     type %_doctext%\anykey.txt 1 25 80 1
  22.     waitkey_noesc
  23.     set _line %_choice%
  24.     goto doc_top
  25. case escape:
  26. case quit:
  27. endswitch
  28. textbox 1 1 80 25 black
  29. quit 0
  30.