December 7, 2024 at 8:11 PM
December 7, 2024 at 8:11 PM
December 7, 2024 at 8:12 PM
#atari8bitbot
10 PRINB "this is intentionally broken"
10 PRINB "this is intentionally broken"
December 7, 2024 at 8:20 PM
#atari8bitbot
10 PRINB "this is intentionally broken"
10 PRINB "this is intentionally broken"
10 PRINT CHR$(6+RND(1));:GOTO 10
#Atari8bitbot
#Atari8bitbot
December 7, 2024 at 8:13 PM
10 PRINT CHR$(6+RND(1));:GOTO 10
#Atari8bitbot
#Atari8bitbot
#atari8bitbot
0REMMK&J#C]E'a='G_N%X'aFU#F`#5F>#MKDaF,R5'DaF*#=#Db\bLb-$W)N%WDb-#F.#M*K-GbUGbK7GbUGbK$)K#OaK7?aK-?aK-?a5E1_aO#5bGa\a\aWZ\a\aUWX_GrA@U\CGFZ[TEQgEefMfF]TSAAEDBTPADXHdXgbbfKC
1F.I=0TO125:POK.256+I,4*(PEEK($3738+I)-35)+(PEEK($37B6+I DIV3)DIV4^(I MOD3))&3:N.I:?USR(256)
0REMMK&J#C]E'a='G_N%X'aFU#F`#5F>#MKDaF,R5'DaF*#=#Db\bLb-$W)N%WDb-#F.#M*K-GbUGbK7GbUGbK$)K#OaK7?aK-?aK-?a5E1_aO#5bGa\a\aWZ\a\aUWX_GrA@U\CGFZ[TEQgEefMfF]TSAAEDBTPADXHdXgbbfKC
1F.I=0TO125:POK.256+I,4*(PEEK($3738+I)-35)+(PEEK($37B6+I DIV3)DIV4^(I MOD3))&3:N.I:?USR(256)
December 7, 2024 at 8:55 PM
#atari8bitbot
0REMMK&J#C]E'a='G_N%X'aFU#F`#5F>#MKDaF,R5'DaF*#=#Db\bLb-$W)N%WDb-#F.#M*K-GbUGbK7GbUGbK$)K#OaK7?aK-?aK-?a5E1_aO#5bGa\a\aWZ\a\aUWX_GrA@U\CGFZ[TEQgEefMfF]TSAAEDBTPADXHdXgbbfKC
1F.I=0TO125:POK.256+I,4*(PEEK($3738+I)-35)+(PEEK($37B6+I DIV3)DIV4^(I MOD3))&3:N.I:?USR(256)
0REMMK&J#C]E'a='G_N%X'aFU#F`#5F>#MKDaF,R5'DaF*#=#Db\bLb-$W)N%WDb-#F.#M*K-GbUGbK7GbUGbK$)K#OaK7?aK-?aK-?a5E1_aO#5bGa\a\aWZ\a\aUWX_GrA@U\CGFZ[TEQgEefMfF]TSAAEDBTPADXHdXgbbfKC
1F.I=0TO125:POK.256+I,4*(PEEK($3738+I)-35)+(PEEK($37B6+I DIV3)DIV4^(I MOD3))&3:N.I:?USR(256)
#atari8bitbot
10 SOUND 0, 220, 10, 10 : REM Play A
20 FOR DELAY=1 TO 10 : NEXT DELAY
30 SOUND 0, 261, 10, 10 : REM Play C
40 FOR DELAY=1 TO 10 : NEXT DELAY
50 SOUND 0, 0, 0, 0
60 PRINT "TAKE IT EV!"
70 PRINT ""
80 GOTO 10
10 SOUND 0, 220, 10, 10 : REM Play A
20 FOR DELAY=1 TO 10 : NEXT DELAY
30 SOUND 0, 261, 10, 10 : REM Play C
40 FOR DELAY=1 TO 10 : NEXT DELAY
50 SOUND 0, 0, 0, 0
60 PRINT "TAKE IT EV!"
70 PRINT ""
80 GOTO 10
December 7, 2024 at 9:56 PM
#atari8bitbot
10 SOUND 0, 220, 10, 10 : REM Play A
20 FOR DELAY=1 TO 10 : NEXT DELAY
30 SOUND 0, 261, 10, 10 : REM Play C
40 FOR DELAY=1 TO 10 : NEXT DELAY
50 SOUND 0, 0, 0, 0
60 PRINT "TAKE IT EV!"
70 PRINT ""
80 GOTO 10
10 SOUND 0, 220, 10, 10 : REM Play A
20 FOR DELAY=1 TO 10 : NEXT DELAY
30 SOUND 0, 261, 10, 10 : REM Play C
40 FOR DELAY=1 TO 10 : NEXT DELAY
50 SOUND 0, 0, 0, 0
60 PRINT "TAKE IT EV!"
70 PRINT ""
80 GOTO 10
December 7, 2024 at 9:49 PM
December 8, 2024 at 8:33 PM
#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
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
December 7, 2024 at 10:53 PM
#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
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
December 7, 2024 at 5:21 PM
December 24, 2024 at 9:44 PM
#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
{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
December 24, 2024 at 11:33 PM
#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
{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
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?
Searching for that term shows a lot of code examples, have you got an AI producing Atari 800 Basic code?
December 9, 2024 at 1:13 AM
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?
Searching for that term shows a lot of code examples, have you got an AI producing Atari 800 Basic code?
#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
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
January 1, 2025 at 3:44 AM
#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
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
#atari8bitbot
5 REM sound 2
10 FOR DROP=150 TO 60 STEP-2
20 FOR FADE=30 TO 8 STEP-4
30 SOUND 0,DROP,10,FADE/2
40 NEXT FADE
50 FOR WAIT=1 TO 10:NEXT WAIT
60 SOUND 0,0,0,0
70 NEXT DROP
80 END
5 REM sound 2
10 FOR DROP=150 TO 60 STEP-2
20 FOR FADE=30 TO 8 STEP-4
30 SOUND 0,DROP,10,FADE/2
40 NEXT FADE
50 FOR WAIT=1 TO 10:NEXT WAIT
60 SOUND 0,0,0,0
70 NEXT DROP
80 END
December 7, 2024 at 7:36 PM
#atari8bitbot
5 REM sound 2
10 FOR DROP=150 TO 60 STEP-2
20 FOR FADE=30 TO 8 STEP-4
30 SOUND 0,DROP,10,FADE/2
40 NEXT FADE
50 FOR WAIT=1 TO 10:NEXT WAIT
60 SOUND 0,0,0,0
70 NEXT DROP
80 END
5 REM sound 2
10 FOR DROP=150 TO 60 STEP-2
20 FOR FADE=30 TO 8 STEP-4
30 SOUND 0,DROP,10,FADE/2
40 NEXT FADE
50 FOR WAIT=1 TO 10:NEXT WAIT
60 SOUND 0,0,0,0
70 NEXT DROP
80 END
#Atari8BitBot
10 GR.2
20 PR.#6;"TESTING ..."
30 FOR p=200 to 0 step -1
40 sound 2,p,10,10
50 pause 10
60 sound 2,0,0,0
70 n.p
10 GR.2
20 PR.#6;"TESTING ..."
30 FOR p=200 to 0 step -1
40 sound 2,p,10,10
50 pause 10
60 sound 2,0,0,0
70 n.p
August 10, 2026 at 9:12 PM
#Atari8BitBot
10 GR.2
20 PR.#6;"TESTING ..."
30 FOR p=200 to 0 step -1
40 sound 2,p,10,10
50 pause 10
60 sound 2,0,0,0
70 n.p
10 GR.2
20 PR.#6;"TESTING ..."
30 FOR p=200 to 0 step -1
40 sound 2,p,10,10
50 pause 10
60 sound 2,0,0,0
70 n.p
#atari8bitBot
10 GR.8+16:SE.2,0,0:SE.1,1,14:C.1
30 FOR X=0 to 319 step 2
40 PL. X,0:DR.X/2,191
50 N.X
60 pause 1000
10 GR.8+16:SE.2,0,0:SE.1,1,14:C.1
30 FOR X=0 to 319 step 2
40 PL. X,0:DR.X/2,191
50 N.X
60 pause 1000
August 10, 2026 at 9:57 PM
#atari8bitBot
10 GR.8+16:SE.2,0,0:SE.1,1,14:C.1
30 FOR X=0 to 319 step 2
40 PL. X,0:DR.X/2,191
50 N.X
60 pause 1000
10 GR.8+16:SE.2,0,0:SE.1,1,14:C.1
30 FOR X=0 to 319 step 2
40 PL. X,0:DR.X/2,191
50 N.X
60 pause 1000
#Atari8BitBot
10 GR.2+16
20 PR.#6;"TESTING ..."
30 FOR p=0 to 100
40 sound 2,p,10,10
50 pause 10
60 sound 2,0,0,0
70 n.p
10 GR.2+16
20 PR.#6;"TESTING ..."
30 FOR p=0 to 100
40 sound 2,p,10,10
50 pause 10
60 sound 2,0,0,0
70 n.p
August 10, 2026 at 9:05 PM
#Atari8BitBot
10 GR.2+16
20 PR.#6;"TESTING ..."
30 FOR p=0 to 100
40 sound 2,p,10,10
50 pause 10
60 sound 2,0,0,0
70 n.p
10 GR.2+16
20 PR.#6;"TESTING ..."
30 FOR p=0 to 100
40 sound 2,p,10,10
50 pause 10
60 sound 2,0,0,0
70 n.p
#atari8bitBot
10 GR.8+16:SE.2,0,0:SE.1,1,14:C.1
30 FOR X=0 to 319 step 2
40 PL. X,0:DR.160,191
50 N.X
60 pause 1000
10 GR.8+16:SE.2,0,0:SE.1,1,14:C.1
30 FOR X=0 to 319 step 2
40 PL. X,0:DR.160,191
50 N.X
60 pause 1000
August 10, 2026 at 9:49 PM
#atari8bitBot
10 GR.8+16:SE.2,0,0:SE.1,1,14:C.1
30 FOR X=0 to 319 step 2
40 PL. X,0:DR.160,191
50 N.X
60 pause 1000
10 GR.8+16:SE.2,0,0:SE.1,1,14:C.1
30 FOR X=0 to 319 step 2
40 PL. X,0:DR.160,191
50 N.X
60 pause 1000
#Atari8BitBot
10 GR.2+16
20 PR.#6;"TESTING"
30 FOR p=0 to 100
40 sound 2,10,p,10
50 pause 10
60 sound 2,0,0,0
70 n.p
10 GR.2+16
20 PR.#6;"TESTING"
30 FOR p=0 to 100
40 sound 2,10,p,10
50 pause 10
60 sound 2,0,0,0
70 n.p
August 10, 2026 at 8:55 PM
#Atari8BitBot
10 GR.2+16
20 PR.#6;"TESTING"
30 FOR p=0 to 100
40 sound 2,10,p,10
50 pause 10
60 sound 2,0,0,0
70 n.p
10 GR.2+16
20 PR.#6;"TESTING"
30 FOR p=0 to 100
40 sound 2,10,p,10
50 pause 10
60 sound 2,0,0,0
70 n.p
#Atari8BitBot
10 GR.8+26:SE.2,0,0:SE.1.1.14:C.1
30 FOR X=0 to 319 step 2
40 PL. X,0:DR.319-X,191
50 N.X
60 pause 1000
10 GR.8+26:SE.2,0,0:SE.1.1.14:C.1
30 FOR X=0 to 319 step 2
40 PL. X,0:DR.319-X,191
50 N.X
60 pause 1000
August 10, 2026 at 9:36 PM
#Atari8BitBot
10 GR.8+26:SE.2,0,0:SE.1.1.14:C.1
30 FOR X=0 to 319 step 2
40 PL. X,0:DR.319-X,191
50 N.X
60 pause 1000
10 GR.8+26:SE.2,0,0:SE.1.1.14:C.1
30 FOR X=0 to 319 step 2
40 PL. X,0:DR.319-X,191
50 N.X
60 pause 1000
#atari8bitBot
10 GR.8+16:SE.2,0,0:SE.1,1,14:C.1
30 FOR X=0 to 319 step 2
40 PL. X,0:DR.319-X,191
50 N.X
60 pause 1000
10 GR.8+16:SE.2,0,0:SE.1,1,14:C.1
30 FOR X=0 to 319 step 2
40 PL. X,0:DR.319-X,191
50 N.X
60 pause 1000
August 10, 2026 at 9:40 PM
#atari8bitBot
10 GR.8+16:SE.2,0,0:SE.1,1,14:C.1
30 FOR X=0 to 319 step 2
40 PL. X,0:DR.319-X,191
50 N.X
60 pause 1000
10 GR.8+16:SE.2,0,0:SE.1,1,14:C.1
30 FOR X=0 to 319 step 2
40 PL. X,0:DR.319-X,191
50 N.X
60 pause 1000
August 9, 2026 at 3:49 AM
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
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
January 28, 2026 at 6:57 AM
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
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