'>>> Page 1 of TUNE.BAS begins here. TYPE:BAS
'** 3-AM SOFTWARE PRESENTS
'** The Christmas Challenge
'** QB Juke
'** As anyone who's seen a graphical program from me you know
'** I'm no good in any screen mode past 2 :)
'** But I'm not bad at all when it comes to text mode.
'** (see help menu for more information)
DECLARE SUB Top.Menu (sel, sel$(), fgc!, bgc!, msg$)
DECLARE SUB WWYAMC ()
DECLARE SUB HFTH ()
DECLARE SUB OCAYF ()
DECLARE SUB OLTOB ()
DECLARE SUB SN ()
DECLARE SUB HHAS ()
DECLARE SUB JTTW ()
DECLARE SUB OHN ()
DECLARE SUB WWAMC ()
DECLARE SUB NS ()
DIM sel$(13, 10)
sel$(0, 0) = " Exit "
sel$(1, 0) = " Side 1 "
sel$(2, 0) = " Side 2 "
sel$(3, 0) = " Help "
sel$(0, 10) = "Press ENTER or ESC to Exit QB Xmas-Juke"
sel$(1, 10) = "Play some tunes"
sel$(2, 10) = "Play some tunes"
sel$(3, 10) = "Help"
'Exit Menu (0,0)
sel$(0, 1) = ""
'Tunes (1,0)
sel$(1, 1) = " Home For The Holidays "
sel$(1, 2) = " O Come All Ye Faithful "
sel$(1, 3) = " O Little Town of Bethlehem "
sel$(1, 4) = " Silent Night "
sel$(1, 5) = " Hark! The Herald Angels Sing "
sel$(1, 6) = ""
sel$(2, 1) = " Joy to The World "
sel$(2, 2) = " O Holy Night"
sel$(2, 3) = " We Wish You a Merry Christmas "
sel$(2, 4) = " Excerpts from The Nutcracker "
sel$(2, 5) = ""
sel$(3, 1) = " About QB-JUKE "
sel$(3, 2) = " How To Navigate "
sel$(3, 3) = " Credits "
sel$(3, 4) = ""
msg$ = " [=] 3-AM SOFTWARE Christmas 97 Production [=] "
Begin: fgc = 7
bgc = 1
CALL Top.Menu(sel, sel$(), fgc!, bgc!, msg$)
'if its 'Esc' then end
IF sel = -1 THEN END
SELECT CASE sel
CASE IS = 1
COLOR 7, 0: CLS : PRINT "Merry Christmas!"
SYSTEM
CASE IS = 11: CALL HFTH:  GOTO Begin
CASE IS = 12: CALL OCAYF: GOTO Begin
CASE IS = 13: CALL OLTOB: GOTO Begin
CASE IS = 14: CALL SN: GOTO Begin
CASE IS = 15: CALL HHAS: GOTO Begin
CASE IS = 21: CALL JTTW: GOTO Begin
CASE IS = 22: CALL OHN: GOTO Begin
CASE IS = 23: CALL WWYAMC: GOTO Begin
CASE IS = 24: CALL NS: GOTO Begin
CASE IS = 31
COLOR 15, 5
LOCATE 10, 15: PRINT " +-------------------------------------------+ "
LOCATE 11, 15: PRINT " |   A 3-AM SOFWARE PRODUCT - Aaron Tucker   | "
LOCATE 12, 15: PRINT " +-------------------------------------------+ "
LOCATE 13, 15: PRINT " | This product is PUBLIC DOMAIN meaning you | "
LOCATE 14, 15: PRINT " | may change, copy, rewrite, or whatever    | "
LOCATE 15, 15: PRINT " | you feel like doing to it.  Please give   | "
LOCATE 16, 15: PRINT " | a little credit though if you find it the | "
LOCATE 17, 15: PRINT " | slightest bit useful!  Thanks!            | "
LOCATE 18, 15: PRINT " |                                           | "
LOCATE 19, 15: PRINT " |                            | "
LOCATE 20, 15: PRINT " +-------------------------------------------+ "
DO: LOOP UNTIL INKEY$  ""
GOTO Begin
CASE IS = 32
COLOR 15, 4
LOCATE 10, 15: PRINT " +-------------------------------------------+ "
LOCATE 11, 15: PRINT " |   If You Are Reading This You Got It!     | "
LOCATE 12, 15: PRINT " +-------------------------------------------+ "
LOCATE 13, 15: PRINT " | But just in case, you can scroll through  | "
LOCATE 14, 15: PRINT " | the bar menu with the left and right arr- | "
LOCATE 15, 15: PRINT " | ow keys.  When a menu pops down, use the  | "
LOCATE 16, 15: PRINT " | arrows and ENTER to select an option or   | "
LOCATE 17, 15: PRINT " | press the number corresponding to the     | "
LOCATE 18, 15: PRINT " | option you want to select.                | "
LOCATE 19, 15: PRINT " |                            | "
LOCATE 20, 15: PRINT " +-------------------------------------------+ "
DO: LOOP UNTIL INKEY$  ""
GOTO Begin
CASE IS = 33
COLOR 15, 3
LOCATE 10, 15: PRINT " +-------------------------------------------+ "
'>>> Page 1 of TUNE.BAS ends here. Continued on next page.
___ Blue Wave/DOS v2.30
--- Maximus 3.00
---------------