The Devil's Doorknob BBS Capture (1996-2003)/devilsdoorknobbbscapture1996-2003.iso/Dloads/PROGRAMM/BUILDER.ZIP/DSHELL1.BLD

Text File | 1992-11-17 | 2KB | 78 lines

' Template for a middle-of-the-screen dropdown menu program

' X & Y position the menu.
integer x,y,xsay,ysay

' IsColor is set to 1 if the screen is color-capable, or 0 if not.
integer IsColor

' All-purpose string variable
string s

' Get the video mode & force screen to 80x25.
s := Adaptor
s := Adaptor

if s is "Mono"
  ' Force 80 x 25 mono.
  run mode mono
  ' Remember that it's not a color system.
  Put 0 into IsColor
  Menu Style White,Black,Bright White,Black,Black,White,White,Black,0,1,2,1
end else
  ' Force 80 x 25 color
  run mode co80
  ' Remember that it is a color system.
  Put 1 into IsColor
  ' Preferrred colors for menus.
  Menu Style Blue,White,Red,White,White,Black,Black,White,0,1,1,1
end

' Initialize position of menu.
x:=30
y:=7
Cls black on cyan   'Clear the screen and set default colors to black on cyan


while not cancelled
  Main
end
Thanks

sub Main
  Dropdown "The HYPE Integrator" @ y,x
    Item "Display manual"
    Item "Print manual"
    Item "Quit"
      Thanks
      exit 0
  end
end

Sub HelpBox
  If IsColor
    Single Box 17,5,72,8 Yellow on Blue
    Text Bright White on Blue
  end else
    Single Box 17,5,72,8 Bright white on Black
    Text Bright White on Black
  End ' If
End ' sub HelpBox

sub Helpfile
   HelpBox
   Say @ 18,29 "<Yellow>  Command Descriptions"
   Say @ 19,6 "Begin                ---> Begin installation"
   Say @ 21,6 "Help                 ---> This screen"
   Say @ 22,6 "Quit                 ---> Exit this program."
   Say @ 23,23 "<Bright Green> Press {Enter} to exit help"
   pause
   Single Box 17,5,72,8 cyan on Cyan
end

Sub Thanks
  say "Thanks"
End