Table of Contents
Advertisement
The following computer program is for use with the VIC 20. This is
a third method of turning your VIC into a terminal. You may type
this into the computer and then start it by typing " run", those of
you learningto program mayfindsomeofthe routines interesting!
For your convenience, we have provided an explanation of the
listing.
100
OPEN 5,2,3,CHR$(6)
DIM F%(255), T%(255)
110
200
FOR J=32 TO 64: T%(J) =J: NEXT
T%(13)=13: T%(20)=8: RV=18: CT=0
210
FOR J=65 TO 90: K=J+32: T%(J)=K: NEXT
220
230
FOR J=91 TO 95: T%(J)=J: NEXT
240
FOR J=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
pnfJr«
300
rnllN l
310
GET#5,A$
IF A$=" " OR ST < >0 THEN 360
320
330
PRINT" "CHR$(157); CHR$(F%(ASC(A$)));
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
410
GOTO 310
TIP. Once you have typed the above program into
your computer, save it on your tape or disk for
Term inal Software for the VIC
«punff/1471
( )
v^nncj>^l^f
"CHR$(157); CHR$(146);: GET A$
future reference or use.
NO TE:lnserta spacebetween
thequotesinprogramlines
300, 330 and 360. Do not put a
sPace in the Quotes in tine 320.
7
Advertisement
Table of Contents
