(11C) Blackjack - 21

[Rogier]

Your program triggered me to review my own. As a result I now have a version with a basic scoring routine

Code:


001 Lbl B
002 SF 0
003 0
004 Sto 7
005 9
006 0 
007 Rcl 0
008 X≤Y?
009 Ran Nr
010 ,
011 9
012 X>Y?
013 GTO 4
014 Rcl 9
015 Clr Reg
016 Sto 9
017 X≤Y?
018 Pse
019 LBL 4
020 GSB A
021 Sto-7
022 Sto 8 
023 Pse
024 SF 0
025 GSB A
026 Pse
027 Lbl A
028 CF 1
029 Ran Nr
030 1
031 3
032 *
033 1
034 +
035 Int
035 Sto ,0
037 2
038 /
039 Enter
040 Int
041 X≠Y?
042 SF 1
043 Sto I
044 Rcl (i)
045 F 1?
046 Frac
047 F 1?
048 ,
049 8
050 X≤Y?
051 GTO A
052 8
053 /
055 Sto + (i)
056 Rcl ,0
057 1
058 0
059 X›Y?
060 Rcl ,0
061 Sto + 7
062 1
063 Sto + 0
064 X=Y?
065 CF 0
066 Fix 9
067 F 0?
068 Fix 2
069 Rcl 7
070 Rtn
071 Lbl 2
072 1
073 1
074 Rcl 7
075 X≤Y?
076 1
077 0
078 Sto + 7
079 Rtn
080 Lbl C
081 F 0?
082 ISG
083 GSB 2
084 SF 0
085 1
086 Rcl 8
087 Rcl 7
088 Sto 8
089 Roll down
090 Sto 7
091 X=Y?
092 CF 0
093 Lbl 1
094 GSB A
095 F 0?
096 GTO 3
097 8
098 X≤Y?
099 GSB 2
100 Lbl 3
101 1
102 6
103 Rcl 7
104 Pse
105 X≤Y?
106 GTO 1
Lbl E
107 CF 0 
108 2
109 1
110 Rcl 8  
111 X>Y? 
112 GTO 5
113 Roll down
114 Rcl 7 
115 X>Y?
116 SF 0 
117 Rcl 8
118 X>Y? 
119 SF 0 
120 Lbl 5
121 1
122 F 0?
123 CHS
124 Sto – 9
125 Rcl 9