home *** CD-ROM | disk | FTP | other *** search
/ Boston 2 / boston-2.iso / DOS / HILFEN / 4DOS / 4MENU / SAMPLE.BTM < prev    next >
Text File  |  1993-12-01  |  914b  |  28 lines
  1. :menulabel
  2.    cls bright yellow on blue
  3.    drawbox 6  32  16  46 0 green on white fill black
  4.    scrput 8  35 bright yellow on black MAIN MENU
  5.    scrput 9  34 bright yellow on black ───────────
  6.    scrput 10  34 bright yellow on black (D)irectory
  7.    scrput 11  34 bright yellow on black (H)elp
  8.    scrput 12  34 bright yellow on black (T)hingy
  9.    scrput 13  34 bright yellow on black -
  10.    scrput 14  34 bright yellow on black F1 - Exit
  11.    screen 15  34 
  12.    inkey %%menuevar
  13.  
  14.    iff "%menuevar" == "d" then
  15.         cls^dir^pause^goto menulabel
  16.    elseiff "%menuevar" == "h" then
  17.         help^goto menulabel
  18.    elseiff "%menuevar" == "t" then
  19.         echo hello^beep^pause^goto menulabel
  20.    elseiff "%menuevar" == "?" then
  21.         beep 200 4^goto menulabel
  22.    elseiff "%menuevar" == "@59" then
  23.         cls bright yellow on black^quit
  24.    else
  25.        beep 200 4
  26.        goto menulabel
  27.    endiff
  28.