'
' TREE.BAS
' TREE BAS IS A SIMPLE ANIMATION THAT WILL TAKE YOU THROUGH A RIDE OF FUN!
'
' TREE.BAS RICHARD COPELAND 1993
' MUSIC BY JOE GALLOWAY 1993
'


' Subs (17) total

DECLARE SUB INTRO.M ()
DECLARE SUB INTRO.E ()
DECLARE SUB INTRO.R ()
DECLARE SUB INTRO.RR ()
DECLARE SUB INTRO.Y ()
DECLARE SUB INTRO.C ()
DECLARE SUB INTRO.H ()
DECLARE SUB INTRO.RRR ()
DECLARE SUB INTRO.I ()
DECLARE SUB INTRO.S ()
DECLARE SUB INTRO.T ()
DECLARE SUB INTRO.MM ()
DECLARE SUB INTRO.A ()
DECLARE SUB INTRO.SS ()
DECLARE SUB MESSAGE ()
DECLARE SUB SONG.P1 ()
DECLARE SUB SONG.P2 ()


   SCREEN 1

      DIM A%(20, 20) ' Diminsions for trains

'
' Draw Train Then Save it
'

CIRCLE (100, 120), 3, 1, 1, 6, .2
CIRCLE STEP(0, 0), 1, 1, 1, 6, .2
DRAW "BM97,131 C1 U4 R6 D4 U5 L6 D10 G5 R6"
CIRCLE STEP(4, 0), 3, 1, 0, 3.3
DRAW "C1 BR4 R10"
CIRCLE STEP(4, 0), 3, 1, 0, 3.3
DRAW "C1 BR4 R5 U3 L3 U3 L1 D3 L7 U3 L15 U4 BU5 BR8 R16 D10 R2 D1 U1 L2 U10 L16 D8"
CIRCLE STEP(2, -1), 2, 1
DRAW "C1 BD2 R9 D1 L3"
CIRCLE (102, 142), 2, 1
CIRCLE STEP(0, 0), 1, 1
CIRCLE (120, 142), 2, 1
CIRCLE STEP(0, 0), 1, 1
PAINT (98, 132), 2, 1: PAINT (115, 130), 2, 1

GET (92, 144)-(129, 119), A%   ' Get Train and save it

   CLS
     
      INTRO.M         ' Start the MERRY CHRISTMAS animation
        
         CLS

'
' The Tree Drawing
'

DRAW "BM 130,50 C3 G20 R10 G25 R15 G30 R20 D2 G3 D1 R70 U1 H3 U2 R20 H30 R15 H25 R10 H20 E2 G4 H4 L4 E8 F8 L4 BL4 BD83 BL15 D5 R30 U5"
CIRCLE (110, 72), 2, 2
CIRCLE STEP(0, 0), 1
CIRCLE (95, 98), 2, 2
CIRCLE STEP(0, 0), 1
CIRCLE (81, 127), 2, 2
CIRCLE STEP(0, 0), 1
CIRCLE (154, 72), 2, 2
CIRCLE STEP(0, 0), 1
CIRCLE (169, 98), 2, 2
CIRCLE STEP(0, 0), 1
CIRCLE (184, 127), 2, 1
CIRCLE STEP(0, 0), 1
CIRCLE (132, 60), 15, , 3.6, 5.6, .2
CIRCLE STEP(0, 1), 15, , 3.5, 6, .2
CIRCLE (130, 77), 20, , 3.7, 6.1, .2
CIRCLE STEP(0, 1), 20, , 3.7, 6.1, .2
CIRCLE (128, 100), 30, , 3.7, 6.1, .2
CIRCLE STEP(0, 1), 30, , 3.7, 6.1, .2
CIRCLE (132, 67), 2
CIRCLE STEP(0, 0), 1, 2
CIRCLE (120, 85), 2
CIRCLE STEP(0, 0), 1, 2
CIRCLE (140, 85), 2
CIRCLE STEP(0, 0), 1, 2
CIRCLE (110, 109), 2
CIRCLE STEP(0, 0), 1, 2
CIRCLE (130, 110), 2
CIRCLE STEP(0, 0), 1, 2
CIRCLE (150, 108), 2
CIRCLE STEP(0, 0), 1, 2

'
' Put train on screen
'
 
  DO
FOR T = 165 TO 45 STEP -1: FOR A = 1 TO 5: NEXT A
   PUT (T, 120), A%, XOR
      PUT (T, 120), A%
        NEXT T
     GOTO 2
2
FOR T = 45 TO 165: FOR A = 1 TO 5: NEXT A
   PUT (T, 120), A%, XOR
      PUT (T, 120), A%
         NEXT T
      LOOP UNTIL INKEY$ = CHR$(27)
     GOTO 4

4  CLS

PRINT "Please Wait..."  ' Retrun to Program Manager
   CHAIN "moneycga"

SUB INTRO.A

DRAW "BM285,100 G15 R10 E5 F5 R10 H15"
DRAW "BM280,100 G15 R10 E5 F5 R10 H15"
DRAW "BM275,100 G15 R10 E5 F5 R10 H15"
DRAW "BM270,100 G15 R10 E5 F5 R10 H15"
DRAW "BM265,100 G15 R10 E5 F5 R10 H15"
DRAW "BM260,100 G15 R10 E5 F5 R10 H15"
DRAW "BM255,100 G15 R10 E5 F5 R10 H15"

DRAW "BM285,100 C0 G15 R10 E5 F5 R10 H15"
DRAW "BM280,100 G15 R10 E5 F5 R10 H15"
DRAW "BM275,100 G15 R10 E5 F5 R10 H15"
DRAW "BM270,100 G15 R10 E5 F5 R10 H15"
DRAW "BM265,100 G15 R10 E5 F5 R10 H15"
DRAW "BM260,100 G15 R10 E5 F5 R10 H15"
DRAW "BM255,100 G15 R10 E5 F5 R10 H15"
DRAW "BM255,100 C1 G15 R10 E5 F5 R10 H15"

CALL INTRO.SS

END SUB

SUB INTRO.C

CLS

CIRCLE (250, 100), 20, 1, 1.5, 5.4
CIRCLE STEP(5, 0), 15, 1, 1.5, 5.2
DRAW "BM251,83 F5"
CIRCLE (250, 100), 20, 0, 1.5, 5.4
CIRCLE STEP(5, 0), 15, 0, 1.5, 5.2
DRAW "BM251,83 F5"

CIRCLE (220, 100), 20, 1, 1.5, 5.4
CIRCLE STEP(5, 0), 15, 1, 1.5, 5.2
DRAW "BM221,83 F5"
CIRCLE (220, 100), 20, 0, 1.5, 5.4
CIRCLE STEP(5, 0), 15, 0, 1.5, 5.2
DRAW "BM221,83 F5"

CIRCLE (210, 100), 20, 1, 1.5, 5.4
CIRCLE STEP(5, 0), 15, 1, 1.5, 5.2
DRAW "BM211,83 F5"
CIRCLE (210, 100), 20, 0, 1.5, 5.4
CIRCLE STEP(5, 0), 15, 0, 1.5, 5.2
DRAW "BM211,83 F5"

CIRCLE (200, 100), 20, 1, 1.5, 5.4
CIRCLE STEP(5, 0), 15, 1, 1.5, 5.2
DRAW "BM201,83 F5"
CIRCLE (200, 100), 20, 0, 1.5, 5.4
CIRCLE STEP(5, 0), 15, 0, 1.5, 5.2
DRAW "BM201,83 F5"


CIRCLE (30, 100), 20, 1, 1.5, 5.4
CIRCLE STEP(5, 0), 15, 1, 1.5, 5.2
DRAW "BM31,83 F5"
CIRCLE (30, 100), 20, 0, 1.5, 5.4
CIRCLE STEP(5, 0), 15, 0, 1.5, 5.2
DRAW "BM31,83 F5"

CIRCLE (20, 100), 20, 1, 1.5, 5.4
CIRCLE STEP(5, 0), 15, 1, 1.5, 5.2
DRAW "BM21,83 F5"

CALL INTRO.H

END SUB

SUB INTRO.E

DRAW "BM250,100 D20 R20 U5 L15 U3 R5 U4 L5 U4 R15 U5 L20 BM240,100 D20 R20 U5 L15 U3 R5 U4 L5 U4 R15 U5 L20"
DRAW "BM230,100 D20 R20 U5 L15 U3 R5 U4 L5 U4 R15 U5 L20 BM220,100 D20 R20 U5 L15 U3 R5 U4 L5 U4 R15 U5 L20"
DRAW "BM210,100 D20 R20 U5 L15 U3 R5 U4 L5 U4 R15 U5 L20 BM200,100 D20 R20 U5 L15 U3 R5 U4 L5 U4 R15 U5 L20"

DRAW "BM190,100 D20 R20 U5 L15 U3 R5 U4 L5 U4 R15 U5 L20 BM180,100 D20 R20 U5 L15 U3 R5 U4 L5 U4 R15 U5 L20"
DRAW "BM170,100 D20 R20 U5 L15 U3 R5 U4 L5 U4 R15 U5 L20 BM160,100 D20 R20 U5 L15 U3 R5 U4 L5 U4 R15 U5 L20"
DRAW "BM150,100 D20 R20 U5 L15 U3 R5 U4 L5 U4 R15 U5 L20 BM140,100 D20 R20 U5 L15 U3 R5 U4 L5 U4 R15 U5 L20"

DRAW "BM130,100 D20 R20 U5 L15 U3 R5 U4 L5 U4 R15 U5 L20 BM120,100 D20 R20 U5 L15 U3 R5 U4 L5 U4 R15 U5 L20"
DRAW "BM110,100 D20 R20 U5 L15 U3 R5 U4 L5 U4 R15 U5 L20 BM100,100 D20 R20 U5 L15 U3 R5 U4 L5 U4 R15 U5 L20"
DRAW "BM90,100 D20 R20 U5 L15 U3 R5 U4 L5 U4 R15 U5 L20 BM80,100 D20 R20 U5 L15 U3 R5 U4 L5 U4 R15 U5 L20"

DRAW "BM250,100 C0 D20 R20 U5 L15 U3 R5 U4 L5 U4 R15 U5 L20 BM240,100 D20 R20 U5 L15 U3 R5 U4 L5 U4 R15 U5 L20"
DRAW "BM230,100 C0 D20 R20 U5 L15 U3 R5 U4 L5 U4 R15 U5 L20 BM220,100 D20 R20 U5 L15 U3 R5 U4 L5 U4 R15 U5 L20"
DRAW "BM210,100 C0 D20 R20 U5 L15 U3 R5 U4 L5 U4 R15 U5 L20 BM200,100 D20 R20 U5 L15 U3 R5 U4 L5 U4 R15 U5 L20"

DRAW "BM190,100 D20 R20 U5 L15 U3 R5 U4 L5 U4 R15 U5 L20 BM180,100 D20 R20 U5 L15 U3 R5 U4 L5 U4 R15 U5 L20"
DRAW "BM170,100 D20 R20 U5 L15 U3 R5 U4 L5 U4 R15 U5 L20 BM160,100 D20 R20 U5 L15 U3 R5 U4 L5 U4 R15 U5 L20"
DRAW "BM150,100 D20 R20 U5 L15 U3 R5 U4 L5 U4 R15 U5 L20 BM140,100 D20 R20 U5 L15 U3 R5 U4 L5 U4 R15 U5 L20"

DRAW "BM130,100 D20 R20 U5 L15 U3 R5 U4 L5 U4 R15 U5 L20 BM120,100 D20 R20 U5 L15 U3 R5 U4 L5 U4 R15 U5 L20"
DRAW "BM110,100 D20 R20 U5 L15 U3 R5 U4 L5 U4 R15 U5 L20 BM100,100 D20 R20 U5 L15 U3 R5 U4 L5 U4 R15 U5 L20"
DRAW "BM90,100 D20 R20 U5 L15 U3 R5 U4 L5 U4 R15 U5 L20 BM80,100 C1 D20 R20 U5 L15 U3 R5 U4 L5 U4 R15 U5 L20"

CALL INTRO.R

END SUB

SUB INTRO.H

DRAW "BM250,100 D20 R5 U6 R5 D6 R5 U20 L5 D6 L5 U6 L5 BM240,100 D20 R5 U6 R5 D6 R5 U20 L5 D6 L5 U6 L5"
DRAW "BM230,100 D20 R5 U6 R5 D6 R5 U20 L5 D6 L5 U6 L5 BM220,100 D20 R5 U6 R5 D6 R5 U20 L5 D6 L5 U6 L5"
DRAW "BM210,100 D20 R5 U6 R5 D6 R5 U20 L5 D6 L5 U6 L5 BM200,100 D20 R5 U6 R5 D6 R5 U20 L5 D6 L5 U6 L5"
DRAW "BM190,100 D20 R5 U6 R5 D6 R5 U20 L5 D6 L5 U6 L5 BM180,100 D20 R5 U6 R5 D6 R5 U20 L5 D6 L5 U6 L5"
DRAW "BM170,100 D20 R5 U6 R5 D6 R5 U20 L5 D6 L5 U6 L5 BM160,100 D20 R5 U6 R5 D6 R5 U20 L5 D6 L5 U6 L5"
DRAW "BM150,100 D20 R5 U6 R5 D6 R5 U20 L5 D6 L5 U6 L5 BM140,100 D20 R5 U6 R5 D6 R5 U20 L5 D6 L5 U6 L5"
DRAW "BM130,100 D20 R5 U6 R5 D6 R5 U20 L5 D6 L5 U6 L5 BM120,100 D20 R5 U6 R5 D6 R5 U20 L5 D6 L5 U6 L5"
DRAW "BM110,100 D20 R5 U6 R5 D6 R5 U20 L5 D6 L5 U6 L5 BM100,100 D20 R5 U6 R5 D6 R5 U20 L5 D6 L5 U6 L5"
DRAW "BM90,100 D20 R5 U6 R5 D6 R5 U20 L5 D6 L5 U6 L5 BM80,100 D20 R5 U6 R5 D6 R5 U20 L5 D6 L5 U6 L5"
DRAW "BM70,100 D20 R5 U6 R5 D6 R5 U20 L5 D6 L5 U6 L5 BM60,100 D20 R5 U6 R5 D6 R5 U20 L5 D6 L5 U6 L5"
DRAW "BM50,100 D20 R5 U6 R5 D6 R5 U20 L5 D6 L5 U6 L5"

DRAW "BM250,100 C0 D20 R5 U6 R5 D6 R5 U20 L5 D6 L5 U6 L5 BM240,100 D20 R5 U6 R5 D6 R5 U20 L5 D6 L5 U6 L5"
DRAW "BM230,100 D20 R5 U6 R5 D6 R5 U20 L5 D6 L5 U6 L5 BM220,100 D20 R5 U6 R5 D6 R5 U20 L5 D6 L5 U6 L5"
DRAW "BM210,100 D20 R5 U6 R5 D6 R5 U20 L5 D6 L5 U6 L5 BM200,100 D20 R5 U6 R5 D6 R5 U20 L5 D6 L5 U6 L5"
DRAW "BM190,100 D20 R5 U6 R5 D6 R5 U20 L5 D6 L5 U6 L5 BM180,100 D20 R5 U6 R5 D6 R5 U20 L5 D6 L5 U6 L5"
DRAW "BM170,100 D20 R5 U6 R5 D6 R5 U20 L5 D6 L5 U6 L5 BM160,100 D20 R5 U6 R5 D6 R5 U20 L5 D6 L5 U6 L5"
DRAW "BM150,100 D20 R5 U6 R5 D6 R5 U20 L5 D6 L5 U6 L5 BM140,100 D20 R5 U6 R5 D6 R5 U20 L5 D6 L5 U6 L5"
DRAW "BM130,100 D20 R5 U6 R5 D6 R5 U20 L5 D6 L5 U6 L5 BM120,100 D20 R5 U6 R5 D6 R5 U20 L5 D6 L5 U6 L5"
DRAW "BM110,100 D20 R5 U6 R5 D6 R5 U20 L5 D6 L5 U6 L5 BM100,100 D20 R5 U6 R5 D6 R5 U20 L5 D6 L5 U6 L5"
DRAW "BM90,100 D20 R5 U6 R5 D6 R5 U20 L5 D6 L5 U6 L5 BM80,100 D20 R5 U6 R5 D6 R5 U20 L5 D6 L5 U6 L5"
DRAW "BM70,100 D20 R5 U6 R5 D6 R5 U20 L5 D6 L5 U6 L5 BM60,100 D20 R5 U6 R5 D6 R5 U20 L5 D6 L5 U6 L5"
DRAW "BM50,100 D20 R5 U6 R5 D6 R5 U20 L5 D6 L5 U6 L5 BM40,100 C1 D20 R5 U6 R5 D6 R5 U20 L5 D6 L5 U6 L5"

CALL INTRO.RRR
END SUB

SUB INTRO.I

DRAW "BM250,100 D20 R5 U20 L5"
DRAW "BM240,100 D20 R5 U20 L5"
DRAW "BM230,100 D20 R5 U20 L5"
DRAW "BM220,100 D20 R5 U20 L5"
DRAW "BM210,100 D20 R5 U20 L5"
DRAW "BM200,100 D20 R5 U20 L5"
DRAW "BM190,100 D20 R5 U20 L5"
DRAW "BM180,100 D20 R5 U20 L5"
DRAW "BM170,100 D20 R5 U20 L5"
DRAW "BM160,100 D20 R5 U20 L5"
DRAW "BM150,100 D20 R5 U20 L5"
DRAW "BM140,100 D20 R5 U20 L5"
DRAW "BM130,100 D20 R5 U20 L5"
DRAW "BM120,100 D20 R5 U20 L5"
DRAW "BM110,100 D20 R5 U20 L5"
DRAW "BM100,100 D20 R5 U20 L5"

DRAW "BM250,100 C0 D20 R5 U20 L5"
DRAW "BM240,100 D20 R5 U20 L5"
DRAW "BM230,100 D20 R5 U20 L5"
DRAW "BM220,100 D20 R5 U20 L5"
DRAW "BM210,100 D20 R5 U20 L5"
DRAW "BM200,100 D20 R5 U20 L5"
DRAW "BM190,100 D20 R5 U20 L5"
DRAW "BM180,100 D20 R5 U20 L5"
DRAW "BM170,100 D20 R5 U20 L5"
DRAW "BM160,100 D20 R5 U20 L5"
DRAW "BM150,100 D20 R5 U20 L5"
DRAW "BM140,100 D20 R5 U20 L5"
DRAW "BM130,100 D20 R5 U20 L5"
DRAW "BM120,100 D20 R5 U20 L5"
DRAW "BM110,100 D20 R5 U20 L5"

CALL INTRO.S

END SUB

SUB INTRO.M

DRAW "BM250,100 G20 R10 E10 F10 R5 E10 F10 R10 H20 G12 H12 BM250,100 C0 G20 R10 E10 F10 R5 E10 F10 R10 H20 G12  H12"
DRAW "BM250,100 C1 G20 R10 E10 F10 R5 E10 F10 R10 H20 G12 H12 BM250,100 C0 G20 R10 E10 F10 R5 E10 F10 R10 H20 G12  H12"

DRAW "BM230,100 G20 R10 E10 F10 R5 E10 F10 R10 H20 G12 H12 BM230,100 C0 G20 R10 E10 F10 R5 E10 F10 R10 H20 G12  H12"
DRAW "BM230,100 C1 G20 R10 E10 F10 R5 E10 F10 R10 H20 G12 H12 BM230,100 C0 G20 R10 E10 F10 R5 E10 F10 R10 H20 G12 H12"

DRAW "BM210,100 G20 R10 E10 F10 R5 E10 F10 R10 H20 G12 H12 BM210,100 C0 G20 R10 E10 F10 R5 E10 F10 R10 H20 G12  H12"
DRAW "BM210,100 C1 G20 R10 E10 F10 R5 E10 F10 R10 H20 G12 H12 BM210,100 C0 G20 R10 E10 F10 R5 E10 F10 R10 H20 G12  H12"

DRAW "BM190,100 G20 R10 E10 F10 R5 E10 F10 R10 H20 G12 H12 BM190,100 C0 G20 R10 E10 F10 R5 E10 F10 R10 H20 G12  H12"
DRAW "BM190,100 C1 G20 R10 E10 F10 R5 E10 F10 R10 H20 G12 H12 BM190,100 C0 G20 R10 E10 F10 R5 E10 F10 R10 H20 G12 H12"

DRAW "BM170,100 G20 R10 E10 F10 R5 E10 F10 R10 H20 G12 H12 BM170,100 C0 G20 R10 E10 F10 R5 E10 F10 R10 H20 G12  H12"
DRAW "BM170,100 C1 G20 R10 E10 F10 R5 E10 F10 R10 H20 G12 H12 BM170,100 C0 G20 R10 E10 F10 R5 E10 F10 R10 H20 G12  H12"

DRAW "BM150,100 G20 R10 E10 F10 R5 E10 F10 R10 H20 G12 H12 BM150,100 C0 G20 R10 E10 F10 R5 E10 F10 R10 H20 G12  H12"
DRAW "BM150,100 C1 G20 R10 E10 F10 R5 E10 F10 R10 H20 G12 H12 BM150,100 C0 G20 R10 E10 F10 R5 E10 F10 R10 H20 G12  H12"

DRAW "BM130,100 G20 R10 E10 F10 R5 E10 F10 R10 H20 G12 H12 BM130,100 C0 G20 R10 E10 F10 R5 E10 F10 R10 H20 G12  H12"
DRAW "BM130,100 C1 G20 R10 E10 F10 R5 E10 F10 R10 H20 G12 H12 BM130,100 C0 G20 R10 E10 F10 R5 E10 F10 R10 H20 G12  H12"

DRAW "BM110,100 G20 R10 E10 F10 R5 E10 F10 R10 H20 G12 H12 BM110,100 C0 G20 R10 E10 F10 R5 E10 F10 R10 H20 G12  H12"
DRAW "BM110,100 C1 G20 R10 E10 F10 R5 E10 F10 R10 H20 G12 H12 BM110,100 C0 G20 R10 E10 F10 R5 E10 F10 R10 H20 G12  H12"

DRAW "BM90,100 G20 R10 E10 F10 R5 E10 F10 R10 H20 G12 H12 BM90,100 C0 G20 R10 E10 F10 R5 E10 F10 R10 H20 G12  H12"
DRAW "BM90,100 C1 G20 R10 E10 F10 R5 E10 F10 R10 H20 G12 H12 BM90,100 C0 G20 R10 E10 F10 R5 E10 F10 R10 H20 G12  H12"

DRAW "BM20,100 G20 R10 E10 F10 R5 E10 F10 R10 H20 G12 H12 BM20,100 C0 G20 R10 E10 F10 R5 E10 F10 R10 H20 G12  H12"
DRAW "BM20,100 C1 G20 R10 E10 F10 R5 E10 F10 R10 H20 G12 H12"

CALL INTRO.E
END SUB

SUB INTRO.MM

DRAW "BM250,100 G20 R10 E10 F10 R5 E10 F10 R10 H20 G12 H12 BM250,100 C0 G20 R10 E10 F10 R5 E10 F10 R10 H20 G12  H12"
DRAW "BM250,100 C1 G20 R10 E10 F10 R5 E10 F10 R10 H20 G12 H12 BM250,100 C0 G20 R10 E10 F10 R5 E10 F10 R10 H20 G12  H12"

DRAW "BM230,100 G20 R10 E10 F10 R5 E10 F10 R10 H20 G12 H12 BM230,100 C0 G20 R10 E10 F10 R5 E10 F10 R10 H20 G12  H12"
DRAW "BM230,100 C1 G20 R10 E10 F10 R5 E10 F10 R10 H20 G12 H12 BM230,100 C0 G20 R10 E10 F10 R5 E10 F10 R10 H20 G12 H12"

DRAW "BM210,100 C1 G20 R10 E10 F10 R5 E10 F10 R10 H20 G12 H12 BM210,100 C0 G20 R10 E10 F10 R5 E10 F10 R10 H20 G12  H12"

DRAW "BM190,100 C1 G20 R10 E10 F10 R5 E10 F10 R10 H20 G12 H12"

CALL INTRO.A

END SUB

SUB INTRO.R

DRAW "BM 250,100 D20 R10 U5 F5 E5 H5 E5 U5 L20 BR10 BD4 D4 R4 U4 L4 BM 240,100 D20 R10 U5 F5 E5 H5 E5 U5 L20 BR10 BD4 D4 R4 U4 L4"
DRAW "BM 250,100 C0 D20 R10 U5 F5 E5 H5 E5 U5 L20 BR10 BD4 D4 R4 U4 L4 BM 240,100 D20 R10 U5 F5 E5 H5 E5 U5 L20 BR10 BD4 D4 R4 U4 L4"

DRAW "BM 230,100 C1 D20 R10 U5 F5 E5 H5 E5 U5 L20 BR10 BD4 D4 R4 U4 L4 BM 220,100 D20 R10 U5 F5 E5 H5 E5 U5 L20 BR10 BD4 D4 R4 U4 L4"
DRAW "BM 230,100 C0 D20 R10 U5 F5 E5 H5 E5 U5 L20 BR10 BD4 D4 R4 U4 L4 BM 220,100 D20 R10 U5 F5 E5 H5 E5 U5 L20 BR10 BD4 D4 R4 U4 L4"

DRAW "BM 210,100 C1 D20 R10 U5 F5 E5 H5 E5 U5 L20 BR10 BD4 D4 R4 U4 L4 BM 200,100 D20 R10 U5 F5 E5 H5 E5 U5 L20 BR10 BD4 D4 R4 U4 L4"
DRAW "BM 210,100 C0 D20 R10 U5 F5 E5 H5 E5 U5 L20 BR10 BD4 D4 R4 U4 L4 BM 200,100 D20 R10 U5 F5 E5 H5 E5 U5 L20 BR10 BD4 D4 R4 U4 L4"

DRAW "BM 190,100 C1 D20 R10 U5 F5 E5 H5 E5 U5 L20 BR10 BD4 D4 R4 U4 L4 BM 180,100 D20 R10 U5 F5 E5 H5 E5 U5 L20 BR10 BD4 D4 R4 U4 L4"
DRAW "BM 190,100 C0 D20 R10 U5 F5 E5 H5 E5 U5 L20 BR10 BD4 D4 R4 U4 L4 BM 180,100 D20 R10 U5 F5 E5 H5 E5 U5 L20 BR10 BD4 D4 R4 U4 L4"

DRAW "BM 170,100 C1 D20 R10 U5 F5 E5 H5 E5 U5 L20 BR10 BD4 D4 R4 U4 L4 BM 160,100 D20 R10 U5 F5 E5 H5 E5 U5 L20 BR10 BD4 D4 R4 U4 L4"
DRAW "BM 170,100 C0 D20 R10 U5 F5 E5 H5 E5 U5 L20 BR10 BD4 D4 R4 U4 L4 BM 160,100 D20 R10 U5 F5 E5 H5 E5 U5 L20 BR10 BD4 D4 R4 U4 L4"

DRAW "BM 150,100 C1 D20 R10 U5 F5 E5 H5 E5 U5 L20 BR10 BD4 D4 R4 U4 L4 BM 140,100 D20 R10 U5 F5 E5 H5 E5 U5 L20 BR10 BD4 D4 R4 U4 L4"
DRAW "BM 150,100 C0 D20 R10 U5 F5 E5 H5 E5 U5 L20 BR10 BD4 D4 R4 U4 L4 BM 140,100 D20 R10 U5 F5 E5 H5 E5 U5 L20 BR10 BD4 D4 R4 U4 L4"

DRAW "BM 130,100 C1 D20 R10 U5 F5 E5 H5 E5 U5 L20 BR10 BD4 D4 R4 U4 L4"
DRAW "BM 130,100 C0 D20 R10 U5 F5 E5 H5 E5 U5 L20 BR10 BD4 D4 R4 U4 L4"

DRAW "BM 120,100 C1 D20 R10 U5 F5 E5 H5 E5 U5 L20 BR10 BD4 D4 R4 U4 L4"


CALL INTRO.RR

END SUB

SUB INTRO.RR

DRAW "BM 250,100 C1 D20 R10 U5 F5 E5 H5 E5 U5 L20 BR10 BD4 D4 R4 U4 L4 BM 240,100 D20 R10 U5 F5 E5 H5 E5 U5 L20 BR10 BD4 D4 R4 U4 L4"

DRAW "BM 230,100 C1 D20 R10 U5 F5 E5 H5 E5 U5 L20 BR10 BD4 D4 R4 U4 L4 BM 220,100 D20 R10 U5 F5 E5 H5 E5 U5 L20 BR10 BD4 D4 R4 U4 L4"

DRAW "BM 210,100 C1 D20 R10 U5 F5 E5 H5 E5 U5 L20 BR10 BD4 D4 R4 U4 L4 BM 200,100 D20 R10 U5 F5 E5 H5 E5 U5 L20 BR10 BD4 D4 R4 U4 L4"

DRAW "BM 190,100 C1 D20 R10 U5 F5 E5 H5 E5 U5 L20 BR10 BD4 D4 R4 U4 L4 BM 180,100 D20 R10 U5 F5 E5 H5 E5 U5 L20 BR10 BD4 D4 R4 U4 L4"

DRAW "BM 170,100 C1 D20 R10 U5 F5 E5 H5 E5 U5 L20 BR10 BD4 D4 R4 U4 L4 BM 160,100 D20 R10 U5 F5 E5 H5 E5 U5 L20 BR10 BD4 D4 R4 U4 L4"

DRAW "BM 250,100 C0 D20 R10 U5 F5 E5 H5 E5 U5 L20 BR10 BD4 D4 R4 U4 L4 BM 240,100 D20 R10 U5 F5 E5 H5 E5 U5 L20 BR10 BD4 D4 R4 U4 L4"
DRAW "BM 230,100 C0 D20 R10 U5 F5 E5 H5 E5 U5 L20 BR10 BD4 D4 R4 U4 L4 BM 220,100 D20 R10 U5 F5 E5 H5 E5 U5 L20 BR10 BD4 D4 R4 U4 L4"
DRAW "BM 210,100 C0 D20 R10 U5 F5 E5 H5 E5 U5 L20 BR10 BD4 D4 R4 U4 L4 BM 200,100 D20 R10 U5 F5 E5 H5 E5 U5 L20 BR10 BD4 D4 R4 U4 L4"
DRAW "BM 190,100 C0 D20 R10 U5 F5 E5 H5 E5 U5 L20 BR10 BD4 D4 R4 U4 L4 BM 180,100 D20 R10 U5 F5 E5 H5 E5 U5 L20 BR10 BD4 D4 R4 U4 L4"
DRAW "BM 170,100 C0 D20 R10 U5 F5 E5 H5 E5 U5 L20 BR10 BD4 D4 R4 U4 L4 BM 160,100 D20 R10 U5 F5 E5 H5 E5 U5 L20 BR10 BD4 D4 R4 U4 L4"

DRAW "BM 150,100 C1 D20 R10 U5 F5 E5 H5 E5 U5 L20 BR10 BD4 D4 R4 U4 L4"

CALL INTRO.Y

END SUB

SUB INTRO.RRR

DRAW "BM 250,100 D20 R10 U5 F5 E5 H5 E5 U5 L20 BR10 BD4 D4 R4 U4 L4 BM 240,100 D20 R10 U5 F5 E5 H5 E5 U5 L20 BR10 BD4 D4 R4 U4 L4"
DRAW "BM 250,100 C0 D20 R10 U5 F5 E5 H5 E5 U5 L20 BR10 BD4 D4 R4 U4 L4 BM 240,100 D20 R10 U5 F5 E5 H5 E5 U5 L20 BR10 BD4 D4 R4 U4 L4"

DRAW "BM 230,100 C1 D20 R10 U5 F5 E5 H5 E5 U5 L20 BR10 BD4 D4 R4 U4 L4 BM 220,100 D20 R10 U5 F5 E5 H5 E5 U5 L20 BR10 BD4 D4 R4 U4 L4"
DRAW "BM 230,100 C0 D20 R10 U5 F5 E5 H5 E5 U5 L20 BR10 BD4 D4 R4 U4 L4 BM 220,100 D20 R10 U5 F5 E5 H5 E5 U5 L20 BR10 BD4 D4 R4 U4 L4"

DRAW "BM 210,100 C1 D20 R10 U5 F5 E5 H5 E5 U5 L20 BR10 BD4 D4 R4 U4 L4 BM 200,100 D20 R10 U5 F5 E5 H5 E5 U5 L20 BR10 BD4 D4 R4 U4 L4"
DRAW "BM 210,100 C0 D20 R10 U5 F5 E5 H5 E5 U5 L20 BR10 BD4 D4 R4 U4 L4 BM 200,100 D20 R10 U5 F5 E5 H5 E5 U5 L20 BR10 BD4 D4 R4 U4 L4"

DRAW "BM 190,100 C1 D20 R10 U5 F5 E5 H5 E5 U5 L20 BR10 BD4 D4 R4 U4 L4 BM 180,100 D20 R10 U5 F5 E5 H5 E5 U5 L20 BR10 BD4 D4 R4 U4 L4"
DRAW "BM 190,100 C0 D20 R10 U5 F5 E5 H5 E5 U5 L20 BR10 BD4 D4 R4 U4 L4 BM 180,100 D20 R10 U5 F5 E5 H5 E5 U5 L20 BR10 BD4 D4 R4 U4 L4"

DRAW "BM 170,100 C1 D20 R10 U5 F5 E5 H5 E5 U5 L20 BR10 BD4 D4 R4 U4 L4 BM 160,100 D20 R10 U5 F5 E5 H5 E5 U5 L20 BR10 BD4 D4 R4 U4 L4"
DRAW "BM 170,100 C0 D20 R10 U5 F5 E5 H5 E5 U5 L20 BR10 BD4 D4 R4 U4 L4 BM 160,100 D20 R10 U5 F5 E5 H5 E5 U5 L20 BR10 BD4 D4 R4 U4 L4"

DRAW "BM 150,100 C1 D20 R10 U5 F5 E5 H5 E5 U5 L20 BR10 BD4 D4 R4 U4 L4 BM 140,100 D20 R10 U5 F5 E5 H5 E5 U5 L20 BR10 BD4 D4 R4 U4 L4"
DRAW "BM 150,100 C0 D20 R10 U5 F5 E5 H5 E5 U5 L20 BR10 BD4 D4 R4 U4 L4 BM 140,100 D20 R10 U5 F5 E5 H5 E5 U5 L20 BR10 BD4 D4 R4 U4 L4"

DRAW "BM 130,100 C1 D20 R10 U5 F5 E5 H5 E5 U5 L20 BR10 BD4 D4 R4 U4 L4"
DRAW "BM 130,100 C0 D20 R10 U5 F5 E5 H5 E5 U5 L20 BR10 BD4 D4 R4 U4 L4"

DRAW "BM 120,100 C1 D20 R10 U5 F5 E5 H5 E5 U5 L20 BR10 BD4 D4 R4 U4 L4"
DRAW "BM 120,100 C0 D20 R10 U5 F5 E5 H5 E5 U5 L20 BR10 BD4 D4 R4 U4 L4"

DRAW "BM 110,100 C1 D20 R10 U5 F5 E5 H5 E5 U5 L20 BR10 BD4 D4 R4 U4 L4"
DRAW "BM 110,100 C0 D20 R10 U5 F5 E5 H5 E5 U5 L20 BR10 BD4 D4 R4 U4 L4"

DRAW "BM 100,100 C1 D20 R10 U5 F5 E5 H5 E5 U5 L20 BR10 BD4 D4 R4 U4 L4"
DRAW "BM 100,100 C0 D20 R10 U5 F5 E5 H5 E5 U5 L20 BR10 BD4 D4 R4 U4 L4"

DRAW "BM 90,100 C1 D20 R10 U5 F5 E5 H5 E5 U5 L20 BR10 BD4 D4 R4 U4 L4"
DRAW "BM 90,100 C0 D20 R10 U5 F5 E5 H5 E5 U5 L20 BR10 BD4 D4 R4 U4 L4"

DRAW "BM 80,100 C1 D20 R10 U5 F5 E5 H5 E5 U5 L20 BR10 BD4 D4 R4 U4 L4"
DRAW "BM 80,100 C0 D20 R10 U5 F5 E5 H5 E5 U5 L20 BR10 BD4 D4 R4 U4 L4"

DRAW "BM 70,100 C1 D20 R10 U5 F5 E5 H5 E5 U5 L20 BR10 BD4 D4 R4 U4 L4"

CALL INTRO.I

END SUB

SUB INTRO.S

DRAW "BM250,100 D10 R5 D5 L10 D5 R20 U10 L5 U5 R10 U5 L20"
DRAW "BM250,100 C0 D10 R5 D5 L10 D5 R20 U10 L5 U5 R10 U5 L20"

DRAW "BM240,100 C1 D10 R5 D5 L10 D5 R20 U10 L5 U5 R10 U5 L20"
DRAW "BM240,100 C0 D10 R5 D5 L10 D5 R20 U10 L5 U5 R10 U5 L20"

DRAW "BM230,100 C1 D10 R5 D5 L10 D5 R20 U10 L5 U5 R10 U5 L20"
DRAW "BM230,100 C0 D10 R5 D5 L10 D5 R20 U10 L5 U5 R10 U5 L20"

DRAW "BM220,100 C1 D10 R5 D5 L10 D5 R20 U10 L5 U5 R10 U5 L20"
DRAW "BM220,100 C0 D10 R5 D5 L10 D5 R20 U10 L5 U5 R10 U5 L20"

DRAW "BM210,100 C1 D10 R5 D5 L10 D5 R20 U10 L5 U5 R10 U5 L20"
DRAW "BM210,100 C0 D10 R5 D5 L10 D5 R20 U10 L5 U5 R10 U5 L20"

DRAW "BM200,100 C1 D10 R5 D5 L10 D5 R20 U10 L5 U5 R10 U5 L20"
DRAW "BM200,100 C0 D10 R5 D5 L10 D5 R20 U10 L5 U5 R10 U5 L20"

DRAW "BM190,100 C1 D10 R5 D5 L10 D5 R20 U10 L5 U5 R10 U5 L20"
DRAW "BM190,100 C0 D10 R5 D5 L10 D5 R20 U10 L5 U5 R10 U5 L20"

DRAW "BM180,100 C1 D10 R5 D5 L10 D5 R20 U10 L5 U5 R10 U5 L20"
DRAW "BM180,100 C0 D10 R5 D5 L10 D5 R20 U10 L5 U5 R10 U5 L20"

DRAW "BM170,100 C1 D10 R5 D5 L10 D5 R20 U10 L5 U5 R10 U5 L20"
DRAW "BM170,100 C0 D10 R5 D5 L10 D5 R20 U10 L5 U5 R10 U5 L20"

DRAW "BM160,100 C1 D10 R5 D5 L10 D5 R20 U10 L5 U5 R10 U5 L20"
DRAW "BM160,100 C0 D10 R5 D5 L10 D5 R20 U10 L5 U5 R10 U5 L20"

DRAW "BM150,100 C1 D10 R5 D5 L10 D5 R20 U10 L5 U5 R10 U5 L20"
DRAW "BM150,100 C0 D10 R5 D5 L10 D5 R20 U10 L5 U5 R10 U5 L20"

DRAW "BM140,100 C1 D10 R5 D5 L10 D5 R20 U10 L5 U5 R10 U5 L20"
DRAW "BM140,100 C0 D10 R5 D5 L10 D5 R20 U10 L5 U5 R10 U5 L20"

DRAW "BM130,100 C1 D10 R5 D5 L10 D5 R20 U10 L5 U5 R10 U5 L20"
DRAW "BM130,100 C0 D10 R5 D5 L10 D5 R20 U10 L5 U5 R10 U5 L20"

DRAW "BM120,100 C1 D10 R5 D5 L10 D5 R20 U10 L5 U5 R10 U5 L20"

CALL INTRO.T
END SUB

SUB INTRO.SS

DRAW "BM285,100 D10 R5 D5 L10 D5 R20 U10 L5 U5 R10 U5 L20"
DRAW "BM285,100 C0 D10 R5 D5 L10 D5 R20 U10 L5 U5 R10 U5 L20"

DRAW "BM280,100 C1 D10 R5 D5 L10 D5 R20 U10 L5 U5 R10 U5 L20"
  

CALL SONG.P2

CLS

END SUB

SUB INTRO.T

DRAW "BM250,100 D5 R5 D15 R5 U15 R5 U5 L15"
DRAW "BM240,100 C1 D5 R5 D15 R5 U15 R5 U5 L15"
DRAW "BM230,100 C1 D5 R5 D15 R5 U15 R5 U5 L15"
DRAW "BM220,100 C1 D5 R5 D15 R5 U15 R5 U5 L15"
DRAW "BM210,100 C1 D5 R5 D15 R5 U15 R5 U5 L15"
DRAW "BM200,100 C1 D5 R5 D15 R5 U15 R5 U5 L15"
DRAW "BM190,100 C1 D5 R5 D15 R5 U15 R5 U5 L15"
DRAW "BM180,100 C1 D5 R5 D15 R5 U15 R5 U5 L15"
DRAW "BM170,100 C1 D5 R5 D15 R5 U15 R5 U5 L15"
DRAW "BM160,100 C1 D5 R5 D15 R5 U15 R5 U5 L15"
DRAW "BM150,100 C1 D5 R5 D15 R5 U15 R5 U5 L15"

DRAW "BM250,100 C0 D5 R5 D15 R5 U15 R5 U5 L15"
DRAW "BM240,100 D5 R5 D15 R5 U15 R5 U5 L15"
DRAW "BM230,100 D5 R5 D15 R5 U15 R5 U5 L15"
DRAW "BM220,100 D5 R5 D15 R5 U15 R5 U5 L15"
DRAW "BM210,100 D5 R5 D15 R5 U15 R5 U5 L15"
DRAW "BM200,100 D5 R5 D15 R5 U15 R5 U5 L15"
DRAW "BM190,100 D5 R5 D15 R5 U15 R5 U5 L15"
DRAW "BM180,100 D5 R5 D15 R5 U15 R5 U5 L15"
DRAW "BM170,100 D5 R5 D15 R5 U15 R5 U5 L15"
DRAW "BM160,100 D5 R5 D15 R5 U15 R5 U5 L15"
DRAW "BM150,100 C1 D5 R5 D15 R5 U15 R5 U5 L15"

CALL INTRO.MM
END SUB

SUB INTRO.Y

DRAW "BM250,100 F10 D10 R5 U10 E10 L10 G5 H5 L5 BM240,100 F10 D10 R5 U10 E10 L10 G5 H5 L5"
DRAW "BM250,100 C0 F10 D10 R5 U10 E10 L10 G5 H5 L5 BM240,100 F10 D10 R5 U10 E10 L10 G5 H5 L5"

DRAW "BM230,100 C1 F10 D10 R5 U10 E10 L10 G5 H5 L5 BM220,100 F10 D10 R5 U10 E10 L10 G5 H5 L5"
DRAW "BM230,100 C0 F10 D10 R5 U10 E10 L10 G5 H5 L5 BM220,100 F10 D10 R5 U10 E10 L10 G5 H5 L5"

DRAW "BM210,100 C1 F10 D10 R5 U10 E10 L10 G5 H5 L5 BM200,100 F10 D10 R5 U10 E10 L10 G5 H5 L5"
DRAW "BM210,100 C0 F10 D10 R5 U10 E10 L10 G5 H5 L5 BM200,100 F10 D10 R5 U10 E10 L10 G5 H5 L5"

DRAW "BM195,100 C1 F10 D10 R5 U10 E10 L10 G5 H5 L5 BM190,100 F10 D10 R5 U10 E10 L10 G5 H5 L5"
DRAW "BM195,100 C0 F10 D10 R5 U10 E10 L10 G5 H5 L5 BM190,100 F10 D10 R5 U10 E10 L10 G5 H5 L5"

DRAW "BM185,100 C1 F10 D10 R5 U10 E10 L10 G5 H5 L5"
DRAW "BM185,100 C0 F10 D10 R5 U10 E10 L10 G5 H5 L5 BM180,100 C1 F10 D10 R5 U10 E10 L10 G5 H5 L5"

CALL SONG.P1

CLS

END SUB

SUB MESSAGE

SCREEN 0, 0, 0

PRINT : PRINT : COLOR 2
PRINT "          C H R I S T M A S"
PRINT : PRINT
PRINT " WHAT IS CHRISTMAS?"
PRINT : COLOR 4
PRINT " Christmas:"
PRINT "   December 25, a holiday celebrated by    Christians as the anniversary "
PRINT "   of the birth of Jesus."

SLEEP 10

SCREEN 1

END SUB

SUB SONG.P1


PLAY "MNL4N40L6N39L16N37L3N35L8N33L4N32L4N30L3N28L8N35L3N37L8N37L3N39L8N39L2N40"

CALL INTRO.C

END SUB

SUB SONG.P2

PLAY "MNL8N40L8N40L8N39L8N37L8N35L6N35L16N33L8N32L8N40L8N40L8N39L8N37L8N35L6N35L16N33L8N32"
PLAY "MNL8N32L8N32L8N32L8N32L16N32L16N33L3N35L16N33L16N32L8N30L8N30L8N30L16N30L16N32L3N33"
PLAY "MNL16N32L16N30L8N28L4N40L8N37L6N35L16N33L8N32L8N33L4N32L4N30L2N28"

CALL MESSAGE

END SUB

SUB TRAIN

DRAW "BM50,125 C1 D5 G5 TA-25 R5 TA0 U12"
CIRCLE STEP(5, 0), 5, 2, , , .3
DRAW "C1 BR5 D3 TA-22D4 TA-12 R5 TA0 U5 TA-22 L3 BR3 BL-3 L2 R8 TA22 R8 TA-20 L10 TA-70 D6 TA0 BD4 BR7 TA7 D5 R3 U3 R3 D3 R3 TA0 U7 D13 TA-10 L9 TA0 U5"
CIRCLE STEP(-4, 5), 3, , 1, 2.8
DRAW "TA-20 BL4 L3"
CIRCLE STEP(-4, 0), 3, , 0, 2.9
DRAW "BL2 L2"
CIRCLE (55, 140), 2, 3
CIRCLE STEP(0, 0), 1, 2
CIRCLE (66, 141), 2, 3
CIRCLE STEP(0, 0), 1, 2

END SUB