home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / basic / tools / basicwi / ufba033.bas < prev    next >
Encoding:
BASIC Source File  |  1993-07-28  |  890 b   |  39 lines
  1. REM Turbo Basic/ Power Basic
  2. REM ufba033.bas
  3. REM
  4. REM ** variable fields
  5. $INCLUDE "UFBA03.INC"
  6. $INCLUDE "order.INC"
  7. REM ** initialize mouse, save actual screen
  8. CALL MOUSEON
  9. FKZ% = 0
  10. CALL UNIF(FKZ%, FMT$, FMT$, RET%, SM%, Daten$)
  11. REM ** display foramt with clear screen
  12. FKZ% = 1
  13. SM% = 0
  14. RET% = 99
  15. EINK:
  16. FMT$ = "order   "
  17. $INCLUDE "order.PRO"
  18. CALL UNIF(FKZ%, FMT$, FMT$, RET% ,SM%, Daten$)
  19. REM ** same format when ESC
  20. IF RET% = 99 THEN FKZ% = 3: RET% = 22: GOTO EINK
  21. REM ** program end when F10
  22. IF RET% = 110 THEN GOTO ENDE 
  23. REM ** display empty format
  24. FKZ% = 4
  25. RET% = 99
  26. FMT$ = "message "
  27. $INCLUDE "message.PRO"
  28. CALL UNIF (FKZ%, FMT$, FMT$, RET% ,SM%, Daten$)
  29. REM ** display format without clear screen
  30. FKZ% = 2
  31. RET% = 99
  32. GOTO EINK
  33. REM ** display saved screen, hide mouse
  34. ENDE:
  35. FKZ% = 5
  36. CALL UNIF (FKZ%, FMT$, FMT$, RET% ,SM%, Daten$)
  37. CALL MOUSEOFF
  38. END
  39.