CH=G@SETUP(400,200,16,1) IN=P@INETOPEN("http://www.jppass.com/lgp/") IR$=P@INETRECV(IN,100000) P@INETCLOSE(IN) G@PRINT(CH,0,0,STR(LENG(IR$))) LOOP G@FLIP() ENDLOOP