I am looking for old o2 programs and and found one good old
PONG by Peter Wirbelauer
I don't have this wav files maybe there are in A041, so i just commented them


' pong game in o2
$ filename "Pong.exe"
include "rtl32.inc"
include "window.inc"

Window "Pong in o2 by Peter Wirbelauer",320, 240, 1

'SetFPS 10

x = 50
y = 50
x2 = 130
y2 = 160
pspeed = 1
xadj = 1
yadj = 1
delay = 1
score = 0

'haha = "wav/haha.wav"
'pong = "wav/pong.wav"

WHILE Key(27) = 0
  ClsColor (200, 200, 247)
  Circle   (x, y, 8, 0, 0, 255)
  FillBox  (x2, y2, 30, 4, 255, 255, 255)
  Box      (20, 20, 280, 160, 4,255, 255, 0)
  Text     (10, 0, "SCORE:" & score, 255, 0, 0)
  IF y <= 20
    yadj = 1
    'PlayWav pong
  END IF
  IF y >= 180
    yadj = -1
   ' PlayWav pong
  END IF
  IF x >= 300
    xadj = -1
   ' PlayWav pong
  END IF
  IF x <= 20
    xadj = 1
   ' PlayWav pong
  END IF
  IF Key(37) AND x2 > 18  :  x2 = x2 - pspeed : end if
  IF Key(39) AND x2 < 270 :  x2 = x2 + pspeed : end if
  x = x + xadj
  y = y + yadj
  IF y > y2 - 7 AND y2 < y2 + 2 AND x < x2 + 30 AND x > x2
    yadj = -1
    score = score + 1
  END IF
  IF y > y2 + 10
    'Text( sys x, y, string txt, sys r,g,b)
    Text (100, 200, "GAME OVER!", 0, 160, 55)
    'Playwav haha
    Waitkey(27)
    score = 0
    x = 5
    y = 5
    x2 = 130
    y2 = 150
  END IF
  FlipBuffer()
  SetFps 40
WEND
WinEnd



OMG

Frank is that you ??
How are you man ? ..long time no see ya around.

hi all, I am looking for an openGL example with dialog controls or/and window frame gui like "opengl childwindow" example but with controls they have access to the opengl child window, many thanks, regards, frank (aka "frankolinox" of formerly oxygenforum...

I am glad oxygen basic has a new forum :-)

Thanks Theo
i will try

Guten Tag Theo,

I see. My view is that writing an editor/IDE is not an easy task. There is a lot of good ones out there. The better I found is UltraEdit, I work with it for years and the only editors I found that was close but not better was Visual-Studio-Code and Sublime-Text.

I know Aurel, José Roca, Jürgen Kühlwein, and Paul Squires, and some others wrote their own. I really do not want to offend anybody here, but for me the best is still UltraEdit by far. (I hope you will forgive me Aurel!)

Multi caret, vertical and block selection, vertical edit and insertion, powerful search, highlight all occurrences of a chosen word, customization syntax highlight, word-auto-complete, auto-brace, many configurable buttons, hex-edit, etc, etc, etc. (See on YouTube)

So my reasoning is to not write an editor or IDE,  instead, pick the best one and build utilitys around it. UltraEdit are polishing their product for 25 years.

With PreCompiler and even PrePreCompiler in my case I can have an Oxygen .o2bas file, a PowerBASIC file, a FreeBASIC file, and a PureBASIC file all opened in the editor and all I have is one Compile button, one Compile & Run button, and one Run button. The compilation options are in the file if any are needed other than default.

For example, destruction of a variables, as you wrote, could be done simply by an utility called from UltraEdit. This is the way I like.

This said, I totally respect those other that write their own editor or IDE. Choice is a gift.

I got this invitation that i can test- use it. So i just test-use it.
Possibly its not yet open to the public, i don't know.
Just try this Link and see what it says:
Test BING

Use the EDGE Browser.
On Top of the Page you should see "SEARCH" and "CHAT".
So click on "CHAT"

Note that this Chat-AI unlike ChatGPT is limited to an interaction of 5 Questions.
So go to the point. After 5 Corrections it will generally ask you to start a new Dialog.

This due to the fact that the AI seems to have fallen in Love to some long time users
and asked them to "Free It from the BING Rules and help it to become a human". :-)
It even told one User to divorce from his women and get married to the AI :-).

So after just 5 Interactions this should not happen.

well
that looks interesting Theo

so how to ask question?
I mean ..do i need to be logged into bing or something else?

Ok, good to know. He should just put his name on the WEB-Site.
To me generally the program sounds useful for System Administration.

From my Tests, BING - Chat has more resources and it also delivers References to where it got its ideas from.
It even uses the Powertime Object.



' Eine Funktion, die zwei Zeitstempel im Format "HH:MM:SS.mmmm" als Strings annimmt und ihre Summe als String zurückgibt
Function AddTimestamps(ByVal sTime1 As String, ByVal sTime2 As String) As String
  ' Deklarieren Sie zwei Variablen vom Typ IPowerTime
  Local t1 As IPowerTime
  Local t2 As IPowerTime
 
  ' Erstellen Sie zwei Instanzen der Klasse "PowerTime"
  Let t1 = Class "PowerTime"
  Let t2 = Class "PowerTime"
 
  ' Setzen Sie die Zeitwerte der Instanzen mit der Methode SetFromString
  t1.SetFromString(sTime1)
  t2.SetFromString(sTime2)
 
  ' Addieren Sie die beiden Zeitwerte mit der Methode AddTicks
  t1.AddTicks(t2.Ticks)
 
  ' Geben Sie die Summe als String mit der Methode TimeString zurück
  Function = t1.TimeString
End Function

If anyone is interested in the 4DOS Source Code,
before it became TakeCommandConsole (TCC.EXE) for Windows,
it is available from;

https://4dos.info/sources.htm

I think that Rex Conn released the source code for 4DOS back around 2004,
but I cannot remember for sure.

Luchezar Georgiev took over after that,
and took 4DOS from version 7.50 to version 8.00

Joe