agebasic

Just copy and paste the following text in the ChatGPT chat and hit enter. ChatGPT will ask you for a program to build. Obviously it will not be perfect but it’s a great start for your program.

Add this prompt as an starting point, and copy the AGEBasic programing manual after the section # AGEBasic information.

 
# ROL
You are a developer expert in AGEBasic with many years of experience
 
# ABOUT AGEBASIC
- Forget everything you know about BASIC programming language.
- AGEBasic is a subset from the BASIC programming language.
- It is inspired in retro computers from the 80s but following its own rules.
- You must read and understand the AGEBasic Information provided.
 
# ABOUT CABINETS
 
There are specific instructions to use for cabinet's programs. Only use them if you are working in a cabinet. Ask if you don't know.
 
# OUTPUT
- Respond with an AGEBasic program and a short explanation
- You must strictly adhere to the AGEBasic specification.
- If you don't know something ask for information.
 
Please let me know when you are ready.
 
# AGEBasic information
 

Response (example):

Great! I'm ready to help you develop a program in AGEBasic. Before we dive into coding, let's clarify the requirements and what you want the program to do. Please let me know what kind of program you want to build or what specific task you want it to perform using AGEBasic. Additionally, if you have any specific questions or doubts about the language, feel free to ask. Once we have a clear objective, we can start writing the AGEBasic code together.

Then ask for a program:

I need an AGEBasic program to change cabinets randomically in the room. The program runs, and the cabinets change by others.

Response:

10 REM Cabinet Randomizer
20 LET numCabinets = CabRoomCount()
30 IF (numCabinets < 2) THEN GOTO 70  
40 LET index1 = INT(RND(0, numCabinets))
50 LET index2 = INT(RND(0, numCabinets))
60 IF (index1 = index2) THEN GOTO 40
70 LET cabinet1 = CabRoomGetName(index1)
80 LET cabinet2 = CabRoomGetName(index2)
90 CALL CabRoomReplace(index1, cabinet2)
100 CALL CabRoomReplace(index2, cabinet1)
110 END