| |
OZ7T > TSTH 24.11.97 04:54l 101 Lines 2844 Bytes #999 (0) @ WW
BID : 6443-OZ7T
Read: GUEST
Subj: servers
Path: OE1XAB<OE3XPR<OE3XPR<HA1VH<OE1XIB<OE3XBS<DB0WGS<DB0PV<DB0AAB<DB0SL<
DB0LAN<DB0RGB<OK0PPL<OK0PKL<DB0MAK<DB0SON<DB0ERF<DB0DNI<DK0MNL<DF0HMB<
DB0HES<DB0IL<OZ5BBS<OZ4PAC<OZ4BBS<OZ3PAC<OZ6BBS
Sent: 971123/2253Z @:OZ6BBS.KBH.SJL.DNK.EU #:21042 [Copenhagen BBS] $:6443-OZ7T
From: OZ7T@OZ6BBS.KBH.SJL.DNK.EU
To : TSTH@WW
[¯¯¯ TST HOST 1.43b, UTC diff:-2, Local time: Sun Nov 23 23:35:37 1997 ®®®]
[¯¯¯ TST HOST 1.43b, UTC diff:-2, Local time: Sun Nov 23 23:11:37 1997 ®®®]
I have worked with my syntesizer station, and following programs
are working fine here.
My syntesizer is working on 144 + 10.7 to 146+10.7
Then i am mixing down to 3.2 to 5.2 Mhz
My divider is going from 128 to 208
Then i get 25000 Hz as reference.
If you have som good servers in source i Pascal please send some to mee.
Ole OZ7T on OZ6BBS in Kopenhagen.
Here some different servers
Her er forskellige servere
program valg;(* Dette program giver ekko paa en indtastning *)
var (*This program echo the input *)
tal1 :real;
a :Integer;
begin
if (paramcount<>3) then begin
writeln(' Inkey 144.625 144.650 eller 144.675 ');
halt(1);
end;
val(paramstr(3),tal1,a);
writeln('Valget var ',tal1:3:3,' Mhz');
end.
Dette program lägger to tal sammen
This program is adding two numbers
program addition;(* Her to variable der adderes og resultat retur *)
var
res :Integer;
number1,number2,sum :Real;
begin
if (paramcount<>4) then begin
writeln(' Inkey two numbers forexample 123 456 Real or Int ');
halt(1);
end;
val(paramstr(3),number1,res);
val(paramstr(4),number2,res);
sum:=tal1+tal2;
writeln(' the result is ',sum:4:6);
end.
Here you change frequenzy.
Her kan man skifte mellem forskellige frekvenser.
Program frequency_change;
var
call :string;
number,sum,res :integer;
level :byte;
begin
call:=paramstr(1);
val(paramstr(2),level,res);
val(paramstr(3),number,res);
if level< 1 then begin
writeln('Hi! ',call, ' You change frequency bye keying ');
writeln('1 2 3 4 or 5 ');
writeln('1 = 144.575 Mhz. Here You can speak with mee ');
writeln('2 = 144.625 Mhz. ');
writeln('3 = 144.650 Mhz. ');
writeln('4 = 144.675 Mhz. ');
writeln('5 = 144.975 Mhz. ');
writeln(' When You have selected frequency the system go to PMS ');
writeln(' Remember Change to new frequency ');
writeln('Inkey number ');
halt(1);
end
else
begin
if (number<1) or (number>5) then halt(2);
if number = 1 then sum:=151;
if number = 2 then sum:=151;
if number = 3 then sum:=154;
if number = 4 then sum:=155;
if number = 5 then sum:=167;
if number > 5 then exit;
port[$3bc]:=not sum;(*Parallelport in my PC *)
halt(2);
end;
end.
Venlige hilsner fra Ole
OZ7T alias OZ6OH
Denmark
Venlige hilsner fra Ole
OZ7T alias OZ6OH
Denmark
Read previous mail | Read next mail
| |
