1 '"PLAY",A
2 SH=1:DEFSNG Z:RANDOM:OPEN "R",1,"PNAMES",10:FIELD 1,9 AS PN$
3 FOR J=1 TO 6:IF LEN(NAM$(J))=10 THEN 6
4 NP=RND(200):GET 1,NP:NAM$(J)=PN$:ZCASH(J)=RND(500)+100:BET(J)=INT(ZCASH(J)/10):IF BET(J)<MIN THEN BET(J)=MIN
5 FOR JJ=1 TO 6:IF NAM$(J)=NAM$(JJ)AND JJ<>J THEN 4 ELSE NEXT
6 NEXT:CLOSE
7 FOR J=1 TO 6:ACE(J)=0:N(J)=0:SPLIT(J)=0:PB(J)=0:NEXT:DB=0:X=0:ACED=0:SDL=0:SP=0:NUD=NUD+1
8 IF NUD<30 THEN 10 ELSE NUD=INT(41-(LEN(DNAM$)/2)):SOUND 7,0:SOUND 4,0:PRINT@NUD,"          ";:FOR TI=1 TO 1000:NEXT:PRINT@NUD,DNAM$;:FOR TI=1 TO 1000:NEXT:PRINT@NUD,"          ";
9 DG$=DN$(RND(25)):IF DG$=DNAM$ THEN 9 ELSE SOUND 4,0:SOUND 7,0:DNAM$=DG$:DG$="":NUD=0
10 FOR J=1 TO 6:IF ZCASH(J)=>MIN THEN 17
11 PRINT@880,FF$;:PRINT@910,"BETTER LUCK "NAM$(J);:SOUND 6,0:SOUND 3,0
12 IF LEN(NAM$(J))=10 THEN PNAM$(J)=NAM$(J):ZPCASH(J)=ZCASH(J):PRECORD$(J)=RECORD$(J):ZPBALANCE(J)=ZBALANCE(J):ZPWITHD(J)=ZWITHD(J):ZPDEPOSIT(J)=ZDEPOSIT(J)
13 CLOSE:OPEN "R",1,"PNAMES",10:FIELD 1,9 AS PN$
14 NP=RND(200):GET 1,NP:NAM$(J)=PN$:ZCASH(J)=RND(500)+100:BET(J)=INT(ZCASH(J)/10):IF BET(J)<MIN THEN BET(J)=MIN
15 IF EP=1 THEN RETURN
16 FOR JJ=1 TO 6:IF NAM$(J)=NAM$(JJ) AND JJ<>J THEN 14 ELSE NEXT
17 NEXT:CLOSE
18 FOR J=1 TO 24:TP(J)=0:STP(J)=0:ACE(J)=0:NEXT:FOR J=1 TO 6:IF INT(ZCASH(J))<ZCASH(J) THEN ZCASH(J)=INT(ZCASH(J))+.5
19 NEXT
20 PRINT@80,F$;:PRINT@160,F$;:PRINT@240,F$;:PRINT@320,F$;:PRINT@400,F$;:PRINT@480,F$;
21 GOSUB 337:IF SH=1 THEN SH=0:GOSUB 173
22 PRINT@INT(41-(LEN(DNAM$)/2)),DNAM$;:IF W=1 THEN SH=1
23 MIN$=STR$(MIN):MIN$=RIGHT$(MIN$,LEN(MIN$)-1):MAX$=MIN$+"00"
24 PRINT@55,"NUMBER OF DECKS:"W;:PRINT@215,"LIMIT: $"MIN$" TO $"MAX$;:PRINT@295,"SPLIT UP TO 4 HANDS";:PRINT@375,"SPLIT ACES GET 1 CARD";:PRINT@455,"DOUBLE DOWN on 1O or 11";
25 PRINT@1840,STRING$(79,32);:NP=1844:FOR J=1 TO 6:PRINT@NP,NAM$(J);:NP=NP+12:NEXT
26 GOSUB 323:GOSUB 177:PRINT@800," <ENTER> Same as last bet  <L> Minimum bet  <H> Maximum bet  <##> Amount of bet";:PRINT@1120,FF$;:PRINT@909,"<E>ject me!  <C>hange";
27 FOR J=6 TO 1 STEP-1:PRINT@1040,FF$;:IF DBET(J)=1 THEN DBET(J)=0:BET(J)=(BET(J)/2)
28 PRINT@960,STRING$(20,32);:PRINT@1120,STRING$(20,32);:PRINT@1040,"LAST BET WAS:";BET(J);:PRINT@1268+(J*12),"BET: ";
29 IF LEN(NAM$(J))=10 THEN  CH$="":GOTO 32
30 OTO=1:ZCASH(J)=ZCASH(J)/10:BET(J)=INT((ZCASH(J)/10)):ZCASH(J)=ZCASH(J)*10:BET(J)=BET(J)*10:IF BET(J)<MIN THEN BET(J)=MIN
31 GOTO 41
32 ZH$=INKEY$:IF ZH$=""THEN 32 ELSE IF ZH$="C"OR ZH$="c"THEN 129
33 A=ASC(ZH$):IF A>47 AND A<58 OR A=13 OR A=69 OR A=76 OR A=72 OR A=101 OR A=108 OR A=104 THEN 34 ELSE PRINT@1272+(J*12),"       ";:CH$="":ZH$="":GOTO 32
34 IF ZH$=CHR$(13) THEN PRINT@1272+(J*12),"       ";:GOTO 38
35 CH$=CH$+CHR$(A):IF LEN(CH$)>5 THEN ZH$="W":GOTO 33
36 PRINT@1273+(J*12),CH$;:IF A>47 AND A<58 THEN 32
37 IF A<>69 AND A<>101 THEN 38 ELSE CH$="":PRINT@1268+(J*12),"  Leaving  ";:EP=1:PRINT@1040,FF$;:PRINT@1040,"BETTER LUCK "NAM$(J):GOSUB 388:GOSUB 13:EP=0:NP=RND(200):GET 1,NP:CLOSE:NAM$(J)=PN$:ZCASH(J)=RND(500)+100:GOTO 25
38 IF VAL(CH$)>0 THEN BET(J)=VAL(CH$):GOTO 40
39 IF A=108 OR A=76 THEN BET(J)=MIN ELSE IF A=72 OR A=104 THEN BET(J)=MAX
40 IF BET(J)<MIN THEN BET(J)=MIN ELSE IF BET(J)>ZCASH(J)THEN BET(J)=INT(ZCASH(J))
41 IF BET(J)>MAX THEN BET(J)=MAX
42 PRINT@1272+(J*12),BET(J);
43 OTO=0:IF J=1 THEN 44 ELSE NEXT
44 DRIN=DRIN+1:IF DRIN<17 THEN 57 ELSE DRIN=0:GOSUB 323
45 DRINK=DRINK+1:PRINT@800,FF$;:PRINT@800,"COCKTAILS ANYONE?  <Y/N> ";:SOUND 2,0:SOUND 5,0
46 CH$=INKEY$:IF CH$=""THEN 46 ELSE IF CH$<>"Y"AND CH$<>"y"THEN 57
47 FOR J=6 TO 1 STEP-1:PRINT@960,FF$:PRINT@800,FF$;:PRINT@800,RI$(RND(10))" "NAM$(J)
48 CH$="":IF LEN(NAM$(J))<10 THEN 53 ELSE PRINT@990,".";
49 ZH$=INKEY$:IF ZH$=""THEN 49 ELSE IF ZH$=CHR$(13) THEN 56
50 A=ASC(ZH$):IF A<32 OR A>122 THEN CH$="":ZH$="":PRINT@960,FF$;:PRINT@990,".";:GOTO 49
51 CH$=CH$+ZH$:IF LEN(CH$)<30 THEN PRINT@960,CH$;:GOTO 49
52 PRINT@960,FF$;:CH$="":ZH$="":GOTO 56
53 IF NAM$(J)="MAX      "AND DRINK=1 THEN PRINT@960,"BRING ME THE BIGGEST GLASS O' WHISKEY YOU GOT!":FOR TI=1 TO 3000:NEXT:GOTO 56
54 IF NAM$(J)="MAX      "AND DRINK=2 THEN PRINT@960,"(BURP) ERRR UH... ILE AV NOTHR UH...  YOU KNOW....":FOR TI=1 TO 3000:NEXT:DRINK=0:GOTO 56
55 PRINT@960,RR$(RND(10)):FOR TI=1 TO 2000:NEXT
56 NEXT J:IF DRINK>2 THEN DRINK=0
57 GOSUB 323:X=1504:PRINT@800,FF$;:FOR J=6 TO 1 STEP-1:GOSUB 169:GOSUB 174:P(J)=V(R):X=X-12:S$(J)=C$(R):IF V(R)=1 THEN ACE(J)=1
58 NEXT:GOSUB 169:X=114:GOSUB 174:DL(1)=V(R):IF DL(1)=1 THEN SOUND 0,0:GOSUB 175:SOUND 0,0:GOSUB 174
59 X=1507:FOR J=12 TO 7 STEP-1:GOSUB 169:GOSUB 174:P(J)=V(R):X=X-12:S$(J)=C$(R):IF V(R)=1 THEN ACE(J-6)=1
60 NEXT:GOSUB 169:X=121:GOSUB 175:G$=C$(R):DL(2)=V(R):IF DL(1)=10 AND DL(2)=1 THEN DB=1
61 IF DL(1)<>1 THEN 71 ELSE IF DL(2)=10 THEN DB=1
62 PRINT@880,FF$;:PRINT@909,"INSURANCE ANYONE <Y/N> ";
63 NRP=0:FOR J=1 TO 6:IF LEN(NAM$(J))<10 THEN NRP=NRP+1
64 NEXT:IF NRP=6 THEN NRP=0:GOTO 71
65 CH$=INKEY$:IF CH$=""THEN 65 ELSE IF CH$<>"Y"THEN 71
66 FOR J=6 TO 1 STEP-1:PRINT@880,FF$;:IF LEN(NAM$(J))<10 THEN PRINT@910,NAM$(J)" <Y/N> N ";:FOR TI=1 TO 400:NEXT:GOTO 70
67 PRINT@910,NAM$(J)" <Y/N> ";:CH$=INKEY$:IF CH$=""THEN 67
68 IF CH$<>"Y"THEN 70
69 IF DB=0 THEN ZCASH(J)=ZCASH(J)-(BET(J)/2) ELSE ZCASH(J)=ZCASH(J)+BET(J)
70 NEXT
71 IF DB=1 THEN PRINT@800,FF$;:PRINT@880,FF$;:PRINT@830,"B L A C K J A C K       ":GOSUB 176:SOUND 7,0:SOUND 0,0:SOUND 3,0:SOUND 0,0:PRINT@912,"BOOOO HISSSS!":GOTO 73
72 PRINT@880,FF$;:TDL=DL(1)+DL(2)
73 FOR J=6 TO 1 STEP-1:TP(J)=P(J)+P(J+6):NEXT:X=1264:FOR J=6 TO 1 STEP-1:IF ACE(J)=0 THEN 75
74 IF TP(J)=11 THEN PB(J)=1
75 X=X-12:NEXT:IF DB=1 THEN 109
76 PRINT@80,"STAND  <LEFT  ARROW>";:PRINT@160,"HIT    <RIGHT ARROW>";:PRINT@240,"DOUBLE <DOWN  ARROW>";:PRINT@320,"SPLIT  <UP    ARROW>";
77 FOR J=1 TO 6:IF PB(J)=1 OR ACE(J)=0 THEN 79
78 IF TP(J)<12 THEN STP(J)=TP(J)+10
79 NEXT:FOR TD=6 TO 1 STEP-1:X=1432:FOR J=1 TO TD:X=X+12:NEXT
80 PRINT@800,FF$;:IF PB(TD)=1 THEN SOUND 6,0:GOTO 108
81 PRINT@791+(TD*12),TP(TD);:IF STP(TD)>0 THEN PRINT"S"STP(TD);
82 IF LEN(NAM$(TD))<10 THEN OTO=1 ELSE OTO=0
83 HERE=872+TD*12:PRINT@HERE,"       ";:FOR TI=1 TO 100:NEXT
84 PRINT@HERE,"CHOICE: ";:IF OTO=1 THEN 86 ELSE FOR TI=1 TO 500:NEXT
85 CH$=INKEY$:IF CH$=""THEN 83
86 IF OTO=1 THEN FOR TI=1 TO 200:NEXT:GOSUB 358:GOTO 94
87 IF ASC(CH$)=13 THEN 83
88 PRINT@872+(TD*12),"          ";
89 GOSUB 354:IF BAD=1 THEN BAD=0:GOTO 80
90 IF CH$=CH$(4)AND P(TD)<>P(TD+6)THEN PRINT@800,FF$;:CH=HERE-82:PRINT@CH,"YOU CAN'T SPLIT";:SOUND 0,1:GOTO 80
91 IF CH$=CH$(4)AND TP(TD)>(2*(P(TD)))THEN PRINT@800,FF$;:PRINT@827,"YOU CAN ONLY SPLIT 2 CARDS!";:SOUND 1,0:FOR TI=1 TO 1000:NEXT:GOTO 80
92 IF CH$<> CH$(3) THEN 94
93 IF TP(TD)<>10 AND TP(TD)<>11 OR N(TD)>2 THEN PRINT@800,FF$;:CH=HERE-82:PRINT@CH,"YOU CAN'T DOUBLE";:SOUND 0,1:GOTO 80
94 GOSUB 210:IF CHA=1 THEN CHA=0:GOTO 80
95 IF CH$<>CH$(1)THEN 101
96 IF TP(TD)>11 OR STP(TD)>16 THEN 101
97 SOUND 0,0:PRINT@800,FF$;:PRINT@800,"REALLY?  YOU'RE STANDING ON"TP(TD);
98 IF STP(TD)>0 THEN PRINT"SOFT"STP(TD)" <Y/N> ?";ELSE PRINT" <Y/N> ?";
99 DH$=INKEY$:IF DH$=""THEN 99 ELSE IF DH$="Y"THEN SOUND 7,0:SOUND 4,0:GOTO 101
100 GOTO 80
101 IF SPLITACES=1 THEN SPLITACES=0:PRINT@871+(TD*12),TP(TD);:GOTO 108
102 IF SPLIT(TD)>0 THEN PRINT@871+(TD*12),TP(TD);:GOTO 108
103 IF STP(TD)=21 THEN TP(TD)=21
104 IF CH$=CH$(2) AND TP(TD)<21 OR CH$=CH$(4) AND TP(TD)<21 THEN 80
105 IF STP(TD)>TP(TD) THEN TP(TD)=STP(TD)
106 PRINT@871+(TD*12),TP(TD);"      ";:IF TP(TD)>21 THEN SOUND 0,0
107 IF TP(TD)=21 THEN SOUND 7,0:PRINT@874+(TD*12)," WOW!";
108 NEXT
109 PRINT@800,FF$;:GOSUB 176:IF DB=1 THEN TDL=21
110 DBUST=0:GOSUB 324:IF TDL>21 THEN PRINT@160,"-- BUSTED --";:DBUST=1:GOTO 114
111 IF DB=0 THEN 114 ELSE FOR K=6 TO 1 STEP-1:IF PB(K)=0 THEN ZCASH(K)=ZCASH(K)-BET(K):PRINT@952+(K*12),"TOO BAD!";:GOTO 113
112 PRINT@952+(K*12),"P U S H   ";:SOUND 1,0
113 NEXT:GOTO 125
114 FOR K=6 TO 1 STEP-1:IF PB(K)=1 THEN ZCASH(K)=ZCASH(K)+BET(K)+(BET(K)/2):PRINT@952+(K*12),"BLACKJACK";:SOUND 1,0:SOUND 5,0:GOTO 124
115 IF SPLIT(K)>0 THEN 118 ELSE J=952+(K*12):IF TP(K)>21 OR DBUST=0 AND TP(K)<TDL THEN GOSUB 342:GOTO 124
116 IF DBUST=1 OR TP(K)>TDL THEN GOSUB 344:GOTO 124
117 GOSUB 343:GOTO 124
118 J=952+(K*12):SP=4:FOR I=1 TO K:SP=SP+3:NEXT:IF TP(K)>21 OR DBUST=0 AND TP(K)<TDL THEN GOSUB 339:GOTO 120
119 IF DBUST=1 OR TP(K)>TDL THEN GOSUB 341 ELSE GOSUB 340
120 FOR L=1 TO SPLIT(K):J=J+3
121 IF TP(SP)>21 OR DBUST=0 AND TP(SP)<TDL THEN GOSUB 339:GOTO 123
122 IF DBUST=1 OR TP(SP)>TDL THEN GOSUB 341 ELSE GOSUB 340
123 SP=SP+1:NEXT L
124 NEXT K
125 FUCK=FRE("11"):PRINT@240,"                         ";:PRINT@320,"                       ";:PRINT@880,FF$;
126 PRINT@960,FF$;:PRINT@903,"<ANY ARROW> NEXT HAND    <C>HANGE";
127 CH$=INKEY$:IF CH$=""THEN 127
128 IF CH$<>"C" AND CH$<>"c" THEN 7 ELSE SH=1
129 CLS:PRINT@80,"<N>o Heart here: ";CHR$(193);
130 PRINT@800,"CHANGE <1> Table <2> Position <3> Back to game <4> EXIT/Bank       <L>EAVE GAME!";:SOUND RND(6),0
131 CH$=INKEY$:IF CH$=""THEN 131
132 IF CH$="N" OR CH$="n"THEN GOSUB 394:GOTO 129
133 IF CH$<>"L"AND CH$<>"4"THEN 137
134 FOR J=1 TO 6:IF INT(ZCASH(J))<ZCASH(J) THEN ZCASH(J)=INT(ZCASH(J))+.5
135 NEXT
136 IF CH$="L"THEN 385
137 CH=VAL(CH$):IF CH<1 OR CH>4 THEN SOUND 0,0:GOTO 130
138 IF CH=4 THEN 167
139 IF CH=3 THEN CLS:PRINT@800,"Back to the game...";:SOUND 6,0:SOUND 3,0:GOTO 7
140 IF CH=2 THEN 155
141 CLS:PRINT@240,"TABLE MINIMUM: $"MIN;:PRINT@280,"NUMBER OF DECKS: ";W;:PRINT@480,"CHANGE: <1> Tables ONLY  <2> Tables, Decks, Miminum Bet.                <A>bort";
142 CH$=INKEY$:IF CH$=""OR CH$=CHR$(13) THEN 142 ELSE IF CH$="A"OR CH$="a"THEN 129
143 CH=VAL(CH$):IF CH<1 OR CH>2 THEN SOUND 0,0:GOTO 141
144 IF CH=1 THEN 153
145 PRINT@640,FF$;:PRINT@640,"HOW MANY DECKS (1, 2 or 5): ";
146 CH$=INKEY$:IF CH$=""THEN 146 ELSE IF CH$="A"THEN 130 ELSE IF ASC(CH$)=13 THEN CH=W:GOTO 148
147 CH=VAL(CH$):IF CH<>1 AND CH<>2 AND CH<>5 THEN 141
148 PRINT@668,CH:W=CH:WW=CH*52:LC=WW/2
149 PRINT@800,FF$;:PRINT@800,"TABLE MINIMUM (1) $2  (2) $5  (3) $25  (4) $1OO: ";
150 CH$=INKEY$:IF CH$="" THEN 150 ELSE IF ASC(CH$)=13 THEN CH$=STR$(MIN) ELSE IF CH$="A"THEN CH=MIN:PRINT@960,"CAN'T  <A>BORT  NOW!":GOTO 152
151 CH=VAL(CH$):IF CH<1 OR CH>4 THEN CH=MIN 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
152 PRINT@850,CH;:PRINT@850,"$";:MIN=CH:MAX=CH*100
153 PRINT@240,FF$;:PRINT@480,FF$;:PRINT@640,FF$;:PRINT@800,FF$;:PRINT@1120,FF$;:PRINT@1120,"CHANGING TABLES...";:NUD=30:SH=1:FOR J=1 TO 6:IF LEN(NAM$(J))<10 THEN NAM$(J)=""
154 NEXT:GOTO 1
155 CLS:PRINT:PRINT"CHANGE POSITION:":PRINT:PRINT:PRINT"<A>bort  <D>one":PRINT:PRINT:FOR J=1 TO 6:PRINT J") "NAM$(J):NEXT:PRINT:PRINT
156 PRINT"MOVE WHO? (1-6)"
157 CH$=INKEY$:IF CH$=""THEN 157 ELSE IF CH$="A" OR CH$="a"OR CH$=CHR$(13) THEN 129
158 CH=VAL(CH$):IF CH<1 OR CH>6 THEN 129
159 IF LEN(NAM$(CH))<10 THEN PRINT:PRINT NAM$(CH)" DOESN'T WANT TO CHANGE POSITIONS!":SOUND 0,0:FOR TI=1 TO 2000:NEXT:GOTO 155
160 PRINT@1216,"MOVE ---> "NAM$(CH):PRINT:PRINT"TO WHERE? (1-6)"
161 CH$=INKEY$:IF CH$=""THEN 161
162 CI=VAL(CH$):IF CI<1 OR CI>6 OR CI=CH THEN 155
163 IF LEN(NAM$(CI))<10 THEN PRINT:PRINT NAM$(CI)" DOESN'T WANT TO CHANGE POSITIONS!":SOUND 0,0:FOR TI=1 TO 2500:NEXT:GOTO 129
164 PRINT@1376,"TO CHAIR:"CI:HOLD$=NAM$(CH):REC$=RECORD$(CH):ZC=ZCASH(CH):ZB=ZBALANCE(CH):ZW=ZWITHD(CH):ZD=ZDEPOSIT(CH):BET=BET(CH)
165 NAM$(CH)=NAM$(CI):NAM$(CI)=HOLD$:RECORD$(CH)=RECORD$(CI):RECORD$(CI)=REC$:ZCASH(CH)=ZCASH(CI):ZCASH(CI)=ZC:ZBALANCE(CH)=ZBALANCE(CI):ZBALANCE(CI)=ZB:ZWITHD(CH)=ZWITHD(CI):ZWITHD(CI)=ZW:ZDEPOSIT(CH)=ZDEPOSIT(CI):ZDEPOSIT(CI)=ZD:HOLD$="":REC$=""
166 BET(CH)=BET(CI):BET(CI)=BET:HOLD$="":REC$="":ZC=0:ZB=0:ZW=0:ZD=0:GOTO 155
167 CLS:PRINT:PRINT"30 SECONDS PLEASE...":PRINT@800,"You're walking (running?) to the Exit (Bank?)":PRINT@1280,"REMEMBER: Don't remove the disk until you <L>eave the game!";
168 CHAIN"CHANGES",,ALL
169 R=RND(52):XX=XX+1:IF XX>LC THEN SH=1
170 IF R=53 THEN R=1
171 A(R)=A(R)+1:IF A(R)<(W+1) THEN 172 ELSE A(R)=W:R=R+1:GOTO 170
172 RETURN
173 GOSUB 323:PRINT@990,"S H U F F L I N G";:FOR XX=1 TO 52:A(XX)=0:NEXT:XX=0:RETURN
174 PRINT@X,T$;:PRINT@X+80,LEFT$(C$(R),5);:PRINT@X+160,MID$(C$(R),6,5);:PRINT@X+240,RIGHT$(C$(R),5);:PRINT@X+320,B$;:RETURN
175 PRINT@X,T$;:PRINT@X+80,M$;:PRINT@X+160,M$;:PRINT@X+240,M$;:PRINT@X+320,B$;:RETURN
176 PRINT@121,T$;:PRINT@201,LEFT$(G$,5);:PRINT@281,MID$(G$,6,5);:PRINT@361,RIGHT$(G$,5);:PRINT@441,B$;:RETURN
177 GOSUB 323:AT=1443:FOR K=1 TO 6:PRINT@AT,ZCASH(K);" ";:AT=AT+12:NEXT:PRINT@1760,CHIP$;:AT=1512:FOR K=1 TO 6:C(K)=ZCASH(K):AT=AT+12:IF C(K)<1850 THEN 179
178 PRINT@AT,FULL$;:PRINT@AT+80,FULL$;:PRINT@AT+160,FULL$;
179 NEXT
180 AT=1672:FOR K=1 TO 6:AT=AT+12:IF C(K)<250 OR C(K)>1849.99 THEN 187
181 PRINT@AT,A10$;:C(K)=C(K)-250:IF C(K)<250 THEN 187
182 PRINT@AT-80,A10$;:C(K)=C(K)-250:IF C(K)<250 THEN 187
183 PRINT@AT-160,A10$;:C(K)=C(K)-250:IF C(K)<250 THEN 187
184 PRINT@AT+1,A10$;:C(K)=C(K)-250:IF C(K)<250 THEN 187
185 PRINT@AT-79,A10$;:C(K)=C(K)-250:IF C(K)<250 THEN 187
186 PRINT@AT-159,A10$;:C(K)=C(K)-250
187 NEXT:AT=1675:FOR K=1 TO 6:AT=AT+12:IF C(K)<50 OR C(K)>1849.99 THEN 194
188 PRINT@AT,A10$;:C(K)=C(K)-50:IF C(K)<50 THEN 194
189 PRINT@AT-80,A10$;:C(K)=C(K)-50:IF C(K)<50 THEN 194
190 PRINT@AT-160,A10$;:C(K)=C(K)-50:IF C(K)<50 THEN 194
191 PRINT@AT+1,A10$;:C(K)=C(K)-50:IF C(K)<50 THEN 194
192 PRINT@AT-79,A10$;:C(K)=C(K)-50:IF C(K)<50 THEN 194
193 PRINT@AT-159,A10$;:C(K)=C(K)-50
194 NEXT:AT=1678:FOR K=1 TO 6:AT=AT+12:JJ=0:IF C(K)<2 OR C(K)>1849 THEN 209
195 IF C(K)<40 THEN 197
196 JJ=AT-79:PRINT@AT,A10$;:PRINT@AT-80,A10$;:PRINT@AT-160,A10$;:PRINT@AT+1,A10$;:C(K)=C(K)-40:GOTO 204
197 IF C(K)<30 THEN 199
198 JJ=AT+1:PRINT@AT,A10$;:PRINT@AT-80,A10$;:PRINT@AT-160,A10$;:C(K)=C(K)-30:GOTO 204
199 IF C(K)<20 THEN 201
200 JJ=AT-160:PRINT@AT,A10$;:PRINT@AT-80,A10$;:C(K)=C(K)-20:GOTO 204
201 IF C(K)<10 THEN 203
202 JJ=AT-80:PRINT@AT,A10$;:C(K)=C(K)-10:GOTO 204
203 JJ=AT
204 IF C(K)<2 THEN 209
205 IF C(K)<4 THEN PRINT@JJ,A2$;:GOTO 209
206 IF C(K)<6 THEN PRINT@JJ,A4$;:GOTO 209
207 IF C(K)<8 THEN PRINT@JJ,A6$;:GOTO 209
208 PRINT@JJ,A8$;
209 NEXT:RETURN
210 IF N(TD)=0 THEN N(TD)=2
211 IF CH$<>CH$(2) THEN 225
212 IF TP(TD)<17 AND STP(TD)<19 THEN 217
213 SOUND 0,0:PRINT@800,FF$;:PRINT@800,"REALLY?  YOU'RE HITTING"TP(TD);
214 IF STP(TD)>0 THEN PRINT"SOFT"STP(TD)" <Y/N> ?";ELSE PRINT" <Y/N> ?";
215 DH$=INKEY$:IF DH$=""THEN 215 ELSE PRINT@800,FF$
216 IF DH$="Y"THEN 217 ELSE CHA=1:RETURN
217 GOSUB 169:N(TD)=N(TD)+1:IF N(TD)=3 THEN X=X+6 ELSE IF N(TD)=4 THEN X=X-400
218 IF N(TD)=5 THEN X=X-397 ELSE IF N(TD)=>6 THEN X=X-394
219 GOSUB 174:TP(TD)=TP(TD)+V(R):IF V(R)=1 THEN ACE(TD)=1
220 IF ACE(TD)<>1 THEN 222
221 IF TP(TD)<12 THEN STP(TD)=TP(TD)+10 ELSE STP(TD)=0
222 IF N(TD)=3 THEN X=X-6 ELSE IF N(TD)=4 THEN X=X+400
223 IF N(TD)=5 THEN X=X+397 ELSE IF N(TD)>=6 THEN X=X+394
224 RETURN
225 IF CH$<>CH$(4) THEN 317
226 FOR J=1 TO 4:STOT(J)=0:ASE(J)=0:SOFT(J)=0:OC$(J)="":NEXT:SP=4:FOR J=1 TO TD:SP=SP+3:NEXT:SPLIT(TD)=1
227 PRINT@X,T$"   ";:PRINT@X+80,LEFT$(S$(TD+6),5)"   ";:PRINT@X+160,MID$(S$(TD+6),6,5)"   ";:PRINT@X+240,RIGHT$(S$(TD+6),5)"   ";:PRINT@X+320,B$"   ";
228 SNUM=1:OC$(1)=S$(TD):OC$(2)=S$(TD+6):GOSUB 352
229 IF P(TD)=1 THEN SPLITACES=1
230 GOSUB 169:X=X-397:GOSUB 174:X=X+397:TP(TD)=P(TD)+V(R):HC(1)=V(R):HC$(1)=C$(R):IF V(R)=1 THEN ACE(TD)=1:ASE(1)=1
231 GOSUB 169:X=X+3:GOSUB 174:X=X-3:TP(SP)=P(TD)+V(R):HC(2)=V(R):HC$(2)=C$(R):IF V(R)=1 THEN ACE(SP)=1:ASE(2)=1
232 IF SPLITACES=1 THEN TP(TD)=TP(TD)+10:TP(SP)=TP(SP)+10:PRINT@874+(TD*12),TP(SP);:RETURN
233 IF ACE(TD)=1 THEN STP(TD)=TP(TD)+10:SOFT(SNUM)=STP(TD):IF STP(TD)=21 THEN TP(TD)=21:STOT(1)=21
234 IF ACE(SP)=1 THEN STP(SP)=TP(SP)+10:SOFT(SNUM+1)=STP(SP):IF STP(SP)=21 THEN TP(SP)=21:STOT(SNUM+1)=21
235 PRINT@871+(TD*12),TP(TD);
236 IF TP(TD)=21 AND TP(SP)=21 THEN PRINT@874+(TD*12),TP(SP);:SOUND 7,0:SOUND 5,0:SOUND 7,0:RETURN
237 OC(1)=P(TD):OC(2)=P(TD):STOT(1)=OC(1)+HC(1):STOT(2)=OC(2)+HC(2)
238 NUMB(1)=2:NUMB(2)=2:NUMB(3)=2:NUMB(4)=2
239 GOSUB 345:SNUM=1:NUM=3
240 IF SOFT(SNUM)=21 THEN STOT(SNUM)=21
241 PRINT@871+(TD*12),STOT(SNUM);:IF STOT(SNUM)=21 THEN SOUND 7,0:GOTO 285
242 PRINT@875+(TD*12),"       ";:IF SOFT(SNUM)>0 THEN PRINT@875+(TD*12),"S";SOFT(SNUM);
243 PRINT@800,FF$;:PRINT@791+(TD*12),STOT(SNUM);:IF SOFT(SNUM)>0 THEN PRINT"S"SOFT(SNUM);
244 HERE=872+TD*12:PRINT@HERE,"       ";:FOR TI=1 TO 100:NEXT
245 PRINT@HERE,"CHOICE: ";:FOR TI=1 TO 500:NEXT
246 IF OTO=1 THEN GOSUB 377:GOTO 250
247 CH$=INKEY$:IF CH$=""THEN 244
248 GOSUB 354:IF BAD=1 THEN BAD=0:GOTO 243
249 IF CH$=CH$(3) THEN PRINT@800,FF$;:PRINT@826,"YOU CAN'T DOUBLE AFTER A SPLIT";:SOUND 0,0:FOR TI=1 TO 1000:NEXT:GOTO 243
250 PRINT@872+(TD*12),"       ";
251 IF CH$<> CH$(2) THEN 266
252 IF STOT(SNUM)<17 AND SOFT(SNUM)<19 THEN 257
253 SOUND 0,0:PRINT@800,FF$;:PRINT@800,"REALLY?  YOU'RE HITTING"STOT(SNUM);
254 IF SOFT(SNUM)>0 THEN PRINT"SOFT"SOFT(SNUM)" <Y/N> ?";ELSE PRINT" <Y/N> ?";
255 DH$=INKEY$:IF DH$=""THEN 255 ELSE PRINT@800,FF$;
256 IF DH$="Y"THEN 257 ELSE 241
257 NUMB(SNUM)=NUMB(SNUM)+1:GOSUB 169:GOSUB 348:GOSUB 174:GOSUB 350
258 STOT(SNUM)=STOT(SNUM)+V(R):IF SOFT(SNUM)>0 THEN SOFT(SNUM)=SOFT(SNUM)+V(R)
259 IF V(R)=1 THEN ASE(SNUM)=ASE(SNUM)+1
260 IF ASE(SNUM)=1 THEN SOFT(SNUM)=STOT(SNUM)+10
261 IF SOFT(SNUM)>21 THEN SOFT(SNUM)=0
262 IF SOFT(SNUM)=21 THEN STOT(SNUM)=21:SOUND 7,0:GOTO 285
263 IF STOT(SNUM)=21 THEN SOUND 7,0:GOTO 285
264 PRINT@871+(TD*12),STOT(SNUM);:IF STOT(SNUM)>21 THEN SOUND 0,0:GOTO 285
265 NUM=NUM+1:GOTO 240
266 IF CH$=CH$(1) THEN 280 ELSE IF SPLIT(TD)=3 THEN 269
267 IF STOT(SNUM)<>2*(P(TD)) OR NUMB(SNUM)>2 THEN PRINT@800,FF$;:CH=HERE-82:PRINT@CH,"YOU CAN'T SPLIT";:SOUND 0,0:FOR TI=1 TO 1000:NEXT:GOTO 243
268 IF STOT(SNUM)>(2*(P(TD)))THEN PRINT@800,FF$;:PRINT@827,"YOU CAN ONLY SPLIT 2 CARDS!";:SOUND 1,0:FOR TI=1 TO 1000:NEXT:GOTO 243
269 IF SPLIT(TD)=3 THEN PRINT@800,FF$;:PRINT@824,"YOU HAVE 4 SPLIT HANDS ALREADY!";:SOUND 0,0:FOR TI=1 TO 1000:NEXT:GOTO 243
270 SPLIT(TD)=SPLIT(TD)+1
271 IF SPLIT(TD)=3 THEN 274
272 IF SNUM=1 THEN OC$(3)=OC$(2):SOFT(3)=SOFT(2):SOFT(2)=0:OC$(2)=HC$(1):STOT(3)=STOT(2):HC$(3)=HC$(2):ASE(3)=ASE(2):ASE(2)=0:GOTO 277
273 OC$(3)=HC$(2):GOTO 277
274 IF SNUM=1 THEN OC$(4)=OC$(3):SOFT(4)=SOFT(3):SOFT(3)=SOFT(2):SOFT(2)=0:HC$(4)=HC$(3):ASE(4)=ASE(3):OC$(3)=OC$(2):HC$(3)=HC$(2):ASE(3)=ASE(2):OC$(2)=HC$(1):STOT(4)=STOT(3):STOT(3)=STOT(2):ASE(2)=0:GOTO 277
275 IF SNUM=2 THEN OC$(4)=OC$(3):HC$(4)=HC$(3):SOFT(4)=SOFT(3):SOFT(3)=0:ASE(4)=ASE(3):ASE(3)=0:OC$(3)=HC$(2):STOT(4)=STOT(3):GOTO 277
276 OC$(4)=HC$(3)
277 GOSUB 346:GOSUB 352:GOSUB 353:GOSUB 169:X=X-397:GOSUB 174:X=X+397:STOT(SNUM)=P(TD)+V(R):HC$(SNUM)=C$(R):HC(SNUM)=V(R):IF V(R)=1 THEN ASE(SNUM)=1:SOFT(SNUM)=STOT(SNUM)+10
278 GOSUB 169:X=X+3:GOSUB 174:X=X-3:STOT(SNUM+1)=P(TD)+V(R):HC$(SNUM+1)=C$(R):HC(SNUM+1)=V(R):IF V(R)=1 THEN ASE(SNUM+1)=1:SOFT(SNUM+1)=STOT(SNUM+1)+10
279 GOSUB 345:GOTO 240
280 IF STOT(SNUM)>11 OR SOFT(SNUM)>16 THEN 285
281 SOUND 0,0:PRINT@800,FF$;:PRINT@800,"REALLY?  YOU'RE STANDING ON"STOT(SNUM);
282 IF SOFT(SNUM)>0 THEN PRINT"SOFT"SOFT(SNUM)" <Y/N> ?";ELSE PRINT" <Y/N> ?";
283 DH$=INKEY$:IF DH$=""THEN 283 ELSE PRINT@800,FF$;
284 IF DH$="Y"THEN 285 ELSE 241
285 GOSUB 345:GOSUB 346:PRINT@875+(TD*12),"       ";:TP(TD)=0:TP(SP)=0:TP(SP+1)=0:TP(SP+2)=0:IF SNUM<SPLIT(TD)+1 THEN SNUM=SNUM+1:NUM=3:GOSUB 356:GOTO 240
286 FOR J=1 TO 4:IF SOFT(J)>STOT(J) THEN STOT(J)=SOFT(J)
287 NEXT:TP(TD)=STOT(1):TP(SP)=STOT(2):IF STOT(3)>0 THEN TP(SP+1)=STOT(3):IF STOT(4)>0 THEN TP(SP+2)=STOT(4)
288 FOR J=1 TO 4:STOT(J)=0:SOFT(J)=0:NEXT
289 SP=4:FOR J=1 TO TD:SP=SP+3:NEXT
290 GOSUB 345:GOSUB 346:GOSUB 347:X=X+6:GOSUB 347:X=X-6
291 IF SPLIT(TD)>=2 THEN X=X-400:GOSUB 347:X=X+400
292 IF SPLIT(TD)=3 THEN X=X-394:GOSUB 347:X=X+394
293 IF STP(SP)>TP(SP) THEN TP(SP)=STP(SP)
294 IF STP(SP+1)>TP(SP+1) THEN TP(SP+1)=STP(SP+1)
295 IF STP(SP+2)>TP(SP+2) THEN TP(SP+2)=STP(SP+2)
296 T1$="":T2$="":T3$="":T4$=""
297 T1$=STR$(TP(TD)):T2$=STR$(TP(SP)):IF TP(SP+1)>0 THEN T3$=STR$(TP(SP+1)):IF TP(SP+2)>0 THEN T4$=STR$(TP(SP+2))
298 T1$=RIGHT$(T1$,2):T2$=RIGHT$(T2$,2):T3$=RIGHT$(T3$,2):T4$=RIGHT$(T4$,2)
299 PRINT@X-560,T1$" "T2$" "T3$" "T4$;
300 IF SPLIT(TD)=1 THEN PRINT@X+81,T1$;:PRINT@X+242,T1$;:PRINT@X+87,T2$;:PRINT@X+248,T2$;:GOTO 303
301 IF SPLIT(TD)=2 THEN PRINT@X-319,T1$;:PRINT@X-158,T1$;:PRINT@X+81,T2$;:PRINT@X+242,T2$;:PRINT@X+87,T3$;:PRINT@X+248,T3$;:GOTO 303
302 PRINT@X-319,T1$;:PRINT@X-158,T1$;:PRINT@X-313,T2$;:PRINT@X-152,T2$;:PRINT@X+81,T3$;:PRINT@X+242,T3$;:PRINT@X+87,T4$;:PRINT@X+248,T4$;:GOTO 303
303 IF SPLIT(TD)>1 THEN 307
304 IF TP(TD)<22 THEN PRINT@X+162,CHR$(196); ELSE PRINT@X+162,CHR$(197);
305 IF TP(SP)<22 THEN PRINT@X+168,CHR$(196); ELSE PRINT@X+168,CHR$(197);
306 GOTO 316
307 IF SPLIT(TD)>2 THEN 312
308 IF TP(TD)<22 THEN PRINT@X-238,CHR$(196); ELSE PRINT@X-238,CHR$(197);
309 IF TP(SP)<22 THEN PRINT@X+162,CHR$(196); ELSE PRINT@X+162,CHR$(197);
310 IF TP(SP+1)<22 THEN PRINT@X+168,CHR$(196); ELSE PRINT@X+168,CHR$(197);
311 GOTO 316
312 IF TP(TD)<22 THEN PRINT@X-238,CHR$(196); ELSE PRINT@X-238,CHR$(197);
313 IF TP(SP)<22 THEN PRINT@X-232,CHR$(196); ELSE PRINT@X-232,CHR$(197);
314 IF TP(SP+1)<22 THEN PRINT@X+162,CHR$(196); ELSE PRINT@X+162,CHR$(197);
315 IF TP(SP+2)<22 THEN PRINT@X+168,CHR$(196); ELSE PRINT@X+168,CHR$(197);
316 RETURN
317 IF CH$<>CH$(3) THEN 322
318 GOSUB 169:X=X-400:GOSUB 174:TP(TD)=TP(TD)+V(R):X=X+400
319 STP(TD)=0:BET(TD)=BET(TD)+BET(TD):DBET(TD)=1
320 IF V(R)=1 THEN ACE(TD)=1
321 IF ACE(TD)=1 AND TP(TD)=11 THEN TP(TD)=21
322 RETURN
323 PRINT@800,FF$;:PRINT@880,FF$;:PRINT@960,FF$;:PRINT@1040,FF$;:PRINT@1120,FF$;:PRINT@1200,FF$;:PRINT@1280,FF$;:PRINT@1360,FF$;:PRINT@1440,FF$;:PRINT@1520,FF$;:PRINT@1600,FF$;:PRINT@1680,FF$;:PRINT@1760,FF$;:RETURN
324 FFF$=STRING$(20,32)
325 PRINT@80,FFF$;:PRINT@160,FFF$;:PRINT@240,FFF$;:PRINT@320,FFF$;:PRINT@400,FFF$;:X=535
326 FOR J=1 TO 6:IF TP(J)>21 OR PB(J)=1 THEN V=V+1
327 NEXT
328 IF V=6 THEN V=0:PRINT@160,"I'll stand on"TDL;:RETURN
329 V=0:IF TDL>16 THEN 336
330 IF DL(1)=1 OR DL(2)=1 THEN ACED=1
331 IF ACED=0 THEN 334
332 SDL=TDL+10:IF SDL>21 THEN SDL=0:GOTO 334
333 IF SDL>16 THEN TDL=SDL:GOTO 336
334 GOSUB 169:X=X-6:GOSUB 174:TDL=TDL+V(R):SOUND RND(5),0:IF V(R)=1 THEN ACED=1
335 PRINT@80,"MY TOTAL:";TDL;:GOTO 329
336 PRINT@80,"MY TOTAL:";TDL;:RETURN
337 PRINT@480,FF$;:PRINT@560,STRING$(80,"-");
338 PRINT@640,"          D E A L E R   S T A N D S   O N   A L L   S E V E N T E E N S";:PRINT@720,STRING$(80,"-");:PRINT@800,FF$;:RETURN
339 PRINT@J,"L";:ZCASH(K)=ZCASH(K)-BET(K):RETURN
340 PRINT@J,"P";:SOUND 4,0:RETURN
341 PRINT@J,"W!";:ZCASH(K)=ZCASH(K)+BET(K):SOUND 7,0:RETURN
342 PRINT@J,"L O S E  ";:ZCASH(K)=ZCASH(K)-BET(K):RETURN
343 PRINT@J,"P U S H  ";:SOUND 4,0:RETURN
344 PRINT@J,"WINNER!  ";:ZCASH(K)=ZCASH(K)+BET(K):SOUND 7,0:RETURN
345 PRINT@X,EC$;:PRINT@X+80,EC$;:PRINT@X+160,EC$;:PRINT@X+240,EC$;:PRINT@X+320,EC$;:RETURN
346 PRINT@X-400,EC$;:PRINT@X-320,EC$;:PRINT@X-240,EC$;:PRINT@X-160,EC$;:PRINT@X-80,EC$;:RETURN
347 PRINT@X,T$;:PRINT@X+80,M$;:PRINT@X+160,M$;:PRINT@X+240,M$;:PRINT@X+320,B$;:RETURN
348 IF NUM=3 THEN X=X-394 ELSE IF NUM=5 THEN X=X+3 ELSE IF NUM>=6 THEN X=X+6
349 RETURN
350 IF NUM=3 THEN X=X+394 ELSE IF NUM=5 THEN X=X-3 ELSE IF NUM>=6 THEN X=X-6
351 RETURN
352 X=X-400:PRINT@X,T$;:PRINT@X+80,LEFT$(OC$(SNUM),5);:PRINT@X+160,MID$(OC$(SNUM),6,5);:PRINT@X+240,RIGHT$(OC$(SNUM),5);:PRINT@X+320,B$;:X=X+400:RETURN
353 PRINT@X,T$;:PRINT@X+80,LEFT$(OC$(SNUM+1),5);:PRINT@X+160,MID$(OC$(SNUM+1),6,5);:PRINT@X+240,RIGHT$(OC$(SNUM+1),5);:PRINT@X+320,B$;:RETURN
354 IF CH$<>CH$(1) AND CH$<>CH$(2) AND CH$<>CH$(3) AND CH$<>CH$(4) THEN PRINT@800,FF$;:CH=HERE-80:PRINT@CH,"HUH?";:SOUND 0,0:FOR TI=1 TO 250:NEXT:PRINT@800,FF$;:BAD=1
355 RETURN
356 PRINT@X-400,T$;:PRINT@X-397,T$;:PRINT@X-320,LEFT$(OC$(SNUM),3);LEFT$(HC$(SNUM),5);:PRINT@X-240,MID$(OC$(SNUM),6,3);MID$(HC$(SNUM),6,5);:PRINT@X-160,MID$(OC$(SNUM),11,3);RIGHT$(HC$(SNUM),5);:PRINT@X-80,B$;:PRINT@X-77,B$;
357 RETURN
358 PRINT@872+(TD*12),"          ";:IF N(TD)>2 THEN 371
359 IF LEFT$(S$(TD),3)=LEFT$(S$(TD+6),3) THEN YESPLT=1 ELSE YESPLT=0
360 IF STP(TD)>17 THEN TP(TD)=STP(TD):CH$=CH$(1):RETURN
361 IF TP(TD)=11 THEN CH$=CH$(3):RETURN
362 IF TP(TD)=10 AND DL(1)<9 THEN CH$=CH$(3):RETURN
363 IF TP(TD)>16 AND YESPLT=0 THEN CH$=CH$(1):RETURN
364 IF YESPLT=0 THEN 371
365 IF DL(1)=1 OR DL(1)>6 THEN 368
366 IF TP(TD)<>8 THEN CH$=CH$(4):RETURN
367 IF TP(TD)=8 THEN CH$=CH$(2):RETURN
368 IF TP(TD)=14 AND DL(1)=7 THEN CH$=CH$(4):RETURN
369 IF TP(TD)=18 AND DL(1)<10 THEN CH$=CH$(4):RETURN
370 IF TP(TD)=2 OR TP(TD)=16 THEN CH$=CH$(4):RETURN
371 IF STP(TD)>17 THEN TP(TD)=STP(TD):CH$=CH$(1):RETURN
372 IF TP(TD)<12 THEN CH$=CH$(2):RETURN
373 IF DL(1)<>1 AND DL(1)<7 THEN 375
374 IF N(TD)>2 AND TP(TD)>14 THEN CH$=CH$(1):RETURN
375 IF DL(1)=1 AND TP(TD)<17 OR DL(1)>6 AND TP(TD)<17 THEN CH$=CH$(2):RETURN
376 CH$=CH$(1):RETURN
377 IF SPLIT(TD)=3 THEN 380
378 IF NUMB(SNUM)>2 THEN 380
379 IF LEFT$(OC$(SNUM),3)=LEFT$(HC$(SNUM),3) THEN CH$=CH$(4):RETURN
380 IF SOFT(SNUM)>17 THEN STOT(SNUM)=SOFT(SNUM):CH$=CH$(1):RETURN
381 IF STOT(SNUM)>16 THEN CH$=CH$(1):RETURN
382 IF STOT(SNUM)<12 THEN CH$=CH$(2):RETURN
383 IF DL(1)=1 OR DL(1)>6 AND STOT(SNUM)<17 THEN CH$=CH$(2):RETURN
384 CH$=CH$(1):RETURN
385 CLS:PRINT@800,"You're leaving...";:OPEN "R",1,"PLAYERS":FIELD 1,10 AS NF$,3 AS REC$,10 AS BAL$
386 FOR J=1 TO 6:IF LEN(NAM$(J))<10 AND LEN(PNAM$(J))<1 THEN 393
387 IF LEN(PNAM$(J))<1 THEN 388 ELSE NAM$(J)=PNAM$(J):ZCASH(J)=ZPCASH(J):RECORD$(J)=PRECORD$(J):ZBALANCE(J)=ZPBALANCE(J):ZWITHD(J)=ZPWITHD(J):ZDEPOSIT(J)=ZPDEPOSIT(J)
388 ZDEPOSIT(J)=ZDEPOSIT(J)+ZCASH(J):ZBALANCE(J)=ZDEPOSIT(J)-ZWITHD(J):ZWITHD(J)=0:ZDEPOSIT(J)=0
389 IF EP=1 THEN OPEN "R",1,"PLAYERS":FIELD 1,10 AS NF$,3 AS REC$,10 AS BAL$
390 X=VAL(RECORD$(J)):LSET NF$=NAM$(J):LSET REC$=RECORD$(J):LSET BAL$=STR$(ZBALANCE(J))
391 IF EP=1 THEN PUT 1,X:CLOSE:RETURN
392 PUT 1,X:NAM$(J)="":RECORD$(J)=""
393 NEXT:CLOSE:RUN "BYE"
394 IF WG=0 THEN WG=1:PRINT CHR$(21);:RETURN
395 WG=0:PRINT CHR$(22);:RETURN
