0-10->Xmin
0-10->Ymin
10->Xmax
10->Ymax
0->Xscl
0->Yscl
5->A
6->B
0->O
ClrDraw
Lbl 6
ClrHome
Disp "TAMAGOTCHI"
Disp "1-PET
Disp "2-GIVE TREAT
Disp "3-VIEW"
Disp "4-EXIT"
Input Z
If Z=1
Goto 3
If Z=2
Goto 5
If Z=3
Goto 8
If Z=4
Goto A
Lbl 1
O+1->O
If O=10
Goto Theta
ClrDraw
Line(A,10,A,9
Line(A,9,B,9
Line(B,9,B,10
Line(B,9,B,8
Line(B,9,B,8
A+1->A
B+1->B
ClrDraw
If A=10
Goto 2
Goto 1
Lbl 2
Line(A,10,A,9
Line(A,9,B,9
Line(B,9,B,10
Line(B,9,B,8
Line(B,9,B,8
ClrDraw
A-1->A
B-1->B
If A=0-10
Goto 1
Goto 2
Lbl 3
Disp "CHAIR IS HAPPY"
Pause
Goto 6
Lbl 5
Disp "CHAIR IS HYPER AND HAPPY"
1->O
Pause
Goto 6
Lbl 8
If O≠0
Goto 1
Goto 9
Lbl 9
5->A
6->B
If O≠0
Goto 1
Line(5,10,5,9
Line(5,9,6,9
Line(6,9,6,10
Line(6,9,6,8
0->O
Goto 6
Lbl A
End