1üdim(áRECB
{0.01,1,5,10,25,50,75,100,200,300,400,500,1000,2500,5000,10000,25000,50000,75000,100000,200000,300000,400000,500000,750000,1000000üáBANK
26üdim(L
11üdim(áOFFR
Fill(0,áOFFR
ClrHome
rand(26üL‚
áBANKüL
SortA(L‚,L
ú1üV
While V>27 or V<1 or fPart(V)ø0
ClrHome
Disp " 22 23 24 25 26
Disp " 17 18 19 20 21
Disp " 12 13 14 15 16
Disp " 7 8 9 10 11
Disp "1 2 3 4 5 6
Disp "
Input "CASE ? ",V
End
L(VüZ
0üL(V
ClrDraw
AxesOff
FnOff
PlotsOff
ZStandard
104üXmax
72üYmax
ZInteger
6üN
0üP
0üO
0üS
0üU
0üC
" "üStr2
Goto VA
Lbl TA
ClrDraw
Line(35,0,35,55
Line(13,0,13,55
Line(62,0,62,55
For(Á,7,55,8
Line(0,Á,94,Á
End
Text(0,18,"D E A L O R N O D E A L
For(Á,1,7
If áBANK(Á)ø0
Text(8Á,3,áBANK(Á
End
For(Á,8,14
If áBANK(Á)ø0
Text(8(Á-7),15,áBANK(Á
End
For(Á,15,21
If áBANK(Á)ø0
Text(8(Á-14),37,áBANK(Á
End
For(Á,22,26
If áBANK(Á)ø0
Text(8(Á-21),64,áBANK(Á
End
Text(48,66,"BY SEB D.
Text(56,74,"OK
0üK
While Kø15 and Kø14
getKeyüK
End
If U=1
Then
0üU
Goto O1
End
ClrDraw
RecallPic 7
1üS
Goto BK
Lbl VA
ClrDraw
Text(56,0,"YOUR CASE:
Text(56,35,V
Text(6,59,"OFFERS
Text(0,64,"LAST
Text(56,71,"BOARD"
Line(65,0,65,8
Line(65,8,94,8
Text(40,0,"TO OPEN:
Line(7,15,7,7
Line(7,15,37,15
Line(37,15,37,7
Line(37,7,7,7
If Oø0 and O<8
Then
For(Á,1,O
Text(6Á+7,48,áOFFR(Á
End
End
If O>7
Then
For(Á,O-6,O
Text(6(Á-O+7)+7,48,áOFFR(Á
End
End
For(Á,1,26
If L(Á)ø0
Then
If Á>6
Text((4-iPart((Á-2)/5))*8,9(Á-(5iPart((Á-2)/5)+2))+1,Á
If Á<7
Text(32,7(Á-1)+4,Á
End
End
Lbl P7
If C=0
VüC
If C>6
Text(8(4-iPart((C-2)/5)),9(C-(5iPart((C-2)/5)+2))+1,Str2
If C<7
Text(32,7(C-1)+4," "
Text(40,32,N
For(Á,9,36
Text(49,Á,"
End
If Pø0
Text(48,9,P
Lbl BK
0üK
While not(K>40 and K<90) and Kø15 and Kø92 and Kø14
getKeyüK
End
If K=15 or K=14
Then
StorePic 7
Goto TA
End
If K=92
1üC
If Kø92
K-15(iPart(K/10)-3)-4üC
If L(C)=0 or C=V
Goto BK
L(C)üP
0üL(C
For(Á,1,26
If áBANK(Á)=P
0üáBANK(Á
End
If Nø1
Then
N-1üN
If S=0
Then
Goto P7
Else
0üS
Goto VA
End
End
If N=1
Then
Text(40,32,"0
If C>6
Text(8(4-iPart((C-2)/5)),9(C-(5iPart((C-2)/5)+2))+1,Str2
If C<7
Text(32,7(C-1)+4," "
For(Á,9,36
Text(49,Á,"
End
If Oø10
Text(48,9,P
O+1üO
If O<6
6-OüN
If O>5
1üN
{20,15,11,8,6,5,4,3,2,1üLƒ
Lƒ(OüL
round(.75sum(áBANK)/(L+L/13)/1000,0)*1000üáOFFR(O
100round(randInt(ú.05áOFFR(O),.05áOFFR(O))/100,0)üR
áOFFR(O)-RüáOFFR(O
For(Á,1,500
End
1üU
Goto TA
Lbl O1
Disp "DEAL OR NO DEAL?
Disp áOFFR(O
0üR
If áOFFR(O
randInt(1,100)üR
If R=1
Disp "+ SCOOTER
If R=2
Disp "+ TRIP TO CUBA
If R=3
Disp "+ A CAR
If R=4
Disp "+ A POOL
If R=6
Then
Disp "+ 10 000 TO GO
Disp "SHOPPING
End
If R=7
Disp "+ IPHONE
Disp ""
Disp "DEAL(D) OR NO(N)"
Lbl IN
Input "",Str1
If Str1ø"D" and Str1ø"N"
Goto IN
If Str1="D"
Goto OA
If Str1="N" and Oø9
Goto VA
Goto FO
End
Lbl OA
áOFFR(O)üL
ClrHome
Disp "ACCEPTED OFFER:
Disp L
Disp "YOUR CASE:
Disp Z
Disp "
Lbl AD
If áRECB(1)>L
Then
Disp "HIGH SCORE:
Disp áRECB(1
End
If áRECB(1)<L
Then
LüáRECB(1
Disp "NEW RECORD!
End
Goto FI
Lbl FO
For(Á,1,26
If L(Á)ø0
ÁüW
End
ClrHome
Disp "THERE'RE 2 CASES
Disp "LEFT
Output(3,1,W
Output(3,4,"AND
Output(3,7,V
Disp "
Disp "WHICH ONE DO YOU
Disp "CHOOSE?
Lbl I8
Input "",Q
If QøW and QøV
Goto I8
ClrHome
Disp "THE CASE
Output(1,11,Q
Disp "HAS
If L(Q)=0
ZüL(Q
Disp L(Q
Goto AD
Lbl FI
AxesOn
ClrDraw
ZStandard
Output(1,1,""