HOME >> Tutorials >> Tutorial 19 >> Maze

Maze
This code is a code for the maze that I use in my game The Ultimate Maze 2000 v1.0. It just contains lines and pixels. To download the game, visit The Ultimate Maze 2000 information webpage. I must warn you that the code for the maze is extremely long. If you have the TI-Graph Link software and cable, you might want to download the code, and just send it to your calculator. Here's the code:

```:
ClrDraw
0Xmin
94Xmax
-62Ymin
0Ymax
For(A,0,3
Line(A,0,A,-6
Line(A,-14,A,-62
End
For(X,91,94
Line(X,0,X,-48
Line(X,-56,X,-62
End
Text(7,0,"S
Line(92,-50,92,-54
Line(92,-50,94,-50
Line(92,-52,93,-52
Line(0,0,94,0
Line(0,-61,94,-61
Line(0,-62,94,-62

Line(4,-10,7,-10
Line(4,-11,4,-13
Line(5,-11,5,-18
Line(6,-11,6,-18
Line(5,-20,5,-60
Line(6,-20,6,-60
Line(8,-9,8,-59
Line(4,-9,8,-9
For(J,8,15
Line(J,-57,J,-59
End
For(K,13,15
Line(K,-54,K,-56
End
Line(17,-52,17,-59
Line(17,-59,23,-59
Line(23,-56,23,-59
Line(23,-56,17,-56
Line(25,-56,25,-59
Line(25,-59,38,-59
Line(25,-56,30,-56
Line(27,-57,28,-57
Line(30,-57,45,-57
Line(45,-57,45,-59
Line(41,-59,45,-59
Line(40,-59,40,-60
Line(47,-57,54,-57
Line(47,-59,54,-59
Line(54,-57,54,-60
Line(17,-52,10,-52
Line(10,-53,11,-53
Line(10,-54,11,-54
Line(10,-55,11,-55
Line(10,-55,10,-48
Line(10,-50,19,-50
Line(10,-48,19,-48
Pt-On(19,-51
Line(21,-48,21,-54
Line(23,-51,23,-54
Line(21,-51,28,-51
Line(23,-53,30,-53
Line(25,-54,30,-54
Line(17,-54,23,-54
Pt-On(19,-53
Line(8,-46,23,-46
Line(23,-42,23,-49
Line(26,-42,26,-49
Line(23,-42,26,-42
Line(23,-49,26,-49
Line(28,-36,28,-51
Line(29,-36,29,-44
Line(15,-36,47,-36
Line(8,-44,21,-44
Line(19,-40,19,-42
Line(21,-42,21,-44
Line(17,-38,17,-42
Line(15,-38,15,-42
Line(10,-42,19,-42
Line(10,-42,10,-33
Line(10,-33,13,-33
Line(17,-38,26,-38
Line(24,-40,26,-40
Pt-On(26,-39
Line(12,-35,12,-40
Line(13,-35,13,-40
Line(19,-40,22,-40
Line(30,-46,30,-57
Line(25,-53,30,-53
Line(25,-54,30,-54
Line(30,-57,45,-57
Line(30,-46,34,-46
Line(34,-46,34,-44
Line(34,-44,31,-44
Line(31,-44,31,-38
Line(32,-44,32,-38
Line(15,-36,47,-36
Line(31,-38,41,-38
Line(39,-38,39,-44
Line(41,-38,41,-44
Line(34,-40,37,-40
Line(34,-41,37,-41
Line(34,-42,37,-41
Line(36,-40,36,-52
Line(37,-40,37,-47
Line(36,-46,46,-46
Line(36,-47,46,-47
Line(32,-48,36,-48
Line(32,-51,36,-51
Line(32,-53,36,-53
Line(32,-55,56,-55
Line(40,-53,58,-53
Line(38,-55,38,-49
Line(38,-51,57,-51
Line(38,-49,41,-49
Line(43,-49,46,-49
Pt-On(46,-50
Line(32,-48,32,-55
Line(67,-53,67,-59
Line(67,-59,85,-59
Line(85,-59,85,-51
Line(67,-57,81,-57
Line(67,-55,78,-55
Line(84,-59,84,-55
Line(83,-59,83,-55
Line(80,-55,85,-55
Line(80,-55,80,-51
Line(78,-51,76,-51
Line(69,-53,76,-53
Line(56,-55,56,-59
Line(56,-59,65,-59
Line(65,-59,65,-53
Line(58,-53,58,-57
Line(58,-57,63,-57
Line(63,-57,63,-52
Line(63,-53,60,-53
Line(60,-53,60,-55
Line(61,-53,61,-55
Line(63,-52,74,-52
Line(67,-52,67,-59
Line(59,-51,61,-51
Line(59,-50,71,-50
Line(85,-52,90,-52
For(R,87,90
Line(R,-53,R,-55
End
Line(78,-52,78,-56
Line(87,-57,87,-59
Line(89,-57,89,-59
Line(80,-51,80,-55
Line(80,-51,83,-51
Line(80,-52,83,-52
Line(69,-40,69,-50
Line(69,-40,74,-40
Line(74,-40,74,-50
Line(73,-42,73,-50
Line(76,-50,76,-36
Line(63,-38,74,-38
Line(69,-40,74,-40
Line(71,-42,71,-50
Line(63,-36,63,-38
Line(63,-36,76,-36
For(Q,54,57
Line(Q,-50,Q,-48
Line(54,-48,67,-48
Line(67,-49,67,-40
Line(67,-40,61,-40
Line(61,-44,61,-48
Line(63,-44,63,-46
Line(63,-46,67,-46
Line(59,-42,65,-42
Line(65,-42,65,-44
Line(48,-46,59,-46
For(L,48,52
Line(L,-47,L,-49
End
Line(61,-44,55,-44
Line(55,-44,55,-34
Line(57,-37,57,-42
Line(59,-37,59,-42
Line(61,-34,61,-40
Pt-On(56,-37
Line(49,-39,49,-22
Line(49,-39,55,-39
Line(54,-39,54,-34
Line(57,-35,59,-35
Line(57,-34,59,-34
Line(61,-34,79,-34
Line(78,-34,78,-49
Line(80,-49,80,-36
Line(78,-49,80,-49
Line(80,-36,83,-36
Line(83,-36,83,-32
Line(81,-34,82,-34
Line(83,-32,54,-32
Line(57,-32,57,-35
Line(56,-32,56,-23
For(Z,54,55
Line(Z,-23,Z,-27
Line(Z,-29,Z,-32
End
For(N,49,52
Line(N,-25,N,-27
Line(N,-29,N,-33
Line(N,-35,N,-37
End
Line(50,-30,50,-32,0
Line(50,-22,50,-24
Line(51,-22,50,-24
Line(37,-22,51,-22
Line(53,-23,53,-17
Line(51,-22,51,-24
Line(43,-38,47,-38
Line(43,-40,47,-40
Line(43,-42,51,-42
Line(53,-45,53,-41
Line(53,-41,47,-41
Line(50,-44,51,-44
Line(47,-42,47,-24
Line(39,-44,48,-44
Line(47,-24,34,-24
Line(34,-11,34,-34
Line(34,-26,45,-26
Line(42,-28,47,-28
Line(40,-28,40,-30
Line(40,-30,47,-30
Line(43,-32,47,-32
Line(43,-32,43,-34
Line(43,-34,47,-34
Line(36,-28,36,-34
Line(37,-28,37,-34
Line(38,-28,38,-34
Line(39,-34,39,-32
Line(40,-34,40,-32
Line(41,-34,41,-32
Line(35,-24,35,-16
Line(58,-30,89,-30
Line(89,-30,89,-44
Line(89,-44,82,-44
Line(82,-38,82,-53
Line(85,-44,85,-49
Line(84,-46,84,-49
Line(85,-30,85,-43
Line(87,-43,87,-32
For(P,87,90
Line(P,-46,P,-50
End
Line(64,-2,89,-2
Line(89,-2,89,-12
Line(90,-12,90,-21
Line(90,-21,88,-21
Line(88,-21,88,-24
Line(88,-24,90,-24
Line(88,-26,90,-26
Line(88,-26,88,-28
Line(88,-28,90,-28
Line(19,-34,41,-34
Line(22,-33,33,-33
Line(19,-34,19,-27
Line(22,-27,22,-34
Line(17,-36,17,-27
Line(15,-36,15,-33
Line(15,-31,15,-27
Pt-On(16,-27
Line(19,-27,22,-27
Line(10,-31,13,-31
Line(13,-33,13,-25
Line(10,-31,10,-22
Line(10,-22,20,-22
Line(20,-22,20,-25
Line(20,-25,13,-25
Line(11,-29,11,-23
Line(11,-23,18,-23
Line(22,-25,22,-22
Line(22,-22,27,-22
Line(27,-22,27,-31
Line(26,-31,26,-29
Line(26,-24,26,-22
Line(24,-24,24,-31
Line(25,-27,25,-26
Line(24,-31,32,-31
Line(32,-31,32,-4
Line(32,-22,29,-22
Line(29,-22,29,-31
Line(32,-20,17,-20
Line(17,-20,17,-17
Line(17,-17,32,-17
Line(15,-17,10,-17
Line(15,-17,15,-20
Line(15,-20,8,-20
Line(10,-19,13,-19
Line(10,-17,10,-9
Line(10,-9,17,-9
Line(12,-11,25,-11
Line(12,-12,25,-12
Line(12,-14,25,-14
Line(12,-15,25,-15
For(S,27,30
Line(S,-11,S,-15
End
Pt-On(31,-15
Pt-On(18,-13
Line(21,-9,32,-9
Line(21,-6,32,-6
Line(21,-6,21,-9
Line(17,-9,17,-7
Line(7,-7,17,-7
For(G,10,17
Line(G,-5,G,-2
End
Pt-On(18,-5
Line(19,-10,19,0
Line(8,0,8,-3
Line(8,-5,8,-7
Line(5,0,5,-3
Line(5,-5,5,-9
Line(6,0,6,-3
Line(6,-5,6,-9
Line(4,-7,4,-9
Line(21,-2,42,-2
Pt-On(21,-1
Line(44,-2,50,-2
Line(32,-4,19,-4
Line(29,-16,44,-16
Line(34,-16,34,-11
Line(36,-16,36,-11
Line(38,-16,38,-11
Line(40,-11,48,-11
Line(40,-11,40,-16
Line(34,-11,38,-11
Line(48,-11,48,-4
Line(48,-4,34,-4
Line(34,-4,34,-9
Line(34,-9,42,-9
For(O,40,42
Line(O,-6,O,-9
End
For(P,44,46
Line(P,-6,P,-9
End
Pt-On(44,-5
Line(36,-5,36,-6
Line(38,-5,38,-6
Line(34,-7,38,-7
Pt-Off(85,-43
Line(83,-38,83,-44
Line(85,-7,85,-28
Line(86,-7,86,-30
Line(87,-7,87,-19
Line(88,-19,88,-14
Line(58,-28,61,-28
Line(63,-28,86,-28
Line(65,-28,65,-21
Line(65,-21,71,-21
Line(71,-21,71,-12
Line(71,-12,65,-12
Line(65,-12,65,-19
Line(55,-19,69,-19
For(M,67,69
Line(M,-19,M,-16
End
Line(55,-21,61,-21
Line(58,-21,58,-26
Line(58,-26,65,-26
Line(63,-21,63,-26
Line(61,-21,61,-24
Line(60,-21,60,-24
Line(67,-14,71,-14
Line(37,-22,37,-18
Line(37,-20,40,-20
Line(37,-18,46,-18
Line(42,-20,48,-20
Line(48,-20,48,-13
Line(48,-13,42,-13
Line(42,-14,46,-14
Line(46,-14,46,-18
Line(50,-20,50,-2
Line(52,-20,52,-15
Line(52,-17,57,-17
Line(52,-15,57,-15
Line(50,-13,53,-13
Line(50,-10,53,-10
Line(53,-13,53,-11
Line(50,-4,54,-4
Line(52,-6,52,-8
Line(52,-2,52,-4
Line(54,-2,54,-4
Line(54,-2,60,-2
Line(52,-6,56,-6
Line(52,-8,56,-8
Line(56,-11,56,-4
Line(55,-13,55,-8
Line(56,-4,60,-4
For(L,58,60
Line(L,-4,L,-8
End
Line(55,-10,71,-10
Line(55,-11,61,-11
Pt-On(61,-12
Line(63,-10,63,-17
Line(55,-13,59,-13
Pt-On(59,-14
Line(57,-15,53,-15
Line(53,-17,57,-17
Line(59,-17,59,-16
Line(61,-17,61,-14
Line(62,0,62,-10
Line(65,-9,71,-9
Line(71,-10,71,-7
Line(71,-7,67,-7
Line(62,-7,65,-7
Line(64,-2,64,-5
Line(66,-2,66,-5
Line(68,-2,68,-5
Line(71,-2,71,-5
Line(73,-2,73,-10
Line(64,-5,73,-5
Line(73,-12,73,-26
Line(73,-26,67,-26
Line(73,-23,67,-23
Line(70,-23,70,-26
Line(75,-2,75,-10
Line(77,-2,77,-10
Line(80,-2,80,-6
Line(82,-2,82,-6
Line(83,-6,83,-18
Line(85,-2,85,-5
Line(87,-2,87,-5
Line(89,-2,89,-5
Line(62,-7,65,-7
Line(65,-7,65,-10
Line(78,-2,78,-6
Line(73,-12,79,-12
Line(79,-12,79,-8
Line(79,-8,83,-8
Line(81,-8,81,-14
Line(81,-14,75,-14
Line(75,-14,75,-17
Line(76,-14,76,-17
Line(78,-16,81,-16
Line(78,-17,81,-17
Line(80,-18,83,-18
Line(80,-19,81,-19
Line(80,-20,83,-20
Line(80,-21,81,-21
Pt-On(83,-21
Line(80,-22,83,-22
Pt-On(74,-22
For(T,75,78
Line(T,-22,T,-19
End
Line(83,-20,83,-26
Line(83,-26,75,-26
Line(75,-26,75,-24
Line(75,-24,81,-24
Line(82,-5,85,-5
For(N,54,57
Line(N,-48,N,-51
End
Line(55,-51,45,-51
Line(50,-43,51,-43
Line(50,-44,51,-44
Line(48,-44,48,-49
Line(43,-38,43,-42
Line(67,-23,67,-26
Line(77,-6,83,-6
Line(87,-57,90,-57
Pt-Off(20,-23
StorePic 6
```

I told you that it was really long, but you should try it out because it really looks complicated, which is a good thing. To get back to Tutorial 19, click here.