	
 PROGRAM NAME TICTAC	 HEATH EXTENDED BASIC 10.10.00
 PROGRAMMED BY: BUD SHAMBURGER'
( ADAPTED BY NEIL E. COFFINF
2 HEATH H8 COMPUTER SYSTEM
< A SIMULATED GAME OF TICTACTOE WITH THE COMPUTER.  THE COMPUTER
F MAKES A COUPLE OF STUPIE MOVES AND ALLOWS THE PLAYER TO WIN SOMEP TIMES TO MAKE THE GAME A LITTLE MORE INTERESTING9Z LOCATE$(X,Y)  ()C(X)(Y)Nd CLS$  ()Zn CLS$hxT      s S[] I     S[I]   I T     ANOTHER GAME ;L$ (L$,)  Y  (L$,)  y   CLS$T TICTACTOEX THIS IS HOW THE BOXES ARE NUMBERED:  1 | 2 | 3                                     ++                                      4 | 5 | 6                                     ++6
                                      7 | 8 | 9@
 fP
, A  J[
6S[]e
@ ry
J S[]  h
T S[]
^ r
hS[]
r 
| f
 
 R    
 LOCATE$(,
);
 YOU WIN, YOU CHEAT;	  A+ I    A S[I]    KA  S Ic A  y LOCATE$(,
); YOU WERE SAVED BY A GOOD FAIRY  THE GAME IS DRAWN.  R    vS[B]  0 : R    bD LOCATE$(,
);+N I WIN  HA HA;5X ?b Il |\v R    iS[B]  s D S[]    S[]   b S[]     S[]   b S[]     S[]   b S[]    S[]  + bA S[]    *NS[]  X  b*Iv4 S[I]    R>S[I]  H bRII\ 4f p LOCATE$(,
);                            ;z LOCATE$(,
);WHERE DO YOU WANT YOUR X ; AK LOCATE$(,
);                            b S[A]    x LOCATE$(,); HUH?  YOU CAN'T MOVE THERE DUMMY  IT'S MY SQUARE pS[A]    LOCATE$(,) I     J  KIJBS[K]0 B    $=    ;G LZ$ B    Bg.  X ;q8 LB  O ;L J  V |; Jj t I   ++ I ();EF V x
 R  V  R V xB R  V  JRQ ZVd
 xw R  V  2R( 2V< xF R  V  dPRZ dRn xFEI N R  V   
FEI' N: R  V  A IFQEYIc Nv R  V  ,} ,F6E@IJ NT R  V  h^ hFrE|I N R  V   F EI N+ R  V  2 :FBEJIT Ng R  V  n vFE0I: ND NRX JF   E  IbRRS[J]l S[J]    vBJ J  ZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZ