... ]
On 2004-03-30 12:37, Alcoholics Anonymous wrote:

PRINT CHR$ 144
[/quote]


CHR$ 144 is the code for ...

[code]
21 (Blackjack-variant)

1 LET B$="AJQK789T": LET c$=B$+B$+B$+B$: LET C=32: LET A$="": FOR A=0 TO 2: P
OKE 23620*(A6)
)+(P>20)): NEXT A: LET P=P*(P0)*(P1)): NEXT K: NEXT G: LET S=S+10*(A>4)*(S16: LET S=S*(SP;" ...

... ;" ";AT y/9,x/9;CHR$ 144;: LET o=x: LET ... w)*(x124): PRINT AT 9,12-(3*l);"You ";"CrashedLanded Safely ...

... *(b>-9);AT 12-b,a;CHR$ (144+b/17);AT ... 11-b,a;CHR$ 145:
NEXT b:
12-b,a;CHR$ (144+b/17);A ...
T 11-b,a;CHR$ 145: NEXT b: NEXT
j,i;CHR$ 148 AND (j>0 ...

... FN z$(x)=CHR$ 22+CHR$ (9.5-x/w)+CHR$ (x-w ... )=FN z$(x)+CHR$ 16+CHR$ FN m(x)+CHR$ (FN m(x ... TO ),g:
FOR w=-12 TO 11:
READ n ...

... +(k=16)*(y1)*(y1)*23620,12:
BEEP .1,0:
LET o$(1,x)=CHR$ 144:
NEXT t:

... 61:
LET z=CODE (CHR$ (32+m+(40*(m=1 ... /> POKE ((p=1)*(fm))*n,12:
[/code]
For a ...

... INVERSE)

[CODE]
CHR$ 6 AND f;
[/CODE ... ]
BEEP .5,24*m-12
[/CODE]

with ... ]
BEEP f,24*m-12
[/CODE]

I was curious about how many of these optimizations could be reused in the original "Single letter version". This is what I got:

a) Move PRINT score/lives to the beginning (thus we don't need to initialize m anymore);

b) Use IF/ ...

...
290 gosub 4000:print chr$(n+48):gosub 5000:print ... chr$(51):let s(n)=3 ... data 17,21,23,12,16,21,8,12,15,14,0 ... w:next z:if k$=chr$(m+48) then let t ... (m)=s(m)-1:print chr$(s(m)+48)
... next n:let u$=chr$144:let z$=chr$145
1020 ...