1? "PRESS # ON KEYPAD TO CONTINUE"
2 rx=rx-1:IF  NOT PDL(11) THEN 2
3 junk=RND(rx)
4?:?:?
10REM       MILLIONAIRE
20? "THIS IS THE GAME OF MILLIONAIRE"
25? "ALL YOU MUST DO IS TYPE IN YOUR"
30? "NAME AND ANSWER SOME QUESTONS."
35? "THE DECISIONS YOU MAKE WILL"
40? "DETERMINE HOW MUCH MONEY YOU"
45? "MAKE. AT THE TIME OF YOUR DEATH"
50? ",YOUR LIFE WILL BE RATED BY THE"
55? "AMOUNT OF MONEY YOU MADE"
60? "THROUGHOUT YOUR LIFE. IF YOU"
70? "HAVE MADE 1,000,000 YOU WILL BE"
80? "A MILLIONAIRE AND WIN THE GAME":? "NAME PLEASE"; 
100LET o=-1
110DIM a$(20), z$(1), m$(36), s(9), q(16)
120FOR i=1 TO 4
130LET s(i)=150
140NEXT i
150INPUT a$
160?
170? "O.K., "; a$; ",THIS IS YOUR NEW LIFE!"
180LET m$="JANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDEC"
190IF (RND(1))>.5 GOTO 220
200? "ON A BIG FARM"; 
210GOTO 230
220? "IN A SMALL TOWN"; 
230LET t=INT(RND(1)*12+1)
240? ", ON "; MID$(m$, 3*t-2, 3); INT(RND(1)*28+1); ", 1980,"; 
250? " "; a$; " IS BORN."
260? "YOUR PARENTS ARE VERY "; 
270IF (RND(1))>.5 GOTO 310
280? "RICH.  "; 
290LET m=INT(RND(1)*5000+10000)
300GOTO 330
310? "POOR.  "; 
320LET m=INT((RND(1))/2*1000)
330LET t=INT(RND(1)*12+1)
340 y=1996+INT(RND(1)*10)
350? "ON "; MID$(m$, t*3-2, 3); t*2; ", "; y; ", YOU"
360? "LEAVE HOME WITH $"; m
370LET y=INT(RND(1)*3+1)
380GOSUB 680
390FOR j=1 TO 13
400IF (j/3)-INT(j/3)+e=0 THEN GOSUB 680
410LET d=INT(28*RND(1)+1)
420LET m1=(INT(12*RND(1))+1*3)
430?
440? MID$(m$, m1-2, 3); d; ","; y
450IF y-1980<70 GOTO 500
460IF RND(1)>.5 GOTO 500
470? "YOU ARE DEAD (COULD'NT TELL,":? "COULD YOU?) AT THE"
480? "AGE OF "; y-1980; "."
490GOTO 2370
500IF m>=0 GOTO 540
510LET i=INT(.07*y9*(-m))
520LET m=m-i
530? "THE INTEREST ON YOUR LOAN IS $"; i; ".  YOU HAVE $"; m
540LET q=INT(13*RND(1)+1)
550IF q(q)=1 GOTO 540
560LET q(q)=1
570ON q GOTO 890, 1010, 1100, 1220, 1280, 1430, 1530
580ON (q-7) GOTO 1850, 1930, 2060, 2120, 2240, 2280
590? "YOU NOW HAVE $"; m
600IF o=-2 GOTO 1530
610IF j=1 GOTO 640
620LET m=m+(e-c)*y9
630? "YOUR EARNINGS AND EXPENCES":? "LEAVE YOU WITH $"; m
640LET y9=INT(RND(1)*6+5)
650LET y=y+y9
660NEXT j
670GOTO 470
680REM       JOB SUB
690? "YOU GOT A NEW JOB AS A "; 
700ON INT(RND(1)*5+1) GOTO 740, 770, 800, 830
710? "TEACHER"; 
720LET e=INT(RND(1)*4000+17000)
730GOTO 850
740? "LAWYER"; 
750LET e=INT(RND(1)*40000+80000)
760GOTO 850
770? "COMPUTER PROGRAMMER"; 
780LET e=INT(RND(1)*5000+20000)
790GOTO 850
800? "BUS DRIVER"; 
810LET e=INT(RND(1)*2000+16000)
820GOTO 850
830? "FOOTBALL PLAYER"; 
840LET e=INT(RND(1)*100000+100000)
850LET c=e-10000+INT((RND(1)+RND(1))*5000)
860? "  YOU EARN $"; e; " A YEAR."
870? "YOU ADJUST YOUR EXPECES TO $"; c; " A YEAR."
880RETURN
890? "YOU GO TO LAS VEGAS TO GAMBLE.":? "HOW MUCH DO YOU BET?"; 
900INPUT s
910?
920IF s<=0 GOTO 1000
930IF RND(1)>.7 GOTO 970
940LET s2=-INT(RND(1)*s)
950? "HA! HA! YOU LOST $"; -s2
960GOTO 990
970LET s2=INT((RND(1)+RND(1))*s)
980? "YOU WON $"; s2
990LET m=m+s2
1000GOTO 590
1010? "YOU ARE OFFERED A COIN":? "SUPPOSEDLY WORTH $100,000."
1020? "DO YOU BUY IT?"; 
1030INPUT z$
1040?
1050LET v7=INT(RND(1)*200000+1)
1060IF z$<>"Y" GOTO 1080
1070LET m=m-100000+v7
1080? "THE VALUE OF THE COIN IS $"; v7
1090GOTO 590
1100? "YOU ARE SERIOUSLY SICK.  (COULDN'T TELL, COULD YOU)"
1110? "YOU HAVE "; 
1120ON (INT(RND(1)*3)+1) GOTO 1150, 1170
1130? "THE ASIO-DISPEPSIA REGIONALY":? "HYPNOTIC FLU (OH!)."
1140GOTO 1180
1150? "COMPUTER ITIS."
1160GOTO 1180
1170? "INFECTIOUS FATALY REOCURING":? TAB(5); "CHRONIC BAD BREATH."
1180LET u=INT(RND(1)*1000+500)
1190LET m=m-u
1200? "HEALTH EXPENSES COST YOU":? TAB(1); " $"; u
1210GOTO 590
1220LET f=INT(RND(1)*100000)
1230LET c8=INT(f/2)-INT(RND(1)*(f/2))
1240? "YOUR GRANDFATHER GROVER JUST":? TAB(5); "DIED. (OH!) HE LEFT"
1250? "YOU $"; f; ", BUT FUNERAL EXPENSES ARE $"; c8
1260LET m=m-c8+f
1270GOTO 590
1280IF e=0 GOTO 890
1290? "NEWS FROM YOUR BOSS:"
1300ON (INT(RND(1)*3)+1) GOTO 1350, 1390
1310LET l=INT(RND(1)*3000+1)
1320LET e=e-l
1330? "YOU GOT A $"; l; " DECREASE":? " IN PAY.YOU NOW EARN $"; e
1340GOTO 590
1350? "YOUR FIRED! (HA!)"
1360LET e=0
1370LET c=INT(c/4)
1380GOTO 590
1390LET r6=INT(RND(1)*5000+1)
1400LET e=e+r6
1410? "YOU GOT A RAISE OF $"; r6; ". YOU NOW EARN $"; e
1420GOTO 590
1430? "THE DOCTER SAYA YOU NEED A ":? "VACATION. DO YOU GO?"; 
1440INPUT z$
1450?
1460LET v=INT(RND(1)*2000+1000)
1470IF z$="N" GOTO 1500
1480? "GOOD, THE VACATION COSTS $"; v
1490GOTO 1510
1500? "YOU JUST HAD A NERVOUS":? "BREAKDOWN. MEDICAL COSTS - $"; v
1510LET m=m-v
1520GOTO 590
1530FOR i=1 TO 4
1540LET s=(i)=INT((INT(RND(1)*100)+100+2*s(i))/3)
1550NEXT i
1560? " # STOCK NAME  PRICE  SHARES"
1570? " 1     IBM     "; s(1); "  "; s(5)
1580? " 2     USS     "; s(2); "  "; s(6)
1590? " 3     NCR     "; s(3); "  "; s(7)
1600? " 4     TWA     "; s(4); "  "; s(8)
1610IF s(9)=1 GOTO 2410
1620? "DO YOU BUY, SELL ($100), OR NOT":? "(B,S, OR N)"
1630INPUT z$
1640?
1650IF z$="S" GOTO 1740
1660IF z$="N" GOTO 1810
1670? "STOCK# AND QUANTITY"; 
1680INPUT s3, s(0)
1690?
1700LET s(4+s3)=s(4+s3)+s(0)
1710LET o=2
1720LET m=m-s(s3)*s(0)-100
1730GOTO 1620
1740? "STOCK# AND QUANITITY"; 
1750INPUT s2, s5
1760IF RND(1)<.5 GOTO 1880
1770IF s5>s(4+s2) GOTO 1740
1780LET s(4+s2)=s(4+s2)-s5
1790LET m=m+s(s2)*s5-100
1800GOTO 1620
1810LET s1=s(5)+s(6)+s(7)+s(8)
1820IF s1>0 GOTO 610
1830LET o=-1
1840GOTO 610
1850? "NEWS FLASH!!! "; 
1860? "A TORNADO HAS JUST HIT THE HOME":? "OF "; a$
1870GOTO 1890
1880? "AN AIRPLANE HAS JUST CRASHED":? "INTO THE HOME OF "; a$
1890LET d8=INT(RND(1)*50000+1)
1900LET m=m-d8
1910? "DAMAGES HAVE BEEN ESTIMATED":? "AT $"; d8
1920GOTO 590
1930? "OH! YOU JUST GOT "; 
1940IF y-1980<55 GOTO 2000
1950IF RND(1)>.4 GOTO 1980
1960? "CANCER"; 
1970GOTO 2010
1980? "A HEART ATTACK"; 
1990GOTO 2010
2000? "LEUKEMIA"; 
2010LET m2=INT(RND(1)*5000+1000)
2020LET m=m-m2
2030? ".  MEDICAL BILLS ARE $"; m2
2040IF RND(1)<.5 GOTO 470
2050GOTO 590
2060? "YOU JUST HAD A CAR ACCIDENT":? "MEDICAL COSTS"
2070LET m3=INT(RND(1)*3000+1000)
2080LET q7=INT(RND(1)*5000+100)
2090? "ARE $"; m3; ". REPAIRS COST $"; q7
2100LET m=m-m3-q7
2110GOTO 590
2120IF e=0 GOTO 1010
2130LET e2=10000+INT(RND(1)*5000)
2140? "YOU ARE OFFERED ANOTHER JOB":? "FOR $"; e2; " A YEAR."
2150? "WOULD YOU LIKE TO MOONLIGHT?"; 
2160INPUT z$
2170?
2180IF z$="N" GOTO 590
2190ON INT(RND(1)*3) GOTO 1350, 2220
2200LET e=e+e2
2210GOTO 590
2220? "FROM OVERWORK YOU GET "; 
2230GOTO 1980
2240LET r2=INT(RND(1)*10000+5000)
2250LET m=m-r2
2260? "YOUR HOME HAS BEEN ROBBED OF":? "GOODS WORTH $"; r2
2270GOTO 590
2280IF o=-1 GOTO 1430
2290IF RND(1)>.7 GOTO 1430
2300LET b4=INT(RND(1)*4)
2310? "STOCK MARKET CRASH!!":? "EACH OF YOUR"; s1; "SHARES OF"
2320? "STOCK IS WORTH $"; b4; ". YOU MUST":? "SELL ALL OF THEM"
2330? "FO A TOTAL OF $"; s1*b4
2340LET m=m+s1*b4
2350LET o=-1
2360GOTO 590
2370? "YOU HAD $"; m
2380IF o=-1 GOTO 2430
2390LET s(9)=1
2400GOTO 1530
2410LET m=m+s(1)*s(5)+s(2)*s(6)+s(3)*s(7)+s(4)*s(8)
2420? "WITH STOCK VALUE YOU HAVE":? TAB(5); "$"; m
2430IF m<0 GOTO 2480
2440IF m<500000 GOTO 2510
2450IF m<1000000 GOTO 2530
2460? a$; " WON!! YOU ARE A MILLIONAIRE!!"
2470GOTO 2540
2480? "YOU LOUSY #$%&@*!!! NOW":? "NOW YOUR HOLE FAMILY HAS TO PAY"
2490? "OFF YOUR DEBTS................."
2500GOTO 2540
2510? "NOT BAD,  "; a$
2520GOTO 2540
2530? "CLOSE,  "; a$; ".  MAYBE NEXT LIFE."
2540? "THANKS FOR PLAYING MILLIONAIRE":? TAB(2); ", "; a$; "!!!!"
2550END
