' If called: myapp.exe file.txt -verbose
println "Program: "; paramstr$(0)
println "Arg 1: "; paramstr$(1)      ' "file.txt"
println "Arg 2: "; paramstr$(2)      ' "-verbose"
println "Total args: "; paramcount()

if fileexists("config.txt", 0) = 1 then
    println "Config file found"
endif

' Follow symbolic links
if fileexists("link_to_file", 1) = 1 then
    println "Target exists"
endif

' Delete a file
if kill("temp.dat") = 1 then
    println "File deleted"
else
    println "Delete failed"
endif

' Change to documents folder
chdir(documentspath$())

' Create a single directory
mkdir("NewFolder")

' Create nested directories (all at once)
path$ = documentspath$() + dirseparator$() + "Projects" + dirseparator$() + "MyApp" + dirseparator$() + "Data"
if forcedirectories(path$) = 1 then
    println "Directory structure created"
endif

' Remove an empty directory
rmdir("EmptyFolder")

path$ = "/home/user/documents/report.pdf"

println extractfilename$(path$)    ' report.pdf
println extractfilepath$(path$)    ' /home/user/documents/
println extractfileext$(path$)     ' .pdf

println changefileext$(path$, ".bak")  ' /home/user/documents/report.bak

println extractfileext$("README")  ' (empty string)

println "Home:      "; homepath$()
println "Documents: "; documentspath$()
println "Temp:      "; temppath$()
println "Cache:     "; cachepath$()
println "Library:   "; librarypath$()

println "Pictures:  "; picturespath$()
println "Music:     "; musicpath$()
println "Movies:    "; moviespath$()
println "Downloads: "; downloadspath$()
println "Camera:    "; camerapath$()

println randomfilename$()     ' e.g. "tmpA1B2C.tmp"

println guidfilename$(1)      ' {A1B2C3D4-E5F6-7890-...}
println guidfilename$(0)      ' {A1B2C3D4E5F67890...}

' tempfilename$ actually creates the file!
tempFile$ = tempfilename$()
println "Temp file: "; tempFile$

' Clean up when done
kill(tempFile$)

' Always build paths with dirseparator$()
path$ = documentspath$() + dirseparator$() + "MyApp" + dirseparator$() + "data.txt"
println path$

' Cross-platform user name
user$ = environ$("USERNAME")
if len(user$) = 0 then
    user$ = environ$("USER")
endif
println "User: "; user$

' Cross-platform home
home$ = environ$("HOME")
if len(home$) = 0 then
    home$ = environ$("USERPROFILE")
endif
println "Home: "; home$

' Named colors
c = color("Red")
c = color("clBlue")
c = color("$FF0000")     ' Hex format

' With alpha
c = alphacolor("Red")
c = alphacolor("#80FF0000")  ' Semi-transparent red

' Convert back to string
c = color("Navy")
println "Navy: "; c
println "Name: "; colortostr$(c)

' Build paths that work on any platform
function buildPath$(base$, parts$) local result$, sep$
    sep$ = dirseparator$()
    result$ = base$
    if right$(result$) = sep$ then
        result$ = left$(result$, len(result$) - 1)
    endif
    result$ = result$ + sep$ + parts$
    return result$
endfunction

println "Home: "; homepath$()
println "Documents: "; documentspath$()
println "Temp: "; temppath$()

appData$ = buildPath$(documentspath$(), "MyApp")
println "App data: "; appData$

configFile$ = buildPath$(appData$, "config.txt")
println "Config: "; configFile$

' Process command-line arguments
println "Program: "; paramstr$(0)
println "Args: "; paramcount()

if paramcount() > 0 then
    for i = 1 to paramcount()
        arg$ = paramstr$(i)
        print "  ["; i; "] "; arg$
        if left$(arg$) = "-" then
            println " (flag)"
        else
            println ""
        endif
    next
else
    println "No arguments provided."
    println "Usage: program [options] [files...]"
endif

' File management utilities
function createAppFolder$() local path$
    path$ = documentspath$() + dirseparator$() + "Plan9BasicApp"
    if forcedirectories(path$) = 1 then
        return path$
    else
        return ""
    endif
endfunction

function fileInfo$(filename$) local info$
    info$ = "File: " + extractfilename$(filename$) + chr$(10)
    info$ = info$ + "Path: " + extractfilepath$(filename$) + chr$(10)
    info$ = info$ + "Ext:  " + extractfileext$(filename$) + chr$(10)
    info$ = info$ + "Exists: " + str$(fileexists(filename$, 0))
    return info$
endfunction

appFolder$ = createAppFolder$()
println "App folder: "; appFolder$

testPath$ = documentspath$() + dirseparator$() + "test.txt"
println fileInfo$(testPath$)
println "As .bak: "; changefileext$(testPath$, ".bak")

' Working with temporary files
println "Temp dir: "; temppath$()
println ""

println "Random names:"
for i = 1 to 3
    println "  "; randomfilename$()
next
println ""

println "GUID names:"
println "  With sep: "; guidfilename$(1)
println "  No sep:   "; guidfilename$(0)
println ""

tempFile$ = tempfilename$()
println "Created: "; tempFile$

if fileexists(tempFile$, 0) = 1 then
    println "Exists: Yes"
    if kill(tempFile$) = 1 then
        println "Deleted OK"
    endif
endif

' System environment overview
user$ = environ$("USERNAME")
if len(user$) = 0 then
    user$ = environ$("USER")
endif
println "User: "; user$
println "Home (func): "; homepath$()
println ""

println "Separator: ["; dirseparator$(); "]"
println "Path sep:  ["; pathseparator$(); "]"
println ""

println "System Paths:"
println "  Documents:  "; documentspath$()
println "  Pictures:   "; picturespath$()
println "  Music:      "; musicpath$()
println "  Downloads:  "; downloadspath$()
println "  Temp:       "; temppath$()
println "  Cache:      "; cachepath$()