Chapter 7 - Commands and Messages
77
A BASIC TERMINAL PROGRAM FOR THE KAM USING THE ATARI 850 INTERFACE
10 GOSUB 1600
20 FOR LOOP=0 TO 1 STEP 0
50 IF PEEK(764)=255 THEN 80
60 GET #KEY,A:IF A=126 THEN A=8
70 PUT #1,A
80 STATUS #1,A:BUF=PEEK(747)
90 IF BUF=0 THEN NEXT LOOP
100 FOR I=1 TO BUF
110 GET #1,A:IF A=8 THEN A=126
120 ?CHR$(A);:NEXT I
140 NEXT LOOP
1600 KEY=4
1610 XIO 36,#1,8,0,"R1:" :REM-300 BAUD
1630 XIO 34,#1,48,8,"R1:" :REM-RTS ON
1640 OPEN #1,13,0,"R1:"
1650 XIO 40,#1,0,0,"R1:"
1655 OPEN #KEY,4,0,"K:"
1660 RETURN
WHEN USING THIS PROGRAM, SET THE KAM'S DELETE AND AUTOLF COMMANDS TO OFF.
Figure 1: Pin functions of Serial Port No. 1 in 850 Interface Module 9-pin female connector.
NOTE: These views are looking AT socket from OUTSIDE of Interface.
White = Pin 3
Brn = Pin 4
Blk = Pin 5
Red = Pin 8
Green = Pin 7