Kantronics KPC-2 - Page 49

BASIC terminal program for the Zenith 2-100
m 10 KEY OFF: CLS: CLOSE
20 OPEN"COM1:300,N,8,1" AS +1:
30 OPEN"SCRN:"FOR OUTPUT AS +2:
40 A$=INKEY$:IF A$=""THEN 60
50 PRINT #1,A$
60 IF LOC(1)=0 THEN 40
70 B$=INPUT$(LOC(1),#1)
80 PRINT +2,B$
90 GOTO 40
BASIC terminal program for the Atari 850 Interface
10 GOSUB 1600
20 FOR LOOP=0 TO 1 STEP 0
50 IF PEEK(764)-255 THEN 80
60 GET 4KEY,A:IF ۸-126 THEN A=8
70 PUT ai A |
80 STATUS #1,A:BUF=PEEK(747)
P 90 IF BUF=0 THEN NEXT LOOP
100 FOR 1-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,0,"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
This program uses a 5-wire cable as described in the Connecting Your Computer
section. When using this program, set the TNC's DELETE and AUTOLF commands
to OFF.
SAMPLE TERMINAL PROGRAMS 43
O Copyright 1989, Kantronics, Inc. All Rights Reserved.
۱
Duplication of this manual or the firmware without Version 2.85 |
permission of Kantronics, Inc. is prohibited. Installation Manual |
„n5„n•'nł?ÿ,nñ?j˙2“rß o ——— Ñ<$K 7