%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:1333
File Name:BLAKJACK
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\ClrText
\Locate 3,2,"HAND=   SCORE="
\Locate 5,7,"-----------"
0\->A~Y
\Lbl 1
\Isz K
\Locate 5,6,"- \(-) \(-) \(-) \(-) -"
\Locate 5,5,"-----------"
K>1\=>(G-17)+H\->H
H<9\=>\Locate 18,2,"  "
\Locate 8,2,"  "
H<0\=>\Goto2
\Locate 17,2,H
13\->F
\Int F\Ran#+1\->A
\Int F\Ran#+1\->B
\Int F\Ran#+1\->C
\Int F\Ran#+1\->D
\Int F\Ran#+1\->E
A>9\=>10\->A
A\<=9\=>\Locate 6,6,A
A=1\=>\Locate 6,6,"A"
A>9\=>\Locate 6,6,"F"
B>9\=>10\->B
B\<=9\=>\Locate 8,6,B
B=1\=>\Locate 8,6,"A"
B>9\=>\Locate 8,6,"F"
A=1\=>11+B<22\=>11\->A
B=1\=>A+11<22\=>11\->B
A+B\->G
A=11\=>1\->A
B=11\=>1\->B
\If G=21
\Then \Locate 8,2,"BJ"
G+8\->G
\Locate 17,2,H\Disp\Goto1
\IfEnd
H=0\=>K=1\=>10\->H
\Locate 8,2,G
\Locate 17,2,H
\Locate 9,4,"HIT?"
\Locate 2,7,"Y"
\Locate 20,7,"N"
0\->I
\While I\<>79\ And I\<>29
\Getkey\->I
\WhileEnd
I=29\=>\Goto1
C>9\=>10\->C
C\<=9\=>\Locate 10,6,C
C=1\=>\Locate 10,6,"A"
C>9\=>\Locate 10,6,"F"
A=1\=>11+B+C<22\=>11\->A
B=1\=>A+11+C<22\=>11\->B
C=1\=>A+B+11<22\=>11\->C
A+B+C\->G
A=11\=>1\->A
B=11\=>1\->B
C=11\=>1\->C
\If G>21
\Then \Locate 8,2,"XX"\Disp8\->G
\Goto1
\IfEnd
\Locate 8,2,G
0\->I
\While I\<>79\ And I\<>29
\Getkey\->I
\WhileEnd
I=29\=>\Goto1
D>9\=>10\->D
D\<=9\=>\Locate 12,6,D
D=1\=>\Locate 12,6,"A"
D>9\=>\Locate 12,6,"F"
A=1\=>11+B+C+D<22\=>11\->A
B=1\=>A+11+C+D<22\=>11\->B
C=1\=>A+B+11+D<22\=>11\->C
D=1\=>A+B+C+11<22\=>11\->D
A+B+C+D\->G
A=11\=>1\->A
B=11\=>1\->B
C=11\=>1\->C
D=11\=>1\->D
\If G>21
\Then \Locate 8,2,"XX"\Disp8\->G
\Goto1
\IfEnd
\Locate 8,2,G
0\->I
\While I\<>79\ And I\<>29
\Getkey\->I
\WhileEnd
I=29\=>\Goto1
E>9\=>10\->E
E\<=9\=>\Locate 14,6,E
E=1\=>\Locate 14,6,"A"
E>9\=>\Locate 14,6,"F"
A=1\=>11+B+C+D+E<22\=>11\->A:B=1\=>A+11+C+D+E<22\=>11\->B:C=1\=>A+B+11+D+E<22\=>11\->C:D=1\=>A+B+C+11+E<22\=>11\->D:E=1\=>A+B+C+D+11<22\=>11\->E
A+B+C+D+E\->G
\If G>21
\Then \Locate 8,2,"XX"\Disp8\->G
\Goto1
\IfEnd
\Locate 8,2,"BJ"\DispG+8\->G
\Goto1
\Lbl 2
\ClrText
"\asterGAME OVER\aster"
"SCORE="
"HIGHSCORE="
(K*1000)/17\->L
\Int L\->L
\Locate 7,2,L
(\Det \Mat X)\->M
\Locate 11,3,M\Disp\If L>M
\Then \Locate 5,5,"NEW HIGHSCORE!"
[[L]]\->\Mat X
\Locate 11,3,L\Disp
%End