В дальнейшем в схему приемника "VV-663" были внесены некоторые изменения. Новая модель, получившая наименование VV-663-2, имеет следующие отличия от предыдущей:

1. Применен новый громкоговоритель с постоянным магнитом мощностью 3 Вт; сопротивление звуковой катушки постоянному току 2,5 Ом. В связи с этим в фильтре выпрямителя вместо катушки подмагничивания громкоговорителя поставлено сопротивление 2,2 кОм, 2 Вт.

2. Исключены из схемы сопротивление R6 и конденсаторы С32 и С49.

3. Несколько изменены данные контурных катушек и величины некоторых деталей.

Известна также и другая модернизация приемника: "VV-663M".
  #!/usr/bin/perl use Time::Local; sub mydateconvert { my ($sec, $min, $hour, $day, $mon, $year, $wday, $yday, $isdst, $mytime); ($day, $mon, $year, $hour, $min, $sec) = split(/-/,$_[0]); #$mytime = timelocal ($sec, $min, $hour, $day, $mon-1, $year); ($sec, $min, $hour, $day, $mon, $year, $wday, $yday, $isdst) = localtime();# ($mytime-3*3600); $year+=1900; $mon+=1; return $mytime = sprintf ("%.2ld.%.2ld.$year %.2ld:%.2ld:%.2ld",$day,$mon,$hour,$min,$sec); } $databasefile = 'mycounterlog.txt'; $filedatemodify = mydateconvert($ENV{'LAST_MODIFIED'}); $filedatereadnew = mydateconvert($ENV{'DATE_LOCAL'}); $link = "$ENV{'REQUEST_URI'}"; if ($link eq "/") { $link="/index.shtml" } open(DB,"+<$databasefile") || die $!; flock(DB,2); # Locking file seek(DB,0,0); @DATA = ; $SIZE = @DATA; $i = 0; while ($i <= $SIZE) { ($counter,$counter2,$filedatestat,$filedatecreate,$filedatemodifyold,$filedateread,$oldlink) = split(/`/,$DATA[$i]); chop($oldlink); if ($oldlink eq $link) { $counter++; $counter2++; $DATA[$i] = "$counter`$counter2`$filedatestat`$filedatecreate`$filedatemodify`$filedatereadnew`$link\n"; goto LocateLink; } $i++; } $filedatecreate = $filedatemodify; $filedatestat = $filedatereadnew; $filedateread = $filedatereadnew; push @DATA, "1`1`$filedatestat`$filedatemodify`$filedatemodify`$filedatereadnew`$link\n"; $counter=1; LocateLink: @DATA = sort {($b =~ /(\d+)/)[0] <=> ($a =~ /(\d+)/)[0]} @DATA; seek(DB,0,0); print(DB @DATA); truncate(DB,tell(DB)); flock(DB, 8); close(DB); print "Content-Type: text/html\n\n"; print "