Compucolor.org – Virtual Media

Listing of file='TALK.BAS;01' on disk='vmedia/comm_pgms-sideA-sector.ccvf'

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
30 DATA -1
50 FOR X= 40900TO 40999
60 READ A:IF A= - 1THEN X= 41000:GOTO 100
70 POKE X,A
100 NEXT X
120 POKE 33221,195:POKE 33222,196:POKE 33223,159
130 POKE 33215,195:POKE 33216,237:POKE 33217,159