home *** CD-ROM | disk | FTP | other *** search
/ The World of Computer Software / World_Of_Computer_Software-02-387-Vol-3of3.iso / f / funquiz.zip / FQLVL71.BAT < prev    next >
DOS Batch File  |  1993-02-24  |  2KB  |  75 lines

  1.  
  2. :THIS IS THE FQLVL71 BATCH FILE FOR MARA'S "FUNQUIZ"
  3.  
  4. @ECHO OFF
  5. :71A
  6. LOADSCRN HLTHCH1.SCR
  7. WAIT K 3
  8. LOADSCRN GPHLVL7.SCR
  9. POPWIN 4 9 22 13 RED WHI 2
  10. WRITE 9 11 RED WHI S NEW LEVEL
  11. WAIT K 5
  12. LOADSCRN GL1.SCR
  13. TICWRITE T 25 7 WHI BLU HISTORY
  14. TICWRITE T 19 12 WHI BLU CAUSED 25 MILLION DEATHS IN EUROPE 1337 - 1453.
  15. TICWRITE T 33 14 WHI BLU F1 BLACK DEATH
  16. TICWRITE T 33 16 WHI BLU F2 CHICKEN POX
  17. TICWRITE T 33 18 WHI BLU F3 MEASLES
  18. KEYPRESS F1 F2 F3
  19. IF ERRORLEVEL 3 GOTO W71A
  20. IF ERRORLEVEL 2 GOTO W71A
  21. IF ERRORLEVEL 1 GOTO R71A
  22. :W71A
  23. BEEPER W
  24. POPWIN 25 8 55 14 BLA RED 2
  25. WRITE 30 10 BLA RED C SORRY,
  26. WRITE 30 12 BLA RED C THAT'S WRONG.
  27. WAIT K 1
  28. FQLVL72.BAT
  29. :R71A
  30. BEEPER R
  31. POPWIN 25 8 55 14 BLA GRE 2
  32. WRITE 30 10 BLA GRE C GOOD
  33. WRITE 30 12 BLA GRE C THAT'S RIGHT.
  34. WAIT K 1
  35. GOTO 71B
  36. :71B
  37. LOADSCRN GL1.SCR
  38. TICWRITE T 25 7 WHI BLU SCIENCE
  39. TICWRITE T 19 12 WHI BLU FIRST TO CLIMB MOUNT EVEREST.
  40. TICWRITE T 33 14 WHI BLU F1 HILLARY
  41. TICWRITE T 33 16 WHI BLU F2 WHITTAKER
  42. TICWRITE T 33 18 WHI BLU F3 GUYOT
  43. KEYPRESS F1 F2 F3
  44. IF ERRORLEVEL 3 GOTO W71A
  45. IF ERRORLEVEL 2 GOTO W71A
  46. IF ERRORLEVEL 1 GOTO R71B
  47. :R71B
  48. BEEPER R
  49. POPWIN 25 8 55 14 BLA GRE 2
  50. WRITE 30 10 BLA GRE C GOOD JOB
  51. WRITE 30 12 BLA GRE C NICE PICK.
  52. WAIT K 1
  53. GOTO 71C
  54. :71C
  55. LOADSCRN GL1.SCR
  56. TICWRITE T 25 7 WHI BLU SPORTS
  57. TICWRITE T 19 12 WHI BLU HOUSTON'S MAJOR LEAGUE BASEBALL TEAM.
  58. TICWRITE T 33 14 WHI BLU F1 RANGERS
  59. TICWRITE T 33 16 WHI BLU F2 OILERS
  60. TICWRITE T 33 18 WHI BLU F3 ASTROS
  61. KEYPRESS F1 F2 F3
  62. IF ERRORLEVEL 3 GOTO R71C
  63. IF ERRORLEVEL 2 GOTO W71A
  64. IF ERRORLEVEL 1 GOTO W71A
  65. :R71C
  66. BEEPER R
  67. POPWIN 25 8 55 14 BLA GRE 2
  68. WRITE 30 10 BLA GRE C YOU ARE A
  69. WRITE 30 12 BLA GRE C TRIVIA CHAMPION !
  70. WAIT K 1
  71. LOADSCRN CHAMPION.SCR
  72. WAIT K 5
  73. REGISTER.BAT
  74.  
  75.