DIM SHARED plc%(1 TO 7, 1 TO 6)
CLS
up = 72
dn = 80
lt = 75
rt = 77
null$ = CHR$(0)
st1 = 65
st2 = 77
col = 15
col2 = 15
col3 = 15
Z = 1
SCREEN 12
pal = 65536 * 0 + 256 * 63 + 63
pal2 = 65536 * 4 + 256 * 0 + 30
pal3 = 65536 * 0 + 256 * 0 + 50
pal4 = 65536 * 50 + 256 * 10 + 2
pal5 = 65536 * 30 + 256 * 0 + 0
pal6 = 65536 * 15 + 256 * 15 + 15
pal7 = 65536 * 0 + 256 * 63 + 0
pal8 = 65536 * 0 + 256 * 20 + 50
PALETTE 1, pal5
PALETTE 2, pal2
PALETTE 3, pal3
PALETTE 6, pal6
PALETTE 7, pal7
PALETTE 9, pal4
PALETTE 10, pal8
PALETTE 14, pal
WINDOW (-320, 240)-(320, -240)
DIM pntr%(1 TO 50)
LINE (-60, -67)-(-60, -77), 15
LINE -(-55, -72), 15
LINE -(-60, -67)
PAINT (-57, -72), 15
GET (-60, -77)-(-54, -67), pntr%
CLS
CIRCLE (-90, 100), 100, 1
PAINT (-90, 100), 1
CIRCLE (-90, 100), 70, 9
PAINT (-90, 100), 9
CIRCLE (90, 100), 100, 2
PAINT (90, 100), 2
CIRCLE (90, 100), 70, 3
PAINT (90, 100), 3
COLOR
LOCATE 20, 35
PRINT "BLACK HOLES"
COLOR 14
PRINT TAB(32); "BY DAN ELTON"
LINE (-75, -60)-(51, -98), 17, B
FOR y = -98 TO -60
FOR x = -75 TO 51
IF POINT(x, y) <> 0 THEN
PSET (1.8 * x + 20 + co, 2 * y + 260), POINT(x, y)
PSET (1.8 * x + 20 + 1 + co, 2 * y + 260), POINT(x, y)
PSET (1.8 * x + 20 + co, 2 * y + 260 + 1), POINT(x, y)
END IF
NEXT x
co = co + 1
NEXT y
LINE (-75, -60)-(51, -98), 0, BF
200
CLS
SCREEN 8
COLOR 7
PRINT " WELCOME TO THE BLACK HOLE INformation"
PRINT " Database!!!"
PLAY "MBT160O1L8CDEDCDL4ECC"
COLOR 10
PRINT "Main Menu"
PRINT "1 calculate the mass of a black hole"
PRINT "2 calculate the size of the event horizon"
PRINT "3 calculate the time you have to live once event horizon is crossed"
PRINT "4 gravitational effect one AU from black hole"
PRINT "5 Questions Answered about Black Holes"
PRINT "6 - tidal force expierinced"
PRINT "8 - Report on Black Holes and time warps"
PRINT "9 -picture of wormhole"
PRINT "10 - exit the program"
PRINT "11- black hole forming and star collapsing with a spaceship"
PRINT "12-COOL GRAPHICS"
INPUT x
IF x = 1 THEN 300
IF x = 2 THEN 400
IF x = 3 THEN 500
IF x = 4 THEN END
IF x = 5 THEN 2000
IF x = 6 THEN 600
IF x = 7 THEN 1000
IF x = 8 THEN 7000
IF x = 9 THEN 8000
IF x = 10 THEN END
IF x = 11 THEN 9000
IF x = 12 THEN 9001
300
SCREEN 8
CLS
PLAY "t120o1l16b9n0baan0bn0bn0baaan0b9n0baan0b"
LOCATE 7, 15
PRINT "How big is the orbital circumfrance of your black hole? (in km)"
INPUT co
g = 1.327E+11
p = 3.14159
PRINT "The mass in solar units, is"
m = co * co * co / (2 * p * g * p * p)
PRINT m
325
PRINT "new calculation 1-yes 2-no "
INPUT x
IF x = 2 THEN 200
IF x = 1 THEN 300
GOTO 325
400
CLS
PLAY "MB L5 n0 L8 n55 n0 n50 n50 L5 n0 L8 n54 n54 L12 n0 L8 n55 L4 n0"
PRINT " What is you holes mass in solar units?"
INPUT m
g = 1.1327E+11
p = 3.14159
s = 299800
c = 4 * p * m / (s * s)
PRINT "If the hole massis "; m; "solar masses"
PRINT "Then the event horizon's"
PRINT "circumfrance is "; c; "kilometers"
425
INPUT x
PRINT "new calculation? 1-yes 2-no "
IF x = 2 THEN 200
IF x = 1 THEN 400
GOTO 425
500
SCREEN 12
FOR col = 100 TO 520 STEP 25
CIRCLE (col, 20), 20
NEXT col
t = (.0000154) * m
PRINT "mass:"; m; " s "; solar; masses; you; have; "; t; "; seconds; ""
525
INPUT x
PRINT "new calculation? 1-yes 2-no"
IF x = 2 THEN 200
IF x = 1 THEN 500
GOTO 525
1000 CLS
BEEP
PRINT "Warning! Warning! A virus has infected this system! Warning! Warning!"
BEEP
INPUT x
IF x = 5 THEN 1100
IF x = 666 THEN 1200
1100
PRINT "Virus exterminated. System cleared."
INPUT x
IF x = thanks THEN 200
IF x = space THEN 200
1200
BEEP
PRINT "Computer has crashed. Warning! Self-detruct in 30 seconds!"
BEEP
PRINT "29"
BEEP
PRINT "28"
BEEP
PRINT "27"
BEEP
PRINT "26"
BEEP
PRINT "25"
BEEP
PRINT "24"
BEEP
PRINT "23"
BEEP
PRINT "22"
BEEP
PRINT "21"
BEEP
PRINT "20"
BEEP
PRINT "19"
BEEP
PRINT "17"
BEEP
PRINT "16"
BEEP
PRINT "15"
BEEP
PRINT "14"
BEEP
PRINT "13"
BEEP
PRINT "12"
BEEP
PRINT "11"
BEEP
PRINT "10"
BEEP
PRINT "9"
BEEP
BEEP
PRINT "8"
BEEP
BEEP
PRINT "7"
BEEP
BEEP
PRINT "6"
BEEP
BEEP
PRINT "5"
BEEP
BEEP
PRINT "4"
BEEP
BEEP
PRINT "3"
BEEP
BEEP
PRINT "2"
BEEP
BEEP
BEEP
PRINT "Problem remedied. Enjoy you day!"
BEEP
BEEP
BEEP
BEEP
GOTO 200
600
CLS
p = 3.1459
g = 1.327E+11
PRINT "Tidal force is the relative acceleration between one's head and feet"
PRINT " (or any 2 other objects)"
PRINT "At what orbital circumfrance are you located?"
INPUT c
PRINT "What is the distance between your head and feet?"
PRINT " (or any 2 other objects) "
INPUT l
PRINT "What is the mass of the black hole? (in solar units)"
INPUT m
A = (16 * p * p * p) * g * (m / c * c * c) * l
PRINT "the Tidal force you will feel will be a "; A; " acceleration"
625
INPUT x
PRINT "new calculation? 1-yes 2-no "
IF x = 2 THEN 200
IF x = 1 THEN 600
GOTO 625
2000
CLS
PRINT "Who were the most renowned experts on black holes? "
PRINT "'They were Elbert Einstein AND Arthur Eddington in the 1930's, and later Steven Hawking."
PRINT "How do Particle scluusterina black hole? "
PRINT " Particle may cluster into a spinning mass, as seen in Einstine's model, or in Eddongton's model, were atoms reach an infinite density that is also a constant. "
PRINT "What is in the corona of a Black Hole? "
PRINT "Inside the corona you can see the bright glow of iron atoms from the huge magnetic field produced. "
PRINT "What Magnetic Field? "
PRINT "A very strong magnetic field is produced form the spinning motion, much like a electric generator. "
PRINT " Are they really black?"
PRINT " Black holes are not so black. Although they suck in all the light, they slowly release radiation in the form of X- Rays, which can be measured to produce a spectrum. "
PRINT "They are also dected by the gravity that effects other nearby bodie "
PRINT " What would happen if I fell into a black hole? "
PRINT " First you would notice time becoming slower and slower. Soon, the gravity would become extrenmely strong, and you would have to bcome one with your spcecraft in order not to be crushed. If you had a clock you would notice time becoming slower and slower. As you approach the event horizon you are stretched out because the gravity is a lot stronger were your feet are"
PRINT "Then you see all recorded time pass before your eyes and you slowly are crushed to infinate density. Time stops and you"
PRINT "Hit enter to go to main menu "
INPUT q
IF q = enter THEN 200
7000
CLS
PLAY "MB L8 n55 n55 n55 L40 n50 L8 n51 L45 n0 L4 n50 L8 n50 n50 n54 L15 n0 L8 n55"
DEFINT A-Z
DIM SHARED Message(215) AS STRING * 79 'Define data array variable.
FOR Text = 1 TO 215 'Read data into array.
READ Message(Text)
NEXT
SCREEN 12
LINE (0, 25)-(639, 25), 9
LINE (0, 250)-(639, 250), 9
LINE (0, 275)-(639, 275), 9
COLOR 12
LOCATE 17: PRINT Message(1)
LOCATE 1: PRINT Message(2)
LOCATE 22, 33: PRINT "Space oddities"
LOCATE 23, 33: PRINT "By Dan Elton"
COLOR 4
LOCATE 26, 26: PRINT "Copyright (C) 2002 Dancosoft"
COLOR 15
LOCATE 3
FOR Text = 3 TO 15 'Print data.
PRINT Message(Text)
NEXT
MessagePos = 3
DO 'This LOOP scrolls text if an
MessageText$ = UCASE$(INKEY$) 'arrow key is pressed.
SELECT CASE MessageText$
CASE CHR$(0) + CHR$(72)
MessagePos = MessagePos - 1
IF MessagePos = 2 THEN MessagePos = 3
LOCATE 3
FOR Text = MessagePos TO MessagePos + 12
PRINT Message(Text)
NEXT
CASE CHR$(0) + CHR$(80)
MessagePos = MessagePos + 1
IF MessagePos = 204 THEN MessagePos = 203
LOCATE 3
FOR Text = MessagePos TO MessagePos + 12
PRINT Message(Text)
NEXT
CASE CHR$(0) + CHR$(73)
MessagePos = MessagePos - 13
IF MessagePos <= 2 THEN MessagePos = 3
LOCATE 3
FOR Text = MessagePos TO MessagePos + 12
PRINT Message(Text)
NEXT
CASE CHR$(0) + CHR$(81)
MessagePos = MessagePos + 13
IF MessagePos >= 204 THEN MessagePos = 203
LOCATE 3
FOR Text = MessagePos TO MessagePos + 12
PRINT Message(Text)
NEXT
CASE CHR$(0) + CHR$(71)
MessagePos = 3
LOCATE 3
FOR Text = MessagePos TO MessagePos + 12
PRINT Message(Text)
NEXT
CASE CHR$(0) + CHR$(79)
MessagePos = 203
LOCATE 3
FOR Text = MessagePos TO MessagePos + 12
PRINT Message(Text)
NEXT
CASE CHR$(27)
EXIT DO
END SELECT
LOOP
DATA " Use Up, Down, PgUp, PgDn, Home, and End to scroll. Esc to exit. "
DATA " "
DATA " space seems to be an endless void. But there is mor out there then meets "
DATA "the eye. Astronomers have discovered stars collapsing to infinate densitys "
DATA "and have predicted wormholes and other things "
DATA "castle full of puzzles, traps, and enemies at every corner. "
DATA " "
8000
CLS
SCREEN 9
4490 LINE (28, 13)-(13, 3), 4
4500 LINE (28, 17)-(13, 27), 4
4510 LINE (13, 3)-(1, 3), 4
4520 LINE (13, 27)-(1, 27), 4
4530 CIRCLE (2, 10), 8, 4, 5.1, 1.57
4540 CIRCLE (2, 20), 8, 4, 4.75, 1.17
4550 CIRCLE (20, 15), 5, 4, , , .7
4560 PAINT (10, 15), 4
4570 CIRCLE (24, 15), 5, 14, 5.3, 1
4580 CIRCLE (23, 15), 5, 14, 6, .3
4590 PAINT (20, 15), 8, 4
x = 160
dir = 1
FOR s = 0 TO 450
y = -(SQR(s) * 10) + 200
IF c >= 62 THEN c = 0 ELSE c = c + 1
CIRCLE (x, y), s, c + 1, , , 1 / 2
CIRCLE (x, y + 1), s, c + 1, , , 1 / 2
CIRCLE (x, y + 2), s, c + 1, , , 1 / 2
NEXT s
PRINT "that was a wormhole"
PRINT "Hit enter to go to main menu "
INPUT q
IF q = enter THEN 200
9000
9001
CLS
PLAY "L8N50L16N50N45L4N50"
SCREEN 13
COLOR 2
PRINT 2, 7; "1 butterfly"
PRINT 2, 8; "2- coolstuf"
PRINT 2, 9; "3 coolstuf2"
PRINT 2, 10; "4circlestar"
PRINT 2, 11; "5-My favoritte graphic "
PRINT 2, 11; "6-end"
PRINT "7-main menu"
INPUT x
IF x = 1 THEN 9100
IF x = 2 THEN 9200
IF x = 3 THEN 9300
IF x = 4 THEN 9400
IF x = 5 THEN 9500
IF x = 6 THEN END
IF x = 7 THEN 200
9100
CLS
CLS
SCREEN 13
WINDOW (-10, -1)-(10, 1)
FOR i = 1 TO 8.7 STEP .005
o = .7 + i - ATN(i ^ 2)
y = COS(o)
LINE (0, 0)-(o, -y), i * 10 + 16
LINE (0, 0)-(-o, -y), i * 10 + 16
NEXT
GOTO 9000
9200
CLS
SCREEN 13
WINDOW (-315, -315)-(315, 315)
d = 1
CLS
SCREEN 13
WINDOW (-1, -1)-(1, 1)
FOR i = 1 TO 5.49 STEP .001
x = SIN(i)
y = COS(i)
Z = TAN(i)
LINE (x, -Z)-(-y, Z), i * 50 - 30
LINE (-x, -Z)-(y, Z), i * 50 - 30
LINE (x, Z)-(-y, -Z), i * 50 - 30
LINE (-x, Z)-(y, -Z), i * 50 - 30
LINE (-Z, x)-(Z, -y), i * 50 - 30
LINE (-Z, -x)-(Z, y), i * 50 - 30
LINE (Z, x)-(-Z, -y), i * 50 - 30
LINE (Z, -x)-(-Z, y), i * 50 - 30
NEXT i
DO
d = d + 1
FOR i = 0 TO 625 STEP 59
x = i - d
y = i / d
LINE (x, y)-(y, -x), i / 42 + 16
LINE (-x, -y)-(-y, x), i / 42 + 16
LINE (x, -y)-(y, x), i / 42 + 16
LINE (-x, y)-(-y, -x), i / 42 + 16
NEXT
LOOP WHILE d < 630
SCREEN 3
GOTO 9000
9300
CLS
SCREEN 13
WINDOW (-1, -2)-(1, 2)
FOR i = 1 TO 60 STEP .01
y = LOG(i)
x = SIN(y)
LINE (0, -x)-(x, -y), i / 1.49 + 16
LINE (0, x)-(x, y), i / 1.49 + 16
LINE (0, -x)-(-x, -y), i / 1.49 + 16
LINE (0, x)-(-x, y), i / 1.49 + 16
NEXT
CLS
GOTO 9000
9400
CLS
SCREEN 13
WINDOW (-50, -50)-(50, 50)
FOR i = 16 TO 100 STEP .01
CIRCLE (i, i), 7.5, i
CIRCLE (-i, i), 7.5, i
CIRCLE (-i, -i), 7.5, i
CIRCLE (i, -i), 7.5, i
NEXT i
GOTO 9000
9500
CLS
SCREEN 13
WINDOW (-1, -1)-(1, 1)
FOR i = 1 TO 5.49 STEP .001
x = SIN(i)
y = COS(i)
Z = TAN(i)
LINE (x, -Z)-(-y, Z), i * 50 - 30
LINE (-x, -Z)-(y, Z), i * 50 - 30
LINE (x, Z)-(-y, -Z), i * 50 - 30
LINE (-x, Z)-(y, -Z), i * 50 - 30
LINE (-Z, x)-(Z, -y), i * 50 - 30
LINE (-Z, -x)-(Z, y), i * 50 - 30
LINE (Z, x)-(-Z, -y), i * 50 - 30
LINE (Z, -x)-(-Z, y), i * 50 - 30
NEXT i
GOTO 9000
COMMON SHARED plx, ply, stx, sty
DIM SHARED plc%(1 TO 7, 1 TO 6)
CLS
up = 72
dn = 80
lt = 75
rt = 77
null$ = CHR$(0)
st1 = 65
st2 = 77
col = 15
col2 = 15
col3 = 15
Z = 1
SCREEN 12
pal = 65536 * 0 + 256 * 63 + 63
pal2 = 65536 * 4 + 256 * 0 + 30
pal3 = 65536 * 0 + 256 * 0 + 50
pal4 = 65536 * 50 + 256 * 10 + 2
pal5 = 65536 * 30 + 256 * 0 + 0
pal6 = 65536 * 15 + 256 * 15 + 15
pal7 = 65536 * 0 + 256 * 63 + 0
pal8 = 65536 * 0 + 256 * 20 + 50
PALETTE 1, pal5
PALETTE 2, pal2
PALETTE 3, pal3
PALETTE 6, pal6
PALETTE 7, pal7
PALETTE 9, pal4
PALETTE 10, pal8
PALETTE 14, pal
WINDOW (-320, 240)-(320, -240)
DIM pntr%(1 TO 50)
LINE (-60, -67)-(-60, -77), 15
LINE -(-55, -72), 15
LINE -(-60, -67)
PAINT (-57, -72), 15
GET (-60, -77)-(-54, -67), pntr%
CLS
CIRCLE (-90, 100), 100, 1
PAINT (-90, 100), 1
CIRCLE (-90, 100), 70, 9
PAINT (-90, 100), 9
CIRCLE (90, 100), 100, 2
PAINT (90, 100), 2
CIRCLE (90, 100), 70, 3
PAINT (90, 100), 3
COLOR
LOCATE 20, 35
PRINT "BLACK HOLES"
COLOR 14
PRINT TAB(32); "BY DAN ELTON"
LINE (-75, -60)-(51, -98), 17, B
FOR y = -98 TO -60
FOR x = -75 TO 51
IF POINT(x, y) <> 0 THEN
PSET (1.8 * x + 20 + co, 2 * y + 260), POINT(x, y)
PSET (1.8 * x + 20 + 1 + co, 2 * y + 260), POINT(x, y)
PSET (1.8 * x + 20 + co, 2 * y + 260 + 1), POINT(x, y)
END IF
NEXT x
co = co + 1
NEXT y
LINE (-75, -60)-(51, -98), 0, BF
200
CLS
SCREEN 8
COLOR 7
PRINT " WELCOME TO THE BLACK HOLE INformation"
PRINT " Database!!!"
PLAY "MBT160O1L8CDEDCDL4ECC"
COLOR 10
PRINT "Main Menu"
PRINT "1 calculate the mass of a black hole"
PRINT "2 calculate the size of the event horizon"
PRINT "3 calculate the time you have to live once event horizon is crossed"
PRINT "4 gravitational effect one AU from black hole"
PRINT "5 Questions Answered about Black Holes"
PRINT "6 - tidal force expierinced"
PRINT "8 - Report on Black Holes and time warps"
PRINT "9 -picture of wormhole"
PRINT "10 - exit the program"
PRINT "11- black hole forming and star collapsing with a spaceship"
PRINT "12-COOL GRAPHICS"
INPUT x
IF x = 1 THEN 300
IF x = 2 THEN 400
IF x = 3 THEN 500
IF x = 4 THEN END
IF x = 5 THEN 2000
IF x = 6 THEN 600
IF x = 7 THEN 1000
IF x = 8 THEN 7000
IF x = 9 THEN 8000
IF x = 10 THEN END
IF x = 11 THEN 9000
IF x = 12 THEN 9001
300
SCREEN 8
CLS
PLAY "t120o1l16b9n0baan0bn0bn0baaan0b9n0baan0b"
LOCATE 7, 15
PRINT "How big is the orbital circumfrance of your black hole? (in km)"
INPUT co
g = 1.327E+11
p = 3.14159
PRINT "The mass in solar units, is"
m = co * co * co / (2 * p * g * p * p)
PRINT m
325
PRINT "new calculation 1-yes 2-no "
INPUT x
IF x = 2 THEN 200
IF x = 1 THEN 300
GOTO 325
400
CLS
PLAY "MB L5 n0 L8 n55 n0 n50 n50 L5 n0 L8 n54 n54 L12 n0 L8 n55 L4 n0"
PRINT " What is you holes mass in solar units?"
INPUT m
g = 1.1327E+11
p = 3.14159
s = 299800
c = 4 * p * m / (s * s)
PRINT "If the hole massis "; m; "solar masses"
PRINT "Then the event horizon's"
PRINT "circumfrance is "; c; "kilometers"
425
INPUT x
PRINT "new calculation? 1-yes 2-no "
IF x = 2 THEN 200
IF x = 1 THEN 400
GOTO 425
500
SCREEN 12
FOR col = 100 TO 520 STEP 25
CIRCLE (col, 20), 20
NEXT col
t = (.0000154) * m
PRINT "mass:"; m; " s "; solar; masses; you; have; "; t; "; seconds; ""
525
INPUT x
PRINT "new calculation? 1-yes 2-no"
IF x = 2 THEN 200
IF x = 1 THEN 500
GOTO 525
1000 CLS
BEEP
PRINT "Warning! Warning! A virus has infected this system! Warning! Warning!"
BEEP
INPUT x
IF x = 5 THEN 1100
IF x = 666 THEN 1200
1100
PRINT "Virus exterminated. System cleared."
INPUT x
IF x = thanks THEN 200
IF x = space THEN 200
1200
BEEP
PRINT "Computer has crashed. Warning! Self-detruct in 30 seconds!"
BEEP
PRINT "29"
BEEP
PRINT "28"
BEEP
PRINT "27"
BEEP
PRINT "26"
BEEP
PRINT "25"
BEEP
PRINT "24"
BEEP
PRINT "23"
BEEP
PRINT "22"
BEEP
PRINT "21"
BEEP
PRINT "20"
BEEP
PRINT "19"
BEEP
PRINT "17"
BEEP
PRINT "16"
BEEP
PRINT "15"
BEEP
PRINT "14"
BEEP
PRINT "13"
BEEP
PRINT "12"
BEEP
PRINT "11"
BEEP
PRINT "10"
BEEP
PRINT "9"
BEEP
BEEP
PRINT "8"
BEEP
BEEP
PRINT "7"
BEEP
BEEP
PRINT "6"
BEEP
BEEP
PRINT "5"
BEEP
BEEP
PRINT "4"
BEEP
BEEP
PRINT "3"
BEEP
BEEP
PRINT "2"
BEEP
BEEP
BEEP
PRINT "Problem remedied. Enjoy you day!"
BEEP
BEEP
BEEP
BEEP
GOTO 200
600
CLS
p = 3.1459
g = 1.327E+11
PRINT "Tidal force is the relative acceleration between one's head and feet"
PRINT " (or any 2 other objects)"
PRINT "At what orbital circumfrance are you located?"
INPUT c
PRINT "What is the distance between your head and feet?"
PRINT " (or any 2 other objects) "
INPUT l
PRINT "What is the mass of the black hole? (in solar units)"
INPUT m
A = (16 * p * p * p) * g * (m / c * c * c) * l
PRINT "the Tidal force you will feel will be a "; A; " acceleration"
625
INPUT x
PRINT "new calculation? 1-yes 2-no "
IF x = 2 THEN 200
IF x = 1 THEN 600
GOTO 625
2000
CLS
PRINT "Who were the most renowned experts on black holes? "
PRINT "'They were Elbert Einstein AND Arthur Eddington in the 1930's, and later Steven Hawking."
PRINT "How do Particle scluusterina black hole? "
PRINT " Particle may cluster into a spinning mass, as seen in Einstine's model, or in Eddongton's model, were atoms reach an infinite density that is also a constant. "
PRINT "What is in the corona of a Black Hole? "
PRINT "Inside the corona you can see the bright glow of iron atoms from the huge magnetic field produced. "
PRINT "What Magnetic Field? "
PRINT "A very strong magnetic field is produced form the spinning motion, much like a electric generator. "
PRINT " Are they really black?"
PRINT " Black holes are not so black. Although they suck in all the light, they slowly release radiation in the form of X- Rays, which can be measured to produce a spectrum. "
PRINT "They are also dected by the gravity that effects other nearby bodie "
PRINT " What would happen if I fell into a black hole? "
PRINT " First you would notice time becoming slower and slower. Soon, the gravity would become extrenmely strong, and you would have to bcome one with your spcecraft in order not to be crushed. If you had a clock you would notice time becoming slower and slower. As you approach the event horizon you are stretched out because the gravity is a lot stronger were your feet are"
PRINT "Then you see all recorded time pass before your eyes and you slowly are crushed to infinate density. Time stops and you"
PRINT "Hit enter to go to main menu "
INPUT q
IF q = enter THEN 200
7000
CLS
PLAY "MB L8 n55 n55 n55 L40 n50 L8 n51 L45 n0 L4 n50 L8 n50 n50 n54 L15 n0 L8 n55"
DEFINT A-Z
DIM SHARED Message(215) AS STRING * 79 'Define data array variable.
FOR Text = 1 TO 215 'Read data into array.
READ Message(Text)
NEXT
SCREEN 12
LINE (0, 25)-(639, 25), 9
LINE (0, 250)-(639, 250), 9
LINE (0, 275)-(639, 275), 9
COLOR 12
LOCATE 17: PRINT Message(1)
LOCATE 1: PRINT Message(2)
LOCATE 22, 33: PRINT "Space oddities"
LOCATE 23, 33: PRINT "By Dan Elton"
COLOR 4
LOCATE 26, 26: PRINT "Copyright (C) 2002 Dancosoft"
COLOR 15
LOCATE 3
FOR Text = 3 TO 15 'Print data.
PRINT Message(Text)
NEXT
MessagePos = 3
DO 'This LOOP scrolls text if an
MessageText$ = UCASE$(INKEY$) 'arrow key is pressed.
SELECT CASE MessageText$
CASE CHR$(0) + CHR$(72)
MessagePos = MessagePos - 1
IF MessagePos = 2 THEN MessagePos = 3
LOCATE 3
FOR Text = MessagePos TO MessagePos + 12
PRINT Message(Text)
NEXT
CASE CHR$(0) + CHR$(80)
MessagePos = MessagePos + 1
IF MessagePos = 204 THEN MessagePos = 203
LOCATE 3
FOR Text = MessagePos TO MessagePos + 12
PRINT Message(Text)
NEXT
CASE CHR$(0) + CHR$(73)
MessagePos = MessagePos - 13
IF MessagePos <= 2 THEN MessagePos = 3
LOCATE 3
FOR Text = MessagePos TO MessagePos + 12
PRINT Message(Text)
NEXT
CASE CHR$(0) + CHR$(81)
MessagePos = MessagePos + 13
IF MessagePos >= 204 THEN MessagePos = 203
LOCATE 3
FOR Text = MessagePos TO MessagePos + 12
PRINT Message(Text)
NEXT
CASE CHR$(0) + CHR$(71)
MessagePos = 3
LOCATE 3
FOR Text = MessagePos TO MessagePos + 12
PRINT Message(Text)
NEXT
CASE CHR$(0) + CHR$(79)
MessagePos = 203
LOCATE 3
FOR Text = MessagePos TO MessagePos + 12
PRINT Message(Text)
NEXT
CASE CHR$(27)
EXIT DO
END SELECT
LOOP
DATA " Use Up, Down, PgUp, PgDn, Home, and End to scroll. Esc to exit. "
DATA " "
DATA " space seems to be an endless void. But there is mor out there then meets "
DATA "the eye. Astronomers have discovered stars collapsing to infinate densitys "
DATA "and have predicted wormholes and other things "
DATA "castle full of puzzles, traps, and enemies at every corner. "
DATA " "
8000
CLS
SCREEN 9
4490 LINE (28, 13)-(13, 3), 4
4500 LINE (28, 17)-(13, 27), 4
4510 LINE (13, 3)-(1, 3), 4
4520 LINE (13, 27)-(1, 27), 4
4530 CIRCLE (2, 10), 8, 4, 5.1, 1.57
4540 CIRCLE (2, 20), 8, 4, 4.75, 1.17
4550 CIRCLE (20, 15), 5, 4, , , .7
4560 PAINT (10, 15), 4
4570 CIRCLE (24, 15), 5, 14, 5.3, 1
4580 CIRCLE (23, 15), 5, 14, 6, .3
4590 PAINT (20, 15), 8, 4
x = 160
dir = 1
FOR s = 0 TO 450
y = -(SQR(s) * 10) + 200
IF c >= 62 THEN c = 0 ELSE c = c + 1
CIRCLE (x, y), s, c + 1, , , 1 / 2
CIRCLE (x, y + 1), s, c + 1, , , 1 / 2
CIRCLE (x, y + 2), s, c + 1, , , 1 / 2
NEXT s
PRINT "that was a wormhole"
PRINT "Hit enter to go to main menu "
INPUT q
IF q = enter THEN 200
9000
9001
CLS
PLAY "L8N50L16N50N45L4N50"
SCREEN 13
COLOR 2
PRINT 2, 7; "1 butterfly"
PRINT 2, 8; "2- coolstuf"
PRINT 2, 9; "3 coolstuf2"
PRINT 2, 10; "4circlestar"
PRINT 2, 11; "5-My favoritte graphic "
PRINT 2, 11; "6-end"
PRINT "7-main menu"
INPUT x
IF x = 1 THEN 9100
IF x = 2 THEN 9200
IF x = 3 THEN 9300
IF x = 4 THEN 9400
IF x = 5 THEN 9500
IF x = 6 THEN END
IF x = 7 THEN 200
9100
CLS
CLS
SCREEN 13
WINDOW (-10, -1)-(10, 1)
FOR i = 1 TO 8.7 STEP .005
o = .7 + i - ATN(i ^ 2)
y = COS(o)
LINE (0, 0)-(o, -y), i * 10 + 16
LINE (0, 0)-(-o, -y), i * 10 + 16
NEXT
GOTO 9000
9200
CLS
SCREEN 13
WINDOW (-315, -315)-(315, 315)
d = 1
CLS
SCREEN 13
WINDOW (-1, -1)-(1, 1)
FOR i = 1 TO 5.49 STEP .001
x = SIN(i)
y = COS(i)
Z = TAN(i)
LINE (x, -Z)-(-y, Z), i * 50 - 30
LINE (-x, -Z)-(y, Z), i * 50 - 30
LINE (x, Z)-(-y, -Z), i * 50 - 30
LINE (-x, Z)-(y, -Z), i * 50 - 30
LINE (-Z, x)-(Z, -y), i * 50 - 30
LINE (-Z, -x)-(Z, y), i * 50 - 30
LINE (Z, x)-(-Z, -y), i * 50 - 30
LINE (Z, -x)-(-Z, y), i * 50 - 30
NEXT i
DO
d = d + 1
FOR i = 0 TO 625 STEP 59
x = i - d
y = i / d
LINE (x, y)-(y, -x), i / 42 + 16
LINE (-x, -y)-(-y, x), i / 42 + 16
LINE (x, -y)-(y, x), i / 42 + 16
LINE (-x, y)-(-y, -x), i / 42 + 16
NEXT
LOOP WHILE d < 630
SCREEN 3
GOTO 9000
9300
CLS
SCREEN 13
WINDOW (-1, -2)-(1, 2)
FOR i = 1 TO 60 STEP .01
y = LOG(i)
x = SIN(y)
LINE (0, -x)-(x, -y), i / 1.49 + 16
LINE (0, x)-(x, y), i / 1.49 + 16
LINE (0, -x)-(-x, -y), i / 1.49 + 16
LINE (0, x)-(-x, y), i / 1.49 + 16
NEXT
CLS
GOTO 9000
9400
CLS
SCREEN 13
WINDOW (-50, -50)-(50, 50)
FOR i = 16 TO 100 STEP .01
CIRCLE (i, i), 7.5, i
CIRCLE (-i, i), 7.5, i
CIRCLE (-i, -i), 7.5, i
CIRCLE (i, -i), 7.5, i
NEXT i
GOTO 9000
9500
CLS
SCREEN 13
WINDOW (-1, -1)-(1, 1)
FOR i = 1 TO 5.49 STEP .001
x = SIN(i)
y = COS(i)
Z = TAN(i)
LINE (x, -Z)-(-y, Z), i * 50 - 30
LINE (-x, -Z)-(y, Z), i * 50 - 30
LINE (x, Z)-(-y, -Z), i * 50 - 30
LINE (-x, Z)-(y, -Z), i * 50 - 30
LINE (-Z, x)-(Z, -y), i * 50 - 30
LINE (-Z, -x)-(Z, y), i * 50 - 30
LINE (Z, x)-(-Z, -y), i * 50 - 30
LINE (Z, -x)-(-Z, y), i * 50 - 30
NEXT i
GOTO 9000