The Signetics 2650 - The MESSUI Place

Micro Basic Programs
for 2650 systems
Temperature Conversion, Radio Log
Here are two short programs written in "Micro Basic" — the cutdown
version of BASIC developed for small 2650 computer
systems by reader Alan Peek. One program converts temperatures
from one scale to another, while the other is a program to manage
a radio amateur's contact log.
Following our review of Alan Peek's an invalid entry when the program is
"Micro Basic" for small 2650 microcom- being used.
puter systems, published in the April is The shown complete in Fig. listing 1, with of a the sample program of
1979 few readers issue, it have would obtained seem that Mr quite Peek's a operation in Fig. 2. As you can see, it is
interpreter and have been working fairly self-explanatory.
with it. Already two readers have sent
in programs they have developed, and
as they seem likely to interest readers G I
we are publishing details here.
PROGRAM TO CALCULATE
The first program came from Mr Syd DEGREES C,K,F OR R GIVEN ONE
Brooks, of 6 Edgar Street, Ferntree Gully
Victoria 3156. It is a simple little WILL YOU GIVE C,K,F OR R? F
program which can convert between PRESS + OR -+
the Celsius, Fahrenheit, Kelvin and WHAT I S TEMP? 212
Rankin temperature scales. Mr Brooks
has provided it with a little humour, to C=100 K=373 F=212 R=672
add to the interest, along with some
checks and reprompts in the event of W ILL YOU GIVE Co Ks F OP. R?
I P"PROGRAM TO CALCULATE"
2 P"DEGREES C,K,F OR R GIVFN ONE"
3 P
4 P"WILL YOU GIVE C,K,F OR R? " AA
5 TA:70,A1750A: 67, A:82 GI<
6 P"PRESS + OR AB TB=43 L1=X G3> Fig. 1, at left is the
7 TB=45 LII=X G2>
8 02<
9 P"WHAT IS TEMP" IE LEX*=E
10 TA-70 G4>
11 TA-82 04>
12 TA=67 G4>
13 TA=75 G4>
14 LE460+=lioR=E
15 LE460-=F.F32-54.9/=CPC273+.1K,E=P G3>
16 LE273+=KAK=E
17 LE273-=C,C94.5/32+=FPF460+=RDE=K
18 TK40 P"THAT'S IMPOSSIBLE STILL!" G3>
19 TC
20 TC>1999 P"GUESS" G3
21 P
22 P"C="C," K="H," F="F," Rm"R
23 G3
24 SA=C,F.K OR R B=SIGN E=TEMP%
25 SC=CELSIUS F=FAHRENHEIT KleELVIN
26 $R=RANKIN $
27 E
full listing of temperature
conversion
program while Fig. 2
above is a sample of
its operation.
The second program came from Mr
Horst Leykam, of 165 Victor Street, Dee
Why NSW 2099. Mr Leykam is a radio
amateur, with the call sign VK2BHF, and
explains that he wrote the program in
an effort to produce a more elegant
and effective way of maintaining and
referencing his contact log.
What this program does is maintain a
log of contacts, with each contact
represented by callsign, the name of
the operator contacted, the date and
the readability/signal strength details. It
allows you to add to the log "file" when
each contact is made, and then to have
an automatic search made for previous
contacts with the same callsign. This lets
you "refresh" your memory regarding
the name of the operator, and the
previous times that you exchanged
calls.
A file can be expanded until it fills
the allocated memory buffer space (hex
1000-1FFF, or decimal 4096-8191). As
each entry is made to a file, the
program tells you how many bytes of
memory are left — in decimal. This
allows you to save a file at any time on
cassette tape, using the normal PIPBUG
dump command, and then re-load it
into the buffer later using the L command.
The program can search for either
the first file entry matching the
supplied data (typically the callsign), or
for all matching entries. It also allows
you to alter an existing file entry,
providing the change will fit into the
same space. This allows you to correct a
previous mistake, when it is discovered.
A full listing of the program is shown
in Fig. 3, with a sample of its operation
shown in Fig. 4. When the program
starts up, it immediately asks you for a
command. You have five options,
each command being represented by a
single digit (1-5) terminated by a
carriage return.
1 — Is to enter a new file. Each line
should be delimited by a space and an
asterisk.
2 — Is to accept a data entry (say the
callsign), and search through the
current file for a match. The first line
found to contain the data will be
printed out.
ELECTRONICS Australia, February, 1980 87