home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / basic / tools / basicwi / ufba043.bas < prev    next >
BASIC Source File  |  1993-07-28  |  916b  |  39 lines
  1. REM MS Quick Basic / MS Basic
  2. REM ufba043.bas
  3. REM
  4. REM ** variable fields
  5. REM $INCLUDE: 'UFBA04.INC'
  6. REM $INCLUDE: 'order.INC'
  7. REM ** initialize mouse, save actual screen
  8. CALLS MOUSEON
  9. FKZ% = 0
  10. CALLS 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. REM $INCLUDE: 'order.PRO'
  18. CALLS 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. REM $INCLUDE: 'message.PRO'
  28. CALLS 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. CALLS UNIF (FKZ%, FMT$, FMT$, RET% ,SM%, Daten$)
  37. CALLS MOUSEOFF
  38. END
  39.