1 ' "CHANGES",A
2 COMMON MIN,MAX,NAM$(),ZCASH(),ZBALANCE(),ZDEPOSIT(),ZWITHD(),DN$(),T$,B$,M$,C$(),V(),LW(),T(),B(),TP(),P(),A(),CC$(),A2$,A4$,A6$,A8$,A10$,CHIP$,FULL$,F$,FF$,S$(),N(),CH$(),ACE(),SP(),STP(),OC$(),HC$(),STOT(),ASE(),SOFT(),N,T$(),RI$(),RR$(),EC$
3 COMMON ZPCASH(),ZPWITHD(),ZPBALANCE(),ZPDEPOSIT(),W,WW,LC,DNAM$,RECORD$(),SH,DBET()
4 CLS:OPEN "R",1,"PLAYERS":IF LOF(1)=0 THEN LET NE=1:FIELD 1,2 AS NE$:LSET NE$=MKI$(NE):PUT 1,1:GOTO 6
5 FIELD 1,2 AS NE$:GET 1,1:NE=CVI(NE$)
6 CLOSE
7 DEFSNG Z:RANDOM:GOSUB 153:GOSUB 215
8 XX=0:FOR J=1 TO 6:IF PNAM$(J)=""THEN 11
9 NAM$(J)=PNAM$(J):ZCASH(J)=ZPCASH(J):RECORD$(J)=PRECORD$(J):ZDEPOSIT(J)=ZPDEPOSIT(J):ZWITHD(J)=ZPWITHD(J):ZBALANCE(J)=ZDEPOSIT(J)-ZWITHD(J):PNAM$(J)="":ZPCASH(J)=0:PRECORD$(J)="":ZPBALANCE(J)=0:ZPDEPOSIT(J)=0
10 GOTO 12
11 IF LEN(NAM$(J))<10 THEN NAM$(J)="":ZCASH(J)=0:ZDEPOSIT(J)=0:ZWITHD(J)=0:ZBALANCE(J)=0:GOTO 12
12 NEXT
13 CLS:GOSUB 218
14 XX=0
15 FOR J=1 TO 6:IF NAM$(J)<>""THEN XX=XX+1
16 NEXT
17 PRINT@1520,FF$;:TIT=0
18 PRINT@661,"#  NAME:      CASH:      POSITION:":PRINT@741,STRING$(34,"=");
19 CH=821:PRINT@CH,"1)":CH=CH+80:PRINT@CH,"2)":CH=CH+80:PRINT@CH,"3)":CH=CH+80:PRINT@CH,"4)":CH=CH+80:PRINT@CH,"5)":CH=CH+80:PRINT@CH,"6)":YY=824
20 FOR J=1 TO 6:PRINT@YY,NAM$(J);TAB(35);ZCASH(J);:YY=YY+80:NEXT
21 PRINT@846,"6TH DEALT";:PRINT@926,"5TH DEALT";:PRINT@1006,"4TH DEALT";:PRINT@1086,"3RD DEALT";:PRINT@1166,"2ND DEALT";:PRINT@1246,"1ST DEALT";
22 PRINT TAB(22);STRING$(34,"=");
23 PRINT@1440,FF$;:PRINT@1760,FF$;:PRINT@1360,FF$;:PRINT@1680,FF$;:PRINT@1360,"   <A>dd player   <B>ank   <C>hange position   <D>eal cards   <E>ject player";
24 PRINT@1551,"<L>EAVE GAME!"
25 CH$=INKEY$
26 GOSUB 207
27 IF CH$="" THEN 25
28 IF ASC(CH$)=13 THEN 25
29 IF CH$<"A" OR CH$>"Z"THEN PRINT@1360,FF$;:PRINT@1520,FF$;:PRINT@1374,"CAPITOL LETTERS ONLY PLEASE.  (CAPS SWITCH ON?)":SOUND 0,0:FOR TI=1 TO 3000:NEXT:GOTO 23
30 IF CH$="L"THEN 102
31 PRINT@1520,FF$;
32 IF XX=0 AND CH$<>"A" THEN PRINT@1360,FF$;:PRINT@1388,"<A>dd     your name!":SOUND 0,0:FOR TI=1 TO 2000:NEXT:GOTO 23
33 IF ASC(CH$)<65 OR ASC(CH$)>69 THEN PRINT@1555,"WHAT?":SOUND 0,0:FOR TI=1 TO 500:NEXT:GOTO 24
34 IF CH$="A"THEN 105 ELSE IF CH$="E"THEN 137 ELSE IF CH$="C"THEN 164 ELSE IF CH$="D"THEN 35 ELSE 56
35 FOR J=1 TO 6:IF STAT$(J)="--TERMINATED--"THEN PRINT@1360,FF$;:PRINT@1382,"NO --TERMINATED-- FOLKS ALLOWED!";:SOUND 0,0:FOR TI=1 TO 3000:NEXT:GOTO 23
36 NEXT
37 FOR J=1 TO 6: IF ZCASH(J)<2 AND NAM$(J)<>"" THEN PRINT@1360,FF$;:PRINT@1388,"SOMEONE NEEDS MONEY!";:SOUND 0,0:FOR TI=1 TO 2000:NEXT:GOTO 23
38 NEXT
39 PRINT@1360,FF$;:PRINT@1360,"DEAL THE CARDS";:PRINT@1408,"<A>bort";
40 PRINT@1520,FF$;:PRINT@1520,"How many decks (1, 2 or 5): ";
41 CH$=INKEY$:IF CH$=""THEN 41
42 IF ASC(CH$)=13 OR CH$="A" THEN PRINT@1520,FF$;:GOTO 23
43 CH=VAL(CH$):IF CH<>1 AND CH<>2 AND CH<>5 THEN 40
44 PRINT@1548,CH:W=CH:WW=W*52:LC=WW/2
45 PRINT@1600,FF$;:PRINT@1600,"Table Minimum: (1) $2  (2) $5  (3) $25  (4) $100: ";
46 CH$=INKEY$:IF CH$=""THEN 46
47 IF ASC(CH$)=13 OR CH$="A" THEN PRINT@1520,FF$;:PRINT@1600,FF$;:GOTO 23
48 CH=VAL(CH$):IF CH<1 OR CH>4 THEN 45 ELSE IF CH=1 THEN CH=2 ELSE IF CH=2 THEN CH=5 ELSE IF CH=3 THEN CH=25 ELSE IF CH=4 THEN CH=100
49 PRINT@1650,CH;:PRINT@1650,"$";:MIN=CH:MAX=100*CH
50 FOR J=1 TO 6:IF ZCASH(J)<MIN AND LEN(NAM$(J))=10 THEN NOPE=1
51 NEXT:IF NOPE=1 THEN NOPE=0:PRINT@1680,"YOU (ALL) CAN'T AFFORD THIS TABLE...":SOUND 0,0:PRINT@1600,FF$;:FOR TI=1 TO 3000:NEXT:PRINT@1680,FF$;:GOTO 45
52 DG$=DN$(RND(25)):IF DG$=DNAM$ THEN 52 ELSE DNAM$=DG$
53 CLS
54 PRINT:PRINT"60 SECONDS PLEASE...":PRINT@800,"You're looking for a table...";:PRINT@1200,"REMEMBER: Don't remove the disk until you <L>eave the game!";
55 CHAIN "PLAY"
56 CLS:PRINT T$(1):PRINT T$(2):PRINT T$(3):PRINT T$(4):PRINT T$(5):PRINT T$(6):PRINT T$(1):FOR J=1 TO 6:IF INT(ZCASH(J))<ZCASH(J) THEN ZCASH(J)=INT(ZCASH(J))+.5
57 NEXT:FOR J=1 TO 6:ZB=ZBALANCE(J)
58 IF ZB<-25000 THEN STAT$(J)="--TERMINATED--":ZCASH(J)=0:GOTO 71
59 IF ZB<-24999 THEN STAT$(J)="1 HOUR TO LIVE"ELSE IF ZB<-21999 THEN STAT$(J)="CONTRACT OUT!!"
60 IF ZB<-21999 THEN 71
61 IF ZB<-20999 THEN STAT$(J)="CEMENT BOOTS?"ELSE IF ZB<-20000 THEN STAT$(J)="LIKE DAISIES?"ELSE IF ZB<-19999 THEN STAT$(J)="WE OWN ALL!"ELSE IF ZB<-14999 THEN STAT$(J)="WE OWN HOUSE!"
62 IF ZB<-14999 THEN 71
63 IF ZB<-9999 THEN STAT$(J)="LIEN ON ALL!"ELSE IF ZB<-5999 THEN STAT$(J)="LIEN ON HOUSE!"ELSE IF ZB<-4999 THEN STAT$(J)="75% WAGE LIEN!"ELSE IF ZB<-3999 THEN STAT$(J)="5O% WAGE LIEN!"ELSE IF ZB<-3000 THEN STAT$(J)="25% WAGE LIEN!"
64 IF ZB<-3000 THEN 71
65 IF ZB<-2999 THEN STAT$(J)="WE OWN CAR!"ELSE IF ZB<-1999 THEN STAT$(J)="LIEN ON CAR!"ELSE IF ZB<-999 THEN STAT$(J)="SERIOUS"ELSE IF ZB<0 THEN STAT$(J)="CHECKS BOUNCE"
66 IF ZB<0 THEN 71
67 IF ZB<500000! THEN 70
68 IF ZB=>500000! THEN STAT$(J)="100000 STOLEN!":ZDEPOSIT(J)=ZDEPOSIT(J)-100000!:ZBALANCE(J)=ZDEPOSIT(J)-ZWITHD(J):X=VAL(RECORD$(J))
69 GOSUB 134:GOSUB 149:CLOSE:GOTO 71
70 IF ZB>4999 THEN STAT$(J)="FANTASTIC!"ELSE IF ZB>2499 THEN STAT$(J)="GREAT"ELSE IF ZB>999 THEN STAT$(J)="GOOD!"ELSE IF ZB>499 THEN STAT$(J)="O.K."ELSE IF ZB>-1 THEN STAT$(J)="FAIR"
71 NEXT:PRINT@640,"#  NAME:         CASH:       DEPOSITS:   WITHDRAWALS:   BALANCE:  STATUS:":PRINT STRING$(80,"=");
72 FOR J=1 TO 6:IF NAM$(J)="" THEN STAT$(J)=""
73 NEXT:PRINT"1)":PRINT"2)":PRINT"3)":PRINT"4)":PRINT"5)":PRINT"6)"
74 YY=804:FOR J=1 TO 6:PRINT@YY,NAM$(J),ZCASH(J);TAB(29);ZDEPOSIT(J);TAB(41);ZWITHD(J);TAB(56);ZBALANCE(J);TAB(67);STAT$(J);:YY=YY+80:NEXT:PRINT STRING$(80,"=");
75 PRINT@1680,FF$;:PRINT@1520,FF$;:PRINT@1360,FF$;:PRINT@1360," <W>ithdrawal   <C>asino entrance   <D>eposit                     <L>EAVE GAME!";
76 CH$=INKEY$:IF CH$="" OR CH$=CHR$(13) THEN 76
77 IF CH$<>"W"AND CH$<>"D"AND CH$<>"C"AND CH$<>"L"THEN 76
78 IF CH$<>"W"THEN 90
79 PRINT@1360,FF$;:PRINT@1360,"WITHDRAWAL";:PRINT@1377,"<A>bort";:PRINT@1520,"WHO (1-6): ";
80 CH$=INKEY$:IF CH$=""OR CH$=CHR$(13) THEN 80 ELSE IF CH$="A" OR CH$="a"THEN 75
81 J=VAL(CH$):IF J<1 OR J>6 THEN PRINT@1520,FF$;:PRINT@1360,FF$;:SOUND 0,0:GOTO 75
82 IF NAM$(J)=""THEN PRINT@1360,FF$;:PRINT@1520,FF$;:PRINT@1360,"NUMBER"J"IS A REAL NOBODY!":SOUND 0,0:FOR TI=1 TO 1000:NEXT:GOTO 75
83 IF STAT$(J)="--TERMINATED--"THEN PRINT@1520,FF$;:PRINT@1520,NAM$(J)" IS --TERMINATED-- !!  (DEAD)":SOUND 0,0:FOR TI=1 TO 2000:NEXT:SOUND 0,0:GOTO 75
84 PRINT@1520,FF$;:PRINT@1520,"HOW MUCH "NAM$(J)
85 PRINT@1680,FF$;:PRINT@1680,"(1) $100  (2) $200  (3) $300  (4) $400  (5) $500  (E)verything!";
86 CH$=INKEY$:IF CH$=""THEN 86 ELSE IF CH$="e"AND ZBALANCE(J)<=0 OR CH$="E"AND ZBALANCE(J)<=0 THEN PRINT@1680,FF$;:PRINT@1680,"You don't have anything to withdraw.":SOUND 0,0:FOR TI=1 TO 2000:NEXT:GOTO 85
87 IF CH$="E"OR CH$="e"THEN ZCASH(J)=ZCASH(J)+ZBALANCE(J):ZWITHD(J)=ZWITHD(J)+ZBALANCE(J):ZBALANCE(J)=0:X=VAL(RECORD$(J)):GOSUB 134:GOSUB 149:PUT 1,X:CLOSE:GOTO 56
88 IF ASC(CH$)=13 OR CH$="A"OR CH$="a" THEN 75 ELSE CJ=VAL(CH$):IF CJ<1 OR CJ>5 THEN PRINT@1520,FF$;:PRINT@1680,FF$;:SOUND 0,0:GOTO 75
89 X=VAL(RECORD$(J)):ZWITHD(J)=ZWITHD(J)+(CJ*100):ZCASH(J)=ZCASH(J)+(CJ*100):ZBALANCE(J)=ZDEPOSIT(J)-ZWITHD(J):GOSUB 134:GOSUB 149:PUT 1,X:CLOSE:GOTO 56
90 IF CH$<>"D"THEN 101
91 PRINT@1360,FF$;:PRINT@1360,"DEPOSIT";:PRINT@1377,"<A>bort";:PRINT@1520,"WHO (1-6): ";
92 CH$=INKEY$:IF CH$="" OR CH$=CHR$(13) THEN 92 ELSE IF CH$="A" OR CH$="a"THEN 75
93 J=VAL(CH$):IF J<1 OR J>6 THEN PRINT@1520,FF$;:PRINT@1360,FF$;:SOUND 0,0:GOTO 75
94 IF NAM$(J)=""THEN PRINT@1360,FF$;:PRINT@1520,FF$;:PRINT@1360,"NUMBER"J"IS A REAL NOBODY!":SOUND 0,0:FOR TI=1 TO 1000:NEXT:GOTO 75
95 IF STAT$(J)="--TERMINATED--"THEN PRINT@1520,FF$;:PRINT@1520,NAM$(J)" IS --TERMINATED-- !!  (DEAD)":SOUND 0,0:FOR TI=1 TO 2000:NEXT:SOUND 0,0:GOTO 75
96 IF ZCASH(J)=0 THEN PRINT@1360,FF$;:PRINT@1520,FF$;:PRINT@1360,"You need CASH to make a deposit "NAM$(J):SOUND 0,0:FOR TI=1 TO 2000:NEXT:GOTO 75
97 PRINT@1520,FF$;:PRINT@1521,ZCASH(J)"IS DEPOSITED.  ";:PRINT@1520,"$";:IF ZCASH(J)<0 THEN PRINT@1546,"...  Gee, a minus deposit. THANKS ";NAM$(J) ELSE PRINT@1546,"THANK YOU "NAM$(J)
98 IF ZCASH(J)<0 THEN ZWITHD(J)=ZWITHD(J)-ZCASH(J):ZCASH(J)=0:GOTO 100
99 ZDEPOSIT(J)=ZDEPOSIT(J)+ZCASH(J):ZCASH(J)=0:GOTO 100
100 X=VAL(RECORD$(J)):ZBALANCE(J)=ZDEPOSIT(J)-ZWITHD(J):GOSUB 134:GOSUB 149:PUT 1,X:CLOSE:GOTO 56
101 IF CH$="C"THEN 13
102 GOSUB 134:FOR J=1 TO 6:IF NAM$(J)=""THEN 104
103 GOSUB 146:PUT 1,X:GOSUB 152
104 NEXT:CLOSE:CLS:PRINT@800,"You're leaving...":RUN "BYE"
105 IF XX=6 THEN PRINT@1360,FF$;:PRINT@1384,"YOU ALREADY HAVE 6 PLAYERS":SOUND 0,0:FOR TI=1 TO 2000:NEXT:GOTO 23
106 IF NE>31 THEN SOUND 0,0:FOR TI=1 TO 1000:NEXT:SOUND 0,0:GOTO 178
107 PRINT@1360,FF$;:PRINT@1360,"ADD A PLAYER        <*> For list of names in use <A>bort";
108 PRINT@1520,FF$;:PRINT@1520,"FIRST NAME: ";:LINE INPUT NAM$
109 IF NAM$=CHR$(13) THEN 108
110 IF NAM$="A"OR NAM$="a"THEN PRINT@1520,FF$;:GOTO 23
111 IF NAM$="*"THEN GOTO 178
112 FOR J=1 TO LEN(NAM$):IF ASC(MID$(NAM$,J,1))<65 OR ASC(MID$(NAM$,J,1))>90 THEN PRINT@1760,FF$;:PRINT@1760,"CAPITOL LETTERS ONLY PLEASE (AND NO SPACES)";:SOUND 0,0:GOTO 108
113 NEXT
114 IF LEN(NAM$)<2 THEN 108
115 IF LEN(NAM$)>10 THEN PRINT@1760,FF$;:PRINT@1760,"10 LETTERS MAXIMUM":SOUND 0,0:GOTO 108
116 IF LEN(NAM$)<10 THEN NAM$=NAM$+" ":GOTO 116
117 FOR J=1 TO 6:IF NAM$=NAM$(J) THEN PRINT@1520,FF$;:PRINT@1360,FF$;:PRINT@1360,"YOU ALREADY HAVE "NAM$:SOUND 0,0:FOR TI=1 TO 1000:NEXT:GOTO 23
118 NEXT
119 IF NE=31 THEN GOSUB 134:FOR CH=2 TO 31:GET 1,CH:IF NAM$=NF$ THEN CLOSE ELSE NEXT:CLOSE:SOUND 0,0:FOR TI=1 TO 500:NEXT:SOUND 0,0:GOTO 178
120 GOSUB 121:GOTO 13
121 GOSUB 134
122 FOR J=2 TO NE:GET 1,J:IF NAM$=NF$ THEN PRINT"FOUND":GOTO 124
123 NEXT:CLOSE:GOTO 127
124 FOR J=1 TO 6:IF NAM$(J)=""THEN NAM$(J)=NAM$:RECORD$(J)=REC$:ZBALANCE(J)=VAL(BAL$):NF$="":REC$="":WN$="":CHK$="":BAL$="":GOTO 126
125 NEXT:PRINT@1440,FF$;
126 CLOSE:ZDEPOSIT(J)=ZBALANCE(J):RETURN
127 PRINT@1440,FF$;:PRINT@1360,FF$;:PRINT@1520,FF$;:PRINT@1760,FF$;:PRINT@1440,"NOT FOUND.  SHALL I ADD: "NAM$" <Y,N>";:SOUND 7,0
128 CH$=INKEY$:IF CH$=""THEN 128 ELSE IF CH$<>"Y"AND CH$<>"y"THEN 23
129 PRINT@1440,FF$;:PRINT@1440,"ADDING: "NAM$:GOSUB 134
130 NE=NE+1
131 RECORD$=STR$(NE):FIELD 1,2 AS NE$:LSET NE$=MKI$(NE):PUT 1,1
132 LSET NF$=NAM$:LSET REC$=RECORD$:LSET BAL$=" 5000"
133 PUT 1,NE:GOTO 124
134 OPEN "R",1,"PLAYERS"
135 FIELD 1,2 AS NE$
136 FIELD 1,10 AS NF$, 3 AS REC$, 10 AS BAL$:RETURN
137 PRINT@1360,FF$;:PRINT@1360,"EJECT A PLAYER (SAVED)    <*> For list of names <A>bort";
138 PRINT@1520,FF$;:PRINT@1520,"WHICH (1-6): ";
139 CH$=INKEY$:IF CH$=""THEN 139 ELSE IF CH$="A"OR CH$="a"THEN PRINT@1520,FF$;:GOTO 23
140 IF CH$="*"THEN 178 ELSE J=VAL(CH$):IF J<1 OR J>6 THEN PRINT@1360,FF$;:PRINT@1520,FF$;:SOUND 0,0:GOTO 23
141 IF NAM$(J)="" THEN PRINT@1520,FF$;:SOUND 0,0:GOTO 23
142 PRINT@1533,"EJECTING ----> ";NAM$(J)
143 GOSUB 134:GOSUB 146
144 PUT 1,X:CLOSE:XX=XX-1:GOSUB 152:GOTO 13
145 ' PREPARE FOR PUTTING IN FILE
146 X=VAL(RECORD$(J))
147 ZDEPOSIT(J)=ZDEPOSIT(J)+ZCASH(J)
148 ZBALANCE(J)=ZDEPOSIT(J)-ZWITHD(J)
149 BALANCE$=STR$(ZBALANCE(J))
150 NAM$=NAM$(J):RECORD$=RECORD$(J)
151 LSET NF$=NAM$:LSET REC$=RECORD$:LSET BAL$=BALANCE$:RETURN
152 NAM$(J)="":ZCASH(J)=0:ZDEPOSIT(J)=0:ZWITHD(J)=0:ZBALANCE(J)=0:RECORD$(J)="":RETURN
153 LO$=CHR$(179):B3$=STRING$(3,191)
154 SI$=CHR$(128)
155 Z$=CHR$(188):X$=CHR$(131)
156 BL$=CHR$(191)
157 T$(5)=STRING$(25,32)+BL$+"$"+STRING$(26,191)+"$"+BL$
158 T$(6)=STRING$(25,32)+BL$+"$"+BL$+BL$+" SICILIAN ODIOUS BANK "+BL$+BL$+"$"+BL$
159 T$(2)=STRING$(25,32)+BL$+"$"+B3$+X$+Z$+Z$+LO$+BL$+B3$+X$+Z$+Z$+X$+BL$+B3$+SI$+Z$+Z$+X$+B3$+"$"+BL$
160 T$(3)=STRING$(25,32)+BL$+"$"+B3$+BL$+Z$+Z$+X$+BL$+B3$+SI$+BL$+BL$+SI$+B3$+BL$+SI$+Z$+Z$+CHR$(130)+B3$+"$"+BL$
161 T$(4)=STRING$(25,32)+BL$+"$"+B3$+Z$+LO$+LO$+Z$+BL$+B3$+Z$+LO$+LO$+Z$+BL$+B3$+CHR$(176)+LO$+LO$+Z$+B3$+"$"+BL$
162 T$(1)=STRING$(25,32)+STRING$(30,191)
163 RETURN
164 PRINT@1360,FF$;:PRINT@1360,"CHANGE POSITIONS":PRINT@1408,"<A>bort";
165 PRINT@1520,FF$;:PRINT@1520,"MOVE WHO? (1-6): ";
166 CH$=INKEY$:IF CH$=""OR CH$=CHR$(13) THEN 166
167 IF CH$="A" OR CH$="a" THEN PRINT@1520,FF$;:GOTO 23
168 CH=VAL(CH$):IF CH<1 OR CH>6 THEN PRINT@1520,FF$;:PRINT@1520,"ENTER A NUMBER OR <A>":SOUND 0,0:FOR TI=1 TO 1000:NEXT:GOTO 165
169 IF NAM$(CH)=""THEN PRINT@1360,FF$;:PRINT@1360,"NOBODY'S IN CHAIR #"CH:SOUND 0,0:FOR TI=1 TO 1000:NEXT:GOTO 164
170 HOLD$=NAM$(CH):ZCAS=ZCASH(CH):RECD$=RECORD$(CH):ZWIT=ZWITHD(CH):ZDPS=ZDEPOSIT(CH):ZBLN=ZBALANCE(CH)
171 PRINT@1537,"MOVING ---> "HOLD$
172 PRINT@1680,"FROM CHAIR:"CH"  TO CHAIR: "
173 CH$=INKEY$:IF CH$="" THEN 173
174 DH=VAL(CH$):IF DH<1 OR DH>6 THEN PRINT@1680,FF$;:PRINT@1520,FF$;:GOTO 23
175 IF CH=DH THEN PRINT@1360,FF$;:PRINT@1520,FF$;:PRINT@1680,FF$;:GOTO 23
176 NAM$(CH)=NAM$(DH):ZCASH(CH)=ZCASH(DH):RECORD$(CH)=RECORD$(DH):ZWITHD(CH)=ZWITHD(DH):ZDEPOSIT(CH)=ZDEPOSIT(DH):ZBALANCE(CH)=ZBALANCE(DH):ZCASH(DH)=ZCAS:NAM$(DH)=HOLD$:RECORD$(DH)=RECD$:ZWITHD(DH)=ZWIT:ZDEPOSIT(DH)=ZDPS:ZBALANCE(DH)=ZBLN
177 PRINT@1360,FF$;:PRINT@1520,FF$;:PRINT@1680,FF$;:GOTO 13
178 CLS:XY=240:PRINT@109,"CURRENT NAMES IN USE:":PRINT STRING$(80,"=");
179 GOSUB 134:IF NE<2 THEN PRINT:PRINT"YOU HAVE NO NAMES TO LIST":SOUND 0,0:CLOSE:FOR TI=1 TO 2000:NEXT:GOTO 13
180 FOR X=2 TO NE:GET 1,X
181 IF X>11 THEN 187
182 PRINT" "X-1") "NF$" BALANCE= "BAL$;
183 IF X=NE THEN XY=XY+160:CLOSE:GOTO 189
184 IF X<NE THEN X=X+1:GET 1,X
185 IF X<11 THEN PRINT TAB(40);" "X-1") "NF$" BALANCE= "BAL$ ELSE PRINT TAB(40);X-1") "NF$" BALANCE= "BAL$
186 GOTO 188
187 PRINT X-1") "NF$" BALANCE= "BAL$;:IF X<NE THEN X=X+1:GET 1,X:PRINT TAB(40); X-1") "NF$" BALANCE= "BAL$
188 XY=XY+80:NEXT:CLOSE:XY=XY+80
189 PRINT STRING$(80,"=");:PRINT" 3O NAMES MAXIMUM!             OPTIONS:  <C>asino       <D>elete name"
190 CH$=INKEY$:IF CH$=""THEN 190
191 IF CH$<>"D"THEN 13
192 PRINT@XY,FF$;:PRINT@XY,"DELETE PLAYER ## ( 1 -"NE-1")               <A>bort"
193 PRINT@XY+160,"##  <ENTER>: ";
194 LINE INPUT CH$:IF CH$="A"THEN 13
195 X=VAL(CH$)+1:IF X<2 OR X>NE THEN SOUND 0,0:GOTO 13
196 GOSUB 134:GET 1,X:HOLD$=NF$:FOR TI=1 TO 6:IF NAM$(TI)=HOLD$ THEN PRINT@XY+160,FF$;:PRINT@XY,FF$;:PRINT@XY,"      *****   THIS PLAYER MUST BE  <E>JECTED  BEFORE BEING DELETED   *****";:SOUND 0,0:CLOSE:FOR TI=1 TO 2000:NEXT:SOUND 1,0:GOTO 13
197 NEXT
198 PRINT@XY+160,FF$;:PRINT@XY,FF$;:PRINT@XY,"          *****************   ONE MOMENT PLEASE   *****************";
199 IF X=31 OR X=NE THEN 205
200 FOR J=X TO NE-1:GET 1,J+1
201 LSET NF$=NF$:LSET REC$=STR$(J):LSET WITHD$=WITHD$:LSET CHK$=CHK$:LSET BAL$=BAL$:PUT 1,J
202 FOR BG=1 TO 6:IF NAM$(BG)=NF$ THEN RECORD$(BG)=STR$(J)
203 NEXT BG
204 NEXT J
205 NE=NE-1:LSET NE$=MKI$(NE):PUT 1,1:CLOSE
206 IF NE=1 THEN 13 ELSE 178
207 PRINT@533," ";:PRINT@503," ";:PRINT@293," ";:PRINT@263," ";:PRINT@53," ";:PRINT@23," ";:PRINT@504,TD$(2);:PRINT@373,"$";:PRINT@133,"$";:PRINT@423,"$";:PRINT@183,"$";:PRINT@24,TD$(1);
208 IF TIT=1 THEN PRINT@193,"MAJOR BUCKS";
209 PRINT@133," ";:PRINT@423," ";:PRINT@373," ";:PRINT@183," ";:PRINT@133," ";:PRINT@504,TD$(1);:PRINT@453,"$";:PRINT@343,"$";:PRINT@213,"$";:PRINT@103,"$";:PRINT@24,TD$(2);
210 IF TIT=3 THEN PRINT@266,"Casino and Hotel Entrance";
211 PRINT@453," ";:PRINT@343," ";:PRINT@213," ";:PRINT@103," ";:PRINT@504,TD$(3);:PRINT@293,"$";:PRINT@503,"$";:PRINT@533,"$";:PRINT@263,"$";:PRINT@53,"$";:PRINT@24,TD$(3);:PRINT@23,"$";
212 IF TIT=5 THEN PRINT@352,"Open 24 Hours";
213 TIT=TIT+1:IF TIT=9 THEN PRINT@193,"           ";:PRINT@266,"                         ";:PRINT@352,"             ";:TIT=0
214 RETURN
215 BO$=CHR$(191) :M1$=CHR$(170) :M2$=CHR$(131):M3$=CHR$(149)
216 M4$=CHR$(138):M5$=CHR$(140):M6$=CHR$(133)
217 RETURN
218 PRINT@104,M1$;STRING$(27,M2$);M3$;
219 PRINT@184,M1$;STRING$(27,32);M3$;
220 PRINT@264,M1$;STRING$(27,32);M3$;
221 PRINT@344,M1$;STRING$(27,32);M3$;
222 PRINT@424,M4$;STRING$(27,M5$);M6$;
223 TD$(1)="$  $  $  $  $  $  $  $  $  $  "
224 TD$(2)=" $  $  $  $  $  $  $  $  $  $ "
225 TD$(3)="  $  $  $  $  $  $  $  $  $  "
226 RETURN
