OpenBCM V1.13 (Linux)

Packet Radio Mailbox

DB0FHN

[JN59NK Nuernberg]

 Login: GUEST





  
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


 12.04.2026 15:45:09lGo back Go up