Atari 8-bit Source code

0REM--
5REM--
10DIMA$(2),B(10),CR$(1)
50CR$=CHR$(155):BB=1780:PM=1980
100GRAPHICS2:OPEN#1,4,0,"K":POKE752,1:SETCOLOR2,0,0
103?#6;CR$;CR$;
105?#6;"________________"
110?#6;"ATARI"
120?#6;"TIC-TAC-TOE"
122?#6;"________________"
125?#6;CR$
130?#6;"ATARI=XYOU=0"
150POKE752,1
225?"Hit'SPACE'tobegingame"
227GET#1,N
230F=RND(0)
240GRAPHICS2:POKE752,1
250DATA4,6,8,2,3,7,0,9,0,0,7,3,1,4,9,3,7,6,9,4
260DATA2,8,6,4,1,9,0,7,0,0,1,9,3,7,2,7,3,8,9,2
270DATA9,1,8,2,7,3,7,1,2,9,8,2,1,9,6,4,0,3,0,0
280DATA9,1,6,3,4,1,9,7,4,3,6,4,2,8,7,3,0,1,0,0
290DATA5,8,7,3,6,4,0,9,0,0,5,8,6,4,1,9,0,7,0,0
300DATA1,3,5,9,8,5,8,3,1,7,1,3,7,4,6,0,9,0,8,0
310DATA3,1,5,7,8,5,8,3,1,7,1,3,5,8,9,0,0,0,0,0
320DATA1,5,7,4,6,3,6,5,7,4,3,1,5,8,7,0,0,0,0,0
330DATA4,7,5,6,9,5,9,7,4,3,9,5,7,8,4,7,4,9,5,8
340DATA5,9,2,8,3,3,2,9,5,6,5,9,3,2,7,2,3,5,8,9
350DATA2,3,5,8,9,9,5,3,2,6,3,2,5,9,7,7,4,5,3,9
360DATA7,4,3,5,2,3,2,7,4,5
450?""
455RESTORE
465F=INT(RND(1)*2)
470G=1:H=0:C1=10:C2=10:N=0:X=0:E=0
510FORI=1TO9
520X=144+I:B(I)=X
530NEXTI
570C=INT(RND(1)*3)
580IFC=0THENC=5
590U=10-C
600GOSUB2100
630IFC=5THEN1720
640IFC=2THEN1320
650IFU=5THEN940
670R=10*U+140
680IFU>5THENR=R-10
700E=1
720IFF=1THENR=R+5
740F=1
742IFR=0THENGOTO770
745FORI=1TOR
750READC
760NEXTI
770REM
780F=F-1:F=F*F
800READC
810C2=C1:C1=C:N=N+1
840IFC=0ORC=UTHEN770
850B(C)=88
860IFC2=0ORC=HTHEN1160
870IFF=1THEN2070
880IFE=0THEN900
890IFN=5THEN2070
900GOSUBBB
910GOSUB1980
920GOTO770
940REM
950U=1
960GOSUB2100
970IFU=3ORU=7THEN1220
980IFU=4ORU=8THENG=0
990GOSUB2100
1030C=7
1040IFG=0THENC=3
1050IFC<>UTHEN2060
1060GOSUB2100
1090IFG=0THEN1130
1095C=2
1100IFB(2)<>32THENC=6
1110IFB(C)=32THEN2060
1120GOTO1150
1130C=4
1135IFB(4)<>32THENC=8
1140IFB(C)=32THEN2060
1150C=10-U
1155B(C)=88
1160GOSUBBB
1167?"ADRAWTHATGAME"
1170?"Doyouwantanothergame(YORN)":GET#1,N
1180IFN=89THEN450
1200CLOSE#1:GRAPHICS0:END
1220C0=2
1230IFU=3THENC0=4
1240GOSUB2100
1250C=C0
1260IFU=CTHENC=C+4
1270GOTO2060
1320REM
1330IFU=8THEN1420
1340R=10*U+60
1350IFU=1THENR=80
1360IFINT(U/2)=U/2THEN700
1370IFU>6THENE=1
1380GOTO740
1420B(9)=88
1430GOSUBBB
1440GOSUBPM
1450IFU<4THEN1560
1460IFU>5THEN1630
1470B(3)=88
1480GOSUBBB
1490GOSUBPM
1500C=1
1510IFU=1THENC=6
1520GOTO2060
1560F=0
1565H=6
1570IFU<>1THEN1600
1580F=1:H=4:R=140
1610GOTO700
1630REM
1640B(1)=88
1650GOSUBBB
1660GOSUBPM
1665C=3
1670IFU=3THENC=5
1690GOTO2060
1720R=U*10-10
1730IFU>5THENR=R-10
1740IFINT(U/2)=U/2THEN700
1750GOTO740
1780POSITION0,0
1790PRINT#6;""
1800?#6;"";CHR$(B(1));"";CHR$(B(2));"";CHR$(B(3))
1810PRINT#6;""
1820?#6;"";CHR$(B(4));"";CHR$(B(5));"";CHR$(B(6))
1830PRINT#6;""
1840?#6;"";CHR$(B(7));"";CHR$(B(8));"";CHR$(B(9))
1850PRINT#6;""
1860RETURN
1980GOSUB30000:?"YOURMOVE"
1981GET#1,N:U=N-48:?""
1990IFU<1ORU>9THEN2030
2000IFINT(U)<>UTHEN2030
2010IFB(U)=88THEN2030
2015IFB(U)=111THEN?"YOUHAVETHATSQUARE.TRYAGAIN":GOTO1981
2020B(U)=111
2025RETURN
2030PRINT"YOURMOVEISILLEGAL.TRYAGAIN"
2040GOTO1981
2060B(C)=88
2070GOSUBBB
2080?""
2090GOTO1170
2100REM
2120C=10-U
2130B(C)=88
2140GOSUBBB
2150GOSUB1980
2160RETURN
30000TIME=30200
30050SOUNDZ,82,10,8:T=10:GOSUBTIME:SOUNDZ,Z,Z,Z:T=10:GOSUBTIME
30100SOUNDZ,103,10,8:T=40:GOSUBTIME:SOUNDZ,Z,Z,Z:RETURN
30200FORCOUNT=1TOT:NEXTCOUNT:RETURN	

• Download link 1

• Download link 1
• Download link 2
• Download link 3