WallStreet ===================== Credits: Programming: Thomas Breivik Beta Tester: Sigurd Schaathun ----------------------------- _____________________________________________________________ It's made on a Casio FX-9700GE. This is a ASCII-file with some odd signs as the special commandoes at the calculator: Explenation of signs: S=then =into =disp. Enter the following modules. The last line before a module begins is, "123456789012345678901" ______________________________________________________________ 0 S 0 V 0 W 0 X 0 Y 0 Z Int 20Rnd#+20 A Int 20Rnd#+20 B Int 20Rnd#+20 C Int 20Rnd#+20 D Int 20Rnd#+20 E Int 20Rnd#+20 F Int 20Rnd#+20 G Int 20Rnd#+20 H Lbl 1 K*1.03 K Int K K "You have:" K "1. Enter the street" "2. Comitt suicide" "3. Rules"? I Int I=1SGoto 2 Int I=2SGoto 9 Int I=3SGoto 8 Goto 1 Lbl 2 "WALLSTREET" "Stocks:" "1. Any company you'd like" A V "2. Any company you'd like" B W "3. Any company you'd like" C X "4. Any company you'd like" D Y "5. Any company you'd like" E Z "6. Casionet" F L "7. Any company you'd like" G S "8. Any company you'd like" H J "What do you want to" "trade (9=nothing)"? I Int I=1SProg A Int I=2SProg B Int I=3SProg C Int I=4SProg D Int I=5SProg E Int I=6SProg F Int I=7SProg G Int I=8SProg H Int I=9SProg I Goto 1 Lbl 8 "You are a business" "man-woman who wants" "to make a fortune" "You start with only" "200 dollars." "The setup is like" "this:" "name of company" " price of stock" " stocks you got" "You get a 3 percent" "intrest rate." "If you do not wish" "to buy any more," "then buy 0 stocks." K/1.03 K Goto 1 Lbl 9 When there's a hole in the text, you shall begin on a new program. Prog A 123456789012345678901 Lbl 0 You have:" K "Cost:" A "Do you want to:" "1. Buy" "2. Sell"? I Int I=1SGoto 1 Int I=2SGoto 2 Goto 0 Lbl 1 "How many stocks do" "you want to buy"? M Int (M*A)>KSGoto 1 Int M<0SGoto 1 M+V V K-(A*M) K Goto 3 Lbl 2 Int M=0SGoto 0 "You have:" V "How many do you want" "to sell"? I Int I>VSGoto 2 V-I V K+I*A+ K Lbl 3 Prog I When there's a hole in the text, you shall begin on a new program. Prog B 123456789012345678901 Lbl 0 You have:" K "Cost:" B "Do you want to:" "1. Buy" "2. Sell"? I Int I=1SGoto 1 Int I=2SGoto 2 Goto 0 Lbl 1 "How many stocks do" "you want to buy"? N Int (N*A)>KSGoto 1 Int N<0SGoto 1 N+W W K-(A*N) K Goto 3 Lbl 2 Int N=0SGoto 0 "You have:" W "How many do you want" "to sell"? I Int I>WSGoto 2 W-I W K+I*B+ K Lbl 3 Prog I When there's a hole in the text, you shall begin on a new program. Prog C 123456789012345678901 Lbl 0 You have:" K "Cost:" C "Do you want to:" "1. Buy" "2. Sell"? I Int I=1SGoto 1 Int I=2SGoto 2 Goto 0 Lbl 1 "How many stocks do" "you want to buy"? O Int (O*A)>KSGoto 1 Int O<0SGoto 1 O+X X K-(C*O) K Goto 3 Lbl 2 Int O=0SGoto 0 "You have:" X "How many do you want" "to sell"? I Int I>XSGoto 2 X-I X K+I*C+ K Lbl 3 Prog I When there's a hole in the text, you shall begin on a new program. Prog D 123456789012345678901 Lbl 0 You have:" K "Cost:" D "Do you want to:" "1. Buy" "2. Sell"? I Int I=1SGoto 1 Int I=2SGoto 2 Goto 0 Lbl 1 "How many stocks do" "you want to buy"? P Int (P*A)>KSGoto 1 Int P<0SGoto 1 P+Y Y K-(D*M) K Goto 3 Lbl 2 Int Q=0SGoto 0 "You have:" Y "How many do you want" "to sell"? I Int I>YSGoto 2 Y-I Y K+I*D+ K Lbl 3 Prog I When there's a hole in the text, you shall begin on a new program. Prog E 123456789012345678901 Lbl 0 You have:" K "Cost:" E "Do you want to:" "1. Buy" "2. Sell"? I Int I=1SGoto 1 Int I=2SGoto 2 Goto 0 Lbl 1 "How many stocks do" "you want to buy"? Q Int (Q*A)>KSGoto 1 Int Q<0SGoto 1 Q+Z Z K-(E*Q) K Goto 3 Lbl 2 Int Q=0SGoto 0 "You have:" Z "How many do you want" "to sell"? I Int I>ZSGoto 2 Z-I Z K+I*E+ K Lbl 3 Prog I When there's a hole in the text, you shall begin on a new program. Prog F 123456789012345678901 Lbl 0 You have:" K "Cost:" F "Do you want to:" "1. Buy" "2. Sell"? I Int I=1SGoto 1 Int I=2SGoto 2 Goto 0 Lbl 1 "How many stocks do" "you want to buy"? R Int (R*F)>KSGoto 1 Int R<0SGoto 1 R+L L K-(F*R) K Goto 3 Lbl 2 Int L=0SGoto 0 "You have:" L "How many do you want" "to sell"? I Int I>LSGoto 2 L-I L K+I*L+ K Lbl 3 Prog I When there's a hole in the text, you shall begin on a new program. Prog G 123456789012345678901 Lbl 0 You have:" K "Cost:" G "Do you want to:" "1. Buy" "2. Sell"? I Int I=1SGoto 1 Int I=2SGoto 2 Goto 0 Lbl 1 "How many stocks do" "you want to buy"? T Int (T*G)>KSGoto 1 Int T<0SGoto 1 T+S S K-(G*T) K Goto 3 Lbl 2 Int S=0SGoto 0 "You have:" S "How many do you want" "to sell"? I Int I>SSGoto 2 S-I S K+I*G+ K Lbl 3 Prog I When there's a hole in the text, you shall begin on a new program. Prog H 123456789012345678901 Lbl 0 You have:" K "Cost:" H "Do you want to:" "1. Buy" "2. Sell"? I Int I=1SGoto 1 Int I=2SGoto 2 Goto 0 Lbl 1 "How many stocks do" "you want to buy"? U Int (U*H)>KSGoto 1 Int U<0SGoto 1 U+J J K-(H*U) K Goto 3 Lbl 2 Int U=0SGoto 0 "You have:" J "How many do you want" "to sell"? I Int I>JSGoto 2 J-I J K+I*H+ K Lbl 3 Prog I When there's a hole in the text, you shall begin on a new program. Prog I 123456789012345678901 Lbl 1 A+(Int 11Ran#-5) A B+(Int 11Ran#-5) B C+(Int 11Ran#-5) C D+(Int 11Ran#-5) D E+(Int 11Ran#-5) E F+(Int 11Ran#-5) F G+(Int 11Ran#-5) G H+(Int 11Ran#-5) H Int A<1S5 A Int B<1S5 B Int C<1S5 C Int D<1S5 D Int E<1S5 E Int F<1S5 F Int G<1S5 G Int H<1S5 H _________________________________________________________ Now the time to say: "Phew, at last. Finished. But I know I have a great program since this program has been made by a programmer from Casionet(c)." Idea: Thomas Breivik Programming: Thomas Breivik Alpha-tester: Sigurd Schaathun Tommas Kraft Beta-tester: Sigurd Schaathun Tommas Kraft ˜ystein Rotevatn Kjell Herfjord