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