25 lines
1.1 KiB
QBasic
25 lines
1.1 KiB
QBasic
10 PRINT CHR$(147):PRINT " STOCK TRADER":PRINT
|
|
20 PRINT "MAKE THE MOST MONEY IN 20 DAYS.":PRINT "B=BUY S=SELL W=WAIT Q=QUIT"
|
|
25 PRINT:PRINT "PRESS ANY KEY"
|
|
30 GET A$:IF A$="" THEN 30
|
|
35 R=RND(-TI)
|
|
40 C=1000:N=0:P=50:FOR D=1 TO 20
|
|
50 P=P+INT(RND(1)*21)-10:IF P<5 THEN P=5
|
|
60 PRINT CHR$(147):PRINT "DAY";D;"OF 20":PRINT "PRICE $";P:PRINT "CASH $";C
|
|
65 PRINT "SHARES ";N:PRINT "VALUE $";C+N*P
|
|
70 PRINT:PRINT "B, S, W, OR Q?"
|
|
80 GET A$:IF A$="" THEN 80
|
|
90 IF A$="Q" THEN 180
|
|
100 IF A$="W" THEN 150
|
|
110 IF A$="B" THEN PRINT "HOW MANY";:INPUT Q:IF Q>=0 AND Q*P<=C THEN C=C-Q*P:N=N+Q:GOTO 150
|
|
120 IF A$="S" THEN PRINT "HOW MANY";:INPUT Q:IF Q>=0 AND Q<=N THEN C=C+Q*P:N=N-Q:GOTO 150
|
|
130 PRINT "TRADE NOT POSSIBLE.":FOR T=1 TO 500:NEXT:GOTO 70
|
|
150 NEXT:C=C+N*P:N=0:PRINT CHR$(147):PRINT "MARKET CLOSED.":PRINT "FINAL WEALTH $";C
|
|
160 IF C>=1500 THEN PRINT "WALL STREET LEGEND!"
|
|
165 IF C>=1000 AND C<1500 THEN PRINT "A SOLID PROFIT."
|
|
170 IF C<1000 THEN PRINT "BETTER LUCK NEXT MARKET."
|
|
175 PRINT:PRINT "R=REPLAY Q=QUIT"
|
|
180 GET A$:IF A$="R" THEN RUN
|
|
190 IF A$<>"Q" THEN 180
|
|
200 PRINT CHR$(147):END
|
|
|