Here's a little stock market program i made. It's only version 1.0. right now i'm making V2.0 which will have a high score board, and probably a thing for buying and selling stocks with other players (that use the same comp as you) or selling them to the comp
here it is:
randomize timer()
x as float
do
cls
x=1
y=screen height() / 2
d=-1
print "Stock Market Program"
print "press any key to continue"
wait key
cls
doing=1
INK RGB (0,255,0),0
Gained = 0
WHILE doing=1
INK RGB (0,0,0),0
box 0,0,200,25
INK RGB (255,255,255),0
text 10,10, "Gained: "+STR$(Gained)
if d=1
Gained = Gained - 1
INK RGB (255,0,0),0
endif
if d=-1
Gained = Gained + 1
INK RGB (0,255,0),0
endif
y=y+d
if rnd(50) = 25
if d=1
d=-1
ELSE
d=1
ENDIF
endif
if x>=640 then doing = 0
x=x+0.18
dot x,y
wait 1
endwhile
INK RGB (0,0,0),0
box 0,0,200,25
INK RGB (255,255,255),0
text 10,10, "Total Gained/Lost: "+STR$(Gained)
text 10,20, "Press any key to play again or press Esc to exit..."
wait key
loop
"If the shoe fits, It must be your size"
"Never name a pig you are going to eat"
"It is easier to hide intelligance than it is to hide Stupidity"
