OK, here it is:

```
Lbl 0
FnOff
PlotsOff
GridOff
AxesOff
LabelOff
0->Xmin:94->Xmax
0->Ymin:62->Ymax
1->Xscl:1->Yscl
RandInt(6,12->A
RandInt(52,58->B
2->C:-2->D
3->L:48->X:32->Z
ClrDraw
getkey->K
While K=0
getkey->K
Line(X-5,0,X=5,0
Line(X-5,62,X+5,62
Line(0,Z-5,0,Z+5
Line(94,Z-5,94,Z+5
Text(25,43,"BOP
Text(31,22,"[PRESS ANY KEY]
If A>X:Then
Pt-Off(X-5,0
Pt-Off(X-5,62
Pt-Off(X-4,0
Pt-Off(X-4,62
Pt-Off(X-3,0
Pt-Off(X-3,62
X+3->X:End
If A<X:Then
Pt-Off(X+5,0
Pt-Off(X+5,62
Pt-Off(X+4,0
Pt-Off(X+4,62
Pt-Off(X+3,0
Pt0Off(X+3,62
X-3->X:End
If B>Z:Then
Pt-Off(0,Z-5
Pt-Off(94,Z-5
Pt-Off(0,Z-4
Pt-Off(94,Z-4
Pt-Off(0,Z-3
Pt-Off(94,Z-3
Z+3->Z:End
If B<Z:Then
Pt-Off(0,Z+5
Pt-Off(94,Z+5
Pt-Off(0,Z+4
Pt-Off(94,Z+4
Pt-Off(0,Z+3
Pt-Off94,Z+3
Z-3->Z:End
Pt-Off(A,B,2
If A<2 or A>92:-C->C
//(**I'm not done typing it all yet!**)//
```

This is a program from a LONG time ago, so a lot of optimizing needs to be done, but that is it…

Coffee + Radiohead = ^^