#scp
#这是一个TCP时间获取服务器的例子
#它不断监听一个网络连接
#如果有网络连接到来
#就通过新建立的网络连接发送当前时间
定义:字符串,string2,""
定义:地址,addr2,127.0.0.1,13
定义:整数,字节数,0
定义:网络连接,conn2,TCP
定义:函数,routine
开始:函数,routine
监听:conn2,addr2
定义:时间,time1
读取:当前时间,time1
转换:string2,time1
取大小:字符串,string2,字节数
如果:字节数>0,显示:string2
如果:字节数>0,发送:conn2,string2
结束:函数,routine
当:1,调用:函数,routine
#-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
#scp
#这是一个通过TCP协议向服务器请求当前时间的例子
#它先发起对一个网络上的服务器的连接
#如果连接建立,就接收服务器发来的时间并显示
#这个过程重复100次
定义:字符串,string2,
定义:地址,addr1,127.0.0.1,13
定义:整数,字节数,0
定义:整数, count,100
定义:网络连接,conn1,TCP
连接:conn1,addr1
定义:函数,function1
开始:函数,function1
接收:conn1,string2
取大小:字符串,string2,字节数
如果:字节数>0,显示:string2
计算:算式,exp1,count=count-1
睡眠:100
结束:函数,function1
当:count>0,调用:函数,function1