| |
OZ7T > TSTH 30.11.97 01:06l 80 Lines 1881 Bytes #999 (0) @ WW
BID : 6454-OZ7T
Read: GUEST
Subj: Server for Syntesizer
Path: OE1XAB<OE3XPR<OE3XPR<OE1XBB<OE1XIB<OE3XBS<DB0SL<DB0RGB<DB0ABH<DB0SRS<
DB0MW<DB0ERF<DB0SAW<DB0HRO<OZ4BOX<OZ3BOS<OZ3PAC<OZ6BBS
Sent: 971129/1953Z @:OZ6BBS.KBH.SJL.DNK.EU #:23626 [Copenhagen BBS] $:6454-OZ7T
From: OZ7T@OZ6BBS.KBH.SJL.DNK.EU
To : TSTH@WW
[¯¯¯ TST HOST 1.43b, UTC diff:-2, Local time: Sat Nov 29 20:12:14 1997 ®®®]
I like to play with my homebuild 2 meterstation working with a VFO going
from 154.7 to 156.7 Mhz.
Mixing with a Xtal on 151.2 i have 3.2 to 5.2 Mhz
My divider going fro 128 to 208 giving then 79 Channels
Reference frequens is 25000 Hz.
Hope you can use some Exables in this Source.
program skift;
var
call :string;
tal,tal1,res :Integer;
begin
tal1:=167;
call:=paramstr(1);
if Paramcount <> 3 then
begin
writeln(' Hee ' ,call,' Inkey 575 625 650 675 or 975 ');
halt(1);
end;
val(paramstr(3),tal,res);
if tal=575 then tal1:=151;
if tal=625 then tal1:=153;
if tal=650 then tal1:=154;
if tal=675 then tal1:=155;
if tal=975 then tal1:=167;
if tal=575 then
begin
writeln(' You are on 144.575 Mhz ');
end;
if tal=625 then
begin
writeln(' You are on the Packet 144.625 ');
end;
if tal=650 then
begin
writeln(' You are on the Packet 144.650 ');
end;
if tal=675 then
begin
writeln(' You are on the Packet 144.675 ');
end;
if tal=975 then
begin
writeln(' You are on the Packet 144.975 ');
end;
if (tal1<151) or(tal1>168) then write(' False Inkeying ');
writeln(' Thanks ' ,call,' for Your Call ');
if tal1= 151 then port[$3bc]:=not tal1;
if tal1= 153 then port[$3bc]:=not tal1;
if tal1= 154 then port[$3bc]:=not tal1;
if tal1= 155 then port[$3bc]:=not tal1;
if tal1= 167 then port[$3bc]:=not tal1;
end.
I use my parallelport $3BC on my Computer with a flat Cable to my Station.
Ole OZ7T alias OZ6OH Ballerup by Kopenhagen
Have Fun with it
Venlige hilsner fra Ole
OZ7T alias OZ6OH
Denmark
/ACK
Read previous mail | Read next mail
| |