home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power-Programmierung
/
CD1.mdf
/
basic
/
tools
/
basicwi
/
ufba043.bas
< prev
next >
Wrap
BASIC Source File
|
1993-07-28
|
916b
|
39 lines
REM MS Quick Basic / MS Basic
REM ufba043.bas
REM
REM ** variable fields
REM $INCLUDE: 'UFBA04.INC'
REM $INCLUDE: 'order.INC'
REM ** initialize mouse, save actual screen
CALLS MOUSEON
FKZ% = 0
CALLS UNIF(FKZ%, FMT$, FMT$, RET%, SM%, Daten$)
REM ** display foramt with clear screen
FKZ% = 1
SM% = 0
RET% = 99
EINK:
FMT$ = "order "
REM $INCLUDE: 'order.PRO'
CALLS UNIF(FKZ%, FMT$, FMT$, RET% ,SM%, Daten$)
REM ** same format when ESC
IF RET% = 99 THEN FKZ% = 3: RET% = 22: GOTO EINK
REM ** program end when F10
IF RET% = 110 THEN GOTO ENDE
REM ** display empty format
FKZ% = 4
RET% = 99
FMT$ = "message "
REM $INCLUDE: 'message.PRO'
CALLS UNIF (FKZ%, FMT$, FMT$, RET% ,SM%, Daten$)
REM ** display format without clear screen
FKZ% = 2
RET% = 99
GOTO EINK
REM ** display saved screen, hide mouse
ENDE:
FKZ% = 5
CALLS UNIF (FKZ%, FMT$, FMT$, RET% ,SM%, Daten$)
CALLS MOUSEOFF
END