HBB.BAS

SCREEN 10
TRIANGLE$ = "BU140 BL100 U20 D10 L10 U10 D20 BR20 U10 H10 F10 E10 G10 D10 BR10 U20 F10 G10 D10 BR10 U20 R10 L10 D10 R10 L10 D10 R10 BR10 U20 F7 G7 F10 BR20 U24 F5 G5 F7 G7 BR10 U20 R10 D20 L10 R10 BR10 U20 R10 D20 L10 R10 BR10 U24 F5 G5 F7 G7 BR10 U20 R10 D20 L10 R10 BR10 U20 R10 D20 L10 BD40 BL350 F40 E20 F40 E20 F40 E20 F40 BR150 E40 F20 E40 F20 E40 F20 E40 BD150 BL270 H20 G20 D20 R40 U20 D20 R500 L300 U10 L20 U12 D2 L12 D7 R12  D13 U6 R20 U10 D16 L700"
DRAW "C2X" + VARPTR$(TRIANGLE$)
DRAW "BD30 P1, 2 C3 M-0,-0"
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT "                                   VERSION 1.0                               "
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
'PLAY SCALE IN SEVEN DIFFERENT OACTAVES
SCALE$ = "ABCEABCEAAAP1"
PLAY "T150"
FOR I% = 0 TO 0
PLAY "X" + VARPTR$(SCALE$)
NEXT I%
PRINT "PRESS ENTER TO CONTINUE"
INPUT A$
SCREEN 9
PRINT
PRINT
PRINT
PRINT
PRINT "                                 CREDITS:"
PRINT "                            PROGRAMING BY: BEN"
PRINT "                            MUSIC BY: CHRISTINA"
PRINT "                            TESTING BY: ERIC"
PRINT "PRESS ENTER TO CONTINUE"
INPUT A
CLEAR , , 2000
SCREEN 0
FOR I% = 1 TO 11
COLOR I%
NEXT I%
PRINT "    YOU ARE SLEEPING WITH YOUR BROTHERS AND SISTERS IN YOUR BOX. YOU WAKE UP TO "
PRINT "SEE A SHADOW IN THE GARAGE. IT IS A BULLDOG! YOU SCURRY OUT OF BED AND HIDE BE-"
PRINT "HIND YOUR OWNER'S BIKE. THE BULLDOG SNATCHED UP THE BOX AND CARRIED IT OUTSIDE. "
PRINT "YOU REALIZE HE HAD JUST KITT-NAPED YOUR BROTHER! YOU GO OUTSIDE IN THE MORNING "
PRINT "TO FIND THEM... "
PRINT "PRESS ENTER TO CONTINUE"
INPUT A
CLEAR , , 2000
SCREEN 9
FOR I% = 1 TO 12
COLOR I%
NEXT I%
CAT$ = "BL200 BU70 U70 L40 D70 R40 U10 L40 BD200 L70 R620 L610 U20 R35 E10 U5 D5 R12 D5 L12 D25 U12 L45 D13 BR300"
DRAW "C2X" + VARPTR$(CAT$)
DRAW "BD30 P1,2 C3 M-0,-0"
PRINT "PREPARE FOR BATTLE, BOO-BOO!"