Compucolor.org – Virtual Media

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

5 B= 35201
6 C= 36864
10 A= PEEK (B)
45 IF A< 48THEN A= 32
46 IF A> 123THEN A= 32
47 POKE C,A
50 A$= CHR$ (A)
60 PRINT A$;
70 B= B+ 1
75 C= C+ 1
80 GOTO 10