home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power-Programmierung
/
CD1.mdf
/
basic
/
tools
/
basicwi
/
ufba032.bas
< prev
next >
Wrap
BASIC Source File
|
1993-07-28
|
1KB
|
56 lines
REM Turbo Basic/ Power Basic
REM ufba32.bas - example file shows a menu
REM
$INCLUDE "UFBA03.INC"
$INCLUDE "menu01.INC"
$INCLUDE "menu02.INC"
REM save screen, initialize mouse
CALL MOUSEON
FKZ% = 0: FMT$ = "menu03 "
CALL UNIF(FKZ%,FMT$,FMT$,RET%, SM%, Daten$)
REM display <menu01>
MID$(fld0$,1) = "Functions "
MID$(fld1$,1) = "Programend"
ausmenu01:
FKZ% = 2: SM% = 0: RET% = 0
FMT$ = "menu01 "
$INCLUDE "menu01.PRO"
CALL UNIF(FKZ%,FMT$,FMT$,RET%, SM%, Daten$)
IF RET% = 200 THEN GOTO M2000
IF RET% = 201 THEN GOTO M6000
goto ausmenu01
REM display <menu02>
M2000:
MID$(fld2$,1) = "File new F1 "
MID$(fld3$,1) = "File open F2 "
MID$(fld4$,1) = "File delete F3 "
MID$(fld5$,1) = "Program end F10 "
FKZ% = 2: SM% = 0: RET% = 4
ausmenu02:
FMT$ = "menu02 "
$INCLUDE "menu02.PRO"
CALL UNIF(FKZ%,FMT$,FMT$,RET%, SM%, Daten$)
IF RET% = 200 OR RET% = 101 THEN goto M2500
IF RET% = 201 OR RET% = 102 THEN goto M2500
IF RET% = 202 OR RET% = 103 THEN goto M2500
IF RET% = 203 OR RET% = 110 THEN goto M6000
FKZ% = 3: RET% = 4: goto ausmenu02
M2500:
REM display empty format <menu03>
FKZ% = 4: SM% =0: RET% = 4
FMT$ = "menu03 "
$INCLUDE "menu03.PRO"
CALL UNIF(FKZ%,FMT$,FMT$,RET%, SM%, Daten$)
goto ausmenu01
REM display saved screen, hide mouse
M6000:
FKZ% = 5
CALL UNIF(FKZ%,FMT$,FMT$,RET%, SM%, Daten$)
CALL MOUSEOFF
END