10 REM...TICT4...(Tictac) from MECC : 1-19-78
   20 PRINT "&K&J&J": SET DS=0
   30 PRINT ,"X O X O X O X O X O X O X"
   40 PRINT ,"O                       O"
   50 PRINT ,"X   MECC TIC-TAC-TOE ?  X"
   60 PRINT ,"O       T I C T 4       O"
   70 PRINT ,"X                       X"
   80 PRINT ,"O X O X O X O X O X O X O"
   90 PRINT "&J&J"
  100 DIM B$(15),C$(1),D$(7),F$(1),K$(1),L$(1),R$(1),S$(1)
  110 LET C$=CHR(1): REM...Represents the original CHR$(8)
  120 LET R$=CHR(10): REM...Represents the original CHR$(10)
  130 LET L$=CHR(10): REM...Represents the original CHR$(11)
  140 LET K$=CHR(11): REM...Represents the original CHR$(12)
  150 LET F$=CHR(13): REM...Represents the original CHR$(13)
  160 LET S$=":"
  200 PRINT "No instructions provided on how to run this program."
  205 PRINT "Try entering the 2nd number as a 1"
  210 INPUT (1,0)"Enter any letter to start ---=>",I$
 1000 REM...Data for tabs of B and T...
 1060 DATA 6,16,26,6,16,26,6,16,26
 1080 FOR I=1 TO 9
 1090   READ T(I)
 1100 NEXT I
 1120 GOSUB 1320
 1140 GOSUB 1740
 1160 GOTO 2200
 1320 REM...Generate the square
 1340 FOR I=1 TO 7
 1350   LET B$=B$+C$
 1360   LET D$=D$+CHR(7)
 1370 NEXT I
 1380 LET B$=L$+B$
 1440 RETURN
 1460 REM...Output the square
 1480 PRINT D$;B$;D$;B$;D$;B$;D$;B$;F$
 1500 RETURN
 1520 REM...Generate the triangle
 1540 PRINT "TTTTTTT";L$;
 1560 PRINT C$;C$;C$;C$;C$;C$;
 1570 PRINT "TTTTT";L$;
 1580 PRINT C$;C$;C$;C$;
 1590 PRINT "TTT";L$;C$;C$;"T"
 1600 RETURN
 1740 REM...Generate the board...
 1760 PRINT K$;
 1780 PRINT TAB(15);S$;TAB(25);S$
 1800 PRINT TAB(15);S$;TAB(25);S$
 1820 PRINT TAB(10);1;TAB(15);S$;TAB(20);2;TAB(25);S$;TAB(30);3
 1840 PRINT TAB(15);S$;TAB(25);S$
 1860 PRINT "      ============================="
 1880 PRINT TAB(15);S$;TAB(25);S$
 1900 PRINT TAB(15);S$;TAB(25);S$
 1920 PRINT TAB(10);4;TAB(15);S$;TAB(20);4;TAB(25);S$;TAB(30);6
 1940 PRINT TAB(15);S$;TAB(25);S$
 1960 PRINT "      ============================="
 1980 PRINT TAB(15);S$;TAB(25);S$
 2000 PRINT TAB(15);S$;TAB(25);S$
 2020 PRINT TAB(10);7;TAB(15);S$;TAB(20);8;TAB(25);S$;TAB(30);9
 2040 PRINT TAB(15);S$;TAB(25);S$
 2060 RETURN
 2080 REM...Return the cursor to the bottom...
 2100 PRINT F$
 2120 FOR I=1 TO U+2
 2140   PRINT R$;
 2160 NEXT I
 2180 RETURN
 2200 SET DS=3: REM...Get INPUT...
 2220 PRINT ":MENTOR, enter your choice (2 numbers) ---=>";
 2240 INPUT N,H
 2250 IF N=0 AND H=0 THEN 3000
 2260 IF (N-1)*(N-2)*(N-3)=0 THEN  LET U=11 ELSE 2320
 2270 GOTO 2420
 2320 IF (N-4)*(N-4)*(N-6)=0 THEN  LET U=5 ELSE 2380
 2340 GOTO 2420
 2380 LET U=5
 2390 GOTO 2420
 2420 FOR I=1 TO U
 2440   PRINT L$;
 2460 NEXT I
 2480 PRINT TAB(T(N));
 2500 IF H=1 THEN 2560
 2520 GOSUB 1520
 2540 GOTO 2580
 2560 GOSUB 1460
 2580 GOSUB 2080
 2600 GOTO 2200
 3000 SET DS=0
 3010 END