GD1.BAS

1 SCREEN 1
 TRIANGLE$ = "BD30H20 L20 G5 L20 G5 L20 G5 L20 G5 U20 R10 F15 L20 G5 R120 H7 L13 U13 D13 BL10 L40 BU70 F20 E20 H20 G20 BR15 U5 R10 D10 L10 U5 BR70 BD 20 U5 E5 R10 F5 D10 G5 L10 H5 U10 E5 D20 R5 U20 R5 D20 BD70 D10 BE5 L10 BE70 BR40 R20 BG10 U20 BL30 BD60 L6 BF3 U6 BD40 BL150 U10 BF5 L10 BL50 BU70 U10 BF5 L10"
DRAW "C2X" + VARPTR$(TRIANGLE$)
DRAW "BL60 P1, 2 C3 M-0,-0"
PRINT "           GALACTIC DEFENDER"
PRINT "           BY: BEN & ERIC F."
'PLAY SCALE IN 7 DIFFERENT OCTAVES
SCALE$ = "CCD#CCF#CCD#D#CCG#"
PLAY "T200"
FOR I% = 0 TO 0
PLAY "X" + VARPTR$(SCALE$)
NEXT I%
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
10 PRINT "THIS IS THE HOME BASE'S COMPUTER. PLEASE"
20 PRINT "TYPE IN THE RIGHT NUMBERS FOR THE ACCESS"
25 PRINT "CODE."
30 INPUT A
40 IF A = 7040 THEN 90
50 IF A > 7040 THEN 70
60 IF A < 7040 THEN 70
70 PRINT "SORRY, THAT IS THE WRONG ACCESS CODE."
80 PRINT "BYE!": END
90 PRINT "YOU MAY ENTER THE BASE SEEING THAT"
100 PRINT "YOU HAVE THE CORRECT ACCESS CODE."
110 PRINT "THE COMMANDER WILL BE WAITING FOR"
120 PRINT "YOU IN THE WEST WING."
130 PRINT "  YOU GO TO THE WEST WING AND THE"
140 PRINT "COMMANDER GREETS YOU. 'AS YOU KNOW,'"
150 PRINT "THE COMMANDER SAYS 'OUR SOLAR SYSTEM,"
160 PRINT "DASMO IS BEING ATTACKED BY MANY  ALEIN"
170 PRINT "FORCES. YOU MUST GO TO ALL OUR PLANETS,"
180 PRINT "GIVE THEM WEPONS FOR DEFENDING AND YOU"
190 PRINT "MUST FLY BACK ALIVE. WE HAVE A NEW SHIP"
200 PRINT "YOU CAN USE CALLED THE F-217 SPACE SHIP"
210 PRINT ". IT'S RELATED TO THE STEALTH. GO TO"
220 PRINT "THE HANGER WHERE THE PLANE IS. GOOD"
230 PRINT "LUCK!' YOU GET TO THE HANGER AND START"
240 PRINT "THE PLANE."
250 PRINT "         PRESS ENTER TO CONTINUE"
260 INPUT A
280 PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT "PRESS 1 TO TAKE OFF"
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
SCREEN 1
290 TRIANGLE$ = "BU40 BU30 R40 R40 R40 R40 R40 R40 R40R40 U40 BD40 BL40 BL40 BL40 BL40 BL20 BD20 L10 L40 R40 R10 R40 R40 F90 L310 E90 G90 BD20 D30 R310 U30 L310 BU10"
300 DRAW "C2X" + VARPTR$(TRIANGLE$)
310 DRAW "P1, 2 C3 M-0,-0"
320 INPUT A
330 IF A = 1 THEN 340
340 PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
345 SCREEN 1
TRIANGLE$ = "BR200 BU60 H20 L20 G5 L20 G5 L20 G5 L20 G5 U20 R10 F15 L20 G5 R120 H7 L13 U13 D13 BL10 L40 R40 BR10 BD20 D50 BL20 U50 BL20 D50 BL20 U50 BL20 D50 BD10 D10 U10 R80 D10 "
DRAW "C2X" + VARPTR$(TRIANGLE$)
DRAW "P1, 2 C3 M-0,-0"
FOR I% = 100 TO 200
SOUND I%, I% / 200
NEXT I%
PRINT : PRINT : PRINT : PRINT : PRINT : PRINT : PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
SCREEN 1
TRIANGLE$ = "BU80 BL220 BU40 BU30 R40 R40 R40 R40 R40 R40 R40 R40 U40 BD40 BL40 BL40 BL40 L20 BD20 L10 L40 R40 R10 R40 R40 F90 L310 E90 G90 BD20 D30 R310 U30 L310 BU30 BR155 BU30 BL10 U10 D20 U10 L10 R20 BE30 BR30 R20 L10 D10 U20 BL100 BD50 BL30 R20 L10 U10 D20"
DRAW "C2 X" + VARPTR$(TRIANGLE$)
DRAW "BD30 P1,2 C3 M-0,-0"