Chapter 7 - Commands and Messages
76
A BASIC TERMINAL PROGRAM FOR THE TRS-80 MODEL III
1 OUT 232,0
2 OUT232.164
3 OUT233,85
4 CLS
10 IF INP(234) and 128 then print CHR$(INP(235));: GOTO 10
20 A$=INKEY$:IF A$="" THEN 10
30 IF INP(234)and64 THEN OUT 235,ASC(A$): GOTO 10 ELSE GOTO 30
Put the TRS-80 Model III in BASIC. Type and run the program. When the program is run the
screen will go blank. At this time turn on the RAM. The unit will send the PRESS * FOR AUTO-
BAUD routine.
THIS PROGRAM REQUIRES A 3-WIRE RS-232 HOOKUP ONLY!
A BASIC TERMINAL PROGRAM FOR THE APPLE COMPUTER WITH THE SUPER SERIALCARD
10 REM THIS PROGRAM SETS UP THE SSC FOR THE TNC
20 REM ASSUMES THE SSC IS IN SLOT #2
30 A$=CHR$(1):D$=CHR$(4)
40 PRINT D$ "PR#2"
50 PRINT A$;"6 BAUD":REM SET 300 BAUD
60 PRINT A$;"0 DATA":REM 8 DATA, 1 STOP BIT
70 PRINT A$;"0 PARITY":REM NO PARITY
75 PRINT A$; "SD":REM DISABLE SPECIAL CHARS & ENABLE ESC KEY
80 PRINT A$;"TERM MODE"
90 REM IN TERMINAL MODE-TALK TO TNC
100 REM PRESS<CTRL RESET>TO EXIT PROGRAM
110 PRINT A$;"RESET"
120 END
A BASIC TERMINAL PROGRAM FOR THE ZENITH Z-100
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
To Next Page
Loading...
