This file is made for the graphical calculater TI-80. On other computers
it probably will not work. As known you have to type the functions word
by word. Example: "CLRHOME" ain't "A-LOCK, C, L, R, H, O, M, E" but "PRGM,
arrow right, 4". Any other way it will not work. For most of the programs
you will need the programm "INSTGRP". Good luck.

        Atlantic Software, 1996.
        -======================-


Type first:
--------------------------------------------------------------------------
PRGM, NEW, ENTER, B, K, E, ENTER
--------------------------------------------------------------------------

Keys (when you play):			|	|
				    7	|   8	|   9
				--------+-------+-------
					|	|
				    6	|   5	|   4
				--------+-------+-------
					|	|
				    1	|   2	|   3


--------------------------------------------------------------------------
Your programm starts here:
--------------------------------------------------------------------------
CLRHOME
DEGREE
1->K
LBL S
CLRHOME
PRGM_INSTGRP                 (You have to type INSTGRP over first!)
LINE(20,10,20,40)
LINE(30,10,30,40)
LINE(10,20,40,20)
LINE(10,30,40,30)
CLRHOME
IF 1=K
THEN
DISP ""
DISP " TIC, TAC,"
DISP " TOE"
DISP ""
DISP " COPYRIGHT 1996"
DISP " BY ATLANTIC"
PAUSE
2->K
END
FOR(I,1,10,1)
0->L3(I)
END
LBL B
CLRHOME
0->G
INPUT "NUMBER: ",A
IF L3(A)=/=0                   (this "=/=" has to be a not eqeal to-sign)
GOTO B
(4-(IPART ((A-1)/3)+1))*10+2->Y
(A-(((4-((Y-2)/10))-1)*3))*10+2->X

LINE(X,Y,X+6,Y+6)
LINE(X+6,Y,X,Y+6)

1->L3(A)
LBL U
L3(1)*L3(5)*L3(9)->E
IF E=1
GOTO P
IF E=8
GOTO L
L3(2)*L3(5)*L3(8)->E
IF E=1
GOTO P
IF E=8
GOTO L
L3(3)*L3(5)*L3(7)->E
IF E=1
GOTO P
IF E=8
GOTO L
L3(4)*L3(5)*L3(6)->E
IF E=1
GOTO P
IF E=8
GOTO L
L3(1)*L3(2)*L3(3)->E
IF E=1
GOTO P
IF E=8
GOTO L
L3(1)*L3(4)*L3(7)->E
IF E=1
GOTO P
IF E=8
GOTO L
L3(3)*L3(6)*L3(9)->E
IF E=1
GOTO P
IF E=8
GOTO L
L3(7)*L3(8)*L3(9)->E
IF E=1
GOTO P
IF E=8
GOTO L
1->T
FOR(V,1,9,1)
IF L3(V)=0
0->T
END
IF T=1
GOTO N
IF G=159753
GOTO B

0->C
L3(5)->E
IF (L3(1)*E)*(L3(9)=0)=1
9->C
IF (L3(2)*E)*(L3(8)=0)=1
8->C
IF (L3(3)*E)*(L3(7)=0)=1
7->C
IF (L3(4)*E)*(L3(6)=0)=1
6->C
IF (L3(6)*E)*(L3(4)=0)=1
4->C
IF (L3(7)*E)*(L3(3)=0)=1
3->C
IF (L3(8)*E)*(L3(2)=0)=1
2->C
IF (L3(9)*E)*(L3(1)=0)=1
1->C
IF (L3(1)*L3(9)*(L3(5)=0))=1
5->C
IF (L3(2)*L3(8)*(L3(5)=0))=1
5->C
IF (L3(3)*L3(7)*(L3(5)=0))=1
5->C
IF (L3(4)*L3(6)*(L3(5)=0))=1
5->C
IF (L3(1)*L3(2)*(L3(3)=0))=1
3->C
IF (L3(1)*L3(3)*(L3(2)=0))=1
2->C
IF (L3(1)*L3(4)*(L3(7)=0))=1
7->C
IF (L3(2)*L3(3)*(L3(1)=0))=1
1->C
IF (L3(3)*L3(6)*(L3(9)=0))=1
9->C
IF (L3(3)*L3(9)*(L3(6)=0))=1
6->C
IF (L3(4)*L3(7)*(L3(1)=0))=1
1->C
IF (L3(6)*L3(9)*(L3(3)=0))=1
3->C
IF (L3(7)*L3(8)*(L3(9)=0))=1
9->C
IF (L3(7)*L3(9)*(L3(8)=0))=1
8->C
IF (L3(8)*L3(9)*(L3(7)=0))=1
7->C

LBL D
IF C=0
RANDINT(1,9)->C
IF L3(C)=/=0                   (this "=/=" has to be a not eqeal to-sign)
THEN
0->C
GOTO D
END
2->L3(C)
(4-(IPART ((C-1)/3)+1))*10+2->Y
(C-(((4-((Y-2)/10))-1)*3))*10+2->X

FOR(I,30,360,30)
(SIN I)*4+X+3->J
(COS I)*4+Y+3->K
(SIN (I-60))*4+X+3->L
(COS (I-60))*4+X+3->M
LINE(J,K,L,M)
END
PAUSE
159753->G
GOTO U
GOTO B

LBL P
FOR(I,1,50,1)
END
CLRHOME
DISP ""
DISP "YOU HAVE WON!
DISP ""
DISP "CONGRATULATIONS!"               (you can find the "!" under the MATH-key)
DISP ""
DISP "TRY THAT AGAIN!"
FOR(I,1,200,1)
END
GOTO S

LBL L
CLRHOME
DISP "AS USUAL YOU"
DISP "HAVE LOST!"
DISP "(HAR,HAR)..."
DISP "TRY AGAIN!"
FOR(I,1,200,1)
END
GOTO S

LBL N
CLRHOME
DISP "NO WINNER!"
FOR (I,1,200,1)
END
GOTO S