home *** CD-ROM | disk | FTP | other *** search
/ PC Plus 25 / MAIN / DEMO.DBT next >
Encoding:
Text File  |  1988-01-01  |  3.0 KB  |  131 lines
  1. ; Demonstration Shell
  2. ;
  3. ; (C) Duncan P Charlton 1988
  4.  
  5. CLEAR
  6. SET DOSVAR ""
  7.  
  8.  
  9. GOSUB "PeasyDos"
  10.  
  11. ;--------------------------------------------------------------
  12. ; Main menu of the shell
  13.  
  14. :MAINLOOP
  15. CLEAR
  16. @ 80 25
  17. MESSAGE "Select Choice from menu"
  18. SET MVAR MENU "DosCmd"   : "Execute a normal DOS command",
  19.               "Dir"      : "Directory command",
  20.               "PeasyDos" : "Show PeasyDos info",
  21.               "License"  : "Show PeasyDos license",
  22.               "Quit"     : "Exit from the shell"
  23.               ENDMENU
  24. MESSAGE ""
  25. @ 0 0
  26.  
  27. IF MVAR $<>"ESC" GOSUB MVAR
  28.  
  29. GOTO "MAINLOOP"
  30.  
  31. ;--------------------------------------------------------------
  32. ; Dos command subroutine -illustrates use of EDIT and SHELL commands
  33. ; Note that DOSVAR is used as the default in the EDIT command, this
  34. ; means that the previous Dos command will allways appear as the default
  35.  
  36. :DosCmd
  37. MESSAGE "Type in DOS command and press <RETURN>"
  38. SET DOSVAR EDIT DOSVAR 60
  39. IF DOSVAR $<> "ESC" SHELL DOSVAR
  40. MESSAGE ""
  41. RETURN
  42.  
  43. ;--------------------------------------------------------------
  44. ; Directory subroutine - illustrates use of sub menu to set command
  45. ; line options
  46.  
  47. :Dir
  48.  
  49. MESSAGE "Select Short or Long Format"
  50.  
  51. SET DVAR1 MENU "Long"  : "Long directory listing",
  52.                "Short" : "Short directory listing"
  53.                ENDMENU
  54.  
  55. MESSAGE ""
  56.  
  57. IF DVAR1 $= "ESC" RETURN
  58.  
  59. SET DVAR2 "DIR "
  60.  
  61. IF DVAR1 $= "Short" SET DVAR2 DVAR2 & " /W "
  62. SHELL DVAR2
  63. RETURN
  64.  
  65.  
  66. :PeasyDos
  67. @ 0 5
  68. DISPLAY
  69. "Welcome to PeasyDos, the programmable DOS shell"
  70. @ 0 7
  71. DISPLAY
  72. "With PeasyDos you can replace the DOS prompt with your own menu-driven shell"
  73. @ 0 9
  74. DISPLAY
  75. "Because PeasyDos is programmable you can include as many, or as few features"
  76. DISPLAY
  77. "as you like. Shells can be created for every level of user, from the novice"
  78. DISPLAY
  79. "who needs only to run a few applications, to the power user who needs access"
  80. DISPLAY
  81. "to every aspect of DOS."
  82.  
  83. GOSUB "PAGE"
  84. @ 0 5
  85. DISPLAY
  86. "Here are just some of the ways that you can use PeasyDos:"
  87. @ 0 7
  88. DISPLAY
  89. "    - Running application programs"
  90. DISPLAY
  91. "    - Automating backup procedures"
  92. DISPLAY
  93. "    - Setting printer options"
  94. @ 0 11
  95. DISPLAY
  96. "The menu and string handling commands in the PeasyDos programming language"
  97. DISPLAY
  98. "mean that you can even select command line options and switches through"
  99. DISPLAY
  100. "menus."
  101.  
  102. GOSUB "PAGE"
  103. @ 0 5
  104. DISPLAY "What follows now is a small demonstration shell, the PeasyDos"
  105. DISPLAY "program that produces is it is in a file called DEMO.DBT."
  106. GOSUB "PAGE"
  107. RETURN
  108.  
  109. ;--------------------------------------------------------------
  110. :License
  111. LICENSE
  112. RETURN
  113.  
  114. ;--------------------------------------------------------------
  115. :Quit
  116. SET QVAR MENU "Yes" : "Exit to DOS",
  117.               "No"  : "Cancel Quit"
  118.               ENDMENU
  119.  
  120. IF QVAR $= "Yes" EXIT
  121. RETURN
  122.  
  123. ;--------------------------------------------------------------
  124. :PAGE
  125. MESSAGE "Press any key to continue"
  126. SET DUMMY NEXTKEY
  127. CLEAR
  128. RETURN
  129.  
  130. END
  131.