; (c) 2000 Bengt Werstén and Jefa from Transmission Productions ; ;"->" is the STO>-button ; Prgm4:TTT :2->Ymin :2->Xmin :65->Ymax :97->Xmax :0->Xscl :0->Yscl :All-Off :ClrDraw :Line(30,20,60,20 :Line(60,20,60,50 :Line(60,50,30,50 :Line(30,50,30,20 :Line(40,20,40,50 :Line(50,20,50,50 :Line(30,30,60,30 :Line(30,40,60,40 :1->P :0->A :0->B :0->C :0->D :0->E :0->F :0->I :0->J :0->K :ClrHome :Disp " TIC-TAC-TOE" :0->T :Lbl T :T+1->T :DispHome :DispGraph :If T<10 :Goto T :0->W :Lbl A :ClrHome :If W=9 :Stop :Disp "I7I8I9I" :Disp "I4I5I6I" :Disp "I1I2I3I" :Disp "" :Disp "0-LOOK {pi}-EXIT" ;{pi} is the pi-symbol :If P=1 :Disp "PLAYER 1" :If P=2 :Disp "PLAYER 2" :Input Z :If Z=0 :Goto U :If Z={pi} ;{pi} is the pi-symbol :Stop :If Z=1 :Goto I :If Z=2 :Goto J :If Z=3 :Goto K :If Z=4 :Goto D :If Z=5 :Goto E :If Z=6 :Goto F :If Z=7 :Goto V :If Z=8 :Goto B :If Z=9 :Goto C :Goto A :Lbl I :If I=1 :Goto A :1->I :35->Q :25->R :Goto S :Lbl J :If J=1 :Goto A :1->J :45->Q :25->R :Goto S :Lbl K :If K=1 :Goto A :1->K :55->Q :25->R :Goto S :Lbl D :If D=1 :Goto A :1->D :35->Q :35->R :Goto S :Lbl E :If E=1 :Goto A :1->E :45->Q :35->R :Goto S :Lbl F :If F=1 :Goto A :1->F :55->Q :35->R :Goto S :Lbl V :If A=1 :Goto A :1->A :35->Q :45->R :Goto S :Lbl B :If B=1 :Goto A :1->B :45->Q :45->R :Goto S :Lbl C :If C=1 :Goto A :1->C :55->Q :45->R :Lbl S :W+1->W :If P=1 :Goto L :PT-On(Q-1,R :PT-On(Q+1,R :Line(Q-1,R+1,Q+1,R+1 :Line(Q-1,R-1,Q+1,R-1 :1->P :Pause :Goto A :Lbl L :PT-On(Q,R :PT-On(Q+1,R+1 :PT-On(Q-1,R-1 :PT-On(Q+1,R-1 :PT-On(Q-1,R+1 :2->P :Pause :Goto A :Lbl U :DispGraph :Pause :Goto A