I am having some issues with this specifically...oh hell, heres the actual source (plz I just whipped this up for a friend and I'm sure its not optomized, don't be too harsh):

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

:"Pipe Maze 1.00

Lbl 02

ClrHome

Menu("---MAIN MENU---","Random Level",01,"Created Level",99,"Quit",Q

Lbl 01

ClrHome

DelVar U

Menu("Speed","Very Slow",12,"Slow",13,"Medium",14,"Fast",15,"Ridiculous",16

Lbl 12

U+1üU

Lbl 13

U+1üU

Lbl 14

U+1üU

Lbl 15

U+1üU

Lbl 16

U+1üU

iPart((60U)^(5/4)üU

DelVar Z

Menu("Difficulty","Easy",03,"Medium",04,"Hard",05,"Professional",06

Lbl 03

Z+1üZ

Lbl 04

Z+1üZ

Lbl 05

Z+1üZ

Lbl 06

Z+1üZ

DelVar H

Menu("Length","Very Short",07,"Short",08,"Medium",09,"Long",10,"Endurance",11

Lbl 07

H+1üH

Lbl 08

H+1üH

Lbl 09

H+1üH

Lbl 10

H+1üH

H+1üH

ú16H+88üH

Goto 17

Lbl 11

96üH

Lbl 17

ClrHome

Output(3,1,"----------------GENERATING LEVEL----------------

DelVar [A]

{97,15}üdim([A]

For(A,1,H,Z

1+3randInt(1,4üB

1ü[A](A,B

1ü[A](A,B-1

End

Goto 98

Lbl 99

If [A](97,1)=0

Goto 02

[A](97,1üH

[A](97,2üZ

[A](97,3üU

Lbl 98

ClrHome

Output(8,1,"PICK GOAL

Output(1,1," A B C D E

2üX

DelVar K

While Kø105 and Kø21

Output(2,X,"^

DelVar K

While not(K

getKeyüK

End

Output(2,X,"

If K=24 and X>2

X-3üX

If K=26 and X<13

X+3üX

End

X/3üM

For(B,H,8,ú8

ClrHome

Output(1,1," 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1== 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1

Output(5,15,B

BüE

For(D,8,1,ú1

For(A,1,13

[A](E,A)üC

If C

Output(D,A,"-

End

E-1üE

End

For(F,1,U

3üG

End

End

ClrHome

Output(4,1," 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1

2üX

DelVar K

While Kø105 and Kø21

Output(3,X,"V

DelVar K

While not(K

getKeyüK

End

If K=24 or K=26

Then

Output(3,X,"

If K=24 and X>1

X-3üX

If K=26 and X<13

X+3üX

End

End

For(B,1,H-7,8

ClrHome

Output(1,1," 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1== 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1

Output(5,15,B

For(F,1,8

For(E,1,13

[A](B-1+F,EüC

If C

Output(F,E,"-

End

End

For(A,1,8

Output(A,X,"*

If [A](B-1+A,X-1)=1

Then

X-3üX

For(G,1,25

1üI

End

Output(A,X+2,"*

For(G,1,25

1üI

End

Output(A,X+1,"*

For(G,1,25

1üI

End

Output(A,X,"*

Else

If [A](B-1+A,X+1)=1

Then

X+3üX

For(G,1,25

1üI

End

Output(A,X-2,"*

For(G,1,25

1üI

End

Output(A,X-1,"*

For(G,1,25

1üI

End

Output(A,X,"*

End

End

For(G,1,25

1üI

End

End

End

ClrHome

Output(7,1," U U U U U

Output(8,1," A B C D E

For(A,1,7

Output(A,X,"*

For(G,1,25

1üI

End

End

Pause

ClrHome

If X/3=M

Then

Output(1,1,"YOU ARE VICTORIOUS!!

Else

Output(1,1,"YOU LOSE

End

Pause

Goto 02

Lbl Q

ClrHome

Output(1,1,"

And here's what I'm getting:

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

Total File Size: 2080 bytes

TI-83/+/SE file

Program Data Size:2006

::"PIpe Maze 1.00

:Lbl 02

:ClrHome

:Menu"---MAIN MENU---","RandO LeveM",01,"Created LeveM",99,"QuIt",Q

:Lbl 01

:ClrHome

:DelVar U

:Menu"Speed","VerY SMOw",12,"SMOw",13,"MedIu",14,"Fast",15,"RidIcuMOus",16

:Lbl 12

:U+1U

:Lbl 13

:U+1U

:Lbl 14

:U+1U

:Lbl 15

:U+1U

:Lbl 16

:U+1U

:(60U)xroot((5/4)U

:DelVar Z

:Menu"DIFFIcuMtY","EasY",03,"MedIu",04,"Hard",05,"PrOFessIOnaM",06

:Lbl 03

:Z+1Z

:Lbl 04

:Z+1Z

:Lbl 05

:Z+1Z

:Lbl 06

:Z+1Z

:DelVar H

:Menu"LengtH","VerY SHOrt",07,"SHOrt",08,"MedIu",09,"LOng",10,"Endurance",11

:Lbl 07

:H+1H

:Lbl 08

:H+1H

:Lbl 09

:H+1H

:Lbl 10

:H+1H

:H+1H

:-16H+88H

:Goto 17

:Lbl 11

:96H

:Lbl 17

:ClrHome

:Output(3,1,"----------------GENERATING LEVEL----------------

:DelVar [A]

:97,15dim([A]

:For(A,1,H,Z

:1+3randInt(1,4B

:1[A](A,B

:1[A](A,B-1

:End

:Goto 98

:Lbl 99

:If [A](97,1)=0

:Goto 02

:[A](97,1H

:[A](97,2Z

:[A](97,3U

:Lbl 98

:ClrHome

:Output(8,1,"PICK GOAL

:Output(1,1," A B C D E

:2X

:DelVar K

:While K105 and K21

:Output(2,X,"xroot(

:DelVar K

:While not(K

:getKeyK

:End

:Output(2,X,"

:If K=24 and X>2

:X-3X

:If K=26 and X<13

:X+3X

:End

:X/3M

:For(B,H,8,-8

:ClrHome

:Output(1,1," 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1== 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1

:Output(5,15,B

:BE

:For(D,8,1,-1

:For(A,1,13

:[A](E,A)C

:If C

:Output(D,A,"-

:End

:E-1E

:End

:For(F,1,U

:3G

:End

:End

:ClrHome

:Output(4,1," 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1

:2X

:DelVar K

:While K105 and K21

:Output(3,X,"V

:DelVar K

:While not(K

:getKeyK

:End

:If K=24 or K=26

:Then

:Output(3,X,"

:If K=24 and X>1

:X-3X

:If K=26 and X<13

:X+3X

:End

:End

:For(B,1,H-7,8

:ClrHome

:Output(1,1," 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1== 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1

:Output(5,15,B

:For(F,1,8

:For(E,1,13

:[A](B-1+F,EC

:If C

:Output(F,E,"-

:End

:End

:For(A,1,8

:Output(A,X,"*

:If [A](B-1+A,X-1)=1

:Then

:X-3X

:For(G,1,25

:1I

:End

:Output(A,X+2,"*

:For(G,1,25

:1I

:End

:Output(A,X+1,"*

:For(G,1,25

:1I

:End

:Output(A,X,"*

:Else

:If [A](B-1+A,X+1)=1

:Then

:X+3X

:For(G,1,25

:1I

:End

:Output(A,X-2,"*

:For(G,1,25

:1I

:End

:Output(A,X-1,"*

:For(G,1,25

:1I

:End

:Output(A,X,"*

:End

:End

:For(G,1,25

:1I

:End

:End

:End

:ClrHome

:Output(7,1," U U U U U

:Output(8,1," A B C D E

:For(A,1,7

:Output(A,X,"*

:For(G,1,25

:1I

:End

:End

:Pause

:ClrHome

:If X/3=M

:Then

:Output(1,1,"YOU ARE VICTORIOUS!!

:Else

:Output(1,1,"YOU LOSE

:End

:Pause

:Goto 02

:Lbl Q

:ClrHome

:Output(1,1,"

Complete! 1867 tokens rendered in 0.912713 seconds.

All coding and tables ©2004-2005 Kerm Martian

Token information is property of Texas Instruments, Inc. Extracted from published documentation.