Commodore Plus 4 - Page 223

SAMPLE
BASIC
PROGRAM
This program opens the telecommunications channel to allow you to
communicate using a modem.
100 OPEN 5, 2, 2, CHR$(22) + CHR$(5): REM ALLOCATE BUFFER
AND OPEN CHANNEL
110DIMF%(255),T%(265)
120FORJ-32TO64: T%(J)=J:NEXT
130T%(13) = 13:T%(20) = 8:RV=18: CT^O
220FORJ = 65TO90: K=J + 32: T%(J)=K: NEXT
230FORJ = 91TO95:T%{J)=J:NEXT
240FORJ-193TO218: K = J-128: T%(J)=K: NEXT
250T%(146) = 16:T%(133) = 16
255T%(137)=3: T%(134) = 17: T%(138) = 19
260 FOR J=0 TO 255
270K = T%(J)
280 IF KO0 THEN F%(K)=J: F%(K + 128)-J
290 NEXT
300 PRINT" "CHR$(147)
310GET#5,A$
320rFA$^1M'THEN360
330 PRINT" "CHR${157);CHR$(F%(ASC(A$)));
340 IF F%{ASC(A$)) = 34 THEN PRINT CHR$(27)"O";
350 GOTO 310
360 PRINT CHR$(RV)" "CHR$(157);CHR$(146);: GETA$
370IFA$O""THENPRINT#5,CHR${T%(ASC(A$)));
380CT-CT + 1
390 IF CT = 8 THEN CT = 0: RV-164-RV
410 GOTO 310
214