Tic Tac Toe

Gallery

Source Code

  10 PRINT "   %    % "
  20 PRINT " 1 %  2 %  3"
  30 PRINT "   %    % "
  40 PRINT "% % % % % % % % % % % "
  50 PRINT "   %    % "
  60 PRINT " 4 %  5 %  6"
  70 PRINT "   %    % "
  80 PRINT "% % % % % % % % % % % "
  90 PRINT "   %    % "
 100 PRINT " 7 %  8 %  9"
 110 PRINT "   %    % "
 120 GOSUB 200
 130 LET A=T-1
 140 LET B=T
 150 LET T=CODE "\. \:'\##\' \.'\: \ '\''\:'\''\ '\.'\##\. \' \: \##\:'\. \''\.'\: \ '\' \:'\.'\: \##\''\ '\' \. \:'\##\. \''\.'\: \' \ '\.'\. \: \ '\''\' \##\:'\. \:'\: \' \''\##\ '\.'\.'\##\. \''\:'\' \: \ '"(8*A+B)
 160 LET X=61
 170 GOSUB 240
 180 GOSUB 200
 190 GOTO 140
 200 LET X=52
 210 IF INKEY$<>"" THEN GOTO 210
 220 IF INKEY$="" THEN GOTO 220
 230 LET T=CODE INKEY$-29
 240 PRINT AT CODE "\' \' \: \: \: \,,\,,\,,"(T),CODE "\: \,,\' \: \,,\' \: \,,"(T);CHR$ (X)
 250 RETURN 
 260 CLEAR 
 270 SAVE "1027%7"
 280 RUN