Program "MEICONDRAW"
[Draws the icons]
15A9>C
15B10>D
'(C,D) is at topleft
E=1=>Goto 1
E=2=>Goto 2
E=3=>Goto 3
E=4=>Goto 4
E=5=>Goto 5
E=6=>Goto 6
E=24=>Goto Y ; < Don't bother typing this line
Goto Z ; unless you plan to use 24 icons
Lbl 1
'Chess
Plot C+3,D
Plot C,D3
Line
Plot C+7,D
Plot C,D7
Line
Plot C+2,D9
Plot C+9,D2
Line
Plot C+6,D9
Plot C+9,D6
Line
Plot C,D2
Plot C+7,D9
Line
Plot C,D6
Plot C+3,D9
Line
Plot C+2,D
Plot C+9,D7
Line
Plot C+6,D
Plot C+9,D3
Line
Goto Z
Lbl 2
'Ant
Plot C+7,D
Plot C+9,D
Line
Plot C+7,D1
Plot C+9,Y
Line
Plot C+7,D2
Plot C+9,Y
Line
Plot C+4,D6
Plot C+5,Y
Plot C+3,D7
Plot C+5,Y
Line
Plot C+3,D8
Plot C+4,Y
Goto Z
Lbl 3
'Hangman
Plot C+1,D8
Plot C+4,Y
Line
Plot C+2,Y
Plot X,D1
Line
Plot C+8,Y
Line
Plot C+6,D3
Line
Plot C+8,D5
Line
Plot C+6,D7
Line
Plot C+8,Y
Plot C+7,D5
Plot C+6,Y
Plot C+8,D3
Plot C+3,Y
Plot C+4,D2
Goto Z
Lbl 4
'Bouncer
Plot C,D2
Plot C+3,D3
Line
Plot C+6,D6
Line
Plot C+8,D10
Line
Plot X,D7
Plot C+9,D6
Line
Goto Z
Lbl 5
'Colony
Plot C+5,D
Plot C+9,D1
Plot C+6,Y
Line
Plot C+3,Y3
Line
Plot C,Y
Line
Plot C+3,Y
Plot C+6,Y3
Line
Plot C+9,Y
Line
Plot C+5,Y1
Plot C+4,Y1
Goto Z
Lbl 6
1>F~L
7>H
4>J~K
7>M~O
0>P
Lbl P
Plot C+F[P],DG[P]
Plot X+1,Y
Plot X,Y1
Plot X1,Y
2+P>P
P<=8=>Goto P
#
# I have designed an icon to lead onto the next screen in
# case you use more than 24 icons, although I've never used more
# than 6 myself. Don't bother typing this in unless you think
# you might use that many icons.
#
# {
#
Goto Z
Lbl Y
'More...
Plot C+8,D8
Plot C+7,Y
Plot C+9,D6
Line
Plot X,D9
Line
Plot C,Y
Line
Plot C,D
Line
Plot C+9,D
Line
Plot X,D4
Line
Plot C+7,D2
Line
Plot C+8,Y
Plot X,D1
Plot C+1,Y
Line
Plot C+3,D2
Plot C+6,D5
Line
Plot C+3,D8
Line
Plot C+4,Y
Plot C+7,D5
Line
Plot C+4,D2
Line
Plot C+1,D3
Plot X,D7
Line
Plot C+3,D5
Line
Plot C+2,D4
Plot X,D5
#
# }
#
Lbl Z
Plot 0,0
