POKER = =h? 952000 ,23672x\:52001!,23673y\:"" POKER\:# # <@TL8i]\\\\\j]]]]]]\GWX![!@P!!88 W K SR P56699{:0:0:0::8:8:8:1:23659k\,0:"":16,0:"":16,0:"" 23637U\,23635S\:23638V\,23636T\:"POKER"23552\,700 POKER\:\,0:"":16,0:"" _p _UUUUUUUUUPUUUUUUU@UUUUU@U@P?WWwW|wUUUUU8U8UUUUUUUUTUUUUUUUPUUEUUPUUPUUUWU3WU|wWUw?"UUUUsUU?UUUUUUUUUPUUUUUUUT<UTAUUTUPTWWw?W?wU`UUxUU`U>UUUUUUUUDUUUUUU~UUAU@UXUUPUWUW?U?8wWU?w (~U<U?UUU?U??pWwWw>wWwwwwWWwwwwWWw?wwwWWwwwwwwwWWwwwwwwwWwwwUU<UUUUUUUUUUU??UUUUUUUUUUUU*?UUUUWUUwWw<UUUwWwUUUUwwwWWwUUUUwwwWWwUUUUwwwWWwwwUUUwUwwwWWwwwUUUwUwwwW*UUUwUwwUU9UUUUUUUUUUUUUUUUUUUUUUU UUUUWwWwwWwwwwWWwww wWWwwwwWWwwwwwwwWWwwwwwwwW*www?UUUUUUUUUUUUU?UUUUUUUUUUUU*UUUUWUUwWwUUUwWwUUUUwwwWWwUUUUww?wWWwUUUUwwwWWwwwUUUwUwwwWWwwwUUUwUwwwWUUUwUwwUU~UUUUUUUUUUUUUUUUUUUUUUUUUUUwW*wwwwwwwW*wwwwwwwwwwwwwwWwwwwwwwwwwwww*UUUUUUwWUUwwwUwwwwW*UUwWwwwwwwwwUwwwWwwwwwwpwwwwwUUUUUUwW*wwwwwwwW*wWwwwwwwwwwwwWwwwwwwwww*UUU UUUwW*UUwwwUwpwwWUUwWwwwwwwwwUwwwWwwwwwwwwwwwwwUUUUUUHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHIIIHHHHHHHHHHHHHHHHHHHHHJJJJJJJHHHHHHHHHHHHHHHHHHHHJJJJJJJHHHHHHHHHHHHHHHHHJHHJJJJJJJHHHHHHHHHHHHHHJJJH@JPPPPPPHHHHHHHHHHHJJHJJJQ@PPPSSQQQQQHQQQQQQPQQQQ@SSSSSQQQQQHQQQQQPPQQQ@SSSSSQQQPHPQQQQQQQ@SSSkkQQQPHPPQQQQSS@SkCC@SSSPSSSSSS@SkkkSSSPSSSSHkkkkSSSSSkkkkkkkkkkkkkkkkkkkkkkkkkkkk@@@@@@@@@@@hAAAAAAAAAAAAAAAAAAAAhJJJJJJJJJJJJJJJJJJJJhJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJAAAAAAAAAAAAAAAAAAAAP "|"::\ (< *\#v~ *\#÷6*Y\ͧ*\#ô*]\+~P(S,EqD,ZxBʇ#~C A R D 66&z~(,(6 ͂~( *\#!v͔6Ҝ2[͔Ҝ2[͔4:Ҝ6!o))))))x[`[ ![ ~+!m[n[`~+y+!@@8@ 8(=:[![0Oy :[_:[o&)))))X:[_>_>WÔÜ#~HE L E C T 6͂~( ͔6 (062[=__!Y[![!L~#مo>g~![!~#مo>g~![62![[~==O#&o<*[&i####~O0y!7[[!*[ >2BN#-:B ! FF6 ~ w ~ w![!*[> ݾ Aݾ <ݾ 7ݾ 2ݾ -:B(6ww6ww##![ ݾ ݾ ݾ ݾ 6w#>2B~# # # # 2B###~! [6#6#6++!I[F(UQC(U6EC(U;C(U6/C(U%C(U6C(U6 :L[ 66!T[)[ ٸ !P[[:L[ʔ:M[O![ ># PBʔ:[K[[[2[C[S[Ô[(w+>2B~ 6wq6wq> <<>2B6 w q >2B6wq+++F6#6+#&h)))))))))~&o))))~0_s#r++ÔÜ#~R E A K O F(*N 66&͂~(͙!q#p! ÔF ! ˾Ô͎{ ! 6~ʜ*6"B\2D\*\#} (6 : 6~!ÜÜW 66&͂~(͔6(06Y=oo&![ÔÜ#~A P 66&͂~(͔ʔo:H\˧A A- ÔÜO0U F F L E 66&z~(͔460͔406O! _! y_O~qÔÜ#~E A L >2 Y! !"mÔÜ#~X C H A N G E 66&z~(͔ʔ602 O: 8y(2 ͔6ʜҜ6!Y=__! :mO : G~# y2mÔ  !"#$%&'()*+,-./0123!`m|    1111111111111222222222222233333333333334444444444444THIS PROGRAM MAY NOT BE COPIED WITHOUTA SPECIAL PERMISSION BY GEORGE.MY HOMEADDRESS IS:TARNOW UL.BITWY POD STUDZIANKAMI 6:35.POLANDNAME:JERZY WALASZEKPROGRAM ENDS HERE.!`m0u?@@ >pppppppppppp?@@ >pppppppppppp?@@ >>pppppppppppp?@@ >>>pppppppppppp?@@ >>>pppppppppppp?@@ >>>>pppppppppppp?@@ >>>>pppppppppppp?@@ >>>>pppppppppppp?@@ >>>>pppppppppppp?@@ ?@AAAB0!Bh!E!F0!`!7!ip!8!!!xxxxxxxxxyyx?@@ ?@AA|AI!N!H>><|>xxxxxMMxxMMx?@@ >>rrrrrrrrrrrr?@@ >>rrrrrrrrrrrr?@@ >>>>rrrrrrrrrrrr?@@ >>>>>>rrrrrrrrrrrr?@@ >>>>>>rrrrrrrrrrrr?@@ >>>>>>>>rrrrrrrrrrrr?@@ >>>>>>>>rrrrrrrrrrrr?@@ >>>>>>>>rrrrrrrrrrrr?@@ >>>>>>>>rrrrrrrrrrrr?@@ ?@@GAO!_!_!\ !]!\!\!\!!!=!q!y!|!!!zzzzzzzzzxxz?@@ ?@@@A@!A!C!B!G|!N!N!O>!!! !x!HE!I!!C!zzzzzzzzzxxz?@@ ?@@I"AM!J !H!K!L!Kl!L !O!!!!!!!!?!zzzzzxxzzxxz?@@ px8X6l:\<<>|>|zzzzzsszzssz?@@ ???>rrrrrrrrrrrr?@@ ???>rrrrrrrrrrrr?@@ ??????>>rrrrrrrrrrrr?@@ ??????>>???>rrrrrrrrrrrr?@@ ??????>>???>rrrrrrrrrrrr?@@ ??????>>??????>>rrrrrrrrrrrr?@@ ??????>>??????>>rrrrrrrrrrrr?@@ ??????>>??????>>rrrrrrrrrrrr?@@ ??????>>??????>>rrrrrrrrrrrr?@@ ?@@@AGx!H!U0!Rx!T!I!S!W!!!!!0!=!}!~!zzzzzzxzzxxz?@@ ?@@@AA!C!G`!N0!]P!\!|!~! !?!>p!|!B!A!!d!zzzzzzxzzxxz?@@ ?@E"G.AE!EJ!F!EJ!G!D!G!F!! !!3!"!C!!!zzzzzzxzzxxz?@@ x:::::zzzzzrrzzrrz?@@ >>>pppppppppppp?@@ >>>pppppppppppp?@@ >>>>>>pppppppppppp?@@ >>>>>>>>>pppppppppppp?@@ >>>>>>>>>pppppppppppp?@@ >>>>>>>>>>>>pppppppppppp?@@ >>>>>>>>>>>>pppppppppppp?@@ >>>>>>>>>>>>pppppppppppp?@@ >>>>>>>>>>>>pppppppppppp?@@ ?@@@A@!A!A !B!Bb!C!B!B!!!8!<!~!y!c!c!xxxxxxyxxyyx?@@ ?@PRAZ!N!G!O!G!E!L !M!!!!!c!!!!xxxxxyyxxyyx?@@ 99998xxxxxhhxxhhx?@񊪪UUQыы?ыыC!ыﱍwы;ыыKKKKKYUKKKjK?@@ }}}}}z{}}y|}?@@ ??}}}}}z{}}y|}?@@ ?}}}}}z{}}y|}?@@ }}}}}z{}}y|}?@@ ~?}}}}}z{}}y|} P P P 3\MR8R \Wq !v>>BB<DHpHDB@@@@@~BfZBBBBbRJFB(> >bd&F(*D:  >>> $$$$< <88$$$<< 88 8$$< $$$$$8 >>>FF~dhphdb`````~BfzrbbBbrjfb~bbbb~~bb~``~bbjf~~bb~db|`~F~00000bbbbb~bb44bbbrz$B$$Bh000~ ~@ pp8T"x ~<|D| >"">< <|DD||D|@|8|DD|<@@|DDD08$< (00($|TTTT|DDDD|DDD||DD|@@|DD|< x@||8DDDD|DD((DTTT(D((DDDD|<| |0p p(\:er,st-256*(st/256):er+1,(st/256) &BREAKON 10 :23658j\,8 F23670v\,23672x\:23671w\,23673y\:0:7 MODE=0 <:N=173I:TIME,TONE:TIME,TONE:""30  N:10 'N=125520:ZAP N:N (:PCARD 47/,16,4:PCARD 480,16,9 :PCARD 491,16,14:PCARD 502,16,19:PCARD 513,16,24 -6N=116:ZAP 30:TONE=3190v :N 2PCARD 535,18,4:PCARD 546,18,9 :PCARD 557,18,14:PCARD 568,18,19:PCARD 579,18,24 7~4:1:ZAP 255:0,480:255,0:0,64@:-255,0:0,-64@ <9 ,4;"Written by GEORGE 1985";11 ,3;"WELCOME TO THE POKER CLUB";12 ,7;"TYPE IN YOUR NAME :" AN$="" Fq14,12 ;N$+"  ":0:Z$=:ZAP 30:Z$=13 ZAP 255:ZAP 255:120x KGZ$=12 ƱN$>0ZAP 128:N$=N$(̱N$-1):70F P+N$>8.2~L,-30:70F U9Z$<65AůZ$>90Z.2~L,-30:70F ZN$=N$+Z$:70F d 0 xN$=""13 ,4;"HAVE YOU NO NAME AT ALL?":.3,-15:502:13 ,4;"TRY AGAIN WITH NO TRICKS":100d:13 ,4;" ":70F -:'''N$+" !"'''" You became to be well off . Youpossess a beautiful house in thecountry,a sports car, a farm andone million dollars cash in handto start the play against threemen that have just visited you. Now everything depends on You.So will you begin the game?(Y/N)" ZAP 120x:ZAP 255:0:Z$=:.1}L,25:Z$="N"''" I SEE YOU DON'T WANT TO TRY":100d:10 \Z$="Y"''" YOU WILL PLAY AS HAND NO 1"''"OK, NOW WAIT A LITTLE WHILE MORE":400 813 ,28;"Y/N)":140 CTIME=23672x\+256*23673y\+65536*23674z\ NSEC=(TIME/502) NH=(NSEC/3600) (NH24NH=NH-24:164 NM=(NSEC/60<) (NM60<NM=NM-60<:167 C20,26;" TIME ";21,26;" " ?6;1;1;21,28-NH;NH;":";+NM RET @:0,0;"DEAL";1,0;" ";2,0;" "+8+8+8+8+COUNT:COUNT=COUNT+1:N=320:N,3;" ":N:N=6224:PCARD 524,0,N:ZAP 15:PCARD 524,18,N:N YN=082:PCARD 524,9 ,N:PCARD 524,9 ,N+19:N RET 9920&:N=14:LINE,COL:I=02:LINE+I,COL;" ":I:7;LINE,COL;"HAND NO ";N;LINE+1,COL;"C";M(N);"$":N 161 $RET2=RET:RET=251:161 RET=RET2:N=10 13 :N,12 ;" ":N:11 ,13 ;"BANK:";12 ,19-BANK;BANK;13 ,12 ;"DOLLARS":RET ,W17,0;"ENTER ?":LIMIT=100d:RET1=RET:RET=3106:8000@ 6CHARGE=08000@ ;:RET=RET1:M(1)-CHARGE<0B(1)=1: @RET JLINE=0*(PLAY=3)+18*(PLAY=1)+9 *((PLAY=2)(PLAY=4)):COL=0*(PLAY=2)+6*((PLAY=1)(PLAY=3))+19*(PLAY=4):TIME=4*((PLAY=1)(PLAY=3))+2*((PLAY=2)(PLAY=4)) TLN=COLCOL+4*TIMETIME:PCARD A$(PLAY,((N-COL+TIME)/TIME)),LINE,N:N ^RET h+U$="":RET2=RET:RET=361i:161 iRET=RET2:0;4;1;16,18-U$;" "+U$+"L":0:Z$=:.1}L,40(:Z$=13 380| jVZ$=12 ƱU$>0U$=U$(̱U$-1):ZAP 120x:ZAP 255:361i k.Z$<"A"Z$>"Z".3,-20:361i l+U$>6.2~L,30:361i mU$=U$+Z$:361i |L16,12 ;" ":U$="".3,-25:361i }RET  VARIABLES A$(4,5):CARDS M(4):MONEY *N=14:M(N)=1000000t$:N S(4):SCORE E(4):EXCHANGE START=1 B(4):BANKRUPT 8HOUSE=400000CP:CAR=300000u:FARM=500000t$ COUNT=1 )N=23672x\23674z\:N,0:N BREAKON 5000:GAME NTIME=0:N=14:TIME=TIME+B(N):N:TIME=33500 3B(1)=1M(1)07000X BANK=0:CHARGE=0 @N=160<:SHUFFLE (*25),(*524):N:DEAL N=14:SELECT N:SHOW N:SELECT N:E(N)=23305 [:S(N)=23306 [+256*23307 [:I=15:A$(N,I)=¾(23315[-I):I:N RET=540:200 RET=550&:230 &RET=5600:250 0WB(START)=1START=START+1:START=START-4*(START=5):5600 5)START=1RET=580D:300, :&CHARGE=10 *(*9 +1) DRET=590N:9000(# N(PLAY=1:RET=595S:330J S:START=START+1:START=START-4*(START=5) X`K=14:9920&:I=1START:LINE,COL:I:LINE+2,COL;" " ]B(START)=1700 b*START=1RET=700:8300l gEXCHANGE START,E(START):SELECT START:I=15:A$(START,I)=¾(23315[-I):I:S(START)=23306 [+256*23307 [ lLINE+2,COL;"EXCHANGE"+E(START):.1}L,10 +2*E(START):.1}L,8+2*E(START):.1}L,12 +2*E(START):.2~L,0 3START=START+1:START=5START=1 K DEALER=0 TALK=START:PASS=0 /TALK=TALK-1:TALK=0TALK=4 /TALK=TALK+1:TALK=5TALK=1 SPASS=4.5,0:16,10 ;"OUT OF GAME":510  DEALER=TALK:O$="OPEN?":9920&:I=1TALK:LINE,COL:I:LINE+2,COL;" ":TALK=1RET=900:LIMIT=1000:85004! !/B(TALK)=1PASS=PASS+1:790 "TIME=(20*):TIME=13 M(TALK)>10000'S(TALK)=0CHARGE=10 *(*20+1):BANK=BANK+CHARGE:M(TALK)=M(TALK)-CHARGE:890z #OS(TALK)=0LINE+2,COL;"PASS":PASS=PASS+1:790 *(CHARGE=10 *(*100d+1) 4*BANK=BANK+CHARGE:M(TALK)=M(TALK)-CHARGE zLINE+1,COL;" $";LINE+1,COL;"C"+M(TALK);LINE+2,COL;"OP"+CHARGE+"$":.1}L,26:RET=900:250 O$=""790 /TALK=TALK+1:TALK=5TALK=1 PASS=0 CHECK=0  L(4) "N=14:L(N)=B(N):N RET=1001:161 L9920&:I=1TALK:LINE,COL:I:LINE+2,COL;" " (PASS=3CHECK=16000p PASS=37500L 0L(TALK)=0PASS=PASS+1:3000 .1}L,8:.1}L,10 :.1}L,6:.1}L,12 :.1}L,17:.1}L,24:.1}L,20:.1}L,15 *TALK=1RET=3000 :4000 aS(TALK)=0PASS=PASS+1:L(TALK)=0:LINE+2,COL;"PASS":3000 >CHARGE>M(TALK)S(TALK)>S(1)DEALER=12000 -CHARGE>M(TALK)S(TALK)=0:1050 $JTIME=0:N=14:E(N)=2E(N)=0TIME=1 )N .2S(TALK)<1024CHARGE<3000 2000 /1S(TALK)<1024S(TALK)=0:1050 3S(TALK)<1536CHARGE<2000M(TALK)>5000TIME=0DEALER=TALK:CHARGE=CHARGE+100d*(*20+1):2500 8-S(TALK)<1536TIME=02000 =1S(TALK)<1536S(TALK)=0:1050 B2S(TALK)<2048CHARGE>50002000 GOS(TALK)<2048CHARGE=CHARGE+10 *(*100d+1):2500 L3S(TALK)<2560 CHARGE>15000:2000 QOS(TALK)<2560 CHARGE=CHARGE+30*(*100d+1):2500 V3S(TALK)<3072 CHARGE>300000u2000 [ S(TALK)<3072 1500 `4S(TALK)<3584CHARGE>100000CP2000 e S(TALK)<35841500 !CHARGE=500000t$2000 CHARGE>M(TALK)2000 LCHARGE=CHARGE+100d*(*200+1)+5*(S(TALK)/10 ) *CHARGE>500000t$CHARGE=500000t$  CHARGE>M(TALK)CHARGE=M(TALK)  2500 PASS=PASS+1:BANK=BANK+CHARGE:CHECK=1:M(TALK)=M(TALK)-CHARGE:LINE+1,COL;" $";LINE+1,COL;"C"+M(TALK);LINE+2,COL;"CH"+CHARGE:.1}L,10 :.1}L,20:.1}L,15:RET=3000 :250 PASS=0:BANK=BANK+CHARGE:M(TALK)=M(TALK)-CHARGE:CHECK=0:DEALER=TALK:LINE+1,COL;" $";LINE+1,COL;"C"+M(TALK);LINE+2,COL;"AD"+CHARGE:ZAP 557:ZAP 100d:ZAP 255:RET=3000 :250 /TALK=TALK+1:TALK=5TALK=1 1000 sBREAKON 3500 :.2~L,-10 :.2~L,-8:.2~L,-5:.2~L,0:.2~L,8: TIME=0:L=0186:C=0284:PCARD TIME,L,C:ZAP (*40():TIME=TIME+1:TIME=5353510 C:L N=9 14:N,0;" ":N:10 ,0;" CONGRATULATIONS WE ALL GIVE OURSELVES TO YOU, MASTER "+N$'" WOULD YOU LIKE ANOTHER GO?" 0:Z$=:ZAP 250 cL=0186:C=0284:PCARD 524,L,C:ZAP (*40():C:L Z$="Y"400 Z$="N"0 .1}L,-20:3510 @LINE+2,COL;"YOUR SAY?":RET=4010:360h wLINE+2,COL;" ":U$(1)="P"U$(1)="N"PASS=PASS+1:L(1)=0:3000 U$(1)="C"2000 =U$(1)="A"U$(1)="R"U$(1)="I"4050  4000 bCHAR=CHARGE:LIMIT=500000t$:RET=4060:LINE+2,COL;"HOW MUCH?":8000@ <LINE+2,COL;" ":CHARCHARGE8000@  2500 QN=1502:ZAP *40(:PCARD 524,(*19),(*29):N ZAP 255:ZAP 255 10 ,0;"THE PROGRAM IS PROTECTED AGAINSTBREAKING INTO IT. THE CURRENT DEAL IS LOST AND YOUMUST PAY 10000$ TO YOUR OPONENTSAS A DISCOURAGEMENT FROM DOINGTHIS SORT OF THINGS ANY MORE. " KM(1)=M(1)-10000':M(1)0B(1)=1 BANK=BANK+10000' JN=24:M(N)=M(N)+(BANK/3):M(N)>0B(N)=0 N MODE=05080 MODE=1:500 jMODE=1:'''"ENTER SECURITY CODE FOR STOPPINGTHE PROGRAM AND LISTING. ":Z$ Z$="SHOW ME THE WAY"MODE=0:BREAKOFF:"OK.MACHINE CODE IS LOCATED AT 56700.IT WORKS AT CHANGING THE ERROR TRAP ADDRESS OF ERRSP.":  5070 o plN=10 100d10 :ZAP N:N:K=14:PLAY=K:RET=6010z:L(K)=1330J zK TIME=0 :N=14:B(N)=1L(N)=06050 S(N)>TIMETIME=S(N):LINE=N N Z7;4;1;15,13 ;"WINS:";16,11 ;"HAND NO ";LINE M(LINE)=M(LINE)+BANK:.05|L,10 :.05|L,13 :.05|L,20:.05|L,16:.05|L,32 :N=25510 -10 :ZAP N:N:.3,0:500 X(N=10 25520:ZAP N:N b:RET=7011c:161 c11,0;" YOU NEED SOME MONEY,"+N$ lHOUSE=0CAR=0FARM=0BREAKON 7000X:'" BUT IT  SEEMS THAT THERE IS NOWAY FOR YOU TO GET IT.EVERYTHINGYOU HAD WAS GONE AND THIS MEANS: T H E  E N D  O F G A M E":7300 %'''" YOU CAN STILL SELL YOUR:" +HOUSE>0'"HOUSE FOR "+HOUSE+"$" ,CAR>0'"SPORTS CAR FOR "+CAR+"$" (FARM>0'"FARM FOR "+FARM+"$" "YOUR CHOICE?" KN=1517:N,0;" ":N RET=7120:360h WU$(1)="H"HOUSE>0M(1)=M(1)+HOUSE:HOUSE=0:7200  QU$(1)="C"CAR>0M(1)=M(1)+CAR:CAR=0:7200  TU$(1)="F"FARM>0M(1)=M(1)+FARM:FARM=0:7200   360h  .2~L,10 :ZAP 255:14,0;"OK,SOLD.YOU CAN GO ON NOW.":B(1)=0:M(1)>0B(1)=0 * 500 @''" Final results":''" "+n$+" "+m(1)+"$" ;n=24:'" Player"+n+" "+m(n)+"$":n  0 L.2~L,10 :.1}L,16:.05|L,20:.02{# =,38&:.01z# =,30:.01z# =,25:7;4;1;15,13 ;"WINS:";16,11 ;"HAND NO ";DEALER V3M(DEALER)=M(DEALER)+BANK:ZAP 255:500 ? @,U$="":RET2=RET:RET=8005E:161 E RET=RET2 Jx0;4;1;16,18-U$;" "+U$+"$":0:Z$=:ZAP 20:Z$=13 8100 TWZ$=12 ƱU$>0U$=U$(̱U$-1):ZAP 120x:ZAP 255:8010J ^/Z$<"0"Z$>"9".2~L,-20:8010J h-U$>6.2~L,-25:8010J rU$=U$+Z$:8010J %RET2=RET:RET=8101:161 1RET=RET2:U$="".3,-30:8010J ~CHARGE=U$:CHARGE>LIMIT16,12 ;"TOO MUCH ":100d:16,12 ;" ":8010J #16,12 ;" " RET lJLINE+2,COL;"EXCHANGE?":RET1=RET:RET=8310v :360h vU$(1)="N"RET1 {U$(1)="Y"8330 360h 9920&:LINE,COL:LINE+2,COL;"OK,WHICH?":U$="00000":LINE=19:COL=6:15,10 ;"5,7,8-CURSOR";16,10 ;"CSH+0-DELETE";17,10 ;"ENTER-FINISH" W8;8;8;1;LINE,COL;" ":0:Z$=:ZAP 130 P8;8;8;1;LINE,COL;" ":Z$=13 8400 Z$=12 ZAP 120x:ZAP255:U$((COL/4))="0":8;8;8;1;LINE-1,COL;" ":8335 ~Z$="7".1}L,45-:U$((COL/4))="1":8;8;8;1;LINE-1,COL;" ":8335 FCOL=COL+4*(Z$="8")-4*(Z$="5"):COL<6COL=22 COL>22COL=6 8335 u17,0;" ":N=1517:N,10 ;" ":N:U$="00000"8330 5U$="11111"RET=8330 :PLAY=1:330J XCOL=0:Z$="":N=15:U$(N)="1"Z$=Z$+A$(1,N):COL=COL+1 N 5N=15:U$(N)="0"Z$=Z$+A$(1,N) JN:A$(1)=Z$:N:N=15:23309 [+N,A$(1,N):N 1SHOW 1:EXCHANGE 1,COL:SELECT 1 S(1)=23306 [+256*23307 [:N=15:A$(1,N)=¾(23315[-N):N:PLAY=1:RET=RET1:330J !4V6;1;1;LINE+2,COL;O$:RET1=RET:RET=8510>!:360h !>@LINE+2,COL;" ":U$(1)="Y"8550f! !CAU$(1)="N"U$(1)="P"PASS=PASS+1:O$="":RET1 !fARET=8560p!:LINE+2,COL;"HOW MUCH?":8000@ !pBANK=BANK+CHARGE:M(1)=M(1)-CHARGE:LINE+1,COL;" $";LINE+1,COL;"C"+M(1):RET=RET1:250 #' #(PK=14:.1}L,20:9920&:I=1START:LINE,COL:I #-B(START)=19030F# #2,M(START)=M(START)-CHARGE:BANK=BANK+CHARGE #7LINE+2,COL;" ";LINE+1,COL;" $";LINE+1,COL;"C"+M(START);LINE+2,COL;"E"+CHARGE #9%RET1=RET:RET=9020<#:250 #