Jon, should this work equally on soql, QPC2 v3.30 and uQLx TCP/IP?
Dilwyn Jones
----- Original Message ----- From: "Dent" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Sunday, January 30, 2005 12:53 PM
Subject: [ql-users] Email in SBASIC
Hi Try this in QPC 3.30
100 OPEN_IN #8,"tcp_pop.freesurf.ch:110": REM replace pop.freesurf.ch with
your account
110 inst$="": stage=0
120 crlf$= CHR$(13) & CHR$(10)
130 REPeat
140 a$= INKEY$(#8,100)
150 IF a$<>"":inst$= inst$ & a$
160 PRINT a$;
170 SELect ON stage
180 =0:
190 IF "OK" INSTR inst$ THEN
200 inst$= ""
210 PRINT #8, "USER username";crlf$;
220 stage= 1
230 END IF
240 =1:
250 IF "OK" INSTR inst$ THEN
260 inst$= ""
270 PRINT #8, "PASS password";crlf$;
280 stage= 2
290 END IF
300 =2:
310 IF "OK" INSTR inst$ THEN
320 inst$= ""
330 PRINT #8, "LIST";crlf$;
340 stage= 3
350 END IF
360 =3:
370 IF "OK" INSTR inst$ THEN
380 PRINT #0,"view which mail number ? 0 to QUIT":
390 INPUT #0,number$
400 IF number$<>0
410 PRINT #8,"TOP ";number$;" 5";crlf$;
420 ELSE
430 PRINT #8,"QUIT";crlf$;
440 END IF
450 CLS:CLS #0
460 stage= 2
470 END IF
480 END SELect
490 END REPeat
Then post your improvements ;-)
Jon.
_______________________________________________ QL-Users Mailing List http://www.q-v-d.demon.co.uk/smsqe.htm
--
No virus found in this incoming message.
Checked by AVG Anti-Virus.
Version: 7.0.300 / Virus Database: 265.7.3 - Release Date: 24/01/2005
-- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.300 / Virus Database: 265.7.3 - Release Date: 24/01/2005
_______________________________________________ QL-Users Mailing List http://www.q-v-d.demon.co.uk/smsqe.htm
