" Cel SocketTest Program " {| Type <- 'Cel Application'. Author <- 'Dru Nelson'. Info <- 'test of Socket Kit'. Root <- {| zoob <-> 'adios'. zork <-> 'zork'. Start: name <+ { Kit import: 'Socket'. zoob: Socket clone. zoob connectToHost: 'www.dadgum.com' port: 80. zork: String clone. zork setCapacity: 4096. "Send http request" zoob writeFrom: 'GET /giantlist/ HTTP/1.0\r\n\r\n'. { (zoob readInto: zork Size: 4096) > 0 } whileTrue: { zork print. }. zoob close. } |} |}