` ``ClrHome If max(P={1,3,4,5,6,9,10,15 Then Output(1,6,"! ! Output(2,6,"! ! End If max(P={1,2,4,5,7,8,10,13 Then Output(7,6,"! ! Output(8,6,"! ! End If max(P={1,2,3,4,8,9,11,14 Output(3,1,"----- If P=1:Then Output(3,6," ----- Output(6,1,"----- ----- End If P=2:Then Output(3,6,"----------- Output(6,1,"----- ----- End If P=3:Then Output(3,6," ----- Output(6,1,"---------------- End If P=4:Then Output(3,1,"----- ! Output(4,11,"! Output(5,11,"! Output(6,1,"----- ! End If P=5:Then Output(3,6,"! ----- Output(4,6,"! Output(5,6,"! Output(6,6,"! ----- End If P=6:Then Output(3,6,"! ----- Output(4,6,"! Output(5,6,"! Output(6,7,"---------- End If P=7:Then Output(3,7,"---------- Output(4,6,"! Output(5,6,"! Output(6,6,"! ----- End If P=8:Then Output(3,6,"----- Output(4,11,"! Output(5,11,"! Output(6,1,"----- ! End If P=9:Then Output(3,6," ! Output(4,11,"! Output(5,11,"! Output(6,1,"---------- End If P=10:Then Output(3,6,"! ! Output(4,6,"! ! Output(5,6,"! ! Output(6,6,"! ! End If P=11:Then Output(3,6,"----------- Output(6,1,"---------------- End If P=12:Then Output(3,7,"---------- Output(4,6,"! Output(5,6,"! Output(6,7,"---------- End If P=13:Then Output(3,7,"---- Output(4,6,"! ! Output(5,6,"! ! Output(6,6,"! ! End If P=14:Then Output(3,6,"----- Output(4,11,"! Output(5,11,"! Output(6,1,"---------- End If P=15:Then Output(3,6,"! ! Output(4,6,"! ! Output(5,6,"! ! Output(6,7,"---- End`

It'll consume a bit of bytes, 286 bytes for 1 screen (20% of what you have now), good for 8 moves up or down, but it's simple, lightning fast, and extremely clean (no flickering). Perhaps I could also implement shortcut symbols to cut down on all those extra spaces though. It's more than possible.

]]>get rid of all the prgmlabrinth and place one at the very end. this should save you a good amount of bytes. ]]>

I used If instead of labels.

` ``If P=1:Then ClrHome Output(1,6,"! ! Output(2,6,"! ! Output(3,1,"----- ----- Output(6,1,"----- ----- Output(7,6,"! ! Output(8,6,"! ! End If P=2:Then ClrHome Output(3,1,"---------------- Output(6,1,"----- ----- Output(7,6,"! ! Output(8,6,"! ! End If P=3:Then ClrHome Output(1,6,"! ! Output(2,6,"! ! Output(3,1,"----- ----- Output(6,1,"---------------- End If P=4:Then ClrHome Output(1,6,"! ! Output(2,6,"! ! Output(3,1,"----- ! Output(4,11,"! Output(5,11,"! Output(6,1,"----- ! Output(7,6,"! ! Output(8,6,"! ! End If P=5:Then ClrHome Output(1,6,"! ! Output(2,6,"! ! Output(3,6,"! ----- Output(4,6,"! Output(5,6,"! Output(6,6,"! ----- Output(7,6,"! ! Output(8,6,"! ! End If P=6:Then ClrHome Output(1,6,"! ! Output(2,6,"! ! Output(3,6,"! ----- Output(4,6,"! Output(5,6,"! Output(6,7,"---------- End If P=7:Then ClrHome Output(3,7,"---------- Output(4,6,"! Output(5,6,"! Output(6,6,"! ----- Output(7,6,"! ! Output(8,6,"! ! End If P=8:Then ClrHome Output(3,1,"---------- Output(4,11,"! Output(5,11,"! Output(6,1,"----- ! Output(7,6,"! ! Output(8,6,"! ! End If P=9:Then ClrHome Output(1,6,"! ! Output(2,6,"! ! Output(3,1,"----- ! Output(4,11,"! Output(5,11,"! Output(6,1,"---------- End If P=10:Then ClrHome Output(1,6,"! ! Output(2,6,"! ! Output(3,6,"! ! Output(4,6,"! ! Output(5,6,"! ! Output(6,6,"! ! Output(7,6,"! ! Output(8,6,"! ! End If P=11:Then ClrHome Output(3,1,"---------------- Output(6,1,"---------------- End If P=12:Then ClrHome Output(3,7,"---------- Output(4,6,"! Output(5,6,"! Output(6,7,"---------- End If P=13:Then ClrHome Output(3,7,"---- Output(4,6,"! ! Output(5,6,"! ! Output(6,6,"! ! Output(7,6,"! ! Output(8,6,"! ! End If P=14:Then ClrHome Output(3,1,"---------- Output(4,11,"! Output(5,11,"! Output(6,1,"---------- End If P=15:Then ClrHome Output(1,6,"! ! Output(2,6,"! ! Output(3,6,"! ! Output(4,6,"! ! Output(5,6,"! ! Output(6,7,"---- End prgmLABRINTH`

place clrhome before your ifs.

why do you stop after you goto a lbl, your gonna wanna use ends.

wouldnt it just be easier to get rid of all the labels and us if then statements instead? ]]>

I need to optimize this code. But I don't know where to start. It is pretty long.

` ``If P=1:Then Goto 1:Else If P=2:Then Goto 2:Else If P=3:Then Goto 3:Else If P=4:Then Goto 4:Else If P=5:Then Goto 5:Else If P=6:Then Goto 6:Else If P=7:Then Goto 7:Else If P=8:Then Goto 8:Else If P=9:Then Goto 9:Else If P=10:Then Goto 10:Else If P=11:Then Goto 11:Else If P=12:Then Goto 12:Else If P=13:Then Goto 13:Else If P=14:Then Goto 14:Else If P=15:Then Goto 15:Else Stop Lbl 1:ClrHome Output(1,6,"! !"):Output(2,6,"! ! // this gap is 4 spaces long Output(3,1,"----- ----- Output(6,1,"----- ----- Output(7,6,"! !"):Output(8,6,"! !"):Goto A:Stop Lbl 2:ClrHome Output(3,1,"---------------- Output(6,1,"----- ----- // this gap is 6 spaces long Output(7,6,"! !"):Output(8,6,"! !"):Goto A:Stop Lbl 3:ClrHome Output(1,6,"! !"):Output(2,6,"! ! Output(3,1,"----- ----- Output(6,1,"---------------- Goto A:Stop Lbl 4:ClrHome Output(1,6,"! !"):Output(2,6,"! ! Output(3,1,"----- ! // this gap is 5 spaces long Output(4,11,"! Output(5,11,"! Output(6,1,"----- ! Output(7,6,"! !"):Output(8,6,"! !"):Goto A:Stop Lbl 5:ClrHome Output(1,6,"! !"):Output(2,6,"! ! Output(3,6,"! ----- Output(4,6,"! Output(5,6,"! Output(6,6,"! ----- Output(7,6,"! !"):Output(8,6,"! !"):Goto A:Stop Lbl 6:ClrHome Output(1,6,"! !"):Output(2,6,"! ! Output(3,6,"! ----- Output(4,6,"! Output(5,6,"! Output(6,7,"----------") Goto A:Stop Lbl 7:ClrHome Output(3,7,"---------- Output(4,6,"! Output(5,6,"! Output(6,6,"! ----- Output(7,6,"! !"):Output(8,6,"! !"):Goto A:Stop Lbl 8:ClrHome Output(3,1,"---------- Output(4,11,"! Output(5,11,"! Output(6,1,"----- ! Output(7,6,"! !"):Output(8,6,"! !"):Goto A:Stop Lbl 9:ClrHome Output(1,6,"! !"):Output(2,6,"! ! Output(3,1,"----- ! Output(4,11,"! Output(5,11,"! Output(6,1,"----------"):Goto A:Stop Lbl 10:ClrHome Output(1,6,"! !"):Output(2,6,"! !"):Output(3,6,"! ! Output(4,6,"! !"):Output(5,6,"! !"):Output(6,6,"! ! Output(7,6,"! !"):Output(8,6,"! !"):Goto A:Stop Lbl 11:ClrHome Output(3,1,"---------------- Output(6,1,"---------------- Goto A:Stop Lbl 12:ClrHome Output(3,7,"---------- Output(4,6,"! Output(5,6,"! Output(6,7,"---------- Goto A:Stop Lbl 13:ClrHome Output(3,7,"---- Output(4,6,"! !"):Output(5,6,"! !"):Output(6,6,"! ! Output(7,6,"! !"):Output(8,6,"! !"):Goto A:Stop Lbl 14:ClrHome Output(3,1,"---------- Output(4,11,"! Output(5,11,"! Output(6,1,"----------"):Goto A:Stop Lbl 15:ClrHome Output(1,6,"! !"):Output(2,6,"! !"):Output(3,6,"! ! Output(4,6,"! !"):Output(5,6,"! ! Output(6,7,"----"):Goto A:Stop Lbl A:prgmLABRYNTH`