PacComm TINY-2 - Technical Reference Manual

SIMPLE
C64
TERMINAL
PROGRAM
_
Revised
April
15, 1989
10
REM:
SIMPLE
C64
TERMINAL
PROGRAM
(OPERATOR
MUST
USE
CTL-S
AND
CTL-Q
FOR
FLOW
CONTROL)
15
_REM:F1SENDS
A
CONTROL
CTO
TNC
20
POKE
53280,1:
POKE
53281,1:
POKE
53272,23
25
REM:USE
THIS
FOR
LINE
20
FOR
VIC-20
:20
POKE
36879,25
30
OPEN
2,2,3,
CHRS
(40)
+
CHRS$
(96)
40
POKE
36869,
242
45
IF
AS=CHR$
(133)
THEN
A$="CONTROL
C"
50
PRINT
CHR$
(144)
60
C$=CHR$
(147)
70
K$=CHR$
(20)
80
J$=CHR$
(187)
90
CR$=CHR$
(13)
100
PRINT
C$;"WAIT..”
110
GOSUB
300
120
PRINT
C$:"POWER-UP
YOUR
TNC
NOW"
130
PRINT
JS;
140
GET
#2,
A$
150
IF
A$="THEN
190
160
A=I%(ASC(A$))
170
PRINT
K$+CHR$
(A)
+J5;
180
GOTO
140
190
GET
A$
200
IF
AS="THEN
140
210
PRINT#2,
CHR$
(M%
(ASC
(A$)));
220
GOTO
140
300
DIMI%
(255),
M%
(255)
310
FOR
Z=0TO
64:
M%(Z)=Z
:NEXT:
M%
-
(13)
=
13:
M%
(20)
=
8:
M%
(160)
=32
320
FOR
Z=65
TO
90:
Y=Z
+32:
M%
(Z)=Y:
NEXT:
_ FOR
Z=91
TO
95:
M%
(Z)
=Z:
NEXT
330
FOR
Z=193
TO
218:
Y=Z-128:
M%
(Z)=Y:
NEXT
340
Mg
(133)=03:
M%
(134)
=
19:
M%
(135)
=
17:
M%
136)
= 16
350
FOR
Z=0TO255:
Y
=M%(Z):
IF
¥
<
>O
THEN
1%
Y)=Z
360
NEXTZ
RETURN