home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / basic / tools / basicwi / ufba032.bas < prev    next >
Encoding:
BASIC Source File  |  1993-07-28  |  1.4 KB  |  56 lines
  1. REM Turbo Basic/ Power Basic
  2. REM ufba32.bas  - example file shows a menu
  3. REM
  4. $INCLUDE "UFBA03.INC"
  5. $INCLUDE "menu01.INC"
  6. $INCLUDE "menu02.INC"
  7.  
  8. REM save screen, initialize mouse
  9. CALL MOUSEON
  10. FKZ% = 0: FMT$ = "menu03  "
  11. CALL 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. $INCLUDE "menu01.PRO"
  20. CALL 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. $INCLUDE "menu02.PRO"
  35. CALL 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. $INCLUDE "menu03.PRO"
  47. CALL UNIF(FKZ%,FMT$,FMT$,RET%, SM%, Daten$)
  48. goto ausmenu01
  49.  
  50. REM display saved screen, hide mouse
  51. M6000:
  52. FKZ% = 5
  53. CALL UNIF(FKZ%,FMT$,FMT$,RET%, SM%, Daten$)
  54. CALL MOUSEOFF
  55. END
  56.