home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The World of Computer Software
/
World_Of_Computer_Software-02-387-Vol-3of3.iso
/
f
/
funquiz.zip
/
FQLVL43.BAT
< prev
next >
Wrap
DOS Batch File
|
1993-02-03
|
2KB
|
69 lines
:THIS IS THE FQLVL43 BATCH FILE FOR MARA'S "FUNQUIZ"
@ECHO OFF
:43A
LOADSCRN HLTHCH3.SCR
WAIT K 3
LOADSCRN SL3.SCR
TICWRITE T 25 7 WHI GRE GEOGRAPHY
TICWRITE T 19 12 WHI GRE WHICH COUNTRY'S FLAG IS NOT RECTANGULAR ?
TICWRITE T 33 14 WHI GRE F1 TURKEY
TICWRITE T 33 16 WHI GRE F2 NEPAL
TICWRITE T 33 18 WHI GRE F3 PERU
KEYPRESS F1 F2 F3
IF ERRORLEVEL 3 GOTO W43A
IF ERRORLEVEL 2 GOTO R43A
IF ERRORLEVEL 1 GOTO W43A
:W43A
BEEPER W
POPWIN 25 8 55 14 BLA RED 2
WRITE 30 10 BLA RED C SORRY,
WRITE 30 12 BLA RED C WRONG ANSWER.
WAIT K 1
FQLOSE.BAT
:R43A
BEEPER R
POPWIN 25 8 55 14 WHI BLU 2
WRITE 30 10 WHI BLU C EXCELLENT
WRITE 30 12 WHI BLU C NICE CHOICE.
WAIT K 1
GOTO 43B
:43B
LOADSCRN SL3.SCR
TICWRITE T 25 7 WHI GRE LEISURE & TRAVEL
TICWRITE T 19 12 WHI GRE THE BARBADOS WESTERN SHORE IS CALLED.
TICWRITE T 33 14 WHI GRE F1 GOLD COAST
TICWRITE T 33 16 WHI GRE F2 PLATINUM COAST
TICWRITE T 33 18 WHI GRE F3 SUN COAST
KEYPRESS F1 F2 F3
IF ERRORLEVEL 3 GOTO W43A
IF ERRORLEVEL 2 GOTO R43B
IF ERRORLEVEL 1 GOTO W43A
:R43B
BEEPER R
POPWIN 25 8 55 14 WHI BLU 2
WRITE 30 10 WHI BLU C YOU SEEM
WRITE 30 12 WHI BLU C TO KNOW YOUR STUFF.
WAIT K 1
GOTO 43C
:43C
LOADSCRN SL3.SCR
TICWRITE T 25 7 WHI GRE POTLUCK
TICWRITE T 19 12 WHI GRE GAS IN CAR EXHAUST FUMES.
TICWRITE T 33 14 WHI GRE F1 CARBON MONOXIDE
TICWRITE T 33 16 WHI GRE F2 CARBON DIOXIDE
TICWRITE T 33 18 WHI GRE F3 HYDRO CARBON
KEYPRESS F1 F2 F3
IF ERRORLEVEL 3 GOTO W43A
IF ERRORLEVEL 2 GOTO W43A
IF ERRORLEVEL 1 GOTO R43C
:R43C
BEEPER R
POPWIN 25 8 55 14 WHI BLU 2
WRITE 30 10 WHI BLU C HERE YOU GO
WRITE 30 12 WHI BLU C UP ANOTHER LEVEL.
WAIT K 1
FQLVL51.BAT