12-16-2022, 08:01 PM
(This post was last modified: 12-16-2022, 08:02 PM by James D Jarvis.)
Looks like you bested the ai. Here's the code it generated for: produce program source code for QB64PE that will generate an ascii image of snoopy cursing the red baron
NOTE: THIS CODE WILL NOT WORK.
NOTE: THIS CODE WILL NOT WORK.
Code: (Select All)
' QB64PE ASCII Art program to generate an image of Snoopy cursing the Red Baron
' Requires QB64PE to run
SCREEN _NEWIMAGE(640, 480, 32)
' Define variables to hold the ASCII art text
DIM snoopy AS STRING
DIM redBaron AS STRING
' Set the ASCII art text for Snoopy and the Red Baron
snoopy = " "
snoopy = snoopy + " .--. "
snoopy = snoopy + " : (\\/) : "
snoopy = snoopy + " '--' "
snoopy = snoopy + " /( )\\ "
snoopy = snoopy + " | '' | "
snoopy = snoopy + " | | "
snoopy = snoopy + " | | "
snoopy = snoopy + " | | "
snoopy = snoopy + " _| |_ "
snoopy = snoopy + "(' \\ / ') "
snoopy = snoopy + " \\ '._.' / "
snoopy = snoopy + " '-.___.-' "
redBaron = " "
redBaron = redBaron + " .-. "
redBaron = redBaron + " ( ). "
redBaron = redBaron + " (___(__) "
redBaron = redBaron + " /: V \\ "
redBaron = redBaron + " /: / \\ \\ "
redBaron = redBaron + " /: / \\ \\ "
redBaron = redBaron + " /: / \\ \\ "
redBaron = redBaron + " /: / \\ \\ "
redBaron = redBaron + " /: / \\ \\ "
redBaron = redBaron + " /: / \\ \\ "
redBaron = redBaron + "(____________________) "
' Set the font and text color
_FONT "Courier New", 20
_COLORDD WHITE
' Draw the ASCII art text on the screen
_DRAWTEXT snoopy, 10, 10
_DRAWTEXT redBaron, 10, 120
' Wait for a key press to exit the program
WHILE INKEY$ = ""
WEND
END