Hi, Dave here just introducing myself
I’m about 40 years late to the Psion party but that’s how I seem to roll. Always suitably late. Always been a big bone of contention throughout the family.
Anyway I’m a Ham (M0ESB) that’s not that active nowadays who prefers the low power digi modes. I love all the retro equipment from the 80’s that was the mainstay of my teenage years. And I’ve just got my first Psion. Loved it so much I now have another two.
When will it ever stop.
Anyway great site, some superb advice and info and very much appreciated.
Regards
Dave
Evening all.
-
- Posts: 1
- Joined: Thu Feb 13, 2025 4:56 am
- Location: Leicester
- Contact:
Evening all.


- NotFitForPurpose
- Posts: 94
- Joined: Tue Sep 03, 2024 12:06 pm
- Contact:
Re: Evening all.
Hi Dave,
well I think your fashionably on time
How about this piece of code... 73's
DTMF:
LOCAL I%,J%,M%,P%,S%,SP%,ST%
LOCAL CH%,B%
P%=16 : REM Period
ST%=P%+1: REM Start pulse length
SP%=P%*2+2 : REM Stop pulse length
S%=1000 : REM Logic 1
M%=1170 : REM Logic 0
CH%=ASC("Y")
BEEP 400,M%
J%=1
DO
I%=128
BEEP ST%,S%
DO
B%=CH% AND I%
IF B%>0
BEEP P%,M%
ELSE
BEEP P%,S%
ENDIF
I%=I%/2
UNTIL I%<1
BEEP P%+SP%,M%
J%=J%+1
UNTIL J%>5
BEEP 500,M%
well I think your fashionably on time

How about this piece of code... 73's
DTMF:
LOCAL I%,J%,M%,P%,S%,SP%,ST%
LOCAL CH%,B%
P%=16 : REM Period
ST%=P%+1: REM Start pulse length
SP%=P%*2+2 : REM Stop pulse length
S%=1000 : REM Logic 1
M%=1170 : REM Logic 0
CH%=ASC("Y")
BEEP 400,M%
J%=1
DO
I%=128
BEEP ST%,S%
DO
B%=CH% AND I%
IF B%>0
BEEP P%,M%
ELSE
BEEP P%,S%
ENDIF
I%=I%/2
UNTIL I%<1
BEEP P%+SP%,M%
J%=J%+1
UNTIL J%>5
BEEP 500,M%