! A organized way to find out facts about each planet in the solar system.
! And at the end provides an roughly accurate portrayal of planet size of all the planets in our solar system and there colors.
!ask max, open, dim, window, set color, print, tab(), for-next, read-data, set cursor, option nolet, round()
!call subroutine, do-loop, if-else, elseif, clear, set mode, set window, flood, box circle
Ask Max Cursor Height, Width !Ask Max Cursor Statement
Option nolet
Open #1: screen 0,0.5,0,1 !Open Statement
Open #2: screen 0.5,1,0,1
DIM planet$(1 to 8) !DIM Statement
Window #1
!Window Statement
Set color "Blue"
Print "THE SOLAR SYSTEM AND ITS PLANETS"
Print
Print
Set color "cyan" !Set Color Statement
Print Tab(7); "Planets" !Tab Function
Set color "black"
Print
For Index = 1 to 8 !For/Next Statement
Read planet$(Index) !Read Statement
Print Tab(7); planet$(Index)
Next Index
Window #2
For row=1 to height
Set cursor row, 1
Next Row
Set cursor 1,3 !Set Cursor Statement
Print
Print
Set color "red"
Print Tab(3); "To stop press 0"
Set color "green"
Call GetPlanet(Number) !Call Statement
Do until Number= 0 !Do/Loop Statement
Print Tab(3); planet$(Number)
Print
If number=1 then !If/Else Statement
Print Tab(3);"Mercury is the planet closest to the sun and has no atmosphere."
Print Tab(3);"Size: two-fifths the size of Earth in diameter; second smallest planet."
Print Tab(3);"Surface: covered by a dusty layer of minerals (silicates),"
Print Tab(6);"made up of plains, cliffs, and craters."
Print Tab(3);"Atmosphere: a thin mixture of helium(95%) and hydrogen."
Print Tab(3);"Rotation around the Sun: 88 Earth days."
Print Tab(3);"Satellites: 0"
Print Tab(3);"Rings: 0"
Else if number=2 then
Print Tab(3);"Venus is often called Earth's twin because the there are around the"
Print Tab(6);"same size."
Print Tab(3);"Size: about 650 miles smaller in diameter than Earth."
Print Tab(3);"Surface: a rocky, dusty, waterless expanse of mountains, canyons,"
Print Tab(6);"and plains, with a 200 mile river of hardened lava."
Print Tab(3);"Atmosphere: carbon dioxide(95%), nitrogen, sulfuric acid, and traces"
Print Tab(6);"of other elements."
Print Tab(3);"Rotation around the Sun: 225 Earth days."
Print Tab(3);"Satellites: 0"
Print Tab(3);"Rings: 0"
Else if number=3 then
Print Tab(3);"Earth is not perfectly round, it bulges at the equator and is flatter"
Print Tab(6);"at the poles."
Print Tab(3);"Size: fifth largest planet in the solar system."
Print Tab(3);"Surface: made up of water(70%), air, and solid ground. It appears to"
Print Tab(6);"be the only planet with water."
Print Tab(3);"Atmosphere: nitrogen(78%), oxygen(21%), and other gases"
Print Tab(3);"Rotation around the Sun: 365.2 days"
Print Tab(3);"Satellites: 1"
Print Tab(3);"Rings: 0"
Else if number=4 then
Print Tab(3);"Mars was named because of its blood-red color after the Roman God of War."
Print Tab(3);"Size: about one-half the size of Earth in diameter."
Print Tab(3);"Surface: canyons, dunes, volcanoes, and polar caps of water ice and"
Print Tab(6);"carbon dioxide ice."
Print Tab(3);"Atmosphere: carbon dioxide(95%)"
Print Tab(3);"Rotation around the Sun: 687 Earth days."
Print Tab(3);"Satellites: 2"
Print Tab(3);"Rings: 0"
Else if number=5 then
Print Tab(3);"Jupiter is the largest planet and could fit 1,300 Earth into it!"
Print Tab(3);"Size: 11 times the diameter of Earth."
Print Tab(3);"Surface: a hot ball of gas and liquid."
Print Tab(3);"Atmosphere: whirling clouds of colored dust, hydrogen, helium, methane,"
Print Tab(6);"water, and ammonia. The Great Red Spot is an intense windstorm"
Print Tab(6);"larger than Earth."
Print Tab(3);"Rotation around the Sun: 12 Earth years."
Print Tab(3);"Satellites: 63"
Print Tab(3);"Rings: 4"
Else if number=6 then
Print Tab(3);"Saturn is the second-largest planet and has majestic rings"
Print Tab(6);"surrounding it."
Print Tab(3);"Size: about 10 times larger than Earth in diameter."
Print Tab(3);"Surface: liquid and gas."
Print Tab(3);"Atmosphere: hydrogen and helium."
Print Tab(3);"Rotation around the Sun: 29 1/2 Earth years."
Print Tab(3);"Satellites: 31"
Print Tab(3);"Rings: 7"
Else if number=7 then
Print Tab(3);"Uranus is a greenish-blue planet and wasn't discovered until 1781."
Print Tab(3);"Size: 4 times larger than Earth in diameter."
Print Tab(3);"Surface: little is known."
Print Tab(3);"Atmosphere: hydrogen, helium and methane."
Print Tab(3);"Rotation around the Sun: 84 Earth years."
Print Tab(3);"Satellites: 27"
Print Tab(3);"Rings: 11"
Else if number=8 then
Print Tab(3);"Neptune is a stormy blue planet that was discovered when astronomers"
Print Tab(6);"realized that something was exerting a gravitational pull on Uranus."
Print Tab(3);"Size: almost 4 times the size of Earth in diameter."
Print Tab(3);"Surface: a liquid layer covered with thick clouds and with constant,"
Print Tab(6);"raging storms."
Print Tab(3);"Atmosphere: hydrogen, helium, methane, and ammonia."
Print Tab(3);"Rotation around the Sun: 165 Earth years."
Print Tab(3);"Satellites: 13"
Print Tab(3);"Rings: 4"
End if
Print
Window #1
For row=3 to 15
Set cursor row, 3
Print " "
Next row
Set cursor number + 5, 3
Print "==>"
Window #2
Call GetPlanet(Number)
Clear !Clear Statement
Loop
Set color "black"
Data Mercury,Venus,Earth,Mars !Data Statement
Data Jupiter,Saturn,Uranus,Neptune
Clear
set mode "graphics" !Set Mode Statement
let ratio=1.4 !Let Statement
set window 0, (100*ratio),1,100 !Set Window Statement
set color "black"
flood 0,3 !Flood Statement
set color "yellow"
box circle -50,50,-60,60 !Box Statement
set color "white"
box circle 26,32,25,33
set color "white"
box circle 34,43,32,43
set color "blue"
box circle 44,53,38,49
set color "red"
box circle 55,62,44,53
set color "white"
box circle 64,87,47,76
set color "red"
box circle 67,74,54,56
set color "green"
box circle 90,110,38,63
set color "red"
box circle 83,117,48,52
set color "cyan"
box circle 110,125,58,77
set color "blue"
box circle 122,137,76,94
Pause 2 !Pause Statement
Print "Our wonderful solar system"
End
Sub GetPlanet (Number) !Sub Statement
Do
Print Tab(3); "Planet number from the Sun";
Input number
number = round(number)
If number > 8 or Number <0 then
Print Tab(3); "Please enter a number between 0 and 8"
End if
Loop until Number >=0 and Number <=8
End sub