... what I got:

a) Move PRINT score/lives to ... />
e) Replace ((a-1)/10) with (a/10-.1)

a life every time a letter matches (and ... /10);l+1:
LET a=.5+RND*(l+1):
LET ... c(l+1)=c(a):
LET ...

... non-standard "single" variation uses a different theme.

... version looks fairly good for a one-liner:

... );l+1:
LET a=.5+RND*(l+1):
LET ... (l+1)=c(a):
LET c(a)=1+INT (l ... t13,3*INT (a/10-.1),3*a-10*y-3, ... =0,s*q,s*r,a,l-s+m,t+ ...

... the sqrt, square/add , and rnd(1)/add as one operation ... !=10; ++i)
{
a = sqrt(a);
r += rand() / 32767.0;
{
a *= a;
r += rand() / 32767.0;
}

... square/add , and rnd(1)/add as one ... ++i)
{
a = sqrt(a);
r += rand() / 32767.0 ... 10; ++i)
{
a *= a;
r += rand() / 32767.0;
RND(1) function does.

... is found.
LD A,(NSPPC) Collect the statement ... end of program'.
LD A,B
JR Z ... ) If a line number was
LD A,H specified ...

... )
but I have set a way to visit all fields ... = 1 TO 150:
LET r=RND*(151-f)+999.5
LET i=m(r)+66:
LET w=6*RND-3:
let m(r)=m(1150-f):
LET ... maze
and then pick a random coordinate and when ok ...

... changing.

So, while a truly thorough test would checksum ... the undocumented BIT n,(IX)|r is doing what is expected ... thing is capable of doing a LD A, B.

Whilst not ... someone would try to implement a given instruction they are unlikely ...

... the embedded array technique for a program I sent in ... line 900.

A much more recent program I ... PLOT FN r(RND*255,255,PEEK 23672),FN r(RND*175,175 ... BASIC and rather cleverly constructs a maze which can always ... , so it may be a mad idea.) The maze ...

... /> 5 let r=768
10 let a=int(rnd*r)+1
15 ... ]
#include

int a, r;
char *x;

do
{
a = (int)((rand()*(long)(r)) / RAND_MAX)+1;

... THEN LET r=INT (RND*c)+1:
POKE CODE a$(r)+22528+256 ... *CODE b$(r),255 ... :
LET a$=a$( TO r-1)+a$(r ... +1 TO ):
LET b$=b$( TO r-1 ...

...
220 let r=r(a):let c=c(a):gosub 4000
... r=r+1:let c=c+fn r(3)-2
250 let r(a)=r ... :if cw then let c=w
270 let c(a ... br /> 2000 def fn r(n)=int(rnd*n)+1
... 270
250 if r=r(k) and c=c(k ... /> 530 ink 0:if r=r(f) and c=c(f ...

... ]
1 DEF FN a(r,n)=r-INT (r/n)*n:
READ ... ,v,p:
LET x=RND*36+10:
POKE n ... )-40):
LET c=FN a(3+PEEK 23673,256):

[code]
1 DEF FN a(r,n)=r-INT (r/n)*n:
READ c$,m,n,v,p:
LET x=RND*36+10:
POKE n*(c$(x)>"O"),3:
LET c$(x)=CHR$ (CODE c$(x)-40):
LET c=FN a(3+PEEK 23673,256):
CLS :
LET x=x+n*(c$(p)

[code]
1 DEF FN a(r,n)=r-INT (r/n)*n:
READ ... ,v,p:
LET x=RND*36+10:
LET x ... "),3:
LET c=FN a(3+PEEK 23673,256):
PRINT "Room:";FN a(CODE c$(p),40)^2 ... $=h$;"NESW"(g);":";STR$ (FN a(CODE h$,40)^2) AND ...

... code]
1 DEF FN a(r,n)=r-INT (r/n)*n:
The ... startfield

LET x=RND*36+10:
Calculate CUBE ... />
LET c=FN a(3+PEEK 23673,256):

PRINT "Room:";FN a(CODE c$(p),40)^2 ... $;"NESW"(g);":";STR$ (FN a(CODE h$,40)^2) AND ...

... /> 30 let g=int(rnd*20+1)
40 ... let w=int(rnd*40+1)
50 ... effect"
330 if rnd>.4 then goto 380 ... 90 let r=w
100 let d=int(rnd*3-1 ... -d
140 let r=r+d
145 scroll< ... -1
270 let r=r+1
280 if ...

... br /> 40 r$=""
50 let t=int(rnd*9+1)
r$=r$+"o"
80 if ... lt then let r$=r$+"."
90 next l
60 let a=int(rnd*20)
70 let ... br /> 150 let r$=inkey$
160 if r$=p$ then goto ...

... /> ;Assume x^2+y^2=r^2 represents the real variable ... /> ld A,D ;Point #1
add A,H
ld c,A
ld A,E ...
add A,L
ld b,A ... A,L
ld c,A
ld A,E
add A,H
ld b,A ...

... />
; x^2+y^2=r^2 represents the real variable ... ' is ddfy =5-2*r
ld bc,3 ;bc' is ddfx ... A,H
ld c,A
ld A,E
add A,L
ld b,A ... A,L
ld c,A
ld A,E
add A,H
ld b,A ...

... in 8192
ld hl, 8195
ld (hl), 82 ; 'R'
inc ... hl
ld (hl), 85 ... />
ld de, 9000
ld hl, m3app

get ld a, (hl ... />
cmpn inc hl
ld a, (hl)
cp 110 ; 'n ...

... loader is definitely a good idea. A copy of the ... actually nothing particularly complex. A value is set up with ... (you may also hear a click if the speaker bit ...
10 OUT 254, INT(RND * 7):GOTO 10


ld a,1
ld c,254
.loop ...

... LD A,0
INC A
LD (CURND+1),A
LD L,A
LD ... /> LD L,A
LD C,(HL)
ADD A,24
LD L,A
LD A ... can do it using RND command.

... /> [FONT=Arial][SIZE=2]LD A,255[/SIZE][/FONT]
... /> [FONT=Arial][SIZE=2]LD A,N[/SIZE][/FONT]
... /> [FONT=Arial][SIZE=2]LD A,N[/SIZE][/FONT]
... [FONT=Arial][SIZE=2]LD I,A[/SIZE][/FONT]
[ ... [/code]

The R-register is NOT set.

... /> [QUOTE=Arjun;327444]The *what*??? R register?

* ... keep writing a fixed value to the R register (e ... .g.

[code]
DI
LD A ... , 10
loop:
LD R, A
JR loop ...

... of the R register? I thought the R register went ... is manually set with a [b]ld r,a[/b] in which case ... can be used as a boolean flag by the ... br />
There was a discussion about this over on ... b]ld a,0x80 : ld r,a[/b] at one point, and [b]xor a : ld r,a[/b ...

... />
ld a,0x80 ; flag the interrupt
ld r,a

ld a,(SpeedFlag) ; increase ... timer
inc a
ld (SpeedFlag),a

... />
[CODE] ld a,0x80 ; flag the interrupt
ld r,a[/CODE]

...
RLD/RRD
LD A,I/R
BIT n,(HL)

LD A,I/R
BIT n,(HL)

So a total of 59 tests were ...

... tests namely:-

LD A,I/R
BIT n,(IX+d ...