/*
    FN GetSystemInfo Demo

    Ken Shmidheiser
    Somerset, KY
    11-05-03

*/
'~'A
'  Runtime : Rntm Appearance.Incl
'  CPU : Carbon
'~'B

begin globals
dim as container gC
end globals

local fn GetSystemInfo
dim as str31 infoStr(3), aStr
dim as long  i

i = 0
open "unix", 2, "sw_vers"
do
line input #2, aStr
infoStr(i) = aStr
i++
until eof (2)
close  2

for i = 0 to 2
gC += infoStr(i) + chr$(13)
next i

end fn

dim as rect r
setrect( r, 0, 0, 200, 60 )
window 1, "SystemInfo", @r,_docNoGrow
insetrect( r, 10, 10 )
edit field 1,,@r,_statNoFramed,_centerJust

fn GetSystemInfo
edit$(1) = #gC

include "Subs Quick Event Loop.Incl"