[Coco] ChatGPT Responds - Re: Perplexity

[Wayne Campbell]

chatGPT treated the procedure like a C function. Parameters are not passed
to Basic09 procedures that way. Also, didn't specify base 0, so subscript
errors occurred. ' is not a valid remark identifier, though ! is. The
corrected source:

PROCEDURE BubbleSort
 0000      DIM temp,i,j:INTEGER
 000F      PARAM array(10),n:INTEGER
 001F      BASE 0
 0021      FOR i=0 TO n-2
 0035        FOR j=0 TO n-2-i
 004D          IF array(j)>array(j+1) THEN
 0063            REM Swap array(j) and array(j_1)
 0082            temp=array(j)
 008D            array(j)=array(j+1)
 009F            array(j+1)=temp
 00AE          ENDIF
 00B0        NEXT j
 00BB      NEXT i
 00C6      END

Wayne

The Structure of I-Code
http://www.cocopedia.com/wiki/index.php/The_Structure_of_I-Code



On Mon, Sep 2, 2024 at 7:00 PM Blair Leduc via Coco <coco at maltedmedia.com>
wrote:

>
> 
> Allen, Tony,
>
> This is my conversation with ChatGPT 4o:
>
> Do you know BASIC09?
>
> Yes, BASIC09 is a variant of the BASIC programming language designed
> specifically for the OS-9 operating system, which was popular on the Tandy
> TRS-80 Color Computer (CoCo) in the 1980s. BASIC09 is more structured and
> powerful than standard BASIC, supporting features like procedures, local
> variables, structured programming constructs (IF-THEN-ELSE, DO-LOOP), and
> advanced data types.
>
> It was particularly known for its speed and efficiency compared to other
> BASIC interpreters of the time, as it was compiled to an intermediate code
> that ran much faster than standard interpreted BASIC. BASIC09 was widely
> used by enthusiasts of the OS-9 operating system for developing software
> with a more modern approach compared to traditional BASIC.
>
> Do you have a specific question or project related to BASIC09?
>
> Can you write a BASIC09 bubble sort procedure?
>
> Sure! Below is a BASIC09 procedure that implements the bubble sort
> algorithm. This procedure sorts an array of integers in ascending order.
>
> ```basic
> PROCEDURE BubbleSort(array, n)
>   DIM temp, i, j
>   FOR i = 0 TO n - 2
>     FOR j = 0 TO n - 2 - i
>       IF array(j) > array(j + 1) THEN
>         ' Swap array(j) and array(j + 1)
>         temp = array(j)
>         array(j) = array(j + 1)
>         array(j + 1) = temp
>       ENDIF
>     NEXT j
>   NEXT i
> END
> ```
>
> ### Explanation
> - `array`: The array of integers to be sorted.
> - `n`: The number of elements in the array.
> - `i` and `j`: Loop indices used to traverse the array.
> - `temp`: A temporary variable used to swap elements.
>
> ### Usage Example
> To use this procedure, you would define your array and call the
> `BubbleSort` procedure like this:
>
> ```basic
> DIM numbers(5)
> numbers(0) = 34
> numbers(1) = 12
> numbers(2) = 25
> numbers(3) = 16
> numbers(4) = 9
>
> BubbleSort(numbers, 5)
>
> FOR i = 0 TO 4
>   PRINT numbers(i)
> NEXT i
> ```
>
> This code will sort the `numbers` array in ascending order and print the
> sorted values. Let me know if you need any further assistance or
> adjustments!
>
> Blair.
>
> > On Sep 2, 2024, at 3:31 PM, Tony Schountz via Coco <coco at maltedmedia.com>
> wrote:
> >    It’s a web-based AI site. I have no idea how it knows BASIC09!
> >
> >   [1]https://www.perplexity.ai/
> >
> >   Sent from my iPhone
> >
> >     On Sep 2, 2024, at 1:25 PM, Allen Huffman <alsplace at pobox.com>
> >     wrote:
> >
> >   
> >
> >     On Sep 2, 2024, at 2:18 PM, Tony Schountz via Coco
> >     <coco at maltedmedia.com> wrote:
> >
> >     Well, I just asked perplexity to write a BASIC09 bubble sort
> >     procedure and this is what it generated. Not perfect but easy enough
> >     to edit.
> >
> >   What is Perplexity, and how does it know BASIC09???
> >
> > References
> >
> >   1.
> https://www.perplexity.ai/search/write-a-basic09-procedure-that-uAMM8XtTTgKhZwA6.kHv.A
> >
> > --
> > Coco mailing list
> > Coco at maltedmedia.com
> > https://pairlist5.pair.net/mailman/listinfo/coco
>
> --
> Coco mailing list
> Coco at maltedmedia.com
> https://pairlist5.pair.net/mailman/listinfo/coco
>