ClrDraw


Lbl A
    Disp "1=e","2=E"
    Prompt A,B,C,D,E,F,G,H

    If A+B=2 Then
        A+B→X
        Goto B
    Else
        Goto L
    End


Lbl L
    If A+B=3 Then
        A+B→X
        Goto B
    Else
        Goto K
    End


Lbl K
    If A+B=4 Then
        A+B→X
        Goto B
    Else
        Disp "You did something wrong"
    End


Lbl B
    If C+D=2 Then
        C+D→Y
        Goto C
    Else
        Goto P
    End


Lbl P
    If A+B=3 Then
        C+D→Y
        Goto C
    Else
        Goto O
    End


Lbl O
    If A+B=4 Then
        C+D→Y
        Goto C
    Else
        Disp"You did something wrong"
    End


Lbl C
    If E+F=2 Then
        E+F→Z
        Goto D
    Else
        Goto U
    End


Lbl U
    If E+F=3 Then
        E+F→Z
        Goto D
    Else
        Goto Q
    End


Lbl Q
    If E+F=4 Then
        E+F→Z
        Goto D
    Else
        Disp"You did something wrong"
    End


Lbl D
    If G+H=2 Then
        G+H→θ
        Goto θ
    Else
        Goto F
    End


Lbl F
    If G+H=3 Then
        G+H→θ
        Goto θ
    Else
        Goto J
    End


Lbl J
    If G+H=4 Then
        G+H→θ
        Goto θ
    Else
        Disp"You did something wrong"
    End


Lbl θ
    ClrDraw

    TextColor(BLACK)
    Text(1,1,"BY CHRIS MILER"
    Line(­2,10,­2,8,RED
    Line(­10,8,­2,8,RED
    Line(­6,7,­6,­7
    Line(­2,7,­2,­7
    Line(2,7,2,­7
    Line(6,7,6,­7
    Line(9.9,7,9.9,­7
    Line(­9,­7,9.9,­7
    Line(­9,5,9.9,5
    Line(­9,2,9.9,2
    Line(­9,­1,9.9,­1
    Line(­9,­4,9.8,­4
    Goto X


Lbl X
    If X=2 Then
        TextColor(GREEN)
        Text(25,65,"e"
        TextColor(BLACK)
        Text(50,65,"e"
        Text(75,65,"e"
        Text(100,65,"e"
        Text(124,65,"e"
        TextColor(GREEN)
        Text(25,115,"e"
        TextColor(BLACK)
        Text(50,115,"e"
        Text(75,115,"e"
        Text(100,115,"e"
        Text(124,115,"e"
        TextColor(GREEN)
        Text(25,165,"e"
        TextColor(BLACK)
        Text(50,165,"e"
        Text(75,165,"e"
        Text(100,165,"e"
        Text(124,165,"e"
        TextColor(GREEN)
        Text(25,215,"e"
        TextColor(BLACK)
        Text(50,215,"e"
        Text(75,215,"e"
        Text(100,215,"e"
        Text(124,215,"e"
    Else
        Goto Z


Lbl Z
    TextColor(GREEN)
    Text(25,65,"E"
    TextColor(BLACK)
    Text(50,65,"E"
    Text(75,65,"E"
    Text(100,65,"E"
    Text(124,65,"E"
    TextColor(GREEN)
    Text(25,115,"E"
    TextColor(BLACK)
    Text(50,115,"E"
    Text(75,115,"E"
    Text(100,115,"E"
    Text(124,115,"E"
    If X=3 Then
        TextColor(GREEN)
        Text(25,165,"e"
        TextColor(BLACK)
        Text(50,165,"e"
        Text(75,165,"e"
        Text(100,165,"e"
        Text(124,165,"e"
        TextColor(GREEN)
        Text(25,215,"e"
        TextColor(BLACK)
        Text(50,215,"e"
        Text(75,215,"e"
        Text(100,215,"e"
        Text(124,215,"e"
    Else
        TextColor(GREEN)
        Text(25,165,"E"
        TextColor(BLACK)
        Text(50,165,"E"
        Text(75,165,"E"
        Text(100,165,"E"
        Text(124,165,"E"
        TextColor(GREEN)
        Text(25,215,"E"
        TextColor(BLACK)
        Text(50,215,"E"
        Text(75,215,"E"
        Text(100,215,"E"
        Text(124,215,"E"

#The part that doesn't seem to work is this:

If Y=2 Then
    TextColor(GREEN)
    Text(25,80,"n"
    TextColor(BLACK)
    Text(50,80,"n"
    Text(75,80,"n"
    Text(100,80,"n"
    Text(124,80,"n"
    TextColor(GREEN)
    Text(25,130,"n"
    TextColor(BLACK)
    Text(50,130,"n"
    Text(75,130,"n"
    Text(100,130,"n"
    Text(124,130,"n"
    TextColor(GREEN)
    Text(25,180,"n"
    TextColor(BLACK)
    Text(50,180,"n"
    Text(75,180,"n"
    Text(100,180,"n"
    Text(124,180,"n"
    TextColor(GREEN)
    Text(25,230,"n"
    TextColor(BLACK)
    Text(50,230,"n"
    Text(75,230,"n"
    Text(100,230,"n"
    Text(124,230,"n"
Else
    TextColor(GREEN)
    Text(25,80,"N"
    TextColor(BLACK)
    Text(50,80,"N"
    Text(75,80,"N"
    Text(100,80,"N"
    Text(124,80,"N"
    TextColor(GREEN)
    Text(25,130,"N"
    TextColor(BLACK)
    Text(50,130,"N"
    Text(75,130,"N"
    Text(100,130,"N"
    Text(124,130,"N"

    If Y≠4
        Then TextColor(GREEN)
        Text(25,180,"n"
        TextColor(BLACK)
        Text(50,180,"n"
        Text(75,180,"n"
        Text(100,180,"n"
        Text(124,180,"n"
        TextColor(GREEN)
        Text(25,230,"n"
        TextColor(BLACK)
        Text(50,230,"n"
        Text(75,230,"n"
        Text(100,230,"n"
        Text(124,230,"n"
    Else
        TextColor(GREEN)
        Text(25,180,"N"
        TextColor(BLACK)
        Text(50,180,"N"
        Text(75,180,"N"
        Text(100,180,"N"
        Text(124,180,"N"
        TextColor(GREEN)
        Text(25,230,"N"
        TextColor(BLACK)
        Text(50,230,"N"
        Text(75,230,"N"
        Text(100,230,"N"
        Text(124,230,"N"