ive been working on a pacman style game i intend to add some walls later on...

its for the hp39gii, you can use the virtual calc emulator but it will run too fast ...

program name is Trailer

and here's a bounce program on an hp39gii its really fast,

and it can draw XOR style patterns....

not quite used to the website yet, hopefully i havent posted this in the wrong place...

the smilie face is eight and a bracket... got it disabled smilies...

its for the hp39gii, you can use the virtual calc emulator but it will run too fast ...

program name is Trailer

**Code:**```
```

EXPORT Trailer()

BEGIN

RECT_P(3);

RANDMAT(M1,16,8);

0►Q;

FOR Y FROM 1 TO 7 DO

FOR X FROM 1 TO 15 DO

IF M1[X,Y]>32 THEN 9671►M1[X,Y];1+Q►Q; ELSE 32►M1[X,Y] END;

TEXTOUT_P(char(M1[X,Y]),(X*16)-8,(Y*16)-8,1,0);

END;END;

8►X;4►Y;0►V;0►W;

0►X1;0►X2;0►X3;0►X0;

0►Y1;0►Y2;0►Y3;0►Y0;

WHILE Q>0 DO

0►V;0►W;

IF ISKEYDOWN(9)==1 THEN 0►V;−1►W;END;

IF ISKEYDOWN(10)==1 THEN 0►W;1►V;END;

IF ISKEYDOWN(14)==1 THEN −1►V;0►W;END;

IF ISKEYDOWN(15)==1 THEN 1►W;0►V;END;

GETKEY►N;

X+V►X;Y+W►Y;

IFTE (X<1,1►X);

IFTE (X>15,15►X);

IFTE (Y<1,1►Y);

IFTE (Y>7,7►Y);

TEXTOUT_P("◍",(X*16)-8,(Y*16)-8,1,0);

X1►X0;X2►X1;X3►X2;X►X3;

Y1►Y0;Y2►Y1;Y3►Y2;Y►Y3;

RECT_P((X0*16)-8,(Y0*16)-8,(X0*16)+8,(Y0*16)+8,3);

IF M1[X,Y]>32 THEN Q-1►Q;32►M1[X,Y];END;

END;

MSGBOX("DONE");

END;

and here's a bounce program on an hp39gii its really fast,

and it can draw XOR style patterns....

**Code:**```
```

EXPORT Bounce()

BEGIN

RECT_P(3);

128►X;64►Y;

RANDOM(2)►S;RANDOM(2)►T;

WHILE 1 DO

GETKEY►K;

IF K==50 THEN

RANDOM(2)►S;RANDOM(2)►T;

128►X;64►Y;

RECT_P(3);

END;

X+S►X;Y+T►Y;

IFTE(X<1 OR X>255,−S►S);

IFTE(Y<1 OR Y>127,−T►T);

INVERT_P(X,Y,X+1,Y+1);

END;

END;

not quite used to the website yet, hopefully i havent posted this in the wrong place...

the smilie face is eight and a bracket... got it disabled smilies...