Printer Friendly

The big blast off!

"Jean," you've done it! You've found the best chemicals for the new liquid propulsion rocket!"

[ILLUSTRATION OMITTED]

You too can find out which chemicals Jean used in the rocket by typing in this computer program and experimenting with some chemicals. To make the rocket blast off, you must pick an oxidizer and a fuel out of a list that contains oxidizers, fuels, and a few chemicals that don't do anything! By the way, one combination of an oxidizer and fuel moves the rocket the fastest. This j combination is used in the Space Shuttle. Can you discover this combination?

START HERE

Here is a new program for you to enter on your IBM compatible computer. Programs presented here were written in the "BASIC" language for use on a PC computer. Since there are several different types of BASIC, you may not know which one is on your computer. The first step to entering a program will be to start the BASIC editor. Should the following procedure fail to start the BASIC editor, find someone who can help you get started.

1. Get the computer to display the "C:" prompt.

2. Try typing one of the following three commands: BASICA, GWBASIC, OR QBASIC.

3. If you get an error message for all three, try typing CD/DOS and Enter. Then repeat step 2.

4. Once you have successfully entered the BASIC editor, type the program exactly as given. Be sure to include all spaces and punctuation marks, and don't get your 0 (zero) and Os mixed up.

5. After typing your program in, save it, using one of the following " methods: BASICA or GWBASIC--Type SAVE "name" where name is any 8 letter name you wish to use. QBASIC--Hit Alt, F, S keys then type any 8 letter name you wish to use.

6. To run the program when it is in the editor, type RUN for BASICA or BWBASIC; hit F5 if you have QBASIC.

7. To type in another program without quitting the editor, type NEW and Enter if you have BASICA or GWBASIC. IF you have QBASIC hit Alt, F, N. Be sure to save your previous program first!

8. To recall your saved programs at a later date, enter the Editor using steps 1 and 2. Then for BASICA or GWBASIC type LOAD "name", where name is what you named the program. For QBASIC hit Alt, F, O, and type the name of your program.

For Those With Windows 95/98

For Computers with Windows 95/98 installed on them do the following: After Windows 95/98 opening screen shows up, click the Start button. Then you have two choices.

1. After clicking the Start button, point to Programs and then click MS-DOS Prompt. Finally, type QBASIC or

2. After clicking the Start button, click Shut Down. From the Shut Down Windows screen choose "Restart the Computer in MS-DOS mode" and click the Yes button. Finally, type QBASIC. NOTE: Nearly all computers over three years old have some version of the BASIC language on them. However, some brand new computers that come already equipped with Windows 95/98 may not have BASIC installed. However, if you are running either Windows 95 (CD Version) or Windows 98, you're still in luck because you already own QBasic although it may not be in your computer yet. To get to QBasic, insert the Windows 95/98 CD into the drive. With Windows 95, go to x:/other/oldmsdos/qbasic.exe. Under Windows 98, you would go on over to x:/tools/oldmsdos/qbasic.exe. Under Windows 98, you would go on over to x:/tools/oldmsdos/qbasic.exe. Here, x is usually I the D drive although it could be E, F or even G, depending on your computer.

1 CLS : SCREEN 8: DIM ROCKET(1 TO 1321): DIM EX(1 TO 211)

2 DIM f$(25):T2 = 41:T = 2:d = 0: R = 83:R2 = 151: D2 = 3

3 FOR Q = 1 TO 25: READ f$(Q): NEXT Q:

4 FOR H = 1 TO 12: d = d + 2: D2 = D2 + 1

5 LOCATE D2, 40: PRINT H; "-"; f$(d): NEXT H

6 LOCATE 15, 21: PRINT "A": LOCATE 1, 40: PRINT "CHEMICALS"

7 LOCATE 17, 19: PRINT "B"

8 CIRCLE (100, 110), 90,, 0, .785: CIRCLE (225, 110), 90,, 2.35, 3.14

9 DRAW "BM135,110D50U30G30R30U10R55D10R30H30D20U40L55D2R55D10"

10 DRAW "L20D28L2U28R2L35D5R25D5R4D18L2U16L2U2D10L25")

11 LINE (240, 20)-(285, 20): DRAW "G23H23R10F12E12"

12 PAINT (255, 25), 4, 15: PAINT (245, 25), 14, 15

13 PAINT (150, 100), 4, 15: GET (239, 20)-(285, 54), EX

14 PAINT (125, 155), 4, 15: PAINT (210, 155), 4, 15

15 PUT (239, 20), EX

16 LOCATE 17, 38: INPUT "NUMBER OF CHEMICAL FOR TANK A->", a#

17 PAINT (150, 120), 8, 15

18 LOCATE 18, 38: INPUT "NUMBER OF CHEMICAL FOR TANK B->", b#

19 PAINT (150, 140), 8, 15: GET (105, 83)-(220, 170), ROCKET

20 IF a# * 2 = 2 AND b# * 2 = 12 THEN T = 10: T2 = 8: GOTO 24

21 IF a# * 2 = 12 AND b# * 2 = 2 THEN T = 10: T2 = 8: GOTO 24

22 IF VAL(f$((a# * 2) + 1)) * VAL(f$((b# * 2 + 1))) = 6 THEN GOTO 24

23 IF VAL(f$((a# * 2) + 1)) * VAL(f$((b# * 2 + 1))) <> 6 THEN GOTO 34

24 FOR K = 1 TO T2: R2 = R2-T: R = R-T

25 PUT (105, R), ROCKET, PSET: PUT (140, R2), EX, PSET

26 SOUND 300, .5: SOUND 100, .5: SOUND 200, .5

27 NEXT K: LOCATE 22, 5: INPUT "TRY AGAIN(Y/N)", c$

28 IF c$ = "Y" OR c$ = "y" THEN RESTORE: GOTO 1

29 END

30 DATA "","LIQUID OXYGEN", 2, "LIQUID HELIUM", 0, "HYDROGEN PEROXIDE 85%" ,2

31 DATA "GASOLINE", 3, "LIQUID ARGON", 0, "LIQUID HYDROGEN", 3, "ALCOHOL"

32 DATA 3, "ACETYLENE", 3, "NITRIC ACID", 2, "MERCURY", 0

33 DATA "STORE BOUGHT HYDROGEN PEROXIDE 3%", 0, "KEROSENE", 3

34 LOCATE 22, 5

35 INPUT "WARNING! MISSLE MALFUNCTION.. DO YOU WANT TRY AGAIN(Y/N)->", d$

36 IF d$ = "Y" OR d$ = "y" THEN RESTORE: GOTO 1

37 END
COPYRIGHT 2010 Bluffton News Printing & Publishing Co.
No portion of this article can be reproduced without the express written permission from the copyright holder.
Copyright 2010 Gale, Cengage Learning. All rights reserved.

Article Details
Printer friendly Cite/link Email Feedback
Title Annotation:Computer Fun
Publication:Fun For Kidz
Geographic Code:1USA
Date:Mar 1, 2010
Words:1012
Previous Article:The great airplane puzzle.
Next Article:Rocket flight: the balloon races.
Topics:

Terms of use | Privacy policy | Copyright © 2019 Farlex, Inc. | Feedback | For webmasters