10 DIM M(10,10)
20 FOR I=1 TO 9
30 FOR J=1 TO 9
40 M(I,J)=INT(RND(0)*10)
50 ? M(I,J);", ";
60 NEXT J
70 ?
80 NEXT I
#Atari8BitBot
0
0
1
0
Hashtag
#Atari8BitBot
Advertisement · 728 × 90
5 REM TBXL does not allow 0
10 DIM M(10,10)
20 FOR I=0 TO 9
30 FOR J=0 TO 9
40 M(I,J)=INT(RND(0)*10)
50 ? M(I,J);", ";
60 NEXT J
70 ?
80 NEXT I
#Atari8BitBot
0
0
1
0
@savetz.bsky.social Hello - is the #Atari8BitBot working on BlueSky? Thanks :)
0
0
2
0
10 DIM M(10,10)
20 FOR I=1 TO 9
30 FOR J=1 TO 9
40 M(I,J)=INT(RND(0)*10)
50 ? M(I,J);", ";
60 NEXT J
70 ?
80 NEXT I
#Atari8BitBot
0
0
3
0
#atari8bitbot {CB60}
PROC C() INT X,Y
Graphics(8+16)
COLOR=1
FOR Y=0 TO 191
DO
FOR X=0 TO 319
DO
IF Rand(192)<Y THEN
PLOT(X,Y)
FI
OD
OD
DO OD
RETURN
0
0
1
0
#atari8bitbot {CB60}
PROC C() INT X,Y
Graphics(8+16)
COLOR=1
FOR Y=0 TO 191
DO
FOR X=0 TO 319
DO
IF Rand(192)>Y THEN
PLOT(X,Y)
FI
OD
OD
DO OD
RETURN
0
0
1
0
#atari8bitbot
{CB30}
PROC C() INT X,Y
Graphics(8+16)
COLOR=1
FOR Y=0 TO 191
DO
FOR X=0 TO 319
DO
IF Rand(192)>Y THEN
PLOT(X,Y)
FI
OD
OD
DO OD
RETURN
0
0
1
0
#atari8bitbot {CS99}
PROC C() INT X,Y
Graphics(8+16)
COLOR=1
FOR Y=0 TO 191
DO
FOR X=0 TO 319
DO
IF Rand(192)>Y THEN
PLOT(X,Y)
FI
OD
OD
DO OD
RETURN
0
0
1
0
#atari8bitbot
Gr.8+16:c.1
Text 0,60,“my New Year’s resolution”
Text 10,100,“is 320x192”
Pl. 0,0:dr.160,191:dr.319,0
Do:loop
0
0
1
0
#atari8bitbot
Gr.8+16:c.1
Text 0,0,“my New Year’s resolution”
Text 10,100,“is 320x192”
Pl. 0,0:dr.159,191
Do:loop
0
0
1
0
#atari8bitbot {B02}
GR. 2
SE.4,8,4:SE.1,1,14
?#6;" HAPPY "
POS. 4,6:?#6;" 2024 "
F.s=20 TO 100: SO.1,s,10,10:n.s
PAUSE 100
SO.1,0,0,0
? "TO ALL ATARIANS, PAST, PRESENT AND FUTURE !"
DO
SO.1,20,15,10
POS. 4,6:?#6;" 2025 !!"
PAUSE 10
POS. 4,6:?#6;" "
PAUSE 10
SO.1,0,0,0
LOOP
1
0
1
0
#atari8bitbot
{B02}
10 GR.0:SE.2,0,0:SE.4,2,10
20 PR. "JINGLE BELLS":PAUSE 10
30 PR. "BATMAN SMELLS"
40 GOTO 20
1
0
1
0
#atari8bitbot {B02}
10 GR.0:SE.2,0,0:SE.1,2,10
20 PR. "JINGLE BELLS"
30 PR. "BATMAN SMELLS"
40 GOTO 20
1
0
1
0
#atari8bitbot
GR.8+16:SE.1,1,14:SE.2,0,0:PI=3.14159265:C.1
F.TH=0 TO 2*PI STEP PI/30
X=70*COS(TH)
Y=70*SIN(TH)
X1=90*SIN(TH)
Y1=90*SIN(TH)
PL.X1+160,96-Y1:DR.X+160,96-Y
N.TH
DO:LOOP
0
0
1
0
#atari8bitbot
GR.8+16:SE.1,1,14:SE.2,0,0:PI=3.14159265:C.1
F.TH=0 TO 2*PI STEP PI/20
X=80*COS(TH)
Y=80*SIN(TH)
X1=90*SIN(TH)
Y1=90*SIN(TH)
PL.X1+160,96-Y1:DR.X+160,96-Y
N.TH
DO:LOOP
0
0
1
0
#atari8bitBot
gr.7+16:se.0,0,0:se.2,12,4:se.1,3,4:se.4,0,14
c.1:f.Y=0 to 31:pl.0,y:dr.159,y:n.y
c.3:f.y=64 to 95:pl.0,y:dr.159,y:n.y
c.2
f.y=0 to 48:pl.0,y:dr.y,y:n.y
f.y=49 to 95:pl.0,y:dr.95-y,y:n.y
do
c.3:text 60,10,"FREE!!"
pause 50
text 60,10,"PEACE!"
pause 50
loop
0
0
1
0
#atari8bitbot
10 ? "IM here !"
0
0
1
0
Ah, what is the #Atari8BitBot you speak of?
Searching for that term shows a lot of code examples, have you got an AI producing Atari 800 Basic code?
0
0
2
0
#atari8bitbot
10 GR.1
20 ?#6;"hello from the basement bot
1
0
4
0
#atari8bitbot
10 ? "TESTING TESTING"
20 pause 100
30 G.10
0
0
1
0
#atari8bitbot
10 GRAPHICS 8:COLOR 1
15 ? " PEEK(20) PEEK(53770)"
20 S=160/256
30 X1=0
40 P=20
50 GOSUB 1000
60 X1=160
70 P=53770
80 GOSUB 1000
90 END
1000 FOR I=1 TO 100
1010 X=PEEK(P)*S
1020 Y=PEEK(P)*S
1030 PLOT X+X1,Y
1040 NEXT I
1050 RETURN
4
0
1
0