Compucolor.org – Virtual Media

Listing of file='TERMNL.BAS;01' on disk='vmedia/ncc_10-sector.ccvf'

1 REM   RS232 TERMINAL DRIVER PROGRAM, FROM COLORCUE V3#1
2 REM   CHANGES LOWER CASE CHARACTERS TO UPPER CASE
3 REM   IGNORES DELETES
4 REM   IGNORES CONTROL CHARACTERS (THOSE BELOW HEX 20)
5 POKE 32940,195:POKE 32941,159
6 CLEAR 200
10 DATA 245,123,230,127,254,127,202,235,159,254,10,202,230,159,254,13
12 DATA 202,230,159,254,32,218,235,159,254,97,218,230,159,230,223,50,1
13 DATA 112,95,241,195,220,57
20 DATA 241,201,245,62,31,50,227,129,62,132,211,5,62,14,50,223,129,241,201,32
30 DATA -1
50 FOR X= 40900TO 40999
60 READ A:IF A= - 1THEN X= 41000:GOTO 100
70 POKE X,A
100 NEXT
110 REM  TO OMIT FIRST SCREEN POS. COLOR STATUS, ENTER NEXT LINE
111 REM  POKE 40931,0;POKE 40932,0;POKE 40933,0
112 REM
115 REM  TO CHANGE BAUD RATE, POKE 40948,X  WHARE X IS:
116 REM  IF BAUD RATE 110  150  300  1200  2400  4800  9600
117 REM  1STOP BIT  X=129  130  132   136   144   160   192
118 REM  2STOP BITS X=  1    2    4     8    16    32    64
120 POKE 33221,195:POKE 33222,196:POKE 33223,159
130 POKE 33215,195:POKE 33216,237:POKE 33217,159