ABASIC term prog.
3 messages in this thread
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
Larry,
If you put a period (.) before each line in your ABasic program then the
format would look perfect. What happens is, if you don't put a period at the
beginning of the line then it will move that line around to accomodate the
different line lengths of people on here (some people are at 22, some at 40,
some at 60 and some at 80 columns) so the period at the beginning of each line
will not appear when some reads your message but it will make the editor put
the next character after that period in column 1 on the screen.
For example, this line has a period as the first character
and this line has a period for the first character but the word 'but' is the
first word on this line with NO period and it will be moved up onto the other
line.
So when printing program listings put a period then the line number.
Darrell Grainger
*** There is a reply:
42153
Enter command, N for next
message or <CR> for menu : n
Thanks (I should have remembered). The program was UPLed to the DL in clean
form anyhoo. – LDM-
Enter command, N for next
message or <CR> for menu : n