CompuServe Messages

10 IOBASE = &HDFF000: SERDAT = IOBASE + &H30: SERDATR = IOBASE + &H18 40 INTREQ = IOBASE + &H1E: INTREQW = IOBASE + &H9C 60 SCREEN 1,1,0: GOSUB 110 80 GET A$: IF A$ <> "" THEN GOSUB 180 90 GOSUB 150: GOTO 80 110 OPEN "O", #1, "SER:": PRINT #1, " ": CLOSE #1: RETURN 150 RD% = PEEK_W(INTREQ) AND 2048 160 IF RD% <> 0 THEN ? CHR$(PEEK_W(SERDATR) AND 127);: POKE_W INTREQW,2048 170 RETURN 180 XD% = ASC(A$) + 256: POKE_W SERDAT,XD%: RETURN The above seems to pump the hardware OK in ABASIC. It wouldn't be very hard to add capture (just put into an array and dump to disk later –hey, all that ram!–). At least it's a start. PS if you use Hayes modems, set switch 4 UP so you can see the commands to the Modem in Command Mode. Just type the magic +++ to get back to command mode once you are on line. I tried uploading this (seemed successful), but at least it should hang around for a while here. It ain't elegant but at least it's short to type in and can form a start to let you Amigoids use your Little Beauty to talk to CIS! -LDM- Enter command, N for next message or <CR> for menu : n