ONE PROMPT AI DEV

[bplus]

I came back to the AI Window and thanked it for the code and it offered up a more complete Pete OS.
OK lets see that!

Code: (Select All)

Screen _NewImage(800, 600, 32) ' Create a modern high-res screen
_Title "Pete OS v1.0 - Startup"

' --- PHASE 1: Boot Sequence ---
Color _RGB32(200, 200, 200) ' Retro gray text
Print "PeteBIOS (C) 2025 Pete Computing Inc."
_Delay .5
Print "CPU: Pete-Processor @ 4.20 GHz"
Print "RAM: 64 GB OK"
_Delay 1
Print "Detecting Drives..."
_Delay .5
Print "Drive 0: PETE-SSD-1TB [Ready]"
Print "Loading Pete OS..."
_Delay 1.5
Cls

' --- PHASE 2: Desktop Environment ---
' Draw a desktop background (Solid Blue-ish Teal)
Line (0, 0)-(799, 599), _RGB32(0, 128, 128), BF

' Draw a Taskbar at the bottom
Line (0, 560)-(799, 599), _RGB32(192, 192, 192), BF ' Gray taskbar
Line (0, 560)-(799, 560), _RGB32(255, 255, 255) ' Highlight top edge

' Draw the "Start" Button (The Pete Logo)
Dim pBlue As Long: pBlue = _RGB32(0, 100, 188)
Line (5, 565)-(35, 595), pBlue, BF
Color 0: Locate 36, 2: Print "Pete"

' --- PHASE 3: Floating Pete OS Logo (Windows 11 Style) ---
' Centering the logo we made earlier
x = 350: y = 200
Line (x, y)-(x + 45, y + 45), _RGB32(0, 120, 215), BF ' Top Left
Line (x + 50, y)-(x + 95, y + 45), _RGB32(0, 103, 192), BF ' Top Right
Line (x, y + 50)-(x + 45, y + 95), _RGB32(0, 90, 158), BF ' Bottom Left
Line (x + 50, y + 50)-(x + 95, y + 95), _RGB32(0, 75, 140), BF ' Bottom Right

' Add the "PETE" text into the panes
Color _RGB32(255, 255, 255)
_PrintMode _KeepBackground
Locate 15, 47: Print "P": Locate 15, 54: Print "E"
Locate 18, 47: Print "T": Locate 18, 54: Print "E"

Locate 22, 45: Print "Welcome to Pete OS"

' --- PHASE 4: Custom Mouse Cursor ---
' QB64 allows you to hide the system mouse and draw your own
_MouseHide
Do
    _Limit 60 ' Keep it at 60 FPS
    While _MouseInput: Wend ' Update mouse data

    ' Only redraw the mouse part (using _DISPLAY for no flicker)
    _Display
    mx = _MouseX: my = _MouseY

    ' Draw a simple retro mouse pointer (triangle)
    Line (mx, my)-(mx + 10, my + 10), _RGB32(255, 255, 255)
    Line (mx, my)-(mx, my + 15), _RGB32(255, 255, 255)
    Line (mx, my + 15)-(mx + 10, my + 10), _RGB32(255, 255, 255)
Loop Until _KeyDown(27) ' ESC to exit
System