home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / basic / tools / basicwi / ufba042.bas < prev    next >
Encoding:
BASIC Source File  |  1993-07-28  |  1.4 KB  |  56 lines
  1. REM MS Basic/ MS Quick Basic
  2. REM ufba42.bas  - example file shows a menu
  3. REM
  4. REM $INCLUDE: 'UFBA04.INC'
  5. REM $INCLUDE: 'menu01.INC'
  6. REM $INCLUDE: 'menu02.INC'
  7.  
  8. REM save screen, initialize mouse
  9. CALLS MOUSEON
  10. FKZ% = 0: FMT$ = "menu03  "
  11. CALLS UNIF(FKZ%,FMT$,FMT$,RET%, SM%, Daten$)
  12.  
  13. REM display <menu01>
  14. MID$(fld0$,1) = "Functions "
  15. MID$(fld1$,1) = "Programend"
  16. ausmenu01:
  17. FKZ% = 2: SM% = 0: RET% = 0
  18. FMT$ = "menu01  "
  19. REM $INCLUDE: 'menu01.PRO'
  20. CALLS UNIF(FKZ%,FMT$,FMT$,RET%, SM%, Daten$)
  21. IF RET% = 200 THEN GOTO M2000
  22. IF RET% = 201 THEN GOTO M6000
  23. goto ausmenu01
  24.  
  25. REM display <menu02>
  26. M2000:
  27. MID$(fld2$,1) = "File new                F1    "
  28. MID$(fld3$,1) = "File open               F2    "
  29. MID$(fld4$,1) = "File delete             F3    "
  30. MID$(fld5$,1) = "Program end             F10   "
  31. FKZ% = 2: SM% = 0: RET% = 4
  32. ausmenu02:
  33. FMT$ = "menu02  "
  34. REM $INCLUDE: 'menu02.PRO'
  35. CALLS UNIF(FKZ%,FMT$,FMT$,RET%, SM%, Daten$)
  36. IF RET% = 200 OR RET% = 101 THEN goto M2500
  37. IF RET% = 201 OR RET% = 102 THEN goto M2500
  38. IF RET% = 202 OR RET% = 103 THEN goto M2500
  39. IF RET% = 203 OR RET% = 110 THEN goto M6000
  40. FKZ% = 3: RET% = 4: goto ausmenu02
  41.  
  42. M2500:
  43. REM  display empty format <menu03>
  44. FKZ% = 4: SM% =0: RET% = 4
  45. FMT$ = "menu03  "
  46. REM $INCLUDE: 'menu03.PRO'
  47. CALLS UNIF(FKZ%,FMT$,FMT$,RET%, SM%, Daten$)
  48. goto ausmenu01
  49.  
  50. REM display saved screen, hide mouse
  51. M6000:
  52. FKZ% = 5
  53. CALLS UNIF(FKZ%,FMT$,FMT$,RET%, SM%, Daten$)
  54. CALLS MOUSEOFF
  55. END
  56.