Appendix A: Terminal Programs - Commodore 1650 User Manual

APPENDIX A
TERMINAL PROGRAMS
This simple program turns your computer into a terminal.
keyed it in, you should SAVE it on tape or disk so you can reuse it.
After you LOAD this program, just key in RUN to turn the computer into a
terminal.
100 OPEN 5,2,3,C HR $(6)
110 DIM F % (255), T % (255)
200 FOR J=32 TO 64: T%(J)=':NEXT
210 T % (13)=13: T%(20)=8: RV=18: CT=0
220 FOR 0^65. TO 90: T%(J)=K:NEXT
230 FOR J-91 TO 95: T%(J)=J:NEXT
240 FOR ^=193 TO 218:K=J-128: T%(J)-K:NEXT
250 T % (146)=16: T%(133)=16
260 FOR J=0 TO 255
270 K=T% (J )
280 IF K <> 0 THEN F%(K)-J:F%(K+128)=J
290 NEXT
300 PRINT " "CHR$(147)
310 GET#5,A$
320 IF A$=" " OR ST <> 0 THEN 360
330 P R I N T " C H R $ (157);
340 IF F%(ASC(A$))=34 THEN POKE 212,0
350 GOTO 310
360 PRINT CHR$ (RV) "
370 IF A$ <> ""THEN PRINT#5,CHR$(T%(ASC(A&)));
380 CT=CT+1
390 IF CT=8 THEN CT=0:RV=164-RV
400 IF (PEEK(37151) AND 64)=1 THEN 400
410 GOTO 310
NOTE: Insert a space between the quotes in program lines 300, 330
and 360.
TIP: Once you have typed the above program into your computer,
save in on tape or disk for future use.
AUTCMODEM
C H R $ (F % (A S C (A $ )));
"CHR$ (157 ) : CHR$ (146) ; . : GETA$
Do not put a space in the quotes in line 320.
Once you have
Page 20