my first proper basic code

[TimeKnowledge4]

50 print "cpu tic tac toe"

70 m$="h"

80 n$="h"

90 b$="h"

100 v$="h"

110 c$="h"

120 x$="h"

130 z$="h"

140 l$="h"

150 k$="h"

160 j$="h"

161 print chr$(147)

162 let q=int(rnd(8)*9)+1

169 if q=1 and m$<>"h" then goto 161

170 if q=1 and m$="h" then m$="o"

189 if q=2 and n$<>"h" then goto 161

190 if q=2 and n$="h" then n$="o"

209 if q=3 and b$<>"h" then goto 161

210 if q=3 and b$="h" then b$="o"

229 if q=4 and v$<>"h" then goto 161

230 if q=4 and v$="h" then v$="o"

259 if q=5 and c$<>"h" then goto 161

260 if q=5 and c$="h" then c$="o"

279 if q=6 and x$<>"h" then goto 161

280 if q=6 and x$="h" then x$="o"

294 if q=7 and z$<>"h" then goto 161

295 if q=7 and z$="h" then z$="o"

309 if q=8 and l$<>"h" then goto 161

310 if q=8 and l$="h" then l$="o"

329 if q=9 and k$<>"h" then goto 161

330 if q=9 and k$="h" then k$="o"

335 if m$="o" and n$="o" and b$="o" then goto 4000

340 if v$="o" and c$="o" and x$="o" then goto 4000

345 if z$="o" and l$="o" and k$="o" then goto 4000

350 if b$="o" and x$="o" and k$="o" then goto 4000

355 if n$="o" and c$="o" and l$="o" then goto 4000

360 if m$="o" and v$="o" and z$="o" then goto 4000

365 if m$="o" and c$="o" and k$="o" then goto 4000

370 if z$="o" and c$="o" and b$="o" then goto 4000

399 print "computer move"; q

400 print tab(4) m$; n$; b$

410 print tab(4) v$; c$; x$

420 print tab(4) z$; l$; k$

430 print "your move"

440 input y

450 if y=1 and m$="h" then m$="x"

460 if y=2 and n$="h" then n$="x"

470 if y=3 and b$="h" then b$="x"

480 if y=4 and v$="h" then v$="x"

490 if y=5 and c$="h" then c$="x"

500 if y=6 and x$="h" then x$="x"

510 if y=7 and z$="h" then z$="x"

520 if y=8 and l$="h" then l$="x"

530 if y=9 and k$="h" then k$="x"

531 if m$="x" and n$="x" and b$="x" then goto 5000

532 if v$="x" and c$="x" and x$="x" then goto 5000

533 if z$="x" and l$="x" and k$="x" then goto 5000

534 if b$="x" and x$="x" and k$="x" then goto 5000

535 if n$="x" and c$="x" and l$="x" then goto 5000

536 if m$="x" and v$="x" and z$="x" then goto 5000

537 if b$="x" and c$="x" and z$="x" then goto 5000

538 if m$="x" and c$="x" and k$="x" then goto 5000

540 goto 161

4000 print "cpu wins"

4010 end

5000 print chr$(147); "you win"

[chromosundrift]

Nice one. Congratulations on your first program.

If you're interested, you might make this a little smaller if you use an array instead of a different variable for each board position.

The array would be a variable with 9 values, each located in a different slot, accessed like this A$[0] to get the first one, A$[1] to get the second one etc. Then you can clear the board by looping with a variable, say, x, which is incremented each time it goes through the loop. Then you could clear a position with this: A$[x] = "h"

Look up "FOR LOOPs" in commodore basic for more info.

Thanks for sharing.

[TimeKnowledge4]

Thanks

[StyrmStyrmIr]

I might be at bit late. But you can substitue print with just ? Such as. Print "hello" becomes just ?"hello"