So here is what I have so far. PLEASE NOTE I AM VERY NEW TO T1-BASIC AND AM STILL LEARNING IF YOU SEE ANY THING THAT CAN BE FIXED PLEASE LET ME KNOW THANK YOU.
: AxesOff
: Zstandard
: Clrdraw
: 47→X
: 31→Y
: 0→S : 1→E : 1→J
: Line(-2,-3,-2,3
: Line(-.6,-3,-.6,3
: Line(.6,-3,.6,3
: Line(2,-3,2,3
: Line(-2,-3,2,-3
: Line(-2,3,2,3
: Line(-2,-1,2,-1
: Line(-2,1,2,1
: RandInt(1,9)→P
:
: Lbl 1
: getkey→G
: 0→D
:
: Text(3,87,S)
:
: If G=24 and D=0
: 1→D
: If G=26 and D=0
: 2→D
: If G=25 and D=0
: 3→D
: If G=34 and D=0
: 4→D
:
: If D≠0
: Pxl-off(Y,X)
:
: If D=1 and X≥47
: X-6→X
: If D=2 and X≤47
: X+6→x
: If D=3 and Y≥31
: Y-6→Y
: If D=4 and Y≤31
: Y+6→Y
:
: Pxl-on(Y,X)
:
: If P=1 : Then
: 41→B
: 25→A
: end
: If P=2 : Then
: 47→B
: 25→A
: end
: If P=3 : Then
: 53→B
: 25→A
: end
: If P=4 : Then
: 41→B
: 31→A
: end
: If P=5 : Then
: 47→B
: 31→A
: end
: If P=6 : Then
: 53→B
: 31→A
: end
: If P=7 : Then
: 41→B
: 37→A
: end
: If P=8 : Then
: 47→B
: 37→A
: end
: If P=9 :Then
: 53→B
: 37→A
: end
: Pxl-on(A,B)
: If Y=A and X=B : Then
: S+1→S
: RandInt(1,9)→P
: end
: If S>99 : Then
: Disp "YOU WIN!"
: Stop
: Goto 1
---The Following is the basis for what the screen should look like---
_ _ _
l_l_l_l
l_l_l_l
l_l_l_l